Hi,
Excellent Idea.
Maestro is suppose to tell us by next week , if they can support
'PIC AAMMMDD'.
I am currently using the following scheme :
suprtool.pub.robelle
input *
def aammdd,1,6
item aammdd,date,aammdd
ext aammdd = $date(?($today > 10 pic yy/mm/dd))
ouput dfile
xeq
:eod
then use the output to be the input to any program that needs the date
calculation.
Thanks
______________________________ Reply Separator _________________________________
Michael,
It took me a while, but here the MAESTRO solution for your problem:
1. Add parameters like Y2000, Y2001, Y2002 with the values
A0, A1, A2 in ARRANGER or via PARMS.MAESTRO.CCC.
The Y in the name is needed for MAESTRO's naming conventions only.
2. Use the following syntax whereever is needed:
?(Y?($TODAY PIC YYYY))?($TODAY PIC MMDD)
|________________|
gives the year, e.g. 2000
|___________________|
results in Y2000 or similiar
|____________________|
looks for value of Y2000, what is A0, etc.
|________________|
adds to this value the MMDD part.
To show how it works a little test job and the output
(I used TimeMachine to simulate the Y2K):
[25] XEBHH2:print test;page=0
!JOB TEST,MANAGER.SYS,SCHMIDA;OUTCLASS=,1
!
!COMMENT Value of Y2000 is: ?(Y2000)
!COMMENT Value of Y2001 is: ?(Y2001)
!COMMENT Value of Y2004 is: ?(Y2005)
!COMMENT Value of Y2010 is: ?(Y2010)
!
!TELL SCHMIDA,MANAGER.SYS ?(Y?($TODAY PIC YYYY))?($TODAY PIC MMDD)
!
!EOJ
Here the essentials of the dialog:
[32] XEBHH2:tm.pub.sss;info="20000229"
Time Machine / Time & Space Manager A.01.09 (10/03/1997)
(C) SolutionSoft Systems, Inc., 1997. All Rights Reserved.
This TM copy is licensed for exclusive use by CSC Chemical, Oil & Gas
You are traveling in time from WED, APR 8, 1998 ...
Virtual date and time is now TUE, FEB 29, 2000, 2:25 PM and running
[33] XEBHH2:mstream test
MAESTRO XL/MSTREAM D.01.14 (C) Unison Software Inc. 1990
(T) Installed for DuPont de MNemours
#J511
END OF PROGRAM
[34] XEBHH2:FROM (XEBHH2)/J511 MANAGER.SYS/A00229
[34] XEBHH2:tm.pub.sss;info="20011030"
Time Machine / Time & Space Manager A.01.09 (10/03/1997)
(C) SolutionSoft Systems, Inc., 1997. All Rights Reserved.
This TM copy is licensed for exclusive use by CSC Chemical, Oil & Gas
You are traveling in time from TUE, FEB 29, 2000 ...
Virtual date and time is now TUE, OCT 30, 2001, 2:26 PM and running
[35] XEBHH2:do ms
[35] XEBHH2:mstream test
MAESTRO XL/MSTREAM D.01.14 (C) Unison Software Inc. 1990
(T) Installed for DuPont de MNemours
#J512
END OF PROGRAM
[36] XEBHH2:FROM (XEBHH2)/J512 MANAGER.SYS/A11030
tm.pub.sss;info="20050713"
Time Machine / Time & Space Manager A.01.09 (10/03/1997)
(C) SolutionSoft Systems, Inc., 1997. All Rights Reserved.
This TM copy is licensed for exclusive use by CSC Chemical, Oil & Gas
You are traveling in time from TUE, OCT 30, 2001 ...
Virtual date and time is now WED, JUL 13, 2005, 2:27 PM and running
[37] XEBHH2:do ms
[37] XEBHH2:mstream test
MAESTRO XL/MSTREAM D.01.14 (C) Unison Software Inc. 1990
(T) Installed for DuPont de MNemours
#J513
END OF PROGRAM
[38] XEBHH2:FROM (XEBHH2)/J513 MANAGER.SYS/A50713
tm.pub.sss;info="20101224"
[40] XEBHH2:tm.pub.sss;info="20101224"
Time Machine / Time & Space Manager A.01.09 (10/03/1997)
(C) SolutionSoft Systems, Inc., 1997. All Rights Reserved.
This TM copy is licensed for exclusive use by CSC Chemical, Oil & Gas
You are traveling in time from WED, JUL 13, 2005 ...
Virtual date and time is now FRI, DEC 24, 2010, 2:28 PM and running
[41] XEBHH2:do ms
[41] XEBHH2:mstream test
MAESTRO XL/MSTREAM D.01.14 (C) Unison Software Inc. 1990
(T) Installed for DuPont de MNemours
#J514
END OF PROGRAM
[42] XEBHH2:FROM (XEBHH2)/J514 MANAGER.SYS/B01224
and one JCL for 2010:
JOB TEST,MANAGER.SYS,SCHMIDA.
Priority = DS; Inpri = 8; Time = UNLIMITED seconds.
Job number = #j514.
WED, APR 8, 1998, 2:28 PM.
HP3000 Release: C.55.00 User Version: C.55.00
MPE/iX HP31900 C.05.08 Copyright Hewlett-Packard 1987.
All rights reserved.
STREAMED BY SCHMIDA,MANAGER.SYS (#S138) ON LDEV# 28
STREAM DATE: WED, APR 8, 1998, 2:28 PM
****************************************************************
This is a private computer facility to be accessed and used for
Company business purposes only. Access to it for any reason must
be specifically authorized. Unauthorized access to this computer
facility will expose you to criminal and/or civil proceedings.
All information contained in this computer system, including
messages, is the property of the Company. The Company reserves
the right to access and disclose all information sent through or
stored in this computer system, for any purpose.
****************************************************************
********************************************
You are at: Bad Homburg XEBHH2 Series 960
********************************************
Welcome! You are now signed on.
END OF PROGRAM
:
:COMMENT Value of Y2000 is: A0
:COMMENT Value of Y2001 is: A1
:COMMENT Value of Y2004 is: A5
:COMMENT Value of Y2010 is: B0
:
:TELL SCHMIDA,MANAGER.SYS B01224
:
:RUN SIGNALER.MAESTRO.CCC
MAESTRO XL/SIGNALER D.01.01 (C) Unison Software Inc. 1990
(T) Installed for DuPont de MNemours
END OF PROGRAM
:EOJ
CPU sec. = 5. elapsed min. = 1. WED, APR 8, 1998, 2:28 PM.
So, basically: it will work.
I will not discuss sense or non-sense of such a solution
but MAESTRO is capable and will fit into your needs.
Best regards, Andreas Schmidt, CSC, Germany
[log in to unmask] on 25/03/98 01:41:51 AM
Please respond to [log in to unmask]
To: [log in to unmask]
cc: (bcc: Andreas Schmidt/HI/CSC)
Subject: maestro and year 2000
|