INPUT PO.FLOOR.HIST
po.floor.hist                    VSQ2FS      -
DEFINE STAMPED=STAMP.DATE+STAMP.TIME;13
DEFINE LOC=SUB(LOC.SHIFT.CODE,1,1);1
REPORT
SELECTING IF STAMPED GE "20120801     " AND STAMPED LE "20120831     "
USING Q2.TO.PO.HIST
SORT ON HIST.TYPE;LOC;DEPT
TOTAL HIST.TYPE;LOC,P;DEPT,P;MAN.HOURS;TRAIN.HRS;SETUP.HRS;CLEANUP.HRS;
BRKDOW.HRS;WHEEL.CHG.HRS;INPUT.POUNDS;OUTPUT.POUNDS
BREAK ON HIST.TYPE;LOC;DEPT
END
INPUT PO.FLOOR.HIST
po.floor.hist                    VSQ2FS      -
LINES 0
NOHEADINGS
SPACES 0
INDENT 0
DEFINE STAMPED=STAMP.DATE+STAMP.TIME;13
DEFINE LOC=SUB(LOC.SHIFT.CODE,1,1);1
REPORT
SELECTING IF STAMPED GE "20120801     " AND STAMPED LE "20120831     "
USING Q2.TO.PO.HIST
PRINT stamped;stamp.date;stamp.time;po.number;hist.type;loc;loc.shift.code;dept;man.hours;train.hrs;
setup.hrs;cleanup.hrs;brkdow.hrs;wheel.chg.hrs;input.pounds;output.pounds
RUN RPGGEN,UTL,"P01.ibr,TMP,!SortIt"
INPUT P01Sort
p01sort                          P01SORT     -TMP
SORT ON HIST.TYPE;LOC;DEPT
REPORT
TOTAL HIST.TYPE;LOC,P;DEPT,P;MAN.HOURS;TRAIN.HRS;SETUP.HRS;CLEANUP.HRS;
BRKDOW.HRS;WHEEL.CHG.HRS;INPUT.POUNDS;OUTPUT.POUNDS
BREAK ON HIST.TYPE;LOC;DEPT
ERASE P01Sort,TMP
END