Wayback Wed: HP makes 3000 fiber-fast
Heritage HP Jazz notes, preserved for all

Fine-Tune Friday: Jazz refuge, Query-JCL tip

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
:SHOWVAR PREVDATE
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.'

Keven Miller shares this QUERY XEQ file

!JOB JCLQRY,MGR.KEVENM,DB
!
!setvar qdate1 "20170606"
!setvar qdate2 "20090710"
!
!echo find date=![qdate1] > q1
!echo find date=![qdate2] > q2
!
!query
b=stdb
;
5
s=upsell
xeq q1
r
d1,user-id,10
d1,date,20
d1,time,30
end

xeq q2
r
d1,user-id,10
d1,date,20
d1,time,30
end

exit
!
!EOJ


Then the spoolfile


:JOB JCLQRY,MGR.KEVENM,DB.
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
:
:query

HP32216D.03.20 QUERY/NM WED, JUN 7, 2017, 2:38 PM
COPYRIGHT HEWLETT-PACKARD CO. 1976

b=stdb
PASSWORD =
MODE =5
s=upsell
xeq q1

find date=20170606
0 ENTRIES QUALIFIED
END OF XEQ FILE

Comments