Access DB2 region using rexx

Ask/Clarify the questions on TSO, CLIST & REXX

Moderators: Veera, Moderator Group

Post Reply
mainframesara
Member
Posts: 13
Joined: Mon Oct 26, 2009 12:00 pm

Access DB2 region using rexx

Post by mainframesara » Thu Apr 22, 2010 9:23 am

Hi,
I need to access(read,insert and update) the DB2 Region using the rexx exec.

I have no idea about how to do that. i searched in google also but i didnt get any clear idea.

Can you guys help me how to do that. Just the overview is enough i will try and get back to you.

Thanks in advance.

maheshvamsi
Active Member
Posts: 52
Joined: Wed Mar 25, 2009 11:56 pm
Location: Banglore

Post by maheshvamsi » Thu Apr 22, 2010 11:20 am

http://publib.boulder.ibm.com/infocente ... erface.htm

Sample Program:

Code: Select all

"SUBCOM DSNREXX"                                                        
IF RC=0 THEN                                                            
   SAY 'DSNREXX  IS AVAILABLE'                                          
ELSE                                                                    
   DO                                                                   
    SAY 'DSNREXX  IS NOT AVAILABLE'                                     
    SAY 'SUBCOM RC :' RC                                                
   END                                                                  
                                                                        
IF RC THEN                                                              
   DO                                                                   
     S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')                         
     SAY 'ADDING DSNREXX....................'                           
     PULL X                                                             
   END                                                                  
                                                                        
SQLSTMT = "SELECT COUNT(*)  FROM DB0*****.****** "                 
ADDRESS DSNREXX                                                         
"CONNECT DB2E"                                                          
                                                                        
"EXECSQL DECLARE C1 CURSOR FOR S1"                                      
                                                                        
"EXECSQL PREPARE S1 INTO :OUTSQLDA FROM :SQLSTMT"                       
                                                                        
"EXECSQL OPEN C1"                                                       
                                                                        
"EXECSQL FETCH C1 USING DESCRIPTOR :OUTSQLDA"                           
                                                                        
        DO I = 1 TO OUTSQLDA.SQLD                                       
           LINE = OUTSQLDA.I.SQLDATA                                    
        END                                                             
                                                                        
SAY LINE                                                               
                                                                       
"EXECSQL EXECUTE S1 USING DESCRIPTOR :OUTSQLDA"                        
Thanks

MaheshVamsi

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others