/* REXX */
/********************************************************************/
/*   REXX STARTED FROM T759F.USER.CLIST(JCLVAR)                    **/
/* AUTOR: B. BRUECKMANN 29/05/06                                   **/
/*   DOC: change input with variable from jcl                      **/
/********************************************************************/
/*                                                                  */
/*  // SET UNIQUE='hugo'                                            */
/*  //STEP1    EXEC PGM=IKJEFT01,DYNAMNBR=100,                      */
/*  // PARM='JCLVAR $UNIQUE=&UNIQUE'                                */
/*  //SYSPRINT DD SYSOUT=*                                          */
/*  //SYSPROC  DD DISP=SHR,DSN=T759F.USER.CLIST                     */
/*  //SYSTSPRT DD SYSOUT=*                                          */
/*  //SYSPRINT DD SYSOUT=*                                          */
/*  //SYSTSIN  DD DUMMY                                             */
/*  //OUT      DD SYSOUT=*                                          */
/*  //INP      DD *                                                 */
/*   test $UNIQUE                                                   */
/*                                                                  */
/* -> test hugo    in OUT                                           */
TRACE off
PARSE ARG PARM
var=substr(parm,1,index(parm,'=')-1) /* select variable to change */
val=substr(parm,index(parm,'=')+1) /* select value for change */
"EXECIO * DISKR inp  (stem inp. FINIS"
if inp.0= 0 then say "no records read in JCLVAR"
do i=1 to inp.0
 if index(inp.i,var)>0 then do
   buffer=substr(inp.i,1,index(inp.i,var)-1)
   buffer=buffer""val
   buffer=buffer""substr(inp.i,index(inp.i,var)+length(var))
   inp.i=strip(buffer,'T',' ')
   i=i-1
 end
end
do i=1 to inp.0  /* trace auf systsprint */
 say inp.i
end
"EXECIO * DISKW out  (stem inp. finis"
if rc>0 then do
 say "Error writing OUT RC=" rc
 return 8
end
EXIT