Computing the total hours worked per earnings code

TS_EARNCODE

Local PACKAGE:NumberHashtable &oHrsByErnCd = Create PACKAGE:NumberHashtable();
Local Rowset &rsTSIntfc = CreateRowset(Record.Z_TSINFC_VW);

REM Get all the timesheets for the week
&rsTSIntfc.Fill(" WHERE EARNS_END_DT = %DateIn(:1) AND EMPLID = :2 ", &Timesheet.WeekEndDate, &Timesheet.EmplID);
For &nCnt = 1 To &rsTSIntfc.RowCount
  &recTSIntfc = &rsTSIntfc(&nCnt).Z_TSINFC_VW;
  REM Add the Hours to the Hashtable with ERNCD as the Key
  &oHrsByErnCd.Add(&recTSIntfc.ERNCD.value, &recTSIntfc.TOTAL_HRS.value);
End-For;

REM We can use &oHrsByErnCd for further processing