PGM        PARM(&FILE)                                             
/*-------------------------------------------------------------------*/         
/*   TESTPRM2CL :   パラメータのテスト                               */         
/*                                                                   */         
/*   2021/05/26  作成                                                */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)                          
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&TOPGMQ) TYPE(*CHAR) LEN(10)                        
             DCL        VAR(&MSGTYPE) TYPE(*CHAR) LEN(10) +                     
                          VALUE('*ESCAPE   ')                                   
                                                                                
             RETURN                                                             
             ENDPGM