|
View previous topic :: View next topic
|
| Author |
Message |
ankit saxena
New User
Joined: 06 Oct 2010
Posts: 55
Location: india
|
|
|
|
Hi all,
I am invoking a transaction using Start TRANSID command and i am trying to pass some values through FROM field
but values are not getting transferred when i am trying to fetch in that code.. can you tell me how to pass values using this command...
i am using this code..
DISPLAY ' COMM-AREA ' COMM-AREA
EXEC CICS
START
TRANSID('NG58')
TERMID(TERMID)
FROM(COMM-AREA)
LENGTH(8)
RESP(RESPONSE-CODE)
END-EXEC
value of COMM-AREA at display is CAFFB
but when in the next program i m moving from DFHCOMMAREA it is showing ' a' (i think may be this is garbage value'
so how to get the comm-area content in the transaction |
|
| Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
The target transaction 'NG58' needs to issue a RETRIEVE to get the data passed from the FROM area.
Bill |
|
| Back to top |
|
|
ankit saxena
New User
Joined: 06 Oct 2010
Posts: 55
Location: india
|
|
|
|
i have tried it but its not working..
EXEC CICS
RETRIEVE
INTO(COMM-AREAA)
LENGTH(LEN)
RESP(RESPONSE-CODE)
END-EXEC
IF RESPONSE-CODE NOT EQUAL DFHRESP(NORMAL)
DISPLAY ' END DATA'
END-IF.
but now its not showing anything not even garbage value |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
| i have tried it but its not working.. |
This tells us nothing. You could post the RETRIEVE EIBRESP and EIBRESP2 codes -- which WOULD tell us something -- but just posting it didn't work means nothing to us. |
|
| Back to top |
|
|
ankit saxena
New User
Joined: 06 Oct 2010
Posts: 55
Location: india
|
|
|
|
sorry i forgot to write that..
what should be the value of length parameter in LENGTH field
EIBRESP is 00000022
EIBRESP2 is 00000000 |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| and what does the manual say about an EIBRESP 22 ??? |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| What's the PIC for LEN and what did you set it to before you did the RETRIEVE? |
|
| Back to top |
|
|
ankit saxena
New User
Joined: 06 Oct 2010
Posts: 55
Location: india
|
|
|
|
the pic for len is--
01 LEN PIC 9(2).
move 8 to len
and i am setting it to 8 before retrieve command..
because in my comm-area total value of PIC clause is '8'
only |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| The LENGERR is occurring because the LENGTH variable is explicitly stated to be a half-word BINARY variable (PIC S9(04) COMP in COBOL) and not USAGE DISPLAY. The hex representation of your 8 is X'F0F8', which is half a word -- but the binary value is negative, and the CICS manual says having a negative length value will cause a LENGERR. |
|
| Back to top |
|
|
ankit saxena
New User
Joined: 06 Oct 2010
Posts: 55
Location: india
|
|
|
|
ya right.
THanks it worked out... |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| Glad to hear it worked. |
|
| Back to top |
|
|
|
|
