如何爲給定條件的字段選擇最高值？

Question

我做考勤系統在我的物理文件（PF）具有以下字段：

User ID(key field),Date,Time In,Time Out 
...... 

的問題是，我儘量選擇超時的那一天特定的用戶名和日期及最高值。並將超時值移到我的程序中的一個變量中。

如何將RPGLE源代碼看起來像？

Answer 1

傳統的方法是建立一個邏輯文件，其中包含用戶ID，日期和超時作爲關鍵字，日期和時間遞減。然後，我認爲只要將用戶ID和今天的日期作爲部分密鑰進行邏輯鏈接即可獲得最新的記錄。

Answer 2

嵌入式SQL也將工作：

SELECT MAX(timeout) 
INTO :outTime 
FROM PF 
WHERE userid = :selected_user_id 
AND date = :selected_date` 

Answer 3

假設你有一個員工檔案，以及工作時間的文件，如你所說。並且您想要報告每個員工在特定日期的最早進入時間和最晚暫停時間。

所以你可能有一個循環讀取僱員文件，並且在那個循環中，你可以鏈接到@Martin描述的邏輯以獲得最後一次超時，另一個邏輯用上升時間鍵入以獲得那裏的價值最低。

使用SQL，您可以在一次讀取（SQL提取）中獲取員工文件信息以及最早的進入時間和最晚的超時時間。它可以簡化循環內的代碼，不是嗎？

因此，這裏是僞代碼的基本流程：

Declare a cursor with your SQL statement 
Open the cursor 
Fetch a row from the cursor 
DoWhile status is ok 
    Process your data 
    Fetch the next record 
EndDo 
Close the cursor 

不是太可怕看的，是嗎？那麼讓我們看看代碼的樣子。當然，在SQL中有很多方法可以做，但是讓我們從簡單的SQL Select語句開始。當你在SQL中使用RPG變量時，你用冒號（'：'）作爲前綴。

WITH h as 
    (SELECT empID, min(timein) as firstin, max(timeout) as lastout 
     FROM workhours 
     WHERE workdate = :myvariable 
     GROUP BY empID 
    ) 
    SELECT e.lastname, e.firstname, e.empnbr, h.firstin, h.lastout 
     FROM h 
     JOIN employees as e on h.empID = e.empnbr 
     ORDER BY e.lastname, e.firstname, e.empnbr; 

那麼，這是一個相當的SELECT語句，呃？很多事情正在進行。

但它分爲兩部分。第一部分是一個名爲h的表格表達式，我們在那個日期爲每個員工獲得我們的時間。第二部分列出了我們想要的所有結果字段，這些字段取自表格表達式h和僱員文件，只要我們可以匹配兩個文件中的僱員編號即可。這些行將按照姓氏，名字和員工編號排序。

所以讓我們把它放在RPG中。

EXEC-SQL DECLARE CURSOR C1 AS 
       WITH h as 
       (SELECT empID, min(timein) as firstin, max(timeout) as lastout 
        FROM workhours 
        WHERE workdate = :myvariable 
        GROUP BY empID 
      ) 
       SELECT e.lastname, e.firstname, e.empnbr, h.firstin, h.lastout 
       FROM h 
       JOIN employees as e on h.empID = e.empnbr 
       ORDER BY e.lastname, e.firstname, e.empnbr 
       FOR READ ONLY; 
EXEC-SQL OPEN C1; 
EXEC-SQL FETCH FROM C1 
      INTO :lname, :fname, :emp, :firsttime, :lasttime; 
DoW &subst(SQLState,1,2) = '00'; 
    // 
    // perform processing here 
    // 
    EXEC-SQL FETCH FROM C1 
       INTO :lname, :fname, :emp, :firsttime, :lasttime; 
enddo; 
EXEC-SQL CLOSE C1; 

現在，您可能會首先猶豫在光標中的SELECT語句做了多少工作。但是通過這樣做，您簡化了I/O，並讓SQL優化器發揮魔力，找到將數據傳遞給您的最快方式。