|
View previous topic :: View next topic
|
| Author |
Message |
nimisanand
New User
Joined: 22 Nov 2005
Posts: 24
|
|
|
|
Hi,
I have a sort card
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(2,15,CH,EQ,C'BUSINESS DATE :'),
OVERLAY=(17:DATE))
This gives me the date in the format BUSINESS DATE :12/10/08.
My requirement is to replace the slashes with '-' such that the output looks like
BUSINESS DATE :12-10-08.
Can some modifications be done in the sort card to meet my requirement? |
|
| Back to top |
|
 |
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
| Quote: |
| Can some modifications be done in the sort card to meet my requirement? |
Yes, Of course.
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
BUSINESS DATE :
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(2,15,CH,EQ,C'BUSINESS DATE :'),
OVERLAY=(17:DATE=(MDY-))) |
SORTOUT
| Code: |
| BUSINESS DATE :12-10-08 |
|
|
| Back to top |
|
|
|
|
