Quote: |
02 DIBSTAT X(2) AI 02 DIBSEGM X(8) DAT220 |
Code: |
01 W-CEE3ABD PIC X(08) VALUE 'CEE3ABD'. 01 W-ABEND-CODE PIC S9(9) COMP VALUE 16. 01 W-CLEAN-UP PIC S9(9) COMP VALUE 1. IF IMS-STATUS-CODE NE SPACES DISPLAY 'ERROR ENCOUNTERED ON IMS CALL' DISPLAY 'CHECK FOR MISSING PARMS/INDEXES' CALL W-CEE3ABD USING W-ABEND-CODE, W-CLEAN-UP END-IF |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours