How to change a record to '20100101' when its first two byte

santoshkumarmanilakkoju · Posted: Wed Jan 13, 2010 10:10 am

How to change a record to '20100101' when its first two bytes are '00' using sort?

This a date change requirement the starting position is 47.

If the first two bytes of 47th column of a record is '00' then we need to replace the 8 bytes data from 47th column of the same record to '2010101'

Escapa · Posted: Wed Jan 13, 2010 10:21 am

santoshkumarmanilakkoju · Posted: Wed Jan 13, 2010 10:23 am

its actually '20100101'. We use SYNCSORT

gcicchet · Posted: Wed Jan 13, 2010 10:33 am

Hi,

try

Escapa · Posted: Wed Jan 13, 2010 10:35 am

Below SORTCARD will give you desired result.

Escapa · Posted: Wed Jan 13, 2010 10:39 am

Opps.. Sorry Gerry.. I couldn't see your post. Anywasy this should be moved to JCL forum

santoshkumarmanilakkoju · Posted: Wed Jan 13, 2010 11:52 am

Hi Sambhaji/Gerry

The code worked but I need the same change to be done for another date field atrting at 55th position.

Below is what I tried but the second field is not changing, the sort is copying the same input to ouput.
Ex: 0010010100100101 is changed to 2010010100100101

//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(47,2,CH,EQ,C'00'),OVERLAY=(47:C'20100101')),
IFTHEN=(WHEN=(55,2,CH,EQ,C'00'),OVERLAY=(55:C'20100101'))
/*
[/list][/code]

Escapa · Posted: Wed Jan 13, 2010 12:04 pm

Use below one.

santoshkumarmanilakkoju · Posted: Wed Jan 13, 2010 12:08 pm

Yes I tried this,

//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(47,2,CH,EQ,C'00'),
OVERLAY=(47:C'20100101'),HIT=NEXT),
IFTHEN=(WHEN=(55,2,CH,EQ,C'00'),OVERLAY=(55:C'20100101'))
/*

and it worked.Thankyou

Escapa · Posted: Wed Jan 13, 2010 12:13 pm

You are welcome..