Sample Usage › JARSWZ08: Calendar Report › JARSWZ08 Control Statements

JARSWZ08 Control Statements

INPUT CAWGJR70
SELECT PRO ID EQ ('S' OR 'T') AND STEP JOB IND EQ (' 1' OR '11')
COMPUTE NO/READERS EQ (NO/RD + 0)
COMPUTE NO/PRINTERS EQ (NO/PR + 0)
COMPUTE NO/TAPES EQ (NO/TP + 0)
COMPUTE NO/DISKS EQ (NO/DK + 0)
COMPUTE NO/OTHER DEVICES EQ (NO/OT + 0)
COMPUTE NO/TOTAL DEVICES EQ (ND + 0)
COMPUTE MOVE RUN/DATE/YMD TO CALENDAR/DATE
SORT RUN/DATE/YMD
CALENDAR NO/READERS,
         NO/PRINTERS,
         NO/TAPES,
         NO/DISKS,
         NO/OTHER DEVICES,
         NO/TOTAL DEVICES