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
 
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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts Need to track the CICS transaction fr... sam8051 CICS 3 Mon Aug 07, 2017 3:11 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm

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