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
 

 

Pointers in CICS

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

New User


Joined: 21 Oct 2003
Posts: 45

PostPosted: Sun Oct 02, 2005 5:00 pm    Post subject: Pointers in CICS
Reply with quote

Hi,

I have one doubt regarding Pointers in CICS.

I need clear picture regarding this. In my program coded like this.

01 WS-GLINK.
03 WS-NO-OF-PARAMETERS PIC S9(8) COMP.
03 WS-PARAMETER-ADDRESS POINTER OCCURS 10 TIMES.


Then setting like below

SET WS-PARAMETER-ADDRESS (1) TO ADDRESS OF NNN-REC


Please help me

Vamsee.
Back to top
View user's profile Send private message

mallikiran

New User


Joined: 07 Sep 2005
Posts: 49

PostPosted: Mon Oct 03, 2005 6:16 pm    Post subject: Re: Pointers in CICS
Reply with quote

The use of pointers does not change just because the program is a CICS program.


vamseepotti wrote:

SET WS-PARAMETER-ADDRESS (1) TO ADDRESS OF NNN-REC


In the above instance, I am guessing that before this operation has been performed, the address of a record has been obtained using

EXEC CICS READ/READNEXT
DATASET(XYZ)
RIDFLD(RECORD KEY)
SET(WS-PARAMETER-ADDRESS(1))
RESP(WS-RESP)
END-EXEC.

In which case, the address of the record that has been read from the VSAM file is stored in WS-PARAMETER-ADDRESS(1) and subsequently one of the LINKAGE SECTION group variable is mapped to that address.
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 CICS transaction slow response time vasanthz All Other Mainframe Topics 2 Thu Jan 19, 2017 1:31 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


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