Contact: aviboots(AT)netvision.net.il
39,870 questions
51,793 answers
573 users
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. DATA DIVISION. WORKING-STORAGE SECTION. 01 ptr usage pointer. 01 var pic x(64). PROCEDURE DIVISION. set ptr to address of var. DISPLAY ptr. STOP RUN. *> run: *> *> 0x000055c4653c0040