H DFTNAME(TESTRPT4) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     F********** QPRINT を使わない印刷出力 ****************************                             
     F*                                                                                             
     F*****************************************************************                             
      *( ﾆﾈｹﾄﾎｶ 関数 )                                                                              
     D ﾆﾈｹﾄﾎｶ          PR            10I 0 EXTPROC('ﾆﾈｹﾄﾎｶ')                                        
     D  STR                            *   OPTIONS(*STRING) VALUE                                   
     D  VALUE                          *   OPTIONS(*STRING:*NOPASS) VALUE                           
                                                                                                    
     D VALUE           S            132                                                             
     D CRLF            S              1A   INZ(X'15')                                               
                                                                                                    
      /FREE                                                                                         
         ﾆﾈｹﾄﾎｶ('** QCMDEXC 開始 **' + CRLF);                                                       
         VALUE = '** ABCD **';                                                                      
         ﾆﾈｹﾄﾎｶ('%ﾍ' + CRLF: VALUE);                                                                
      /END-FREE                                                                                     
     C                   SETON                                        LR