000000 PROGRAM-ID PAJSFN20
000353 EVALUATE STATUS-CODE
000354 WHEN 'OKAY'
000356 EVALUATE TRUE ALSO TRUE
000358 WHEN HIGH-DOLLAR-ADJ ALSO LS-ABK-STA-CODE = 'J'
000359 MOVE ADX-GRP-OCC-CNT OF WS-FORMAT-QWABQ0T6 TO X
000388 END-EVALUATE
000398 END-EVALUATE .
Editor is loading...
