LISTSERV - HP3000-L Archives

HP3000-L Archives

June 2017, Week 2

HP3000-L@RAVEN.UTC.EDU

	LISTSERV Archives
	HP3000-L Home
	HP3000-L June 2017, Week 2

	Log In
	Register

	Subscribe or Unsubscribe

	Search Archives
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 >>]
Subject:	Re: Need a down and dirty QUERY
From:	Michael Anderson <[log in to unmask]>
Reply To:	Michael Anderson <[log in to unmask]>
Date:	Mon, 12 Jun 2017 12:20:15 -0500
Content-Type:	text/plain
Parts/Attachments:	text/plain (300 lines)
Speaking "Quick and Dirty"...
You might want to try to use the CI scripting language to build (ECHO)
the QUERY commands to a named file, 
with the embedded CI variable values in the QUERY commands.
Then run QUERY;STDIN={The named file}

--
Michael.

On Thu, 2017-06-08 at 12:44 +0000, Long, John wrote:
> Ray,
> 
> Keven's answer is probably closest to what you're looking for.
> 
> This may also 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) (unless you know SPL).
> Which is why you might have to do as he suggested and 'build' your jobstream daily and replace the date in the 'USE file'
> 
> I guessing you also don't have Suprtool which does allow reading, setting and using of variables 
> 
> Last option - use your favorite language to write a quick (ha!) program to do it.
> 
> John
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Keven Miller(3k)
> Sent: Wednesday, June 07, 2017 5:50 PM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] Need a down and dirty QUERY
> 
> My solution is to create a QUERY XEQ file.
> 
> Here is a sample JCL 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
> 
> r
> RECORD HAS NOT YET BEEN FOUND
> d1,user-id,10
> INVALID COMMAND
> d1,date,20
> INVALID COMMAND
> d1,time,30
> INVALID COMMAND
> end
> INVALID COMMAND
> 
> xeq q2
> 
> find date=20090710
> 21  ENTRIES QUALIFIED
> END OF XEQ FILE
> 
> r
> d1,user-id,10
> d1,date,20
> d1,time,30
> end
> 
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
>   MICHAELW  20090710  11503700
> 
> exit
> 
> :
> :EOJ
> CPU sec. = 2.  elapsed min. = 1.  WED, JUN  7, 2017,  2:38 PM.
> 
> 
> Keven Miller
> 
> 
> 
> ----- Original Message -----
> From: "Ray Shahan" <[log in to unmask]>
> To: <[log in to unmask]>
> Sent: Wed 07 Jun 2017 03:29 PM
> Subject: Re: [HP3000-L] Need a down and dirty QUERY
> 
> 
> > Hi folks, sorry for the vague question…I was in a hurry (lol, still am). 
> > A better description of what I’m needing is how to supply QUERY a variable 
> > from within the JCL.  That variable would simple be the value of today – 1 
> > (yesterday).  Here’s a description:
> >
> > As physical paperwork for a file on the hp are copied to digital format, 
> > those files are marked as deleted on the hp (logically, not physically).
> >
> > At present, the tracking of the destroyed paperwork is done manually (a 
> > tedious and error prone process), but we have hired summer help to 
> > increase the number of files we shred paperwork on, and thus, that manual 
> > tracking process has become a problem.
> >
> > I was asked if I could write something on the hp to create a comma 
> > delimited file of the files shredded the day before.  While it’s been 
> > years since I’ve done anything on the hp, I can do the JCL and the QUERY, 
> > I just can’t see where in the QUERY manual that I can use a variable 
> > supplied via the JCL?
> >
> > example:
> >
> > !Somejob.sys
> >
> > set DateToReport = Current_date - 1
> >
> > b=mybase
> > s=myset
> > m=5
> > find destroy_date = !DateToReport
> > r all
> > exit
> > !EOJ
> >
> >
> >
> >
> > [http://hosting.republictitle.com/signature/25thannivlogo.png]  Ray Shahan 
> > | Programmer
> > Republic Title of Texas, Inc. | Corporate
> > 2701 W. Plano Parkway, Suite 100 | Plano, Texas 75075
> > Tel: 972-578-8611 | Direct: 214-556-0202
> > [log in to unmask]<mailto:[log in to unmask]> | 
> > www.republictitle.com
> > Proud to be ALTA Best Practices Certified
> >
> >
> >
> >
> >
> > WIRE FRAUD ALERT: Effective immediately, Republic Title must send Wire 
> > Instructions via secured email. If you receive any communication that 
> > appears to be from our office containing revised wire instructions, 
> > consider it suspect and call your closing team immediately.  If you want 
> > us to wire funds to you, please bring your wiring instructions to closing.
> >
> > 　
> > From: Ray Shahan
> > Sent: Wednesday, June 07, 2017 3:40 PM
> > To: [log in to unmask]
> > Subject: Need a down and dirty QUERY
> >
> > Hi all, it’s been years since I’ve done QUERY, so could use some help?
> >
> > I need a query that runs in a JCL to pull some archived data off the hp 
> > each day (as files are marked as removed).
> >
> > No frills, runs every day, and just reports the files that were marked as 
> > removed the day before.
> >
> >
> > Thanks for any help you can provide!
> >
> >
> >
> >
> >
> >
> > [http://hosting.republictitle.com/signature/25thannivlogo.png]
> >
> > Ray Shahan | Programmer
> > Republic Title of Texas, Inc. | Corporate
> > 2701 W. Plano Parkway, Suite 100 | Plano, Texas 75075
> > Tel: 972-578-8611 | Direct: 214-556-0202
> > [log in to unmask]<mailto:[log in to unmask]> | 
> > www.republictitle.com
> > Proud to be ALTA Best Practices Certified
> >
> >
> >
> >
> >
> >
> > WIRE FRAUD ALERT: Effective immediately, Republic Title must send Wire 
> > Instructions via secured email. If you receive any communication that 
> > appears to be from our office containing revised wire instructions, 
> > consider it suspect and call your closing team immediately.  If you want 
> > us to wire funds to you, please bring your wiring instructions to closing.
> >
> > 　
> >
> > CONFIDENTIALITY NOTICE:  This email transmission (including attachments) 
> > is covered by the Electronic Communications Privacy Act, 18 U.S.C. 2510 et 
> > seq., and any information contained in this message is legally privileged, 
> > confidential and intended only for the individual or entity named herein. 
> > If the reader of this message is not the intended recipient, you are 
> > hereby notified that any dissemination, distribution or copy of this 
> > message is strictly prohibited. If you have received this message in 
> > error, please immediately notify us by telephone and purge all copies of 
> > this message from your system. Thank you. This communication does not 
> > constitute an intention by the sender to conduct a transaction or make any 
> > agreement or contract by electronic means.
> >
> >
> >
> > Although this e-mail and all attachments are believed to be free of any 
> > virus or other defect that might affect any computer system into which it 
> > is received and opened, it is the responsibility of the recipient to 
> > ensure that it is virus-free and Republic Title of Texas, Inc. bears no 
> > responsibility for any loss or damage arising in any way from its use.
> >
> > * 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 *
> 
> * 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 *
ATOM RSS1 RSS2
RAVEN.UTC.EDU