Hi My original program sends out data to the spool and then the report is printed. My task is to send the data to a dataset, and then email this dataset. The email program (IKJEFT1A) doesn't support such datasets and requires FB or VB as input
I had also created the dataset using IEFBR14 - //STEP01 EXEC PGM=IEFBR14 //DD1 DD DSN=MY.DATASET, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(125,50),RLSE), // DCB=(RECFM=FB,LRECL=133,BLKSIZE=0) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=* Then, I used this dataset in my original program, with DISP=OLD. The program converts it to RECFM=UA (undefined length record) while writing out data to it. Regards Rahul Karsija On Thu, Aug 7, 2008 at 6:38 PM, Chris Mason <[EMAIL PROTECTED]> wrote: > 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 > > ---------------------------------------------------------------------- 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
