HP3000-L Archives

October 2005, 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:
Re: Grandfather a file
From:
"Shahan, Ray" <[log in to unmask]>
Reply To:
Shahan, Ray
Date:
Mon, 31 Oct 2005 14:57:45 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (80 lines) 
Well, I went ahead and created something that should (appears to work -
tomorrow will tell for sure).  If anyone has a more accurate or simple
solution (or both), or you see where my solution will fail, please let
me know.

!#
!# C007236 - If today's audit file for the WIP process does not exist,
then
!# C007236 - build it.
!# C007236 - We'll grandfather for a month (these should be very small
files).
!#
!
!IF FINFO("WIPAUD!HPDATE.DATAWORK","EXISTS")
! SETVAR TODAYS_DATE STR("!HPDATETIME",1,8)
! SETVAR FILE_DATE FINFO("WIPAUD!HPDATE.DATAWORK","CREATION DATE
INTEGER")
! SHOWVAR @_DATE
!
! IF !TODAYS_DATE <> !FILE_DATE
!  PURGE WIPAUD!HPDATE.DATAWORK
!  BUILD WIPAUD!HPDATE.DATAWORK;REC=-80,,F,ASCII;DISC=1000
! ENDIF
!ELSE
!  BUILD WIPAUD!HPDATE.DATAWORK;REC=-80,,F,ASCII;DISC=1000
!ENDIF

_____________________________________________
From: Shahan, Ray 
Sent: Monday, October 31, 2005 2:40 PM
To: [log in to unmask]
Subject: Grandfather a file

Hi all,

	I'm in need of a quick (and hopefully simple)  way to
grandfather a set of files for a monthly cycle (I don't care about 30/31
days or leap year).  I searched the archive, but didn't see what I was
looking for, and before I started to grind through it, I just knew
someone out there must have already done this.  I've included an example
I came up with, but it would grandfather for a year, and I only need a
month, but it should help with understanding what I need.


!#
!# C007236 - If today's audit file for the WIP process does not exist,
then
!# C007236 - build it.
!# C007236 - We'll grandfather for a month (these should be very small
files).
!#
!
!IF FINFO("WIPAUD!HPDATE.DATAWORK","EXISTS")
! IF FINFO("WIPAUD!HPDATE.DATAWORK","CREATION DATE") <> "!HPDATEF"
!  PURGE WIPAUD!HPDATE.DATAWORK
!  BUILD WIPAUD!HPDATE.DATAWORK;REC=-80,,F,ASCII;DISC=1000
! ENDIF
!ELSE
!  BUILD WIPAUD!HPDATE.DATAWORK;REC=-80,,F,ASCII;DISC=1000
!ENDIF
!




TIA for any help

Ray Shahan 
Life is not a journey to the grave with the 
intention of arriving safely in a pretty and 
well preserved body, but rather to skid in 
broadside, thoroughly used up, totally worn out, 
and loudly proclaiming: 
-- WOW!!! What a Ride



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

ATOM RSS1 RSS2