How to Generate system date

meetsrk · New User Joined: 13 Jun 2004 Posts: 85

Hi all,

Can anyone please tell me how to generate a date and appending it to the dataset name.

For Eg.

G1XXXX.PSFILE.DS.DZZZZZ

where ZZZZZ - system date (in any format)

amitava · Active User Joined: 30 Oct 2005 Posts: 186 Location: India

HI meetsrk,
U can do one thing. U can call a rexx routine from a JCL and in the REXX routine u can get the date function and append it in a DSs name and allocate the DS. If u want the code, i will send u back.

superk · Posted: Mon Feb 27, 2006 6:49 pm

This is my preferred method:

brgr88 · New User Joined: 05 Mar 2006 Posts: 6

meetsrk,

/* REXX */
yymmdd = RIGHT(DATE('S'),6)
dsname = 'G1XXXX.PSFILE.DS.D'yymmdd

Here, the variable "yymmdd" equals the date in yymmdd format, so:
March 4, 2006 = 060304

Your datasetname would be:
G1XXXX.PSFILE.DS.D060304

I prefer this method since the datasets will list in chronological order in ISPF 3.4.