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
 

 

How to write a Query in IMS DB....

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

New User


Joined: 21 Mar 2004
Posts: 8
Location: Chennai

PostPosted: Sat Mar 27, 2004 5:38 pm    Post subject: How to write a Query in IMS DB....
Reply with quote

Hi Guys,

i have the following segments with the field declarations.

Customer

cno char Primary Key
cname
cdep
cadds
cphone

Dept

ddep Primary Key
ddname

How shall i retrive records for the following query.

List all employees working in 'Sales' department.

Pls. do give the answer(Query) to the problem in IMS DB.

Thanx. in Adv.

V. Prasad.[/b]
Back to top
View user's profile Send private message

G.P.Naidu

New User


Joined: 28 Apr 2004
Posts: 4
Location: delhi

PostPosted: Tue Jun 01, 2004 2:32 pm    Post subject:
Reply with quote

Hi,

HERE I AM GIVING COBOL IMS DB CODE FOR UR REQUIREMENT.

Code:
   1000-PARA.
   CALL  'CBLTDLI' USING GN-FUNCTION
                            CUST-PCB-MASK
                            CUST-IO-AREA
                            UNQUAL-CUST-SSA

   IF CUST-STATUS = 'GB' | CUST-STATUS = 'GE'
      MOVE 'Y' TO END-OF-DATABASE 
      PERFORM 100-END-OF-PARA
   ELSE
       IF CUST-STATUS = ' '
           PERFORM 101-WRITE-PARA
   END-IF.
   1000-PARA-EXIT.
                    EXIT.
   101-WRITE-PARA.
          IF CDEP = 'SALES'
          WRITE SALE-FILE-REC.
          END-IF.
   101-WRITE-PARA-EXIT.
                             EXIT.
   PERFORM 1000-PARA UNTIL END-OF-DATABASE.

Regards,
G.P.Naidu
Back to top
View user's profile Send private message
muthuraamn

New User


Joined: 26 Nov 2003
Posts: 7
Location: chennai

PostPosted: Wed Jun 23, 2004 7:02 pm    Post subject:
Reply with quote

Hi,

In IMS We need to write call statements to database with SSA's if required.


Regards,
Muthu
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 Join in SQL Query vickey_dw DB2 2 Tue Jan 17, 2017 12:15 am
This topic is locked: you cannot edit posts or make replies. MQ setup query mohitsaini Java & MQSeries 4 Sun Jan 08, 2017 1:53 am
No new posts DB2 query Using Recursion, Converting... smilewithashu2 DB2 1 Tue Jan 03, 2017 12:50 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm


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