I want to copy a VB files to FB File, and want to retain the record length field in FB File.I have three input files having length 715,599 and 645. The output file will be of length 1000 and will contain the record length of each record followed by the record. in other word, i have to copy the file records as it is in a FB File.. I tried with the code given below only for one file:
//STEP001 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS
//SORTOUT DD DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS.FLN,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=1000)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
//SORTIN DD DISP=SHR,DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS
//SORTOUT DD DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS.FLN,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=1000)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
and getting the below error:
ICE805I 1 JOBNAME: D393990B , STEPNAME: STEP001
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 23:51 ON THU JA
OPTION COPY
ICE043A 3 INVALID DATA SET ATTRIBUTES: SORTOUT RECFM - REASON CODE IS 08
ICE751I 0 C5-K76982 C6-K90026 C7-K82419 C8-K67572 E7-K79990
ICE052I 3 END OF DFSORT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 23:51 ON THU JA
OPTION COPY
ICE043A 3 INVALID DATA SET ATTRIBUTES: SORTOUT RECFM - REASON CODE IS 08
ICE751I 0 C5-K76982 C6-K90026 C7-K82419 C8-K67572 E7-K79990
ICE052I 3 END OF DFSORT
is there any other way to do so... i tried with VTOF option as well.. but its not working