Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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: 8187
Location: East Dubuque, Illinois, USA

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: 10350
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: 8187
Location: East Dubuque, Illinois, USA

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: 8187
Location: East Dubuque, Illinois, USA

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: 8187
Location: East Dubuque, Illinois, USA

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
This topic is locked: you cannot edit posts or make replies. Cobol to fetch the content by using s... arunc55 COBOL Programming 4 Fri Nov 17, 2017 1:25 pm
This topic is locked: you cannot edit posts or make replies. Need help how to pass the ESP variabl... Venkichaitu JCL & VSAM 12 Thu Nov 02, 2017 3:53 am
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us