IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Where I can see the status code returned
IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
udaysinghsolanki

New User


Joined: 17 Aug 2006
Posts: 2
PostPosted: Sat Aug 19, 2006 4:06 pm
 Reply with quote
hi guys,
could anybody tell me where i can see the status code returned,when a CBLTdlI call is made to retrieve a particular segment.
Back to top
View user's profile Send private message
phetu

New User


Joined: 19 Aug 2006
Posts: 13
Location: Canada
PostPosted: Sat Aug 19, 2006 4:38 pm
 Reply with quote
The status code is returned in the PCB's copybook that you supply with the CBLTDLI call.

Patrick
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India
PostPosted: Wed Aug 23, 2006 10:02 am
 Reply with quote
Hi Udai,

Code:
CALL 'CBLTDLI' USING GU-FUNC                   
                     RENEWALS-PCB             
                     POLICY-TRANSACTION-SEGMENT
                     SSA-PTRANSEG-QUAL.

EVALUATE STATUS-CODE OF RENEWALS-PCB                         
    WHEN SPACES                                             
         Continue
    WHEN OTHER                                               
         Raise an error
END-EVALUATE.
We are making a GU call to policy transaction segment using renewal- pcb as pcb-mask so we are checking the status code of renewal pcb to check whether call is successful or not.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 

Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Job completes in JES, but the status ... IBM Tools 1
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us