Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Need to retrive information in singlw call

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

New User


Joined: 05 Dec 2005
Posts: 79

PostPosted: Sat May 24, 2008 4:43 pm    Post subject: Need to retrive information in singlw call
Reply with quote

Hi,

I need to retrive information in singlw call.

My requirement is

EMployee
|
|
Personal Info
|
|
Salary


EMployee id is 123456 and for this i need to get personal information about this id for the 4th month of salary.(salary contains 12 occurences)

I need to do this in single call. Pls help me how to do.
Back to top
View user's profile Send private message

star_dhruv2000

New User


Joined: 03 Nov 2006
Posts: 87
Location: Plymouth, MN USA

PostPosted: Sat May 24, 2008 5:49 pm    Post subject:
Reply with quote

Key for Salary segement is not mentioned. I assume it to be Non-Unique Month number. In that case use following SSA with appropiate KEY field values. :

Code:

01 EMP-SSA.                                               
   05 SEGNAME                   PIC X(08) VALUE 'SALARY  '.
   05 CMD-CODE                  PIC X(05) VALUE '*DC'.     
   05 FILLER                    PIC X(01) VALUE '('.       
   05 KEY-EMP                   PIC X(06) VALUE '123456'. 
   05 KEY-INFO                  PIC X(??) VALUE SPACES.   
   05 KEY-SAL                   PIC X(02) VALUE '04'.     
   05 FILLER                    PIC X(01) VALUE ')'.       


NOTE:
1. Kindly check the PIC definition and values for all the keys.
2. Use an I/O large enough to hold the retrieved segements.


Hope this will resolve your issue.

CHEERS!
Happy coding icon_biggrin.gif
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


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

PostPosted: Sun May 25, 2008 6:45 pm    Post subject:
Reply with quote

Can we please see the DBD? In order to do it in a single call, you will need to issue a path call. We need to see the child segments of the root.
Back to top
View user's profile Send private message
Sinkaravelan S

New User


Joined: 21 Apr 2008
Posts: 27
Location: coimbatore-TN india

PostPosted: Tue May 27, 2008 7:23 pm    Post subject: Reply to: Need to retrive information in singlw call
Reply with quote

Welcome Prabha,

I think you can use path call otherwise you should retrive all the info by using SSA's.


Thanks,
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 Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Need help in triggering a PL1 module ... Varungv99 IMS DB/DC 0 Fri Apr 07, 2017 10:01 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm
No new posts Strange EXEC function call in z/VM Willy Jensen CLIST & REXX 3 Wed Oct 05, 2016 2:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us