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-NAME PIC A(6) VALUE 'Tom'. PROCEDURE DIVISION. DISPLAY "A-NAME : "A-NAME. STOP RUN. # run: # # A-NAME : Tom