H DFTNAME(TESTCHKB) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     D*( SYSTEM   のプロトタイプ宣言 )                                                              
     D SYSTEM          PR            10I 0 EXTPROC('ﾍﾓﾍﾎｵﾃ')                                        
     D  CMDSTR                         *   VALUE OPTIONS(*STRING)                                   
     D ｲSPOOLWTR       S              1N   INZ(*OFF)                                                
                                                                                                    
      /FREE                                                                                         
        IF  SYSTEM('CHKOBJ SPOOLWTR *LIB') = 0;                                                     
          ｲSPOOLWTR = *ON;                                                                          
        ENDIF;                                                                                      
      /END-FREE                                                                                     
     C                   SETON                                        LR