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 *
|