Write record in PS through JCL

[durgac]

I wanted to write the current timestamp into a dataset through JCL. Can this be done? Could any one help me out?

[CICS Guy]

Where are you getting this 'timestamp'?
Can sort header/trailer processing against a dummy input give you what you want?

[Frank Yaeger]

Here's a DFSORT job that will write the current date in the form 'yyyymmdd' in an output record.

Code: Select all

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DSN=...  output file (FB/8)
//SYSIN    DD    *
  OPTION COPY
  INREC BUILD=(DATE1)
/*


If you want something else, be more specific about what you want (form of date, RECFM and LRECL of output data set, etc).

[durgac]

Thank you very much!

[munni_03]

Code: Select all

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DSN=...  output file (FB/8)
//SYSIN    DD    *
   OPTION COPY
   INREC BUILD=(DATE1)
/*


its giving output date format as yyyymmdd but i want in mmddyyyy.

[Frank Yaeger]

For 'mmddyyyy', you can use this DFSORT INREC statement:

Code: Select all

  INREC BUILD=(DATENS=(MD4))


[munni_03]

Hi

I got the exact output but i am comparing date fields.
in this i want date of 60 days before by subtracting 60 days frm it...
but its giving error..can u help on tis



//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DSN=... output file (FB/8)
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(DATE-60)
/*

[Frank Yaeger]

Sigh. Why didn't you say what you actually wanted in your first post or subsequent posts? It's not clear how what you've said you want so far has to do with your statement "i am comparing date fields".

However, if you want the current date - 60 days in the form 'mmddyyyy', you can use these DFSORT statements:

Code: Select all

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DSN=... output file (FB/8)
//SYSIN    DD    *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,BUILD=(DATE1-60)),
    IFTHEN=(WHEN=INIT,BUILD=(5,4,1,4))
/*


If that isn't what you want, then explain in detail exactly what it is you want to do.