|
View previous topic :: View next topic
|
| Author |
Message |
sivatechdrive
Active User
.jpg)
Joined: 17 Oct 2004
Posts: 191
Location: hyderabad
|
|
|
|
Hi,
I am in need of some help on GETMAIN, Please do help me
In my program (say PROGRAM1) i used GETMAIN to pass data
In WSS (WM-SEAM-AREA-POINTER POINTER VALUE NULLS. )
In Linkage Section (SEAMCONV-RECORD)
| Code: |
EXEC CICS GETMAIN
SET (WM-SEAM-AREA-POINTER)
LENGTH (LENGTH OF SEAMCONV-RECORD)
INITIMG (WM-SEAM-AREA-INIT)
RESP (CICS-RESPONSE)
END-EXEC
IF CICS-RESPONSE = DFHRESP (NORMAL)
SET ADDRESS OF SEAMCONV-RECORD
TO WM-SEAM-AREA-POINTER |
and Called other program(say WL-PROGRAM2 has program2) using LINK
| Code: |
EXEC CICS LINK
PROGRAM (WL-PROGRAM2)
COMMAREA (SEAMCONV-RECORD)
LENGTH (LENGTH OF SEAMCONV-RECORD)
RESP (CICS-RESPONSE)
SYNCONRETURN
END-EXEC |
HOW TO CODE PROGRAM2 TO RECIEVE THE DATA that is transfered using GETMAIN FROM PROGRAM1. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Normal DFHCOMMAREA will do it. Passing data to a CICS program through DFHCOMMAREA doesn't change if you use GETMAIN instead of WORKING-STORAGE. |
|
| Back to top |
|
|
|
|
