System date in JCL field

[Mike Moore]

I’m looking for a SIMPLE (non-programmed) way to get the system-date into a field in some JCL. I seem to remember some discussion of this a while back but couldn’t find anything in the archives. I was thinking it was some sort of System parameter that could be used with a SETPARM. Anyone got a suggestion?

 

Mike Moore

IT Manager

Alabama Judicial Datacenter

300 Dexter Ave.

Montgomery, AL 36104

334-242-0375

 

[indust...@dapsco.com]

owner...@Lehigh.EDU wrote on 11/04/2004 11:35:29 AM:
> I’m looking for a SIMPLE (non-programmed) way to get the
> system-date into a field in some JCL.

If "non-programmed" excludes REXX, then I don't think this is
possible. Even having system software insert it (e.g., FAQS/ASO or PCS) is
using programming.

Sincerely,

Dave Clark

DAPSCO Information Systems
3110 Kettering Boulevard
Dayton, Ohio 45439
(937) 294-5331

[Bentley Hohensee]

Regarding non-programmed way to get date into jcl field.

 

If you want to type it in just use a // DATE line.

 

If you want it to be auto loaded.

 

We have a set of parameters we set when we load the daily scheduler.

Then all the batch job that are run have access to these parameters.

 

// DATE &DATE1

SETPARM DAY=&DAY1

SETPARM WEEK=&WEEK1

SETPARM EOM=&EOM1

SETPARM UNALOC=&UNALOC1

Thanks

 

Bentley

[Kevin Corkery]

Mike ...

I have a program called VSEDEF that sets a bunch of parameters ...

000160* PARAMETER FORMAT DESCRIPTION *
000170* --------- --------- -------------------------------- *
000180* *
000190* SYSDATE MM/DD/YY THE CURRENT PROCESSING DATE *
000200* SYSTIME HH:MM:SS THE CURRENT TIME OF DATE *
000210* SYSTAMP DATE.TIME ONYYMMDD.ATHHMMSS TIMESTAMP *
000210* SYSTODS TIME.DATE ATHHMMSS.ONYYMMDD TIMESTAMP *
000220* SYSYMDX YYMMDD THE CURRENT DATE, YYMMDD FORMAT *
000230* SYSHMSX HHMMSS THE CURRENT TIME, HHMMSS FORMAT *
000240* SYSJULX YYDDD THE CURRENT JULIAN DATE *
000250* SYSTAGS DDDHT JULIAN DAY, HOUR, 10TH OF HOUR *
000260* SYSPCFN DDDHMMSS JULIAN DAY, HOUR, MIN & SECS *
000270* SYSDAYX XXX DAY OF WEEK, E.G. "MON" "TUE" *
000280* SYSMTHX XXX MONTH OF YEAR, E.G. "JAN" "FEB" *
000290* SYSCCYY CCYY THE CURRENT YEAR IN CCYY FORMAT *
000300* SYSYYMM YYMM THE YEAR AND MONT IN YYMM FORMAT *
000310* SYSMDAY DD THE DAY OF MONTH IN DD FORMAT *
000320* SYSYYNO YY THE YEAR IN YY FORMAT *
000330* SYSNNNO MM THE MONTH IN MM FORMAT *
000340* SYSPRVY YY THE PREV YEAR IN YY FORMAT *
000350* SYSPRVM MM THE PREV MONTH IN MM FORMAT *
000360* SYSNXTY YY THE NEXT YEAR IN YY FORMAT *
000370* SYSNXTM MM THE NEXT MONTH IN MM FORMAT *

I don't know if this meets your non-programatical method.
I could send you a copy if you'd like.

Kevin P Corkery
Independent Consultant
Voorhees, New Jersey

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of
Mike Moore
Sent: Thursday, November 04, 2004 11:35 AM
To: VSE Discussion List
Subject: System date in JCL field

[Mike Moore]

Kevin,
I sounds like exactly what I need. I'm trying to force our programmers
and operators into some standardized stuff and need to dictate some
parameters to them. I would love to have a copy of the program.

Mike Moore
IT Manager
Alabama Judicial Datacenter
300 Dexter Ave.
Montgomery, AL 36104
334-242-0375

[indust...@dapsco.com]

owner...@Lehigh.EDU wrote on 11/04/2004 11:35:29 AM:

> I’m looking for a SIMPLE (non-programmed) way to get the
> system-date into a field in some JCL.

Well, it looks like you're now accepting programs... I wrote a
program that both allows the JCL to calculate the desired "current date"
for the partition (based on a program-supported formula structure) and to
also set JCL symbolic parameters based on whatever date to which the
partition date is currently set.

For example, a month-end job can calculate a partition date equal to
the month-end date even if the job is run anytime during the first week of
the following month. A year-end job can calculate a partition date equal
to the year-end date even if the job is run anytime during the month of
January.

The following are the symbolic parameters that are set by this
program:

&WEEKDAY = 'Dn' where "n" is a number from 0 to 6
representing Sunday thru Saturday
&WEEK = 'Wn' where "n" is a number from 1 to 5
&QUARTER = 'Qn' where "n" is a number from 1 to 4
&MONTH = 'mm' where "mm" is the 2-digit month
&DAY = 'dd' where "dd" is the 2-digit day
&YEAR = 'yyyy' where "yyyy" is the 4-digit year

The following are examples of just a few of the possible formulas
this program will accept for calculating a desired run date:

PARM='ME-0' is the ending date of the current month
PARM='ME+0-W' is the last Saturday of the current month
PARM='ME-0-W-D' is Friday in last full week of the month
PARM='WE+0-D' is Friday's date in the current week
PARM='WE-0+1-D' is Friday's date in the next week
PARM='WE+0-D-1' is Thursday's date in the current week
PARM='WE-0-1-D-1' is Thursday's date in the previous week

If interested, I'm always willing to share. ;-)

[Mike Moore]

Actually what I meant by 'non-programmed' was a way to get the info
without doing it in a program that generated the info AND generated the
JCL. I already have some of those but was looking for a 'better' way to
standardize getting the info across the board. With more of our
programmers chasing the 'colors and curves' of .NET around here, it is
getting more difficult to find a programmer that can remember how or why
they set something up or coded something the way they did. It is easier
for me to handle it and make it standard as I chase problems.

Mike Moore
IT Manager
Alabama Judicial Datacenter
300 Dexter Ave.
Montgomery, AL 36104
334-242-0375

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf
Of indust...@dapsco.com
Sent: Thursday, November 04, 2004 1:18 PM
To: VSE Discussion List

[Michael Rosinger]

That sounds very nice! Could I have a copy of that please?

Kevin Corkery wrote:

> Mike ...
>
> I have a program called VSEDEF that sets a bunch of parameters ...
>

--
Michael Rosinger
Systems Programmer/DBA
Computer Credit, Inc.
640 W. 4th Street
Winston-Salem, NC 27101
voice : 336-761-1524
fax : 336-761-8852
email : mrosinger at cciws dot com

[Aubrey Hayes]

Mike,

Have you thought about using the program that comes with the system
called
DTRSETP?

You catalog a proc with a bunch of SETPARM statements in it. You can
then post a new value in the proc with the execute of the program
DTRSETP. For example

You have a proc called JCL.PROC with a single SETPARM DATE=04101 you can
change
With an EXEC DTRSETP,PARM='JCL;MYLIB.SUB;SET DATE=04102' Then in your
jobstream you can post the value by // SETPARM DATE='',// EXEC
PROC=JCL,DATE. Then everywhere you have a need for the date in jcl you
would have a &DATE. You can also use it in a // IF statement to bypass
process steps etc....

Aubrey

[Mike Moore]

Aubrey,
That might be a real good option since it lets me define anything I want
in the PROC.
DTRSETP----man it is hard to keep track of all the little goodies out
there. Where is that one documented?

Mike Moore
IT Manager
Alabama Judicial Datacenter
300 Dexter Ave.
Montgomery, AL 36104
334-242-0375

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf
Of Aubrey Hayes
Sent: Thursday, November 04, 2004 2:11 PM
To: VSE Discussion List

[Mike Moore]

...only problem is I still have to manually plug the data (date) into
the field before I can use the parameter in a SETPARM.

[Aubrey Hayes]

Mike,

I think I found it in the system utilities??? , but don't quote me, but
you see examples of IBM using it in the SK stuff in ICCF lib 59. Yes
you have to put in the date, but I see it as a operator job with a
series of SETPARMs for a today cycle type of thing for the accounts to
date their reports and cause quarter-end year-end type thing.

Aubrey

[Fran Hensler]

I use Dave Clark's SETDATE program to name FakeTape files with various
options such as day-of-week and week-of-month and quarter-of-year. I
highly recommend it.

/Fran Hensler at Slippery Rock University of Pennsylvania USA
f...@sruvm.sru.edu +1.724.738.2153
"Yes, Virginia, there is a Slippery Rock"

[The Family]

Do it this way - "syntactically questionable only for conclusion"

* $$ PUN DISP=I
// EXEC ASMA90
PUNCH '// EXEC DTRSETP'
PUNCH '// SETPARM date=&SYSDATE'
PUNCH '/&'
END ,
/*

Or, you could run this stage1 through REXX, COBOL, or any
other program to get the SETPARM's set automatically at the
beginning of the day.

If, after developing this job to perform what's necessary, it was
run automatically with PWR date/time release(i.e. daily @ 00:00:01),
the whole thing could be automated, and fool proof(pretty much).

Thanks - Gary

BTW, Aubrey, that was an excellent idea. Sometimes the solution
is right in front of our eyes.

"Aubrey Hayes" <AHa...@suntech.com> wrote in message
news:9112A7F48583F34587F7...@email.suntech.com...