|
|
|
INPUT CAWGJR70
SELECT PRO ID EQ 'S' OR 'T' AND STEP JOB IND EQ (' 1' OR '11')
DEFINE(K) USER/FIELD(C)(16) EQ BLANKS
SORT USER INFO(1,1)
INPUT FILE KEY=2CC1-1 MATCH = USER INFO(1,1) TABLE = 2CC2-17 LIST
COMPUTE IF MATCHED THEN USER/FIELD EQ 2CC2-17 ELSE
USER/FIELD EQ 'UNKNOWN DEPT'
OUTPUT ALL
| Copyright © 2012 CA. All rights reserved. |
|