preLiteral='GENCOBC J*S ICEMAN '
postLiteral=' EX.CADENAS + '
s=0;s.=''
do i=1 to f.0
  say "La variable Var vale>>>"var
  parse var f.i job pgm
   s=s+1;s.s=preLiteral||pgm||postLiteral
   s=s+1;s.s='      GE.$GRIDA.JCL.TRANSFOR.COBC  'job
  end
say 'Total lineas entrada' f.0