I have a CICS program that: Links to pgm A with Commarea A,
EXEC CICS LINK
PROGRAM (WS-CALL-WSD019RA)
COMMAREA (SMEXCH-XREF-PGM-COMMAREA)
LENGTH (LENGTH OF SMEXCH-XREF-PGM-COMMAREA)
RESP (WS-RESP-CODE)
RESP2 (WS-RESP-CODE2)
then CALLS pgm B using layout B.
CALL X70M-SM-XREF-KEYS USING SM-XREF-COMMAREA
Pgm B is getting Commarea A.
EXEC CICS LINK
PROGRAM (WS-CALL-WSD019RA)
COMMAREA (SMEXCH-XREF-PGM-COMMAREA)
LENGTH (LENGTH OF SMEXCH-XREF-PGM-COMMAREA)
RESP (WS-RESP-CODE)
RESP2 (WS-RESP-CODE2)
then CALLS pgm B using layout B.
CALL X70M-SM-XREF-KEYS USING SM-XREF-COMMAREA
Pgm B is getting Commarea A.