C4P4LOGIC
New User
Joined: 07 May 2007 Posts: 1 Location: kochi
|
|
|
|
IN THE BELOW JCL CODE FOR CONVERTING A FILE FROM VB TO FB , HOW CAN WE MODIFY THE JCL SUCH AS TO ELIMINATE THE FIRST 4 CHARACTERS WHILE WRITING THE OUTPUT FILE
Code: |
//STEP10 EXEC PGM=SORT
//SORTIN DD DSN=INPUT.FILE.1, DISP=OLD
//SORTOUT1 DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),
// DSORG=PS,
// RECFM=FB,
// LRECL=440,
// BLKSIZE=27720,
// DATACLAS=STANDARD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,VTOF,
OUTREC=(1:1,440)
END
/*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
|
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
The first four bytes of a VB record is the RDW. You would not normally include that when converting from VB to FB, so you'd use:
Code: |
OUTFIL FNAMES=SORTOUT1,VTOF,
OUTREC=(5,436)
|
|
|