IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-A PIC X(15). 88 WS-B VALUE 'PIN CHANGED'. 88 WS-C VALUE 'PIN INVALID'. PROCEDURE DIVISION. SET WS-B TO TRUE IF WS-B DISPLAY 'DONE 1:' WS-A ELSE DISPLAY 'DONE 2'WS-A END-IF. STOP RUN.
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more