COMMENT *************************************************************
COMMENT COMMAND FILE: AQ.XEQ.SYS
COMMENT DESCRIPTION: This file should be executed after QUIZ. This
COMMENT              file is used in conjunction with BQ.XEQ.SYS
COMMENT USAGE:  ASSUMES THE EXISTENCE OF A GROUP QZZ
COMMENT         SETVAR ERRORPROC to the desired level
COMMENT         SETVAR QNAME "quizjobname"
COMMENT         AQ.XEQ.SYS
COMMENT         
COMMENT         SETVAR ERRORPROC 0 detect and report only
COMMENT         SETVAR ERRORPROC 1 detect, report abort for errors only
COMMENT         SETVAR ERRORPROC 2 detect, report and abort for errors 
COMMENT                            or max records.
COMMENT *************************************************************
ECHO CHECKING !QNAME WITH ERROR PROCESSING LEVEL !ERRORPROC
SAVE STDERROR
IF FINFO("STDERROR","EXISTS") THEN
  SCANFILE.XEQ.SYS STDERROR,"The maximum number of records"
  IF FOUND
     ECHO Found Max records
     PRINT STDERROR
     SHOWVAR @
     SJ
     LISTFTEMP @,2
     LISTEQ
     TELLOP WE HIT MAX RECORDS. Please note in Turnover log
     SETVAR VV FINFO('ABEND.QZZ',0)
     IF !VV = FALSE
        BUILD ABEND.QZZ;REC=-80,,F,ASCII;DISC=10000
     ENDIF
     FILE ABEND.QZZ=ABEND.QZZ,OLD
     ECHO !QNAME~!HPUSER~!HPGROUP~!HPDATEF~!HPTIMEF >> *ABEND.QZZ
     ECHO !HPSTDIN_NETWORK_ADDR
     PRINT STDERROR >> *ABEND.QZZ
     ECHO ERRORPROC = !ERRORPROC
     ECHO "   " >>*ABEND.QZZ
     IF !ERRORPROC = 2
       TELLOP FATAL ERROR. PROCESSING TERMINATED.
       ABORT - THIS LINE WILL CAUSE AN INTENTIONAL ABORT.
     ENDIF
     RESET ABEND.QZZ
   ENDIF
   SCANFILE.XEQ.SYS STDERROR,"*E*"
   IF FOUND
     ECHO FOUND A QUIZ ERROR
     PRINT STDERROR
     SHOWVAR @
     SJ
     LISTFTEMP @,2
     LISTEQ
     TELLOP QUIZ ERROR. Please note in Turnover log.
     SETVAR VV FINFO('ABEND.QZZ',0)
     IF !VV = FALSE
        BUILD ABEND.QZZ;REC=-80,,F,ASCII;DISC=10000
     ENDIF
     FILE ABEND.QZZ=ABEND.QZZ,OLD
     ECHO !QNAME~!HPUSER~!HPGROUP~!HPDATEF~!HPTIMEF >>*ABEND.QZZ
     ECHO !HPSTDIN_NETWORK_ADDR
     PRINT STDERROR>>*ABEND.QZZ
     ECHO ERRORPROC = !ERRORPROC
     ECHO "  " >>*ABEND.QZZ
     IF !ERRORPROC > 0
       TELLOP FATAL ERROR. PROCESSING TERMINATED.
       ABORT - THIS LINE WILL CAUSE AN INTENTIONAL ABORT
     ENDIF
     RESET ABEND.QZZ
   ENDIF
   PURGE STDERROR
ENDIF
RESET STDERROR