H DFTNAME(TESTINP) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  ライブラリーの表示 ***************************************                        
     F*                                                                                             
     F**********************************************************************                        
     D SYSTEM          PR            10I 0 EXTPROC('system')                                        
     D   PATH                          *   VALUE OPTIONS(*STRING)                                   
      /FREE                                                                                         
        SYSTEM('DSPLIB QGPL');                                                                      
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN