Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to pass values when using command Start Transaction

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
ankit saxena

New User


Joined: 06 Oct 2010
Posts: 55
Location: india

PostPosted: Fri Oct 29, 2010 6:54 pm    Post subject: how to pass values when using command Start Transaction
Reply with quote

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
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Oct 29, 2010 6:57 pm    Post subject: Reply to: how to pass values when using command Start Transa
Reply with quote

The target transaction 'NG58' needs to issue a RETRIEVE to get the data passed from the FROM area.

Bill
Back to top
View user's profile Send private message
ankit saxena

New User


Joined: 06 Oct 2010
Posts: 55
Location: india

PostPosted: Fri Oct 29, 2010 8:24 pm    Post subject: re
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Oct 29, 2010 8:33 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ankit saxena

New User


Joined: 06 Oct 2010
Posts: 55
Location: india

PostPosted: Fri Oct 29, 2010 8:39 pm    Post subject: re sorry
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Oct 29, 2010 8:41 pm    Post subject: Reply to: how to pass values when using command Start Transa
Reply with quote

and what does the manual say about an EIBRESP 22 ???
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Oct 29, 2010 8:45 pm    Post subject:
Reply with quote

What's the PIC for LEN and what did you set it to before you did the RETRIEVE?
Back to top
View user's profile Send private message
ankit saxena

New User


Joined: 06 Oct 2010
Posts: 55
Location: india

PostPosted: Fri Oct 29, 2010 8:49 pm    Post subject: re
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Oct 29, 2010 8:54 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ankit saxena

New User


Joined: 06 Oct 2010
Posts: 55
Location: india

PostPosted: Fri Oct 29, 2010 9:13 pm    Post subject: re thanks.
Reply with quote

ya right.

THanks it worked out...
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Fri Oct 29, 2010 9:29 pm    Post subject:
Reply with quote

Glad to hear it worked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Overlaying one set of charater values... Kevin Lindsley SYNCSORT 7 Sat Nov 05, 2016 3:21 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
No new posts Low values Results from VARCHAR FORMAT balaji81_k DB2 10 Thu Oct 20, 2016 1:18 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us