TSO current time

Som_TCS · Post by **Som_TCS** » Sat Aug 29, 2009 6:29 pm

Hi,

I have an requirement to write TSO Current time into a file through JCL. U can use any kind of utility. I know it can be done very easily thru COBOL. But I can't use COBOL.

Can anyone help me to do that?

> Just to write Current time into a file.

Thanks
Somenath

MrSpock · Post by **MrSpock** » Sun Aug 30, 2009 1:18 am

SORT?
EZACFSM1?
REXX?
CLIST?
SQL?
Easytrieve?
SAS?

Som_TCS · Post by **Som_TCS** » Wed Sep 02, 2009 10:18 am

MrSpock · Post by **MrSpock** » Wed Sep 02, 2009 5:22 pm

What is the required RECFM and LRECL of the output dataset?

What format does the time need to be in? What position in the output does it need to be placed?

Som_TCS · Post by **Som_TCS** » Tue Sep 08, 2009 3:02 pm

RECFM = FB , LRECL = 80 , start pos = 1

********************************************************************
1
date&time<------space --->
********************************************************************

data&time = CYYMMDDHHMMSS

Frank Yaeger · Post by **Frank Yaeger** » Wed Sep 09, 2009 8:46 pm

Assuming you want one record in the output file with:

ccyymmddhhmmss

here's a DFSORT job that will do that:

Code: Select all

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
//SORTOUT DD DSN=...  output file &#40;FB/80&#41;
//SYSIN    DD    *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    HEADER1=&#40;DATENS=&#40;4MD&#41;,TIMENS=&#40;24&#41;&#41;
/*

mainframegurukul.com

TSO current time

TSO current time

FREE TUTORIALS