把一个库下的所有qrydfn类型文件rtv成sql文的程序

             PGM                                                      
             DCLF       FILE(HISOFT3/OWQRYLST)                        
             DSPOBJD    OBJ(OWQRY/*ALL) OBJTYPE(*QRYDFN) +            
                          OUTPUT(*OUTFILE) OUTFILE(HISOFT3/OWQRYLST)  
             MONMSG (CPF0000)                                         
 LOOP:       RCVF                                                     
             MONMSG (CPF0000) +                                       
             EXEC(DO)                                                 
             GOTO CMDLBL(END)                                         
             ENDDO                                                    
             RTVQMQRY   QMQRY(&ODLBNM/&ODOBNM) +                      
                          SRCFILE(HISOFT3/QSQLSRC) ALWQRYDFN(*ONLY)   
             GOTO CMDLBL(LOOP)                                        
 END:        ENDPGM