Contact: aviboots(AT)netvision.net.il
40,760 questions
53,134 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$