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='GENCOBC J*S ICEMAN 'pgm ' EX.CADENAS  + '
   s=s+1;s.s='      GE.$GRIDA.JCL.TRANSFOR.COBC  'job
  end
say 'Total lineas entrada' f.0