Hi,
Please find the job to convert from variable to fixed length file
Code:
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A123456.VBIN,DISP=SHR
//FBOUT DD DSN=A123456.FBOUT,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=FBOUT,VTOF,OUTREC=(1:5,100)
* VTOF CONVERT FB TO VB
* 1:5,100 COPY FROM 5 BYETS(BECAUSE IN VB FIRST 4 BYTES ARE *OCCUPIED BY RDW SO STARTING POSITION WILL BE 5
/*
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
ramp_senti,
I think jai misunderstood what you wanted. I think you have an FB data set with delimited fields and you want to reformat it to an FB data set with fixed fields.
The DFSORT job below will do what you asked for. I assumed the maximum length of each variable field was 10 bytes, but you can change the FIXLEN=n values for the actual maximums if needed.
You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's PARSE, %nn and JFY functions. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:
.jpg)
