How about taking advantage of the thing which has gotten so many
installations in trouble over the years and opening the dataset for output
(DISP=MOD) specifying on the output DD stmt the DCB parameters you want
the dataset to have? Since IEBGENER won't allow you to change RECFM or
LRECL, you'll have to have a small program that does nothing more than:
OPEN (dcbname,OUTPUT)
CLOSE dcbname
Ralph Kaden
z/OS (MVS) Level 2 Support - Allocation and Scheduler
(Converter/Interpreter, Initiator/Terminator, ENF, SJF, SMF, SSI, SWA Mgr)
T/ L: 8/295-4096 External: 845-435-4096
VM: S390VM.v$i01029 MVS: PLPSC.v$i316
External email: [EMAIL PROTECTED]
Internal email: Ralph Kaden/Poughkeepsie/Contr/[EMAIL PROTECTED]
Rahul Karsija <[EMAIL PROTECTED]>
Sent by: IBM Mainframe Discussion List <[email protected]>
08/07/2008 10:29 AM
Please respond to
IBM Mainframe Discussion List <[email protected]>
To
[email protected]
cc
Subject
Re: Converting / Copying a dataset from RECFM=UA to RECFM=FB
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
----------------------------------------------------------------------
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
