MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How can we retreive data from 2 segments & put into io-a

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
yadav2005
Intermediate


Joined: 10 Jan 2005
Posts: 348
Topics: 144
PostPosted: Wed Feb 16, 2005 6:32 pm    Post subject: How can we retreive data from 2 segments & put into io-a Reply with quote
hai,

I am want to retreive two segments A & C in a hierarchy using a call like

Code:

              A
              |
              |
-----------------------------
|             |             |
B            C              D

CALL PLITDLI(FOUR,GHU,RSRP_PCB_MASK,
IOAREA-C,SSA_RSRV_QUAL,SSA_RSRP_QUAL);   

what my concern is IOAREA i am giving is IOAREA-C which is C actually ,but i want to modify a field in the A segment .Since my IOAREA has only the structure of C , how do i specify the IOAREA for A also so that i can issue REPL Calls.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Thu Feb 17, 2005 8:47 am    Post subject: Reply with quote
yadav2005,

When you issue one of the Get calls successfully, IMS returns the requested segment to the I/O area. Since you are reading a child , then define the I/O area to be long enough to hold the longest path of concatenated segments following a path call.

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
PostPosted: Thu Feb 17, 2005 9:57 am    Post subject: Reply with quote
Remember to use the D command code and set up the I/O area as Kolusu specified.
Back to top
View user's profile Send private message
yadav2005
Intermediate


Joined: 10 Jan 2005
Posts: 348
Topics: 144
PostPosted: Thu Feb 17, 2005 12:05 pm    Post subject: How do i define the structure of both parent & child sem Reply with quote
Hai,

I have included two PLI structures one for root & second for child from the library *.UNIT.PLIINC

now when i use this call ,how can i code the new PLISTRUCTURE (IOAREA) which will have the data from both root as well as child
becuase CERRSRP0 is the child's PLI structure
Code:

CALL PLITDLI(FOUR,GHU,RSRP_PCB_MASK,CERRSRP0,SSA_RSRV_QUAL,SSA_RSRP_QUAL);   



SSA_RSRV_QUAL


DCL 1 SSA_RSRV_QUAL,                           
       2 SEGNAME   CHAR(8)  INIT('CERRSRV0'), 
       2 CMDCODE   CHAR(2)  INIT('*D');       
       2 LPAREN    CHAR(1)  INIT('('),         
       2 FIELDNAME CHAR(8)  INIT('KEMS    '), 
       2 RO        CHAR(2)  INIT(' ='),       
       2 KEY       CHAR(6)  INIT('??????');   
       2 RPAREN    CHAR(1)  INIT(')');         




SSA_RSRP_QUAL



DCL 1 SSA_RSRP_QUAL,                         
       2 SEGNAME   CHAR(8)  INIT('CERRSRP0'),
       2 LPAREN    CHAR(1)  INIT('('),       
       2 FIELDNAME CHAR(8)  INIT('KRPD    '),
       2 RO        CHAR(2)  INIT(' ='),     
       2 KEY       CHAR(1)  INIT('D');       
       2 RPAREN    CHAR(1)  INIT(')');
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Fri Feb 18, 2005 8:33 am    Post subject: Reply with quote
yadav2005,

Quote:

now when i use this call ,how can i code the new PLISTRUCTURE (IOAREA) which will have the data from both root as well as child


*sigh*

Let us say your root segment has length of 100 bytes and you child segment has a length of 60 bytes then define your IOAREA as 160 bytes

Code:

DCL PARENT-CHILD-IO-AREA CHAR(160)  INIT(' ')


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group