H DATEDIT(*YMD/) BNDDIR('QC2LE') DFTACTGRP(*NO)                                                
     F******** SYSTEM 関数によるコマンドの実行 *****************************                        
     F*                                                                                             
     F**********************************************************************                        
     D CMD             PR            10I 0 EXTPROC('system')                                        
     D  CMDSTR                         *   VALUE                                                    
     D                                     OPTIONS(*STRING)                                         
     D RC              S             10I 0                                                          
     D MSGID           S              7    IMPORT('_EXCP_MSGID')                                    
     D TRUE            C                   0                                                        
      /FREE                                                                                         
          RC = CMD('DSPLIBL *PRINT');                                                               
      /END-FREE                                                                                     
     C     RC            IFNE      TRUE                                                             
     C     MSGID         DSPLY                   ANS               1                                
     C                   END                                                                        
     C                   MOVE      *ON           *INLR