IDENTIFICATION DIVISION. PROGRAM-ID. ADD01. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 FIRST-NUMBER PICTURE IS 9999999999. 01 SECOND-NUMBER PICTURE IS 99. 01 THE-RESULT PICTURE IS 99. PROCEDURE DIVISION. PROGRAM-BEGIN. SET FIRST-NUMBER TO 1999999999. DISPLAY FIRST-NUMBER.
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more
