On second thought I don't believe this will work with a UA format.
You might try IEBDG.
//IEBDG EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=(,),OUTPUT=(*.JCL)
//INDD DD DSN=input
//OUTDD DD DSN=&&FB,
// DISP=(NEW,PASS),
// UNIT=WORK,
// SPACE=(CYL,(75,10),RLSE),
// DCB=(RECFM=FB,LRECL=???,BLKSIZE=0)
//SYSIN DD *
DSD INPUT=(INDD),OUTPUT=(OUTDD)
FD NAME=F1,LENGTH=???,STARTLOC=001,FROMLOC=001,INPUT=INDD
CREATE INPUT=INDD,NAME=(F1)
END
/*
-----Original Message-----
From: HUTCHISON Gregory
Sent: Thursday, August 07, 2008 1:29 PM
To: 'IBM Mainframe Discussion List'
Subject: RE: Converting / Copying a dataset from RECFM=UA to RECFM=FB
Syncsort should be able to copy your file into a FB using CONCERT on the
OUTREC.
BR14 does need a block size when generating an empty file.
//CONV040 EXEC PGM=SYNCSORT,PARM='DYNALLOC'
//SORTIN DD DISP=SHR,DSN=input
//SORTOF1 DD DSN=output,
// DISP=(,CATLG,DELETE),
// UNIT=DISK,
// SPACE=(CYL,(75,10),RLSE),
// DCB=(RECFM=FB,LRECL=0259,BLKSIZE=0)
//SYSOUT DD SYSOUT=(,),OUTPUT=(*.JCL)
//SYSUDUMP DD SYSOUT=(,),OUTPUT=(*.JCL)
//SYSABOUT DD SYSOUT=(,),OUTPUT=(*.JCL)
//SYSDBOUT DD SYSOUT=(,),OUTPUT=(*.JCL)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=1,
OUTREC=(1,259),CONVERT
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Rahul Karsija
Sent: Thursday, August 07, 2008 3:07 AM
To: [email protected]
Subject: Converting / Copying a dataset from RECFM=UA to RECFM=FB
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
----------------------------------------------------------------------
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
