HP3000-L Archives

May 2002, Week 5

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Porter, Allen" <[log in to unmask]>
Reply To:
Porter, Allen
Date:
Wed, 29 May 2002 23:06:47 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (114 lines)
If the job will always be run before midnight of the last day of the month,
then the following will set a variable MonthRange.  It assumes the first day
of the month is 01, zero fills the month, and grabs the current day for the
last day of the month (hence it needs to be run before midnight).

setvar monthrange
'!hpyyyy'+rht('0'+'!hpmonth',2)+'01'+'!hpyyyy'+rht('0'+'!hpmonth',2)+'!hpdat
e'



-----Original Message-----
From: Donna Rivett [mailto:[log in to unmask]]
Sent: Wednesday, May 29, 2002 2:29 PM
To: [log in to unmask]
Subject: [HP3000-L] Automate End of the Month Report


Hi All -

I'm trying to automate a report out of our production software (Ecometry)
that we run 23 times at the end of the month for each reason code.  We are
on MPE 6.5 PP2..

I'm trying to creat a command file that would run these but I'm not sure how
I can default the date range each month
so that it reflects the current whole month for each report in the job
card..    In other words, if the command file is generated at the end of the
month (May) after Dayclose, I would like the job in the command file to
reflect the current month like this: 2002050120020531.  Is there any command
that would specify the first through the last day of the month that you are
generating the report.

This is the how the LISTFTEMP file looks:


!JOB PRODRETU,JOBS.SGAII / ;PRI=DS;INPRI=01;OUTCLASS=WHLASER2,01

!SETVAR SGAINFO 'MGR.SGAII '

!FILE PRODRETU;DEV=WHLASER2,,01

!FILE PRNTFILE=*PRODRETU

!RUN RTNPRINT.CODE2.!SG2VER;LIB=G;PARM=1

PRODRETURN

WHLASER2

ORDER NO



2002050120020531

0101 Y





















(24/31) Continue?













!EOJ





Any ideas or help is greatly appreciated.  Thanks very much in advance!!



Donna Rivett

HP/Ecometry Admin

Northern Safety Company

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2