|
View previous topic :: View next topic
|
| Author |
Message |
vvgoud
New User
Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad
|
|
|
|
Hello,
I am not able to pass the data(TWA data) from calling program to called program using START TRANSID command
.
Called program is not receiving anything.
Is it possible in CICS to send TWA data to called program using below START TRANSID command????
WHat is the use of FROM( ) caluse.
EXEC CICS START
TRANSID('ADWS')
TERMID(EIBTRMID)
FROM(TWA-SAVE-AREA)
LENGTH(TWALENG)
PROTECT
END-EXEC.
Please help me to resolve this issue.
Thanks,
VV |
|
| Back to top |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
vvgoud
New User
Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad
|
|
|
|
PROGRAM A:(CALLING PROGRAM)
| Code: |
WOrking Storage Section.
01 WS-TWA-AREA.
03 WS-INC-NO PIC X(12).
03 FILLER PIC X(263).
LINKAGE SECTION.
01 TWA SYNCHRONIZED.
03 TWA-WORK-AREA PIC X(275).
03 TWA-STANDARD-DEFN REDEFINES
TWA-WORK-AREA.
05 TWA-FUNC PIC X(4).
05 TWA-PROG-NAME PIC X(8).
05 TWA-NXTFUN-PARM PIC X(55).
05 TWA-NXTFUN-MSG PIC X(60).
05 FILLER PIC X(123).
05 TWA-NXTFUN-IND PIC X(6).
03 TWA-RECEIVED-DATA REDEFINES TWA-WORK-AREA.
05 TWA-INC-NO PIC X(12).
05 FILLER PIC X(263).
PROCEDURE DIVISION.
MOVE '0708JX041' TO TWA-INC-NO.
MOVE TWA-RECEIVED-DATA TO WS-TWA-AREA.
EXEC CICS START
TRANSID('ADWS')
TERMID(EIBTRMID)
FROM(WS-TWA-AREA)
LENGTH(TWALENG)
PROTECT
END-EXEC. |
PROGRAM B:(CALLED PROGRAM ADWS Transaction)
| Code: |
WORKING STORAGE SECTION
01 WS-TWA-AREA.
03 WS-CSX-INCNO PIC X(12) VALUE SPACES.
03 FILLER PIC X(263) VALUE SPACES.
LINKAGE SECTION
01 TWA SYNCHRONIZED.
03 TWA-WORK-AREA PIC X(275).
03 TWA-STANDARD-DEFN REDEFINES
TWA-WORK-AREA.
05 TWA-FUNC PIC X(4).
05 TWA-PROG-NAME PIC X(8).
05 TWA-NXTFUN-PARM PIC X(55).
05 TWA-NXTFUN-MSG PIC X(60).
05 FILLER PIC X(123).
05 TWA-NXTFUN-IND PIC X(6)
03 TWA-RECEIVED-DATA REDEFINES TWA-WORK-AREA.
05 TWA-CSX-INC-NO PIC X(12).
05 FILLER PIC X(263).
PROCEDURE DIVISION.
EXEC CICS ASSIGN TWALENG(TWALENG) END-EXEC.
IF TWALENG = 0
MOVE ADWS TO DUMPCODE
PERFORM 9999-ABEND THRU
9999-ABEND-EXIT
ELSE
EXEC CICS ADDRESS TWA(ADDRESS OF TWA) END-EXEC
MOVE TWA TO WS-TWA-AREA
END-IF.
|
WS-TWA-AREA is empty.
Please let me know if you need any details |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| Again, what is the RETRIEVE retrieving? |
|
| Back to top |
|
|
vvgoud
New User
Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad
|
|
|
|
Thanks for your Help.
I forgot to code below command
EXEC CICS RETRIEVE
INTO(WS-TWA-AREA)
LENGTH( LENGTH OF WS-TWA-AREA)
END-EXEC
Now it is working. |
|
| Back to top |
|
|
|
|
