Editor's Note: We're taking Monday July 3 off to celebrate Independence Day, and we'll be back on July 5 with a new report.
Where did the files HP hosted on jazz.external.hp.com go? So many articles reference that HP 3000 labs site.
The Jazz server contents were moved to several servers. A system at Speedware (a company now called Fresche Legacy) has much of what was hosted on Jazz. Those Jazz links at Speedware (now Fresche Legacy, and deeply absorbed with IBM iSeries work) are tucked away under hpmigrations.com. Not exactly the place where you'd look for homesteading tools, but available anyway.
How can I supply to QUERY a variable from within a JCL job? The physical paperwork for a file on the 3000 is being copied to digital format. We mark the files as deleted, (logically, not physically). Tracking this destroyed paperwork is done manually (a tedious and error prone process). How can I write something on the 3000 to create a comma delimited file of files shredded the day before?
John Long replies
This may help:
:SETVAR PREVDATE, !HPYYYYMMDD - 1
PREVDATE = 20170607
I'm not sure how (or even if) query reads variables. (Nothing in the manual about it). Which is why you might have to 'build' your jobstream daily and replace the date in the 'USE file.'
!setvar qdate1 "20170606"
!setvar qdate2 "20090710"
!echo find date=![qdate1] > q1
!echo find date=![qdate2] > q2
Then the spoolfile
Priority = DS; Inpri = 8; Time = UNLIMITED seconds.
Job number = #j25.
WED, JUN 7, 2017, 2:38 PM.
HP3000 Release: C.60.00 User Version: C.60.02
MPE/iX HP31900 C.16.01 Copyright Hewlett-Packard 1987.
All rights reserved.
STREAMED BY KEV,MGR.KEVENM (#S118) ON LDEV# 9
STREAM DATE: WED, JUN 7, 2017, 2:38 PM
:setvar qdate1 "20170606"
:setvar qdate2 "20090710"
:echo find date=![qdate1] > q1
:echo find date=![qdate2] > q2
HP32216D.03.20 QUERY/NM WED, JUN 7, 2017, 2:38 PM
COPYRIGHT HEWLETT-PACKARD CO. 1976
0 ENTRIES QUALIFIED
END OF XEQ FILE