IBM Mainframe Forum

Posted: **Thu Jan 24, 2013 6:35 pm**

Hi,

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:

Select all

//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
/*

and getting the below error:

Select all

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

is there any other way to do so... i tried with VTOF option as well.. but its not working

Posted: **Thu Jan 24, 2013 6:40 pm**

VTOF is going to be your answer, so can you show how that didn't work for you?

Posted: **Thu Jan 24, 2013 7:07 pm**

Thanks Billy

I used this sysin card to convert VB to FB

Select all

//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF
/*

and getting the error

Select all

ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
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 - 00:35 ON FRI JA
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A 9 INCONSISTENT REFORMATTING FOR SORTOUT : REASON CODE 05, IFTHEN 0
ICE751I 0 C5-K76982 C6-K90026 C7-K82419 C8-K67572 E9-K60824 E7-K79990
ICE052I 3 END OF DFSORT

Posted: **Thu Jan 24, 2013 10:55 pm**

Hello,

I do not believe you can get what you want from a "simple copy"

For whatever reason, this went off in a new topic.

This is being locked.

d

IBM Mainframe Forum

Copy a VB files to FB File

Copy a VB files to FB File

Re: copying VB File to FB File

Re: copying VB File to FB File

Re: copying VB File to FB File