Page 2 of 2

Re: convert VB into FB

PostPosted: Wed Apr 30, 2008 10:33 pm
by Frank Yaeger
Govi,

Here's a DFSORT/ICETOOL job that will do what I think you asked for:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//ONE DD *
DUMMY
/*
//IN DD DSN=...  input file (VB/23040)
//C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,PASS)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=...  output file (FB/80)
//TOOLIN DD *
COPY FROM(ONE) USING(CTL1)
COPY FROM(IN) USING(CTL2)
COPY FROM(T1) TO(OUT) USING(CTL3)
/*
//CTL1CNTL DD *
  OUTFIL FNAMES=C1,
    REPEAT=269,BUILD=(5:SEQNUM,5,ZD,START=5,INCR=82,
     C',80,/,',80:X)
/*
//CTL2CNTL DD *
  OUTFIL FNAMES=T1,VTOF,BUILD=(1:
/*
//    DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)
//    DD *
   /)
/*
//CTL3CNTL DD *
  OMIT COND=(1,80,CH,EQ,C' ')
/*