Contact: aviboots(AT)netvision.net.il
39,870 questions
51,793 answers
573 users
IDENTIFICATION DIVISION. PROGRAM-ID. COBOL-PRO. DATA DIVISION. WORKING-STORAGE SECTION. 01 A-CODE PIC X(5) VALUE 'XYZ1$'. PROCEDURE DIVISION. DISPLAY "A-CODE : "A-CODE. STOP RUN. # run: # # A-CODE : XYZ1$