From: LAURI@DCD00.FNAL.GOV (Laurelin of Middle Earth, x2214)
Newsgroups: comp.os.vms
Subject: SETPQL  9/9
Date: 13 Nov 92 17:16:15 GMT
Distribution: world
Organization: The Internet

-+-+-+-+-+-+-+-+ START OF PART 9 -+-+-+-+-+-+-+-+
X NOTE on reduction of process quota limits:  when the value of 0 is
X specified for certain process quota limits, it implies an infinite
X value.  In these cases, and ONLY in these cases, the account quotas may
X be `60`60reduced'' in absolute value (e.g., 0 is less than 6), but the
X effect is to *increase* the user's capability.  The PQLs for which`20
X this is true are: CPUTIME, MAXACCTJOBS, MAXDETACH, MAXJOBS, PBYTLM, and
X SHRFILLM.
X
$ CALL UNPACK [.SETPQL_V2_0]SETPQL.HLP;1 1784470307
$ create 'f'
X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
V!!!!
X!
X! SETPQL_CLD.CLD:
X!
X! Defines the legal syntax of the SETPQL command.
X!
X! This module should be LINKed with the SETPQL source code.
X!
X! Author: L. Loebel, RD/Computing, Fermilab  (FNAL::LOEBEL)
X!
X!
X!****************************Copyright Notice*******************************
V****
X!*             Copyright `A91991 Universities Research Association, Inc.
V         *
X!*                         All Rights Reserved
V                                 *
X!***************************************************************************
V****
X!***********************Government Sponsorship Notice***********************
V****
X!* This material resulted from work developed under a Government Contract an
Vd  *
X!* is subject to the following license:  The Government retains a paid-up,
V     *
X!* nonexclusive, irrevocable worldwide license to reproduce, prepare derivat
Vive*
X!* works, perform publicly and display publicly by or for the Government,
V      *
X!* including the right to distribute to other Government contractors.  Neith
Ver *
X!* the United States nor the United States Department of Energy, nor any of
V    *
X!* their employees, makes any warrenty, express or implied, or assumes any
V     *
X!* legal liability or responsibility for the accuracy, completeness, or
V        *
X!* usefulness of any information, apparatus, product, or process disclosed,
V or *
X!* represents that its use would not infringe privately owned rights.
V          *
X!***************************************************************************
V****
X!
X! History:
X! 18-oct-1991`09l.loebel`09Initial.
X! 09-dec-1991`09l.loebel`09Add EXCLUDE_TYPES for excluding usernames from
X!`09`09`09`09the scan.  Rely upon undocumented type $UIC
X!`09`09`09`09for username specifications!
X!
X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
V!!!!
X
XModule SETPQL_CLD
X
Xdefine type EXCLUDE_TYPES
X`09keyword FILE
X`09   default
X`09   label=EXCLUDE_FILE
X`09   value(type=$file,default="SETPQL_EXCLUDE")
X
X`09keyword USER
X`09   label=EXCLUDE_USER
X`09   value(list,required,type=$uic)
X
X
Xdefine verb`09SETPQL
X
X`09parameter p1
X`09   label=INCLUDE_USER
X`09   value(list,default="*",type=$uic)
X
X`09qualifier EXCLUDE
X`09   default
X`09   value(list,type=EXCLUDE_TYPES,default=FILE)
X
X`09qualifier ALL
X`09   negatable
X
X`09qualifier MODIFY`09`09
X`09   default
X`09   negatable
X
X`09qualifier LOG`09`09
X`09   default
X`09   negatable
X
X`09qualifier ASTLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier BIOLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier BYTLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier CPUTIME`09`09
X`09   negatable
X`09   value(type=$deltatime)
X`09   label=cputim
X
X`09qualifier WSDEFAULT`09
X`09   negatable
X`09   value(type=$number)
X`09   label=dfwscnt
X
X`09qualifier DIOLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier ENQLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier FILLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier JTQUOTA`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier MAXACCTJOBS`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier MAXDETACH`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier MAXJOBS`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier PBYTLM`09`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier PGFLQUOTA`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier PRCLM`09`09
X`09   negatable
X`09   value(type=$number)
X`09   label=prccnt
X
X`09qualifier PRIORITY`09
X`09   negatable
X`09   value(type=$number)
X`09   label=pri
X
X`09qualifier QUEPRIORITY`09
X`09   negatable
X`09   value(type=$number)
X`09   label=quepri
X
X`09qualifier SHRFILLM`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier TQELM`09`09
X`09   negatable
X`09   value(type=$number)
X`09   label=tqcnt
X
X`09qualifier WSEXTENT`09
X`09   negatable
X`09   value(type=$number)
X
X`09qualifier WSQUOTA`09`09
X`09   negatable
X`09   value(type=$number)
X
$ CALL UNPACK [.SETPQL_V2_0]SETPQL_CLD.CLD;1 1798237508
$ create 'f'
X!
X! SETPQL_MSG.MSG
X!    Defines error messages and status values for SETPQL command
X!    This module should be LINKed/NOTRACE with the main SETPQL module.
X!
X! Author:
X!    L. Loebel, RD/Computing, Fermilab
X!
X!
X!****************************Copyright Notice*******************************
V****
X!*             Copyright `A91990 Universities Research Association, Inc.
V         *
X!*                         All Rights Reserved
V                                 *
X!***************************************************************************
V****
X!***********************Government Sponsorship Notice***********************
V****
X!* This material resulted from work developed under a Government Contract an
Vd  *
X!* is subject to the following license:  The Government retains a paid-up,
V     *
X!* nonexclusive, irrevocable worldwide license to reproduce, prepare derivat
Vive*
X!* works, perform publicly and display publicly by or for the Government,
V      *
X!* including the right to distribute to other Government contractors.  Neith
Ver *
X!* the United States nor the United States Department of Energy, nor any of
V    *
X!* their employees, makes any warrenty, express or implied, or assumes any
V     *
X!* legal liability or responsibility for the accuracy, completeness, or
V        *
X!* usefulness of any information, apparatus, product, or process disclosed,
V or *
X!* represents that its use would not infringe privately owned rights.
V          *
X!***************************************************************************
V****
X!
X! Facility Code:  100
X! Facility Description:  SETPQL FACILITY
X! Facility: SETPQL
X! Symbol Prefix: PQL_
X!
X
X.facility`09PQL,100 /prefix=PQL_
X
X.severity`09success
X
X.severity`09informational
Xexcfnf`09`09<exclude file !AS not found, program continuing.>/FAO=1
Xraise`09`09<user !AS's !AS !AS raised from !AS to !AS>/FAO=5
Xnochanges`09<no modifications made to system authorization file.>/FAO=0
Xuafchanged`09<system authorization file modified.>/FAO=0
Xnop`09`09<no UAF parameters were examined.>/FAO=0
X
X
X.severity`09warning
Xlowval`09`09<!AS value of !AS is lower than DEFAULT value (!AS)>/FAO=3
Xnodfltacct`09<no DEFAULT account is present on this system.>/FAO=0
X
X.severity`09error
X
X.severity`09severe
Xinvuafstr`09<invalid internal data structure; SYSUAF format has been modifie
Vd.>/FAO=0
Xinsdynmem`09<insufficient dynamic memory.>/FAO=0
X`20
X.end
$ CALL UNPACK [.SETPQL_V2_0]SETPQL_MSG.MSG;1 236906619
$ v=f$verify(v)
$ EXIT

Newsgroups: comp.os.vms,vmsnet.sysmgt