IBM Mainframe Forum

Posted: **Mon Aug 09, 2010 7:03 pm**

Hi,

I get some data on daily basis into a file (LRECL=132, RECFM=FB) and I want to suffix current date to a word within that file.

Input:

Select all

----+----1----+----2----+----3----+----4
01 data record 1 harish
01 data record 2 harish 01
0d data record 3 date

I want the date 18th column to be like date_080910.

Output:

Select all

----+----1----+----2----+----3----+----4
01 data record 1 harish
01 data record 2 harish 01
0d data record 3 date_080910

How to achieve it using SORT? Please help.

Thanks.

Posted: **Mon Aug 09, 2010 10:44 pm**

Here is a SyncSort for z/OS 1.3 job that will produce the requested output:

Select all

//SORT1 EXEC PGM=SORT
//SORTIN DD *
01 DATA RECORD 1 HARISH
01 DATA RECORD 2 HARISH 01
0D DATA RECORD 3 DATE
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(18,4,CH,EQ,C'DATE'),OVERLAY=(22:C'_',&DATENS=(MDY)))
/*

Posted: **Tue Aug 10, 2010 3:25 pm**

Thanks a lot......

IBM Mainframe Forum

suffix today's date.

suffix today's date.

Re: suffix today's date.

Re: suffix today's date.