GM2 is called here. WS-VAR1 and WS-VAR2 are working storage items.
CALL PGM2 USING BY REFERENCE WS-VAR1, BY CONTENT WS-VAR2.
LINKAGE SECTION. 01 LINKAGE SECTION. 05 LK-VAR1 PIC 9(04). 05 LK-VAR2 PIC 9(04).
PROCEDURE DIVISION USING LK-VAR1,LK-VAR2
Ready to start your tutorial with us? That's great! Send us an email and we will get back to you as soon as possible!