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
 
EXEC DLI - how to code GHNP call equivalent?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Wed Dec 17, 2008 12:33 pm    Post subject: EXEC DLI - how to code GHNP call equivalent?
Reply with quote

Hi,

My system uses EXEC DLI for all IMS call instead of conventional CALL CBLTDLI.

It seems there is no direct GHNP call when using EXEC DLI.

You can see the comparsion between EXEC DLI and CALL DLI cmds here
(See TABLE 6)
http://publib.boulder.ibm.com/infocenter/cicsts/v3r1/index.jsp?topic=/com.ibm.cics.ts31.doc/dfht4/toc.htm

i tried the following:
Code:

EXEC DLI GNP                       
     USING                         
     PCB     (DB-PCB-NO)           
     SEGMENT (X)                 
     SETPARENT                     
     WHERE   (keyX=WS-A) 
     SEGMENT (B)             
     INTO    (segB-REC)         
END-EXEC       
                     

This is followed a REPL call
Code:

EXEC DLI REPL                 
     USING                   
     PCB     (DB-PCB-NO)     
     SEGMENT (B)       
     FROM    (segB-REC)   
END-EXEC   
 


This code works fine for one time. but when i loop it UNTIL GE/GB for segB it abends (for GNP call), it abends with GP status code.

Can some one help me with this logic?
Back to top
View user's profile Send private message

Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Dec 17, 2008 6:05 pm    Post subject:
Reply with quote

Why are you setting parentage?
Back to top
View user's profile Send private message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Thu Dec 18, 2008 12:25 pm    Post subject:
Reply with quote

Before the GNP loop.. I have a GHU call...

The sequence of calls is like this...

1. GHU
2. REPL
3. LOOP -> GNP + REPL till GE /GB for seg B
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Thu Dec 18, 2008 5:06 pm    Post subject:
Reply with quote

You always need to HOLD a segment before any replace or delete. So, you should be using GHNP or GHN.
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm

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