H DFTNAME(TESTCALL) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     F********** プロシージャーの呼出し ************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTRPGMOD  OBJ(QTEMP/TESTCALL)   SRCFILE(R610SRC/QRPGLESRC)                                 
      * DBGVIEW(*SOURCE) AUT(*ALL)                                                                  
      * CRTPGM PGM(OBJLIB/TESTPROC) MODULE(QTEMP/TESTPROC)                                          
      *        BNDSRVPGM(OBJLIB/TESTPROC) ACTGRP(*NEW) AUT(*ALL)                                    
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2020/08/08 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D MSR             S             80    DIM(1) CTDATA PERRCD(1)               配列               
     D AR              S              1A   DIM(256)                                                 
     D N               S              4S 0                                                          
                                                                                                    
     D*( SNDPGMMSG     のプロトタイプ宣言 )                                                         
     D SNDPGMMSG       PR                                                                           
     D  MSG                        3000A   Vｱﾂﾏｵ                                                    
     D  MSGTYPE_IN                   10A   ﾐｱﾂﾏｵ OPTIONS(*NOPASS)                                   
     D  CALLSTACKC_IN                10I 0 CONST OPTIONS(*NOPASS)                                   
                                                                                                    
     C*( メイン・ルーチンの始まり )                                                                 
     C                   CALLP     SNDPGMMSG(MSR(1))                                                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C*( メイン・ルーチンの終わり )                                                                 
                                                                                                    
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期 CYCLE のみの実行                                                                      
     C                   ENDSR                                                                      
** MSR -- 以下は配列                                                                                
 これはプロシージャー呼出しのテストです。