/*********************************************************************/               
/*   To Compile:                                                     */               
/*                                                                   */               
/*      CRTCLPGM   PGM(XXX/FTPPARMCL)  SRCFILE(XXX/QCLSRC) +          */              
/*                   TEXT('CPP FOR FTPPARM')                         */               
/*                                                                   */               
/*********************************************************************/  

	     PGM        PARM(&SYSNAME &USER &PASSWORD &OBJECT &TGTRLS + 
                            &LIB &RLIB &MBRO &ALWO)                     
/* Input parameters: */                                                 
             DCL        VAR(&SYSNAME)  TYPE(*CHAR) LEN(16)              
             DCL        VAR(&USER)     TYPE(*CHAR) LEN(10)              
             DCL        VAR(&PASSWORD) TYPE(*CHAR) LEN(10)              
             DCL        VAR(&OBJECT)   TYPE(*CHAR) LEN(10)              
             DCL        VAR(&LIB)  TYPE(*CHAR) LEN(10)                  
             DCL        VAR(&RLIB)  TYPE(*CHAR) LEN(10)                 
             DCL        VAR(&TGTRLS)  TYPE(*CHAR) LEN(8)                
             DCL        VAR(&MBRO)  TYPE(*CHAR) LEN(6)                  
             DCL        VAR(&ALWO)  TYPE(*CHAR) LEN(8)                  
              
             SBMJOB     CMD(CALL PGM(YOURLIB/FTPPGM) PARM(&SYSNAME +   
                          &USER &PASSWORD &OBJECT &LIB &RLIB +          
                          &TGTRLS &MBRO &ALWO))                                                                
	   
             ENDPGM                                                     
***************** End of data ****************************************