/* REXX */                                                              

/* DEFINING SUBSYSTEM */                                                

   SUBSYS    = DB2T                                                     

/* DEFINING THE QUERY */                                                

   QUERY     = "SELECT EMP_NUM",                                        

               "FROM MBQV1D0A.EMP",                                     

               "WHERE EMP_NUM='1000'"                                   

   ADDRESS TSO "SUBCOM DSNREXX"    /* HOST CMD ENV AVAILABLE ? */       

   IF RC THEN S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')                

                                                                        

   ADDRESS DSNREXX "CONNECT" SUBSYS                                     

   IF SQLCODE <> 0 THEN COUTPUT SQLCA                                   

                                                                        

   ADDRESS DSNREXX "EXECSQL DECLARE  C1 CURSOR FOR S1"                  

   IF SQLCODE <> 0 THEN CALL SQLCA                                      

                                                                        

   ADDRESS DSNREXX "EXECSQL PREPARE  S1 FROM :QUERY"                    

   IF SQLCODE <> 0 THEN CALL SQLCA                                      

                                                                        

   ADDRESS DSNREXX "EXECSQL DESCRIBE S1 INTO :OUTPUT"                   

      IF SQLCODE <> 0 THEN CALL SQLCA                                 

                                                                      

      ADDRESS DSNREXX "EXECSQL OPEN C1"                               

      IF SQLCODE <> 0 THEN CALL SQLCA                                 

                                                                      

      DO UNTIL(SQLCODE <> 0)                                          

         ADDRESS DSNREXX "EXECSQL FETCH C1 USING DESCRIPTOR :OUTPUT"  

         IF SQLCODE = 0 THEN                                          

           DO                                                         

              DO I = 1 TO OUTPUT.SQLD                                 

                 SAY "  > COLUMN NUMBER: " I                          

                 SAY "    COLUMN NAME:   " OUTPUT.I.SQLNAME           

                 SAY "    COLUMN TYPE:   " OUTPUT.I.SQLTYPE           

                 SAY "    COLUMN VALUE:  " OUTPUT.I.SQLDATA           

              END                                                     

           END                                                        

      END                                                             

      RETURN               

 

; ; ; ;