Rahul I'm a bit rusty on theses matters since I don't have systems to play with these days. However, if I wanted to set up an existing data set with DCB parameters other than those currently assigned, I'd try the following:
First of all I'd be using IEBGENER as the program. Then I'd define the input data set with DCB parameters which "overrode" the stored DCB parameters with the DCB parameters I wanted the program to adopt and hence to try to use. Naturally I'd define the output data set with the same DCB parameters so that those became the stored DCB parameters for the new data set. I could guess that the records in the data set are 133 bytes long, that there is one record per block and that the records are print lines which have an ASA - if I remember correctly what "A" means - character as the first character, the carriage control character. I'm ignoring the defined stored block size of 101 which looks spurious. //... JOB ... //GENER EXEC PGM=IEBGENER //SYSUT1 DD DSN=input,DCB= (BLKSIZE=133,LRECL=133,RECFM=FBA),DISP=OLD //SYSUT2 DD DSN=output,DCB=(BLKSIZE=133,LRECL=133,RECFM=FBA),DISP= (NEW,KEEP) //SYSIN DD DUMMY Chris Mason ably assisted by John Austin On Thu, 7 Aug 2008 15:36:53 +0530, Rahul Karsija <[EMAIL PROTECTED]> wrote: >Hi >I need to convert a dataset from RECFM=UA to RECFM=FB. I tried to copy it >using IDCAMS but was unsuccessful. I also wrote a small program to read the >input records and then write them to output file but that did not work >either. Using SORT with OPTION COPY was also not helpful, got message - >ICE043A 3 INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN RECFM > >Given below are the parameters of the input file - >Organization . . . : PS >Record format . . . : UA >Record length . . . : 133 >Block size . . . . : 101 >1st extent cylinders: 1 >Secondary cylinders : 50 > >Have also tried using IBM TRSMAIN (first PACK and then UNPACK) but that also >creates the final output file as UA. > >Please help me. > >Thanks & Regards >Rahul Karsija ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
