IBM Mainframe Forum

by **pucca71** » Thu Nov 11, 2010 12:22 am

Hi again.

This time I have to build a sortcard to read from a file and copy all records to another, but changing just first record, and copy the same equals:
Both files are FB.

From this:

Select all

********************************* Top of Data **********************************
// DD DISP=SHR,DSN=CIPORIN.D10313.T112340.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T553450.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T773453.IMAGE
******************************** Bottom of Data ********************************

To this:

Select all

********************************* Top of Data **********************************
//SORTIN DD DISP=SHR,DSN=CIPORIN.D10313.T112340.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T553450.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T773453.IMAGE
******************************** Bottom of Data ********************************

This way I am building a member that will be included in another sort step.

I will appreciatte your help as usual!

by **skolusu** » Thu Nov 11, 2010 5:33 am

pucca71,

Use the following DFSORT JCL which will give you the desired results. I assumed that your input is FB recfm and LRECL of 80

Select all

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DATA,DLM=$$
// DD DISP=SHR,DSN=CIPORIN.D10313.T112340.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T553450.IMAGE
// DD DISP=SHR,DSN=CIPORIN.D10313.T773453.IMAGE
$$
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=80,IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,3,ZD)),
IFTHEN=(WHEN=(81,3,ZD,EQ,1),OVERLAY=(3:C'SORTIN'))
//*

by **pucca71** » Thu Nov 11, 2010 5:59 am

Thanks Skolusu !!

I will try your suggested solution and let you know the results.

Thanks again.

by **pucca71** » Thu Nov 11, 2010 6:07 am

Skosulu ! It worked perfectly !
Thanks a lot.
(BTW, we work for the same company

)

IBM Mainframe Forum

Change only first record and opy the rest

Change only first record and opy the rest

Re: Change only first record and opy the rest

Re: Change only first record and opy the rest

Re: Change only first record and copy the rest