PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTQRY    :  OPNQRYF で QUERY を使う                           */         
/*                                                                   */         
/*   2024/04/05  作成                                                */         
/*-------------------------------------------------------------------*/         
                                                                                
             OPNQRYF    FILE((QTRFIL/SHOHIN)) QRYSLT('SHSCOD *EQ +              
                          ''0001''') KEYFLD((SHCODE)) OPNID(FILE) +             
                          OPNSCOPE(*JOB)                                        
             CPYFRMQRYF FROMOPNID(FILE) TOFILE(QTEMP/OPNQRY) +                  
                          MBROPT(*REPLACE) CRTFILE(*YES)                        
             RUNQRY     QRY(*NONE) QRYFILE((QTEMP/OPNQRY)) +                    
                          OUTTYPE(*DISPLAY)                                     
             CLOF       OPNID(FILE)                                             
             ENDPGM