notes taken while QSECOFR on a network of 3 AS/400's on subjects including object authority, job logs, WRKSYSVAL, terminals, inactivity, outq's & printers, profiles, routing tables, etc.
keyword topic (in this file)
------- --------------------------------------------------------------
objtype list of all official "type"s of objects
joblog job log listings & queues
sysval list of sys.values (as of v2r1)
terminal how to set/reset a terminal (address 0-6)
qsectrm To enable qsecofr to sign on to a given terminal
inactv TO FORCE AN UNATTENDED TERMINAL TO BE LOGGED OFF
LMTcpb LIMIT - ENABLE COMMANDS not often worth the hassel
syscmds to replace OS/400 commands with our own, (diff. defaults etc.)
comprint compiler printouts; but to enable all others to print out
QbatchSBS To enable more than 1 batch job to run at one time
signon our own signon display file-screen
rpyLE to default common, annoying, messages (like "go" to a printer)
go rje RJE info
cfgDSTsrv activating a network of as/400's - the dist.serv. queues
usrtool installing the qusertool programs
ecsmod silencing the ecsmodem
=====================================================
examples of grant and revoke object authority:
===> GRTOBJAUT OBJ(DATSTLIB/SRC*) OBJTYPE(*FILE) USER(SPPGMR) AUT(*ALL)
===> RVKOBJAUT OBJ(DATENTRY/SRC*) OBJTYPE(*FILE) USER(*PUBLIC) AUT(*ALL)
=====================================================
Display Program References:
====> DSPPGMREF mainpgm *print
=====================================================
Specify Value for Parameter OBJTYPE
-----------------------------------
*ALL
----------------
Other Values
----------------
( *ALL ) *CSPTBL *FILE *LIND *PRDDFN
*ALRTBL *CTLD *FLR *MENU *QRYDFN
*AUTL *DEVD *FNTRSC *MODD *RCT
*CFGL *DOC *FORMDF *MSGF *SBSD
*CHTFMT *DOCL *GSS *MSGQ *SCHIDX
*CLD *DTAARA *JOBD *OUTQ *SPADCT
*CLS *DTADCT *JOBQ *OVL *SSND
*CMD *DTAQ *JRN *PAGSEG *S36
*COSD *EDTD *JRNRCV *PGM *TBL
*CSPMAP *FCT *LIB *PNLGRP *USRPRF
==================================================
joblogs:
to log CL statements:
CHGJOBD and set paramater LOGCLPGM(*yes).
then use F10 in the DSPJOBLOG display to view the CL cmd detail
until signed off. To save it beyond signoff, use signoff *list
and ...
only the library QSYS38 is needed to continue running '38 mode
programs. the rest can be deleted ... and loose the old sys'38
interactive screens.
======================================================
IBM provides an QJOBLOG outq for job logs and a QPjobLOG print-file
but then does not use it.
To direct job logs to QjobLog use the command
CHGPRTF QPJOBLOG OUTQ(QJOBLOG) or prompt it (F4) and (F10)
and page down to the "outq" parameter and change it to qjoblog.
===> CHGPRTF FILE(QSYS/QPJOBLOG) OUTQ(Qgpl/QJOBLOG)
=======================================================
a batch job delayed ( DLYJOB ) to a given time puts ALL batch jobs on
hold if only one can run at a time.
=======================================================
===> wrksysval OS/400 Ver.2 Rel.1 ( V2R1 )
~~~~~~~~~~~~~~~ -----------------------
======================================================
Work with System Values
System: FORBES1
Position to . . . . . . __________ Starting characters of system value
Subset by Type . . . . . *ALL___ F4 for list
Type options, press Enter.
2=Change 5=Display
System
Value Type Description
QABNORMSW *SYSCTL Previous end of system indicator
QACGLVL *MSG Accounting level
QACTJOB *ALC Initial number of active jobs
QADLACTJ *ALC Additional number of active jobs
QADLSPLA *ALC Spooling control block additional storage
QADLTOTJ *ALC Additional number of total jobs
QASTLVL *SYSCTL User assistance level
QATNPGM *SYSCTL Attention program
QAUDLVL *SEC Security auditing level
QAUTOCFG *SYSCTL Autoconfigure devices
QAUTOVRT *SYSCTL Autoconfigure virtual devices
QBASACTLVL *STG Base storage pool activity level
QBASPOOL *STG Base storage pool minimum size
QCHRID *SYSCTL Graphic character set and code page
QCMNRCYLMT *SYSCTL Communications recovery limits
QCONSOLE *SYSCTL Console name
QCRTAUT *SEC Create default public authority
QCTLSBSD *SYSCTL Controlling subsystem
QCURSYM *EDT Currency symbol
QDATE *DATTIM System date
QDATFMT *EDT Date format
QDATSEP *EDT Date separator
QDAY *DATTIM Day
QDBRCVYWT *SYSCTL Database recovery wait indicator
QDECFMT *EDT Decimal format
QDEVNAMING *SYSCTL Device naming conventions
QDEVRCYACN *SYSCTL Device I/O error action
QDSCJOBITV *SYSCTL Time interval before disconnected jobs end
QDSPSGNINF *SEC Sign-on display information control
QHOUR *DATTIM Hour of the day
QHSTLOGSIZ *MSG Maximum history log records
QIGC *SYSCTL DBCS version installed indicator
QINACTITV *SEC Inactive job time-out
QINACTMSGQ *SEC Inactive job message queue
QIPLDATTIM *SYSCTL Date and time to automatically IPL
QIPLSTS *SYSCTL IPL status indicator
QIPLTYPE *SYSCTL Type of IPL to perform
QJOBMSGQSZ *ALC Job message queue initial size
QJOBMSGQTL *ALC Job message queue maximum initial size
QJOBSPLA *ALC Spooling control block initial size
QKBDBUF *SYSCTL Type ahead and/or attention key option
QKBDTYPE *SYSCTL Keyboard language character set
QLEAPADJ *DATTIM Leap year adjustment
QLMTDEVSSN *SEC Limit device sessions
QLMTSECOFR *SEC Limit security officer device access
QMAXACTLVL *STG Maximum activity level of system
QMAXSGNACN *SEC Action to take for failed signon attempts
QMAXSIGN *SEC Maximum sign-on attempts allowed
QMCHPOOL *STG Machine storage pool size
QMINUTE *DATTIM Minute of the hour
QMODEL *SYSCTL System model number
QMONTH *DATTIM Month of the year
QPFRADJ *SYSCTL Performance adjustment
QPRBHLDITV *MSG Problem log hold interval
QPRTDEV *SYSCTL Printer device description
QPRTKEYFMT *SYSCTL Print header and/or border information
QPRTTXT *MSG Print text
QPWDEXPITV *SEC Password expiration interval
QPWDLMTAJC *SEC Limit adjacent digits in password
QPWDLMTCHR *SEC Limit characters in password
QPWDLMTREP *SEC Limit repeating characters in password
QPWDMAXLEN *SEC Maximum password length
QPWDMINLEN *SEC Minimum password length
QPWDPOSDIF *SEC Limit password character positions
QPWDRQDDGT *SEC Require digit in password
QPWDRQDDIF *SEC Duplicate password control
QPWDVLDPGM *SEC Password validation program
QPWRDWNLMT *SYSCTL Maximum time for PWRDWNSYS *IMMED
QPWRRSTIPL *SYSCTL Automatic IPL after power restored
QRCLSPLSTG *ALC Reclaim spool storage
QRMTIPL *SYSCTL Remote power on and IPL
QRMTSIGN *SEC Remote sign-on control
QSCPFCONS *SYSCTL IPL action with console problem
QSECOND *DATTIM Second of the minute
QSECURITY *SEC System security level
QSPCENV *SYSCTL Special environment
QSRLNBR *SYSCTL System serial number
QSRVDMP *MSG Service dump control
QSTRPRTWTR *SYSCTL Start print writers at IPL
QSTRUPPGM *SYSCTL Startup program
QSTSMSG *MSG Display status messages
QSYSLIBL *LIBL System part of the library list
QTIME *DATTIM Time of day
QTOTJOB *ALC Initial total number of jobs
QTSEPOOL *STG Time slice end pool
QUPSDLYTIM *SYSCTL Uninterruptible power supply delay time
QUPSMSGQ *SYSCTL Uninterruptible power supply message queue
QUSRLIBL *LIBL User part of the library list
QUTCOFFSET *DATTIM Coordinated universal time offset
QYEAR *DATTIM Year
..........................................................................
See the Work Management Guide for a complete description of system values.
=====================================================
To go to another menu, use the Go to menu (GO) command.
Type GO followed by the menu name.
If you do not know the entire menu name you can use a generic name:
'go us*' will show a list of all menus that start with US.
=====================================================
T O S E T A T E R M I N A L A D D R E S S
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Switch the terminal off.
Hold down the space-bar while switching the power back on.
Release the space-bar when a "clicking" sound begins.
Press the (shifted)Setup key.
Press F24 to toggle through switch-settings 0 to 6.
Press the (shifted)Setup key (toggle out of set-up mode).
Press the RESET key to return to normal operation mode.
==================================================
qsectrm
TO ENABLE QSECOFR TO SIGN ON TO A GIVEN TERMINAL:
-----------------------------------------------------
when security officer device access is limited
(to specified terminals/work-stations).
( see sysval QLMTSECOFR above )
====> edtobjaut dsp19 *devd
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
edtobjaut Edit Object Authority
Object . . . . . . . : DSP19 Object type . . . . : *DEVD
Library . . . . . : QSYS Owner . . . . . . . : QPGMR
Type changes to current authorities, press Enter.
Object secured by authorization list . . . . . . . . . . . . *NONE
Object
User Authority
QSYS *ALL F6 ( add new user )
*GROUP *ALL ( make QSECOFR *CHANGE )
*PUBLIC *CHANGE
F3=Exit F5=Refresh F6=Add new users F10=Grant with reference object
F11=Display detail ~~~~~~~~~~~~~~~~
=====================================================
=====================================================
inactv TO FORCE AN UNATTENDED TERMINAL TO BE LOGGED OFF:
set the qsysval qINactitv to the maximum number of minutes to be allowed
before being logged off.
set the qsysval qINACTmsgq to *endjob
qINactitv Indicates time out interval in minutes. When the time
interval is changed to a value other than *NONE, a new
inactivity interval is established and the determination
of job inactivity is restarted.
o '*NONE' means the system performs no checks.
o '5 - 300' indicates the inactivity interval in
minutes ranging from 5 through 300.
qINACTmsgq The qualified name of a message queue to which job
inactive messages will be sent if QINACTMSGQ is not
*NONE. The message queue must exist before the system
value can be changed to a message queue name. Both an
object name and library name may be specified.
o '*ENDJOB' means that inactive jobs will be ended.
This is the default value.
o 'Message queue name' means name of a message queue
to which the job inactive message will be sent.
===================================================
===================================================
LMTcpb LIMIT - ENABLE COMMANDS not often worth the hassel
since new releases of the
op.sys. reset the defaults.
in the user profile, one can be limited to only a few authorized
commands. ( LMTCPB *YES )
For specific additional commands you wish to allow, use the
CHGCMD (command) to specify ALWLMTUSR(*YES) to allow
limited users to execute it.
The default (for ALWLMTUSR), when creating new commands, is *NO.
*** it is assmued (by IBM) that users will be limited to menu options ***
-------------------------------------------------------------------------
===> CHGCMD ( F4 )
----------------------------------------------------------------------
example: to allow users to execute the RUNQRY command.
----------------------------------------------------------------------
Change Command (CHGCMD)
Type choices, press Enter.
Command . . . . . . . . . . . . > runqry____ Name
Library . . . . . . . . . . . *LIBL_____ Name, *LIBL, *CURLIB
< cr >
----------------------------------------------------------------------
Change Command (CHGCMD)
Type choices, press Enter.
Command . . . . . . . . . . . . > RUNQRY____ Name
Library . . . . . . . . . . . *LIBL_____ Name, *LIBL, *CURLIB
Program to process command . . . QQUDA_____ Name, *SAME, *REXX
Library . . . . . . . . . . . *LIBL_____ Name, *LIBL, *CURLIB
----------------------------------------------------------------------
Change Command (CHGCMD)
Type choices, press Enter.
Command . . . . . . . . . . . . > RUNQRY____ Name
Library . . . . . . . . . . . *LIBL_____ Name, *LIBL, *CURLIB
Program to process command . . . QQUDA_____ Name, *SAME, *REXX
Library . . . . . . . . . . . *LIBL_____ Name, *LIBL, *CURLIB
Validity checking program . . . *NONE_____ Name, *SAME, *NONE
Library . . . . . . . . . . . __________ Name, *LIBL, *CURLIB
Mode in which valid . . . . . . *PROD___ *SAME, *ALL, *PROD, *DEBUG...
*DEBUG__
*SERVICE
Where allowed to run . . . . . . *IREXX___ *SAME, *ALL, *BATCH...
*BREXX___
*BPGM____
*IPGM____
*EXEC____
*INTERACT
*BATCH___
More...
Allow limited users . . . . . . *NO__ <----- *YES
Current library . . . . . . . . *NOCHG____ Name, *SAME, *NOCHG, *CRTDFT
Product library . . . . . . . . *NOCHG____ Name, *SAME, *NOCHG, *NONE
Prompt override program . . . . *NONE_____ Name, *SAME, *NONE
Library . . . . . . . . . . . __________ Name, *LIBL, *CURLIB
Text 'description' . . . . . . . 'Run Query
'____________________________
< cr >
---------------------------------------------------------------------------
Command RUNQRY in library QSYS changed.
====================================================
syscmds to replace OS/400 commands with our own, (diff. defaults etc.)
Create our own system library (KDHESYS) and place it FIRST in the "system
library list". Then, create our own commands there rather than messing
with QSYS.
K D H E S Y S :
~~~~~~~~~~~~~~~~
Create Command (CRTCMD)
Command . . . . . . . . . . . . > OFF_______ Name
Library . . . . . . . . . . . > kdhesys___ Name, *CURLIB
Program to process command . . . > SIGNOFFcpp Name
Library . . . . . . . . . . . > kdhesys___ Name, *LIBL, *CURLIB
Source file . . . . . . . . . . > SRCCL Name
Library . . . . . . . . . . . > QGPL Name, *LIBL, *CURLIB
Source member . . . . . . . . . > SIGNOFF Name, *CMD
Text 'description' . . . . . . . *SRCMBRTXT______________________________
______
Bottom
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel
F13=How to use this display F24=More keys
=====================================================
2=Change 3=Copy 4=Delete 5=Display 6=Print 8=Work with status
9=Retrieve source <-------- = RTVCFGSRC (see below)
Opt Line Type Text
9 LIN1PCS *TDLC p.c.suppt. line to CTL01
9 MILLS1 *SDLC
PROMPT IT!:
< F4 > and specify a (destination) source code file.
( spell out QGPL )
=====================================================
comprint: FOR A PROGRAMMER'S DEPARTMENTAL PRINTER
=====================================================
8-16-90
the hasel of compiler printouts – the result of IBM’s making compiler output printouts and sending them straight to a printer, instead of letting the compiler output be in the simple form of a file! … suppose cut the compiler to printerfile (*prtf) connection, rerouting it into a file member(?).
cannot be overcome by using a separate job desc. in the PDM. most all parameters will be observed except the outq and printer parameters, they will still default to the user profile. NOTE; a system default must be changed to force the system to pay attention to the outq parameter:
chgCMDdft sbmjob ‘outq(*jobd)’ (instead of *current) so that in the p.d.m., compiles will have their printouts directed as the p.d.m. jobd says. (feb.’92: but that means an interactive (session change to a users’ outq job parameter will be ignored.)
Having changed the OutQ default, compiles can be routed separately. However, other, unpredictable, system generated printouts are still a problem and the 2 possible solutions are, either / or:
1. change the ‘hold’ parameter to *yes on all print files (PRTF’s: see below) which will affect everyone and every printout,
or
2. create a CLP to execute the command to put the next printout on hold, which should execute before each command processed by the user’s job description but by experience, ran only once per sign-on, at the time that the attention key was first pressed: (see immediately below).
3. have a program monitor an outque and immediately move prints to another queue on “hold”.
P.S. One cannot change the *list to *nolist and *source to *nosource defaults because thay are not defaulted. Anyway, a programmer wants to see them. We just do not want to print them.
1. create & compile the program (and command) HLDPRT (see below)
2. ADDRTGE SBSD(QBATCH) SEQNBR(100) CMPVAL('HLDPRT') PGM(HLDPRT)
or CHGRTGE SBSD(QBATCH) SEQNBR(100) CMPVAL('HLDPRT') PGM(HLDPRT)
however: "Command not valid when subsystem description active."
also, to see the routing entries before changeing one, use
DSPSBSD (QBatch) and take option 7 to see the rtg.e's.
3. create/use a jobd that is used only by the group to be affected:
set the parameter routing data to 'hldprt': RTGDTA('HLDPRT')
To see the routing entries before changing them,
see the wrksbs command below.
============================================================================
/* --------------------------------------------------------- */
/* QGPL / SRCCL ( HLDprt ) */
/* Instead of having to move a printout to the correct */
/* printer-writer (outq), you just release it or delete it. */
/* The override command is only good for the first print job */
/* that immediately follows. - BILL CAVALERY */
/* but, I never got it to work. -Greg */
/* --------------------------------------------------------- */
PGM
DCL &LEN *DEC LEN(15 5) VALUE(132)
DCL &COMMAND *CHAR LEN(132)
OVRPRTF FILE(*PRTF) HOLD(*YES)
RCVMSG PGMQ(*EXT) MSGQ(*PGMQ) RMV(*NO) MSG(&COMMAND)
CALL PGM(QCMDEXC) PARM(&COMMAND &LEN)
ENDPGM
============================================================================
to see what you are working with before you start:
============================================================================
===> wrksbs
Work with Subsystems
System: FORBES1
Type options, press Enter.
4=End subsystem 5=Display subsystem description
8=Work with subsystem jobs
Total -----------Subsystem Pools------------
Opt Subsystem Storage (K) 1 2 3 4 5 6 7 8 9 10
5 QBATCH 1000 2 6
_ QCMN 500 2 4
_ QCTL 0 2
_ QDSNX 0 2
_ QINTER 9000 2 3
_ QRJE 0 2
_ QRJEPA 0 2
_ QSNADS 0 2
_ QSPL 200 2 5
_ QXFPCS 0 2
Bottom
Parameters or command
===> ___________________________________________________________________
F3=Exit F5=Refresh F11=Display system data F12=Cancel
F14=Work with system status
10-03 SA MW KS IM II S2 FORBES1 KB
Display Subsystem Description
System: FORBES1
Subsystem description: QBATCH Library: QGPL
Status: ACTIVE
Select one of the following:
1. Operational attributes <----------
2. Pool definitions
3. Autostart job entries
4. Work station name entries
5. Work station type entries
6. Job queue entries
7. Routing entries <-----------
8. Communications entries
9. Remote location name entries
10. Prestart job entries
30. all the above
Selection or command
===> 7
21-08 SA MW KS IM II S2 FORBES1 KB
Display Routing Entries
System: FORBES1
Subsystem description: QBATCH Status: ACTIVE
Type options, press Enter.
5=Display details
Start
Opt Seq Nbr Program Library Compare Value Pos
_ 100 HLDPRT QGPL 'HLDPRT' 1
_ 300 QCMD QSYS 'QS36EVOKE' 1
_ 700 QCL QSYS 'QCMD38' 1
_ 9999 QCMD QSYS *ANY
Bottom
F3=Exit F9=Display all detailed descriptions F12=Cancel
10-03 SA MW KS IM II S2 FORBES1 KB
Change Routing Entry (CHGRTGE)
Type choices, press Enter.
Subsystem description . . . . . SBSD > QBATCH____
Library . . . . . . . . . . . *LIBL_____
Routing entry sequence number . SEQNBR > 100___
Comparison data: CMPVAL
Compare value . . . . . . . . > 'HLDPRT'_______________________
_________________________________________________
Starting position . . . . . . *SAME_
Program to call . . . . . . . . PGM > HLDPRT____
Library . . . . . . . . . . . *LIBL_____
Class . . . . . . . . . . . . . CLS *SAME_____
Library . . . . . . . . . . . __________
Maximum active routing steps . . MAXACT *SAME_
Storage pool identifier . . . . POOLID *SAME_
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
05-50 SA MW KS IM II S2 FORBES1 KB
===> CHGRTGE SBSD(QBATCH) SEQNBR(100) CMPVAL('HLDPRT') PGM(HLDPRT)____________
Command not valid when subsystem description active. +
23-07 SA MW KS IM II S2 FORBES1 KB
============================================================================
============================================================================
to make pgmrs work lower in priority than the "production" work of users:
Display Job Description
System: FORBES1
Job description: SPPGMR Library: QGPL
the only signif. parameters:
----------------------------
Job priority (on job queue) . . . . . . . . . . : 6 <--- 1 below (5)
production work
Job queue . . . . . . . . . . . . . . . . . . . : QBATCH
Library . . . . . . . . . . . . . . . . . . . : QGPL
Output priority (on output queue) . . . . . . . : 5 <--- same
Printer device . . . . . . . . . . . . . . . . . : *USRPRF
Output queue . . . . . . . . . . . . . . . . . . : _______ <--- a real prtr.
Library . . . . . . . . . . . . . . . . . . . : QGPL
Message logging:
Level . . . . . . . . . . . . . . . . . . . . : 4 <--- whatever.
Severity . . . . . . . . . . . . . . . . . . . : 30 <--- "
Text . . . . . . . . . . . . . . . . . . . . . : *NOLIST <--- "
Log CL program commands . . . . . . . . . . . . : *NO "
Bottom
============================================================================
to stop people from messing with a printout once it has started printing,
add a parameter(default) to the WRKsplF command:
WRKSPLF SELECT(*CURRENT *OUTQ)
============================================================================
Qhst note:
the history log is rather crude, even lacking a search function.
Another way to get into it:
===> WRKF FILE(QHST*)
=============================================================================
Work with Files ( History )
Type options, press Enter.
3=Copy 4=Delete 5=Display physical file member
8=Display file description 9=Save 10=Restore 13=Change description
Opt File Library Attribute Description
__ QHST90073A QSYS PF 09003131901080900314163044
__ QHST90073B QSYS PF 09003141630440900316072551
__ QHST90075A QSYS PF 09003160725510900319111827
__ QHST90078A QSYS PF 09003191118270900321114027
__ QHST90080A QSYS PF 09003211140270900323060515
---------------------------------------> yymmdd time yymmdd time <------
---------------------------------------> from to <------
More...
Parameters for options 3, 4, 5, 8, 9, 10, 13 or command
===> _________________________________________________________________________
F3=Exit F5=Refresh F6=Create F11=Display names only F12=Cancel
F24=More keys
=============================================================================
Work with Mode Descriptions
System: FORBES1
Position to . . . . . ________ Starting characters
Type options, press Enter.
2=Change 3=Copy 4=Delete 5=Display 6=Print 9=Retrieve source
Option Mode Text
_ #BATCH This Mode is IBM Supplied
_ #BATCHSC This Mode is IBM Supplied
_ #INTER This Mode is IBM Supplied
_ #INTERSC This Mode is IBM Supplied
_ BLANK This Mode is IBM Supplied
_ LU62
_ MT38LU2 # of sessions, etc....
_ QPCSUPP AS/400 PC Support mode entry
_ QSPWTR This mode is IBM supplied for APPC attach printers
Bottom
Parameters for options 2, 9 or command
===> _________________________________________________________________________
F3=Exit F4=Prompt F5=Refresh F6=Create F9=Retrieve F12=Cancel
(C) COPYRIGHT IBM CORP. 1980, 1989.
=============================================================================
============================================================================
QbatchSBS To enable more than 1 batch job to run at one time:
1st look: DSPsbsD Qbatch
1. operational attributes
max. jobs in subsystem . . . : *NOMAX
6. job queue entries
10...QBATCH...QGPL...X - - - - - where X = should be
more than 1
-----------------------------------------------------
Change Job Queue Entry (CHGJOBQE)
Type choices, press Enter.
Subsystem description . . . . . SBSD qbatch____
Library . . . . . . . . . . . *LIBL_____
Job queue . . . . . . . . . . . JOBQ qbatch____
Library . . . . . . . . . . . *LIBL_____
Maximum active jobs . . . . . . MAXACT 3_____ <---- 3 batch jobs
Sequence number . . . . . . . . SEQNBR *SAME_ at once
Max active priority 1 . . . . . MAXPTY1 *SAME_
...
=====================================================
============================================================================
SO THAT ONE GROUP/PERSON CANNOT MONOPOLIZE THE BATCH SUBSYSTEM:
(especially if 2+ users try to run batch updates on the same
file(s) and their jobs 'hit against' each other sending msgs.
to qsysopr - which probably will not be responded to)
give each group/person their own JOBQ and jobqE(ntry) and
jobD(escription):
CRTJOBQ group/qgpl big = 30 or more
1st look: DSPsbsD Qbatch (then take optn.6)
ADDJOBQE SBSD(QBATCH) JOBQ(group/qgpl) MAXACT(1) SEQNBR(big)
(crtjobd group)
CHGJOBD group JOBQ(group/qgpl)
(undo cmds: dltjobq rmvjobqe chgjobd)
============================================================================
===> CHGJOBD JOBD(Qbatch) LOG(4 10) log(4 10) was log(4 0)
===> CHGJOBD JOBD(QINTER) LOG(4 10) for both jobd's since installed.
recomendation was to raise
4 0 to 4 30 +/-
on qbatch, qinter, qdftjobd.
(and qs36mrt(we don't use)) once the system was familiar.
on 8-31-91 it is at 4 20
June wanted to see more so it
was reset to 0.
============================================================================
Job description: SYSOPR Library: QSYS
qsysopr's job desc. created: SYSOPR
for the higher (3) job priority.
Job priority (on JOBQ) . . . . . . . JOBPTY > 2
Message logging:
Level . . . . . . . . . . . . . . . . . . . . : 4
Severity . . . . . . . . . . . . . . . . . . . : 0 <--- could be 20-30
=============================================================================
=============================================================================
Work with Disk Status FORBES1
12/05/90 16:39:45
Elapsed time: 00:00:49
Size % I/O Request Read Write Read Write %
Unit Type (M) Used Rqs Size (K) Rqs Rqs (K) (K) Busy
1 9335 427 57.6 .0 .0 .0 .0 .0 .0 0
2 9335 427 57.5 .2 1.5 .0 .2 1.6 1.4 0
3 9335 427 57.5 .2 12.5 .0 .2 .0 12.5 0
4 9335 427 57.5 .7 2.4 .6 .1 .5 15.0 2
Bottom
Command
===> _________________________________________________________________________
F11=Display storage use F16=System status F24=More keys
22-07 SA MW KS DM IM II S2 FORBES1 KB
=============================================================================
Work with User Profiles
4=Delete
_ USGGC 1531 Greg G. Crawford
4 USGKS 5628 Greg K. Smith
_ USMDU 5643 Mitch D. Ummel, p.c. supp.
More...
if they own AS/400 objects: < F4 >
if they own p.c. documents: chgDLOown < F4 > and specify only
the old and new
owner-to-be.
-----------------------------------------------------------------------------
Delete User Profile (DLTUSRPRF)
User profile . . . . . . . . . . USRPRF > USGKS
Owned object option: OWNOBJOPT
Owned object value . . . . . . > *CHGOWN
User profile name if *CHGOWN > USERS_____ <--- or ...
kdhe = owner of p.c.documents
=============================================================================
=============================================================================
rpyLE to default common, annoying, messages (like "go" to a printer)
(printer) example:
So that the "every morning" message to "load form type"
always and immediately gets answered with a "G" (go)
since only one size paper is ever used.
the message is CPA3394 (seq.# 80)
-----------------------------------------------------------------------------
===> WRKrpyLE
Work with System Reply List Entries
System: FORBES1
Type options, press Enter.
2=Change 4=Delete
Sequence Message Compare
Opt Number ID Reply Compare Value Dump Start
_ 10 CPA0700 D *NONE *YES
_ 20 RPG0000 D *NONE *YES
_ 30 CBE0000 D *NONE *YES
_ 40 PLI0000 D *NONE *YES
_ 70 CPI5906 D *NONE *NO
_ 80 CPA3394 G PRT04 *NO 1
_ 81 CPA4002 G PRT04 *NO 1
Bottom
Parameters or command
===> _________________________________________________________________________
F3=Exit F5=Refresh F6=Add F11=Display entire reply F12=Cancel
F24=More keys
08-03 SA MW KS IM II S2 FORBES1 KB
Work with System Reply List Entries
System: FORBES1
Type options, press Enter.
2=Change 4=Delete
Sequence Message Compare
Opt Number ID Reply Compare Value Start
_ 10 CPA0700 D *NONE
_ 20 RPG0000 D *NONE
_ 30 CBE0000 D *NONE
_ 40 PLI0000 D *NONE
_ 70 CPI5906 D *NONE
_ 80 CPA3394 G PRT04 1
2 81 CPA4002 G PRT04 1
Bottom
Parameters or command
===> _________________________________________________________________________
F3=Exit F5=Refresh F6=Add F11=Display entire reply F12=Cancel
F24=More keys
21-07 SA MW KS IM II S2 FORBES1 KB
Change Reply List Entry (CHGRPYLE)
Type choices, press Enter.
Sequence number . . . . . . . . SEQNBR > 81
Message identifier . . . . . . . MSGID CPA4002
Compare data: CMPDTA
Comparison data . . . . . . . 'PRT04'________________________
_
Message data start position . 1_____
Message reply . . . . . . . . . RPY 'G'____________________________
_
Additional Parameters
Dump the sending job . . . . . . DUMP *NO__
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
06-50 SA MW KS IM II S2 FORBES1 KB
===========================================================================
to create our own signon display: ( DSPF )
===========================================================================
( see signon DSPF source code in KDHESYS )
Change Subsystem Description (CHGSBSD)
Type choices, press Enter.
Subsystem description . . . . . SBSD > QINTER____
Library . . . . . . . . . . . *LIBL_____
Storage pools: POOLS _
Pool identifier . . . . . . . *SAME_
Storage size . . . . . . . . . ___________
Activity level . . . . . . . . ______
+ for more values _
Maximum jobs . . . . . . . . . . MAXJOBS *SAME_
Text 'description' . . . . . . . TEXT *SAME__________________________
___________________
Additional Parameters
Sign-on display file . . . . . . SGNDSPF > SIGNON____
Library . . . . . . . . . . . > KDHESYS___
Subsystem library . . . . . . . SYSLIBLE *SAME_____
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display
F24=More keys
Already at bottom of area.
05-50 SA MW KS IM II S2 FORBES1 KB
===========================================================================
Ending subsystems: if a restart (STRSBS) is attempted before
it has come down, it will not restart.
That is why qinter failed to come up on that cold snowy day.
--------------------------------------------------------------
E N D I N G S U B S Y S T E M S : at 2:00 am
F(orbes, D35); L(andon, B45); M(ills, C20)
ENDRJESSN SSN(QRJE)
ENDSBS SBS(QINTER) OPTION(*IMMED)
ENDSBS SBS(QSNADS) OPTION(*IMMED)
ENDSBS SBS(QCMN) OPTION(*IMMED)
F qRJE .end: 18 sec's on Fri. 1/10/92
F qRJE .end: 8 sec's on Wed. 1/08/92
F qRJE .end: 8 sec's on Fri. 1/03/92
-----------------------------------------------
L qinter.end: 135 sec's on Thu. 1/09/92 2 min., 15 sec's.
L qinter.end: 110 sec's on Tue. 1/07/92
L qinter.end: 67 sec's on Fri. 1/03/92
L qinter.end: 66 sec's on Wed. 1/08/92
L qinter.end: 110 sec's on m . 3/03/92
L qinter.end: 75 sec's on tu . 2/25/92
L qinter.end: 73 sec's on th . 2/27/92
L qinter.end: 63 sec's on f . 2/28/92
L qinter.end: 51 sec's on w . 2/26/92
L qinter.end: sec's on . / /92
L qsnads.end: 51 sec's on Wed. 1/08/92 50 sec's
L qsnads.end: 50 sec's on Fri. 1/03/92
L qsnads.end: 30 sec's on Thu. 1/09/92
L qsnads.end: 25 sec's on Tue. 1/07/92
L qsnads.end: 32 sec's on tu . 2/25/92
L qsnads.end: 23 sec's on w . 2/26/92
L qsnads.end: 22 sec's on f . 2/28/92
L qsnads.end: 21 sec's on m . 3/03/92
L qsnads.end: 21 sec's on th . 2/27/92
L qsnads.end: sec's on . / /92
L qcmn .end: 300 sec's on Thu. 1/09/92 5 min's.
L qcmn .end: 270 sec's on Tue. 1/07/92
L qcmn .end: 192 sec's on Wed. 1/08/92
L qcmn .end: 190 sec's on Fri. 1/03/92
L qcmn .end: 165 sec's on tu . 2/25/92
L qcmn .end: 140 sec's on m . 3/03/92
L qcmn .end: 140 sec's on th . 2/27/92
L qcmn .end: 130 sec's on f . 2/28/92
L qcmn .end: 110 sec's on w . 2/26/92
L qcmn .end: sec's on . / /92
----------------------------------------------
F qinter.end: 105 sec's on Wed. 1/08/92 1 min., 45 sec's.
F qinter.end: 100 sec's on Thu. 1/09/92
F qInter.end: 96 sec's on Fri. 1/10/92
F qinter.end: 95 sec's on Fri. 1/03/92
F qinter.end: 91 sec's on th . 2/27/92
F qinter.end: 88 sec's on f . 2/28/92
F qinter.end: 70 sec's on Tue. 1/07/92
F qinter.end: 61 sec's on m . 3/ 3/92
F qinter.end: 53 sec's on tu . 2/25/92
F qinter.end: 52 sec's on w . 2/26/92
F qsnads.end: 30 sec's on Tue. 1/07/92 30 sec's.
F qSnads.end: 26 sec's on f . 2/28/92
F qsnads.end: 25 sec's on Fri. 1/03/92
F qsnads.end: 23 sec's on Wed. 1/08/92
F qsnads.end: 20 sec's on Thu. 1/09/92
F qSnads.end: 17 sec's on Fri. 1/10/92
F qSnads.end: 16 sec's on m . 3/03/92
F qSnads.end: 16 sec's on w . 2/26/92
F qSnads.end: 16 sec's on th . 2/27/92
F qSnads.end: 15 sec's on tu . 2/25/92
F qCmn .end: 95 sec's on Fri. 1/10/92 1 min., 35 sec's.
F qcmn .end: 81 sec's on m . 3/03/92
F qcmn .end: 77 sec's on Fri. 1/03/92
F qcmn .end: 73 sec's on Thu. 1/09/92
F qcmn .end: 71 sec's on Tue. 1/07/92
F qcmn .end: 67 sec's on Wed. 1/08/92
F qcmn .end: 58 sec's on th . 2/27/92
F qcmn .end: 57 sec's on tu . 2/25/92
F qcmn .end: 56 sec's on w . 2/26/92
F qcmn .end: 54 sec's on f . 2/28/92
----------------------------------------------
M qinter.end: 75 sec's on Thu. 1/09/92
----------------------------------------------
======================================================================
L qinter.start: 410 sec's on Wed. 1/08/92
L qinter.start: 400 sec's on Thu. 1/09/92
L qinter.start: 400 sec's on Fri. 1/03/92
F qinter.start: 265 sec's on Fri. 1/03/92
F qinter.start: 265 sec's on Wed. 1/08/92
M qinter.start: 105 sec's on Thu. 1/09/92
F qcmn .start: 9 sec's on Fri. 1/03/92
F qcmn .start: 8 sec's on Wed. 1/08/92
L qcmn .start: 7 sec's on Wed. 1/08/92
L qcmn .start: 5 sec's on Fri. 1/03/92
L qcmn .start: sec's on . / /92
L qcmn .start: sec's on . / /92
L qcmn .start: sec's on . / /92
L qcmn .start: sec's on . / /92
L qcmn .start: sec's on . / /92
F qsnads.start: 15 sec's on Fri. 1/03/92
F qsnads.start: 13 sec's on Wed. 1/08/92
L qsnads.start: 15 sec's on Wed. 1/08/92
L qsnads.start: 10 sec's on Fri. 1/03/92
====================================================================
end part 1 of 2 (a & b)