H DFTNAME(TESTPROC2) DATEDIT(*YMD/) BNDDIR('QC2LE')                                            
     F********** プロシージャーのテスト (2)*********************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(MYLIB/TESTPROC2) SRCFILE(MYSRCLIB/QRPGLESRC) DFTACTGRP(*NO)                   
      *  ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                    
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2021/10/28 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D TRUE#           S              4B 0 INZ(0)                                                   
     D FALSE#          S              4B 0 INZ(-1)                                                  
     D DATA1           S              7A   INZ('AA11111')                                           
     D DATA2           S              7A   INZ('BB22222')                                           
     D DATA2_P         S               *   INZ(%ADDR(DATA2))                                        
     D ANS             S              1A                                                            
                                                                                                    
     D*( MYPROC        のプロトタイプ宣言 )                                                         
     D MYPROC          PR             4B 0                                                          
     D  DATA1                         7A   Vｱﾂﾏｵ                                                    
     D  DATA2                          *   Vｱﾂﾏｵ OPTIONS(*NOPASS)                                   
                                                                                                    
     C*( メイン・ルーチンの始まり )                                                                 
      /FREE                                                                                         
         IF MYPROC(DATA1: DATA2_P) = FALSE#;                                                        
            DSPLY ('DATA1=' + DATA1);                                                               
            DSPLY ('DATA2=' + DATA2);                                                               
            DSPLY ' 結果を確認してください。 '  '' ANS;                                             
         ENDIF;                                                                                     
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C*( メイン・ルーチンの終わり )                                                                 
                                                                                                    
      *********************************************************                                     
      *   MYPROC:     メッセージを現在の CALLSTACK に送信     *                                     
      *********************************************************                                     
      *---( MYPROC    PROCEDURE  ここから )------------------------*                                
     P MYPROC          B                   EXPORT                                                   
     D                 PI             4B 0                                                          
     D  DATA1                         7A   Vｱﾂﾏｵ                                                    
     D  DATA2_P                        *   ﾐｱﾂﾏｵ OPTIONS(*NOPASS)                                   
                                                                                                    
     D DATA2           S              7A   BASED(DATA2_P)                                           
                                                                                                    
      /FREE                                                                                         
        DATA1 = 'XX22222';                                                                          
        DATA2 = 'YY22222';                                                                          
      /END-FREE                                                                                     
     C                   RETURN                  FALSE#                                             
     P                 E                                                                            
      *---( MYPROC       PROCEDURE  ここまで )------------------------*