Scott,
You can use finfo with a option 61 which is the number of assessors of the
file.
!WHILE FINFO("CHARGES.CHARGES",61) > 0
! PAUSE 60
!ENDWHILE
or you can combine your while into one test like:
!WHILE "![FINFO("CHARGES.CHARGES",-6)] > HPYYYYMMDD or
FINFO("CHARGES.CHARGES",61) > 0
! PAUSE 600
!ENDWHILE
Hope this helps,
Paul Scott
Problem Solved
ph: 707-451-2611
fax: 707-471-6553
pager: 888-541-3477
[log in to unmask]
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Gates, Scott
Sent: Friday, December 27, 2002 12:27 PM
To: [log in to unmask]
Subject: [HP3000-L] Checking File date and if file being written
I need to check if a file was created today and if the file is being written
to or not in a job
It will be run on the day the file is created, but the creation of the file
takes a long time, 4 or 5 hours (sometimes more)
It seems the DATE part this SHOULD go something like
!SETVAR FDATE;FINFO("CHARGES.CHARGES",-6)
!WHILE "!FDATE" > HPYYYYMMDD
! PAUSE 600
! SETVAR FDATE;FINFO("CHARGES.CHARGES",-6)
!ENDWHILE
But what I can't figure out is how to tell if the job that writes the file
is finished writing it.
Thanks in advance.
Scott Gates
Programmer/Analyst
Information Services
Our Lady of Bellefonte Hospital
P.O. Box 789
Ashland, Kentucky 41105-0789
-----------------------------------
Phone: (606)833-3773
Fax: (606)833-3342
-----------------------------------
Quote: ...Computers are...stupid. Unlike human beings, computers possess the
truly
profound stupidity of the inanimate. - Bruce Sterling - THE HACKER CRACKDOWN
-----------------------------------
Intranet: http://Olbh01iis/intranet/index.html
Primary e-mail : [mailto:[log in to unmask]]
Alternate e-mail : [mailto:[log in to unmask]]
-----------------------------------
Our Lady of Bellefonte : http://www.olbh.com
-----------------------------------
Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail, fax or phone and destroy all copies of
the original message.
* 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 *
|