Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Do you mean "day" as in Monday, Tuesday, etc, or do you mean date as in 'yyyymmdd' or some other form? Please be more specific about what you want to do exactly. |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You could use a DFSORT job like this. It will handle everything except setting the last day of Feb to '29' for a leap year. That would take a bit more work, but could be done.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=30,
IFTHEN=(WHEN=INIT,BUILD=(31:DATE2)),
IFTHEN=(WHEN=INIT,
OVERLAY=(C'First ',35,2,C'01',33,2,
C' last ',35,2,21:C'xx',33,2)),
IFTHEN=(WHEN=INIT,
OVERLAY=(21:35,2,CHANGE=(2,
C'01',C'31',C'02',C'28',C'03',C'31',C'04',C'30',
C'05',C'31',C'06',C'30',C'07',C'31',C'08',C'31',
C'09',C'30',C'10',C'31',C'11',C'30',C'12',C'31')))
/*
|
I ran this job today and the output was:
Code: |
First 020107 last 022807
|
|
|