Sample Usage › JARSWZ11: Decode Function › JARSWZ11 Control Statements

JARSWZ11 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)
DECODE USER/INFO(1,1) TO DEPT NAME,
5 = ADMINISTRATIVE DEPT,
C = COMPUTER DEPT,
3 = MANAGEMENT DEPT,
4 = MARKETING DEPT,
O = OPERATIONS DEPT,
J = PERSONNEL DEPT,
1 = PROGRAMMING DEPT,
7 = SHIPPING DEPT,
9 = SYSTEMS DEPT,
ELSE 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 C O S T   C E N T E R   A N A L Y S I S