Sample Usage › JARSWZ10: File Matching and Table Lookups › JARSWZ10 Control Statements

JARSWZ10 Control Statements

INPUT CAWGJR70
SELECT PRO ID EQ 'S' OR 'T' AND STEP JOB IND EQ (' 1' OR '11')
DEFINE(K) DEPT NAME(C)(20) EQ BLANKS
SORT USER INFO(1,1)
BREAK USER INFO(1,1)
INPUT FILE KEY=2CC1-1 MATCH = USER INFO(1,1) TABLE = 2CC2-21 LIST
COMPUTE IF MATCHED THEN DEPT NAME EQ 2CC2-21 ELSE
    DEPT NAME EQ 'UNKNOWN DEPT CODE'
COMPUTE CPU/TIME EQ (CPU/TIME/HRS * 3600)
COMPUTE ACTIVE/TIME EQ (ACTIVE/TIME/HRS * 3600)
LIST(SUM) DEPT NAME(NG), COUNT 'NBR JOBS', TOTAL/IO COUNT,
     CPU TIME(HS), ACTIVE/TIME(HS), TOTAL/PAGES
HEADING4C FILE MATCHING: COST CENTER ANALYSIS