H DFTNAME(TESTPRT2) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     F********** TRNPRT2 _RWﾈｹﾎｵ 印刷テスト *******************************                         
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
     D*( _Rﾅﾆｵﾄ()   レコード・ファイルをオープンして入出力操作を行う )                              
     D Rﾅﾆｵﾄ           PR              *          EﾒﾎPﾈﾅｳ('_Rﾅﾆｵﾄ')                                 
     D  RFILE                          *   VALUE OPTIONS(*STRING:*TRIM)                             
     D  MODE                           *   Vｱﾂﾏｵ OPTIONS(*STRING:*TRIM)                             
                                                                                                    
     D*( _Rｶﾅﾈﾃｱﾎ() -  レコード・フォーマット名の設定 )                                             
     D Rｶﾅﾈﾃｱﾎ         PR              *          EﾒﾎPﾈﾅｳ('_Rｶﾅﾈﾃｱﾎ')                               
     D  RFILE                          *   Vｱﾂﾏｵ                                                    
     D  FORMAT                         *   Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( _Rﾑﾈｹﾎｵ() -  次のレコードの書き込み )  - WRITE                                             
     D Rﾑﾈｹﾎｵ          PR              *          EﾒﾎPﾈﾅｳ('_Rﾑﾈｹﾎｵ')                                
     D  RFILE                          *   Vｱﾂﾏｵ                                                    
     D  RECORD                         *   Vｱﾂﾏｵ                                                    
     D  RCD_LEN                      10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( _Rｳﾂﾅﾍｵ() -  ファイルのクローズ ) - CLOSE                                                  
     D Rｳﾂﾅﾍｵ          PR            10I 0        EﾒﾎPﾈﾅｳ('_Rｳﾂﾅﾍｵ')                                
     D  RFILE                          *   Vｱﾂﾏｵ                                                    
                                                                                                    
      *( 作業変数 )                                                                                 
     D RFILE_P         S               *                                         ファイル・ポインタ 
     D RECORD#         S             11A                                                            
     D NULL            S              1A   INZ(X'00')                                               
     D OUTBUF          S           1024A                                                            
     D OUTBUF_P        S               *   INZ(%ADDR(OUTBUF))                                       
     D OUTLEN          S             10I 0 INZ(80)                              ]>80 を超えると ERR 
                                                                                                    
     C/FREE                                                                                         
        RFILE_P = Rﾅﾆｵﾄ('PSHOHIN2': 'ｱﾈ, ｹﾄｴｹｳｱﾎﾅﾈﾍ=ﾓ');                                            
        RECORD# = 'PRTHEAD   ' + NULL;                                                              
        Rｶﾅﾈﾃｱﾎ(RFILE_P: %ADDR(RECORD#)); // レコード・フォーマット名の設定                         
        Rﾑﾈｹﾎｵ(RFILE_P: OUTBUF_P: OUTLEN);                                                          
        Rｳﾂﾅﾍｵ(RFILE_P);                                                                            
        *INLR = *ON;                                                                                
     C/END-FREE