IBM Mainframe Forum

[bodhi]

Hello everyone,

Is it possible to get the pervious day's date in the Header of the file. From below sort card I am able to get the current date but unable to get the pervious date in the header of the file.

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTIN DD Input dataset
//SORTOUT DD outputdatset
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,
HEADER1=('HEADERG 0000000000 0000000',DATE=(4MD-))
/*
Can any one help in out on this problem.

Thanks
Bodhi

[Alissa Margulies]

Hello Bodhi.

Try the following:

Select all

&DATE=(4MD-)-1

Regards,

[bodhi]

Hello Alissa,

I got the below error message:

SYSIN :
SORT FIELDS=COPY
OUTFIL REMOVECC,
HEADER1=('HEADERG 0000000000 0000000',&DATE=(4MD-)-1)
*
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

[Alissa Margulies]

Bodhi,

Support for DATE with an offset was included in SyncSort for z/OS 1.3.

It appears that you are running an earlier release of the product. I would recommend that you contact your system programmer and request that the current release of SyncSort be installed.

Regards,