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: IBM-MAIN@BAMA.UA.EDU
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

Reply via email to