JCW Variable Value Definitions

[Schleicher, Randy (Windsor HQ)]

If your system does not have a batch job monitor such as JobRescue or
Maestro which can flag these type of warnings, you'll have to add some
in-house logic in order to flag QUIZ report limit exceptions.  The job below
demonstrates this.  You simply put a SIZE limit on a subfile that is 1 less
than the report limit of the pass.  This will cause QUIZ to abort because
the subfile will be filled before the report limit is hit.  The fact that
QUIZ aborts will set the QUIZ JCW, so then use MPE commands to act
accordingly.  You can easily incorporate this into QUIZ report passes by
simply adding the subfile statement (as a temporary file) with a SIZE that
is 1 less than the REPORT LIMIT for the pass.  Hope this helps.

!JOB TEST,MGR.ACCOUNT
!PURGE SUBFILE
!SETJCW QUIZ 0
!QUIZ
ACC INPUT   
REP SUM ALL
SET SUB NAME SUBFILE SIZ 99
SET REP LIM 100
GO
EXIT
!SHOWJCW QUIZ
!ECHO EOF   = ![FINFO("SUBFILE","EOF")]
!ECHO LIMIT = ![FINFO("SUBFILE","LIMIT")]
!IF QUIZ <> 0 AND FINFO("SUBFILE","EOF") = FINFO("SUBFILE","LIMIT")
!   BOGUS COMMAND TO FLUSH JOB
!ENDIF
!EOJ

Here are the results from an input greater than 100.

 JOB TEST,MGR.ACCT,DATA.
 Priority = DS; Inpri = 8; Time = UNLIMITED seconds.
 Job number = #j4603.
 THU, OCT 14, 1999,  1:11 PM.
 HP3000  Release: C.55.00   User Version: C.55.00
 MPE/iX  HP31900 C.05.08  Copyright Hewlett-Packard 1987.
 All rights reserved.
 STREAMED BY USER.ACCT (#S4981) ON LDEV# 1382
    STREAM DATE:   THU, OCT 14, 1999,  1:11 PM

 Welcome!  You are now signed on.

 END OF PROGRAM
 :PURGE SUBFILE
 :SETJCW QUIZ 0
 :QUIZ




 Q U I Z   (7.29.C8)      Level 999
 Copyright 1997 COGNOS INCORPORATED

 > ACC ORDHEAD
 > REP SUM ALL
 > SET SUB NAME SUBFILE KEEP SIZ 99
 > SET REP LIM 100
 > GO
 *E* This file is full. (SUBFILE)

 *W* The maximum number of records has been selected.

 Records selected:  100
 Records reported:  99
 Records written:   99

 > EXIT




 END OF PROGRAM
 :SHOWJCW QUIZ
 QUIZ = 1019
 :ECHO EOF   = ![FINFO("SUBFILE","EOF")]
 EOF   = 99
 :ECHO LIMIT = ![FINFO("SUBFILE","LIMIT")]
 LIMIT = 99
 :IF QUIZ <> 0 AND FINFO("SUBFILE","EOF") = FINFO("SUBFILE","LIMIT")
 *** EXPRESSION TRUE
 :   BOGUS COMMAND TO FLUSH JOB
 Unknown command name. (CIERR 975)
 REMAINDER OF JOB FLUSHED.
 CPU sec. = 2.  elapsed min. = 1.  THU, OCT 14, 1999,  1:11 PM.



> At 11:30 AM -0400 10/14/1999, Deskin, Bob wrote:
> 
> >In QTP, if you set a PROCESS LIMIT and it's exceeded, I believe that it's
> an
> >exception error. Exceeding a QUIZ REPORT LIMIT is not an error condition
> >since the report itself continues, so I don't think there's an easy way
> in
> >QUIZ. 
> >
> >-----Original Message-----
> >From: Oran Shapitka [mailto:oran@intertechsystems.com]
> >Sent: Thursday, October 14, 1999 10:19 AM
> >To: Deskin, Bob; powerh-l@sphere.swau.edu
> >Subject: RE: JCW Variable Value Definitions
> >
> >
> >Any idea how to test whether quiz or qtp hit the maximum number of
> records
> >after the program has run?  Remember MPE\ix does not have SET REPORT
> >NOLIMIT.
> >
> IIRC we ended up redirecting the STDLIST for QUIZ and then
> programmatically examined that output for the exceeding message.
> =======================================================================
> Bruce Hobbs, CCP, CDP   856 N Monterey St         Phone: (626) 570-8028
> Partner                 Alhambra, CA 91801-1574   FAX:   (626) 570-9850
> Engineered Software     E-mail: brucehobbs@engineeredsw.com
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> This list is closed, thus to post to the list, you must be a subscriber.
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.