ASMB,R,Q
      HED G0QIP 
*     NAME:   G0QIP 
*     SOURCE: 92067-18430 
*     RELOC:  92067-16425 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM G0QIP,8 92067-16425 REV.1903 781215 
      ENT G0PCA,G0NJB,G0NLO,G0SZF,G0NSP 
      ENT G0KIL,G0END,G0MXP,G0SLU,G0INT 
* 
      SUP 
G0PCA DEC -49 
      ASC 25,CAPABILITY LEVEL FOR PRIVILEDGED GASP COMMANDS? _ GUARD
G0NJB DEC -35 
      ASC 18,MAX NUMBER OF JOBS,JOB FILE DISC? _ GUARD
G0NLO DEC -33 
      ASC 17,NUMBER,LOCATION OF SPOOL FILES? _  GUARD 
G0MXP DEC -48 
      ASC 20,MAXIMUM NUMBER ACTIVE AND PENDING SPOOL
      ASC 4,FILES? _  GUARD 
G0NSP DEC -34 
      ASC 17,NUMBER OF SPOOL FILES (5 TO 80)? _ GUARD 
G0SZF DEC -34 
      ASC 17,SIZE OF SPOOL FILES (IN BLOCKS)? _GUARD
G0SLU DEC -31 
      ASC 16,ENTER OUTSPOOL DESTINATION LU _  GUARD 
G0END DEC 4 
      ASC 4,END GASP
G0KIL DEC -47 
      ASC 24,MAY ABORT PROGRAM OR JOB,  OK TO KILL       ? _  GUARD 
G0INT DEC -40 
      ASC 20,/GASP:  IRRECOVERABLE INITIALIZE ERROR ! 
* 
      END 
                                                                                            