H DFTNAME(TESTCAL) DATEDIT(*YMD/) BNDDIR('QC2LE') DFTACTGRP(*NO)                               
     F******** CALLP によるプログラムの呼出し ******************************                        
     F*                                                                                             
     F**********************************************************************                        
     D QCMDEXC         PR                  EXTPGM('QSYS/QCMDEXC')                                   
     D  ｳﾃｴSﾎﾈｹﾄｷ                 32700    CONST OPTIONS(*VARSIZE)                                  
     D  ｳﾃｴLｵﾄ                       15P 5 CONST                                                    
                                                                                                    
     D CMD             S          32767                                                             
                                                                                                    
      /FREE                                                                                         
          CMD = 'DSPLIBL *PRINT';                                                                   
          QCMDEXC(CMD:%LEN(%TRIMR(CMD)));                                                           
      /END-FREE                                                                                     
     C                   MOVE      *ON           *INLR