|
View previous topic :: View next topic
|
| Author |
Message |
Raymond Sachs
New User
Joined: 13 Dec 2007
Posts: 45
Location: USA
|
|
|
|
Dear listers
How do I conditionally reformat my input file
My input file is FB, LRECL=25 and we are a SYNCSORT 1.3.2 shop
| Code: |
*************************
ABCD LF GHIJ 1990-12-31
ABCD FF GHIJ 2010-12-31
ABCD GF GHIJ 1993-12-31
ABCD UF GHIJ 1999-12-31
ABCD EY GHIJ 2009-12-31
*************************
|
I would like to have the following output where a character 'O' or 'R'
gets conditionally appended at position 25 based on the date value in
the record. If the date is earlier than 2000-01-01 , the character on position 25 = 'O' else it will be 'R'
Desired Output: (FB, LRECL=25)
| Code: |
*************************
ABCD LF GHIJ 1990-12-31O
ABCD FF GHIJ 2007-12-31R
ABCD GF GHIJ 1993-12-31O
ABCD UF GHIJ 1999-12-31O
ABCD EY GHIJ 2001-12-31R
*************************
|
Appreciate your pointers/help |
|
| Back to top |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
try this
| Code: |
//PS010 EXEC PGM=SYNCSORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABCD LF GHIJ 1990-12-31
ABCD FF GHIJ 2010-12-31
ABCD GF GHIJ 1993-12-31
ABCD UF GHIJ 1999-12-31
ABCD EY GHIJ 2009-12-31
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(15,10,CH,LT,C'2000-01-01'),
OVERLAY(25:C'O')),
IFTHEN=(WHEN=NONE,
OVERLAY(25:C'R'))
/* |
Gerry |
|
| Back to top |
|
|
Raymond Sachs
New User
Joined: 13 Dec 2007
Posts: 45
Location: USA
|
|
|
|
Gerry,
The JCL cards worked.  |
|
| Back to top |
|
|
|
|
