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
 
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 reg query on DYNALLOC feature raghuraman123 SYNCSORT 12 Wed Jan 10, 2018 2:42 pm
No new posts query to fetch record which has only ... maxsubrat DB2 12 Mon Dec 11, 2017 5:03 pm
No new posts How to query MAXGENS of an existing P... Chuchulo Hatyzak JCL & VSAM 4 Wed Nov 22, 2017 10:23 pm
No new posts Native SQL Query kishpra DB2 1 Wed Nov 22, 2017 8:38 pm
No new posts Query on IEFBR14 with GDG Ashishpanpaliya JCL & VSAM 4 Tue Nov 07, 2017 8:34 pm

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