IBM Mainframe Forum

by **xcspg3** » Wed Mar 07, 2012 5:00 pm

Hi,
this is my question:
how to write for each output record the system date of the first record processed and not the date calculated for each record.
When I use
OUTREC FIELDS=(DATE=(DM4/),.....
I think that ICEMAN writes the system date for each record but I would like to find the date of the first record produced.

Thanks
Max.

by **skolusu** » Wed Mar 07, 2012 10:31 pm

xcspg3,

If your intention is push the date on the very first record on to the other records then you need to use WHEN=GROUP. Check this

Select all

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5----+---
2012-03-07 APPLE IPAD3
RECORD-1
RECORD-2
RECORD-3
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,20,10)),
IFTHEN=(WHEN=GROUP,BEGIN=(81,8,ZD,EQ,1),PUSH=(20:1,10)),
IFTHEN=(WHEN=(81,8,ZD,EQ,1),OVERLAY=(20:89,10))
//*

The output of this is

Select all

2012-03-07 APPLE IPAD3
RECORD-1 2012-03-07
RECORD-2 2012-03-07
RECORD-3 2012-03-07

by **Frank Yaeger** » Thu Mar 08, 2012 12:18 am

Max,

It's not really clear to me what you're asking. Maybe Kolusu has interpreted correctly. However, ...

Select all

OUTREC FIELDS=(DATE=(DM4/),.....

will put the SAME date in EVERY record. DFSORT's date functions use the start date for the run - DFSORT does not calculate a "new" date for each record. for example, if the job starts on 03/07/2012 and runs past midnight (=03/08/2012), the date used will still be 03/07/2012 (the date when the run started).

If Kolusu and/or I have not answered your question, then you need to state it more clearly.

by **xcspg3** » Sun Mar 11, 2012 11:19 pm

Frank your answer is what I asked: I thought the date was variable during outrec fields...

Thanks

Max

IBM Mainframe Forum

Outrec fields and date

Outrec fields and date

Re: Outrec fields and date

Re: Outrec fields and date

Re: Outrec fields and date