View previous topic :: View next topic
|
Author |
Message |
yadagiri.p
New User
Joined: 01 Sep 2005 Posts: 10 Location: Bangalore
|
|
|
|
Hi
i have 3 levels
Ex vendor,, item, location
i want update all update all the location how can i do this
bye
yadagiri |
|
Back to top |
|
|
gowtham_1982 Warnings : 1 Active User
Joined: 02 Dec 2005 Posts: 109
|
|
|
|
yadagiri.p wrote: |
Hi
i have 3 levels
Ex vendor,, item, location
i want update all update all the location how can i do this
bye
yadagiri |
hi yadagiri,
is your requirement to update all the location segments. then you can establish a GHNP call from your ITEM segment, to establish the parentage. you can issue a replace call to update the LOCATION segment.
suggestions welcomed..
gowtham |
|
Back to top |
|
|
rajesh_1183
Active User
Joined: 24 Nov 2005 Posts: 121 Location: Tadepalligudem
|
|
|
|
---------------
| vendour | --------> assume for it, ssa name is vendour-ssa
---------------
|
v
---------------
| item | --------> assume for it, ssa name is item-ssa
---------------
|
v
---------------
| Location | --------> assume for it, ssa name is location-ssa
---------------
Code: |
Main-para.
perform p1 until status-code='GB'
p1.
CALL 'CBLTDLI' USING 'GN'
PCB-MASK
ITEM-IO-AREA
UNQUAL-VENDOUR-SSA
UNQUAL-ITEM-SSA
PERFORM P2 UNTIL STATUS-CODE='GE'
p2.
CALL 'CBLTDLI' USING 'GHNP'
PCB-MASK
LOCATION-IO-AREA
* MODIFY THE DATA IN THE LOCATION-IO-AREA AS PER THE REQ.DON'T MODIFY KEY FIELDS
CALL 'CBLTDLI' USING 'REPL'
PCB-MASK
LOCATION-IO-AREA
|
here p2 will read all the occurances with in the paraent of item segment occurance
corrections welcomed.............
Thanks,
Rajesh. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Also for this item I'd like to point out the manual containing pathcalls (see link at different topic). A piece from the manual:
The N command code prevents you from replacing a segment on a path call. The N command code works with the D command code to allow the application program to process multiple segments using one call. While the D command code alone retrieves a path of segments in your I/O area, using the N command code with it allows you to distinguish which segments you want to replace. The following example only replaces the TREATMNT segment.
GHU PATIENT*D(PATNObbb=b06439)
ILLNESSb*D(ILLDATEb=19930301)
TREATMNT
REPL PATIENT*N(PATNObbb=b06439)
ILLNESSb*N(ILLDATEb=19930301)
TREATMNT
If you use D and N command codes together, IMS retrieves the segment but does not replace it.
The N command code applies only to REPL calls, and IMS ignores it if you include the code in any other call. |
|
Back to top |
|
|
|