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   ')                                   
             DCL        VAR(&PARMS) TYPE(*INT) LEN(4)                           
             DCL        VAR(&ARGNUM) TYPE(*INT) LEN(4) VALUE(1)                 
                                                                                
             CALLPRC    PRC(CEETSTA) PARM((&PARMS) (&ARGNUM))                   
             IF         COND(&PARMS *EQ 1) THEN(DO)                             
             /* パラメータが存在する */                                         
             ENDDO                                                              
             SNDPGMMSG  MSG(' バラメータはありません。 ') +                     
                          MSGTYPE(*DIAG)                                        
             RETURN                                                             
             ENDPGM