000001 BASIS testantlr161a.cbl
000002 INSERT 000001
000003 REPLACE
000004         ==:PROGRAMID1:== BY ==testantlr161==
000005         ==:PROGRAMID2:== BY =='testantlr161'==.
000006 DELETE 000011-000014
000007     DISPLAY MYNAME FUNCTION CURRENT-DATE 'Begin Processing'
000008     CALL 'CEEGTST' USING STUFF END-CALL
000009     EXEC CICS XCTL PROGRAM('PGM0061A')
000010     END-EXEC
000011     DISPLAY MYNAME FUNCTION CURRENT-DATE 'End Processing'
000012 DELETE 000018-000020,000021
000013 INSERT 000022
000014 CALL 'CEE3ABD'.
000015 END PROGRAM testantlr161.
000016 
