/* REXX */                                                                      
PARSE UPPER ARG ssid table                                                      
                                                                                
zrc = DB2RXENV('ADD')                                                           
IF zrc \= 0                                                                     
THEN SIGNAL Done                                                                
                                                                                
zrc = DB2RXCON('CONNECT' ssid)                                                  
IF zrc \= 0                                                                     
THEN SIGNAL Noconnect                                                           
                                                                                
SAY 'DESCRIBE' table'...'                                                       
ADDRESS DSNREXX "EXECSQL DESCRIBE TABLE :table INTO :stem"                      
IF sqlcode \= 0                                                                 
THEN DO                                                                         
       SAY 'DESCRIBE failed.'                                                   
       SAY 'sqlcode='sqlcode                                                    
       SAY 'sqlerrmc='sqlerrmc                                                  
       zrc = 12                                                                 
     END                                                                        
ELSE SAY 'Ok.'                                                                  
                                                                                
IF zrc = 0                                                                      
THEN DO                                                                         
       SAY                                                                      
       DO x = 1 TO stem.SQLD                                                    
          SAY LEFT(stem.x.SQLNAME,8) stem.x.SQLTYPE,                            
              RIGHT(stem.x.SQLLEN,3),                                           
              stem.x.SQLLEN.SQLPRECISION stem.x.SQLLEN.SQLSCALE,                
              stem.x.SQLCCSID                                                   
       END x                                                                    
     END                                                                        
                                                                                
Complete:                                                                       
x = DB2RXCON('DISCONNECT' ssid)                                                 
Noconnect:                                                                      
x = DB2RXENV('DELETE')                                                          
                                                                                
Done:                                                                           
EXIT zrc