|
/FILE CFS.STARTUP.BEISPIEL,LINK=CFSCMD
The CFS Startup file will provide a special CFS procedure whose statements will be processed automatically when calling the program. The full scope of CFS is available from the Startup file.
The file included in the standard delivery is designed to demonstrate basic functionality. The statements in this file can be modified to suit the user requirements as needed.
If the CFS.STARTUP.BEISPIEL file does not exist in the CFS installation userid, it can be found as an element named S/CFS.STARTUP.BEISPIEL in the library CFS.USERLIB.BEISPIEL.
Examples for standard functions in a Startup file:
- Load P-keys
- Modify CFS parameter values (UO, ERT, CP, CSO, ...)
- Load CFS Command memory
- Restore a user-specific environment (USERLIB, USERACT, ITEM-File, MENUE-File, ...)
- Open Connections
- Check Events
- Remap the keyboard until CFS is terminated
- Save Command memory
- Close any opened Connections automatically
The sample Startup file requires the following file linkages as a prerequisite for using the Command procedures described in these examples:
CFS.USERLIB.BEISPIEL User library for CFS Command procedures
CFS.USERACT.BEISPIEL Definition file for user-specific Action Codes
CFS.USERACT.BEISPIEL
User-specific Action Codes give administrators and individual users the ability to execute customised processes, in addition to the standard Action Codes, using the %act Action Code. All of these user-specific Action Codes can be linked with a CFS command, a CFS Command procedure or a BS2000 procedure. The Action Codes described below are defined in the CFS.USERACT.BEISPIEL.
If the CFS.USERACT.BEISPIEL file does not exist in the CFS installation userid, it can additionally be found as an element named S/CFS.USERACT.BEISPIEL in the CFS.USERLIB.BEISPIEL library.
The CFS.USERACT.BEISPIEL file must be assigned with the file statement LINK=USERACT and the library CFS.USERLIB.BEISPIEL must be assigned as the current USERLIB before the Action Codes described below can be tested.
Executing CFS Commands
%VSN Display the Allocated Space, together with the number of extents, across all VSN's
%FC Convert a file using the FC CFS command
%REO Reorganise a file or library to another disk and defragment
%FT File transfer with FT-BS2000 and predefined authorisation
%EDR Process a file with EDOR
%PRL Select all TSN's maintaining a Print Lock on the marked file
Executing BS20000 Commands
%MFA Set catalog attributes with the /MOD-FILE-ATT SDF command
%CAT Set catalog attributes with the /CAT ISP command
%SEC Reserve a file exclusively with /SECURE-RESOURCE-ALLOC
%PR Print a file with predefined print parameters
%CI Create a secondary key for an NK-ISAM file (using SDF dialog)
Start a BS2000 DO-Procedure with parameters in Enter mode
%ASS Start Assembler in an Enter job, with monitoring (Job-Report)
%COB Start a Cobol compilation in an Enter job, with monitoring (Job-Report)
Combined application of commands and Action Codes through CFS procedures
%P0 Modify catalog attributes and update the table entries
%P1 Modify catalog entries and update the table entries
%U FSTAT VTOC=YES and update the table entry
%DUPK Check for duplicate keys in an ISAM file
%P0, %P1 -> DO CFS.USERLIB.BEISPIEL(PROTECT):
Execute a BS2000 command, position at the relevant particular entry, insert the Action Code U and restore the cursor to the original entry.
%U -> DO CFS.USERLIB.BEISPIEL(UPDATE-VTOC):
Execute a FSTAT ...,VTOC=YES BS2000 command, position the cursor at the relevant entry, insert the Action Code U, and then restore the cursor to its original entry.
%DUPK -> DO CFS.USERLIB.BEISPIEL(DUPKEY):
Select a file using User Options KEYPOS, KEYLEN, RECFORM, load it into the CFS Editor, perform a record-wise comparison of the ISAM keys by writing to procedure variables.
Load the CFS Editor via a CFS Command procedure
%DF Decompressed display of a file compressed with FLAM.
%DP Display NK-ISAM files opened with SHARUPD.
%DF -> DO CFS.USERLIB.BEISPIEL(DISPLAY-FLAM):
Position at the marked entry, insert the Action Code D, activate DA (Data Access) FLAM, switch to keyboard input until the CFS Editor is terminated, then reset the cursor to the original file list entry.
%DP -> DO CFS.USERLIB.BEISPIEL(DISPLAY-NKISAM):
Position at the relevant entry, insert Action Code D, activate SR mode (Shared Update) if necessary. If using NKISAM-POOL: get the POOL names from the OPEN list, or from a prompt, execute the /CREATE-ISAM-POOL and /ADD-ISAM-POOL-LINK commands, switch input to the keyboard until CFS Editor is terminated, then reset the cursor to the original entry in the list.
Process the Access-Control-List (SECOS) using CFS Procedures
%A Display ACL
%AC Copy ACL from a file previously marked with the Action Code *
%AE Delete ACL
%AEU Remove ACL userid
%AEG Remove ACL Group-Id
%AU Add userid to ACL
%AG Add Group-Id to ACL
%AX Add multiple userids/Group-Ids to ACL
%AM Modify ACL
%AMU Modify userid rights
%AMG Modify Group-Id rights
%AMO Modify rights for others
-> DO CFS.USERLIB.BEISPIEL(ADD-ACL / MOD-ACL / REM-ACL):
These two command procedures are available for viewing and modifying the Access-Control-List. The relevant BS2000 commands will be issued in such a format that the important parameters are already filled in, and the rest will be requested through an SDF dialog. The entry in the file list will be updated when the procedure terminates.
DO LIB
This CFS procedure provides the facility, via short codes passed as parameters when the procedure is called, to select elements which are required often. Depending on the parameters, the list of elements in the library will be displayed. Short codes passed as positional parameters can be used to specify the library, a search string for the element name, a type description, and a value for the age in order to select an element.
This CFS procedure can be modified as required to suit the individual users requirements and environment.
Execution:
DO LIB [, code] [, srch] [, typ] [, age]
If no parameters are specified, all elements from the standard library defined in the procedure will be selected.
code All elements from the library specefied by code (perhaps also those of a particular type).
If an invalid code is specified, then the standard library name will be used instead and the rest of the positional parameters will be shifted one position to the left. code will thus be interpreted as as the search string for the element name.
srch All elements whose name contains the string srch will be selected from the library specified in code.
typ All elements of type typ will be selected from the relevant library.
age All elements with AGE=age will be selected from the relevant library.
Example:
DO LIB Select all elements from the standard library (CFS.S.LMSLIB)
DO LIB,U Select all elements from the library CFS.USERLIB.BEISPIEL
DO LIB,C Select all elements from the library CFSLIB
DO LIB,U,CONN Select all elements from the library CFS.USERLIB.BEISPIEL, whose name contains the string 'CONN'
DO LIB,S,,J Select all elements of type J from the library CFS.S.LMSLIB
This CFS procedure will compare the table of contents of two libraries to determine which elements are available in both libraries, which are available only in one, which dates are newer. The required elements can then be selected from a list.
Execution:
DO COMP-LIB [, LIB1=library] [, LIB2=library] [, TMPIND=tmp]
If no parameters are specified, a screen will be displayed requesting the library names and the temp file indicator.
LIB1=library Name of the first library
LIB2=library Name of the second library
TMPIND=tmp Prefix for temporary files (STD: #)
This CFS procedure will compare the file entries of two cataloged pubsets or userids to determine those files which exist in both locations, those which exist in only one, or those with a different date stamp. Required files can then be selected from a list.
Execution:
DO COMP-PVS [, PVS1=pvs1] [, UID1=userid1] [, PVS2=pvs2] [, UID2=userid2] [, TMPIND=tmp]
If no parameters are specified, a screen will be displayed requesting the PVS, userids and the temp file indicator.
PVS1=pvs1 Public Volume Set of the first userid
UID1=userid1 Name of the first userid
PVS2=pvs2 Public Volume Set of the second userid
UID2=userid2 Name of the second userid
TMPIND=tmp Prefix for temporary files (STD: #)
DO DUPKEY
This CFS procedure checks an existing ISAM file for duplicate keys, and displays them on screen. The number of duplicates found will be displayed at the end of the list. The information required for processing the keys, namely KEYPOS, KEYLEN and RECFORM will be extracted by the procedure.
Execution:
DO DUPKEY [, file] [, OUT=N]
If no parameters are specified, a screen will be displayed requesting the file name and the indicator for whether duplicate keys should be displayed.
file The specified file will be tested for duplicate keys. The parameter screen will be suppressed.
OUT=N The display of any duplicate keys will be suppressed.
This CFS procedure will extract particular records from the file currently displayed and write them to a second file. A CFS search string can be passed as parameters. In addition, records adjacent to the search hit ( m records in front of and n records behind the hit) can be extracted as well.
Execution:
DO WRITE-MN [, ITEM=srch] [, WFILE=file] [, M=m] [, N=n]
If no parameters are specified, a screen will be displayed requesting the search string, the name of the output file and the number of adjacent records before and after the search hit.
ITEM=srch Records containing the CFS search string srch will be identified as a search hit and written to the output file.
WFILE=file The required records will be written to this output file.
M=m In addition to the record containing the search string, m adjacent records in front of it will be extracted and written to the output file (Standard: 0).
N=n In addition to the record containing the search string, n adjacent records behind it will be extracted and written to the output file (Standard: 0).
This CFS procedure will extract records from the display file to an output file. The records extracted will be all those from the current cursor position to that record containing the first occurrence of the search string. The search string can be passed as a parameter.
Execution:
DO WRITE-BIS-TREFFER [, ITEM=srch] [, WFILE=file]
If no parameters are specified, a screen will be displayed requesting the search string and the name of the output file.
ITEM=srch The first record containing the search string srch will be identified as the search hit, and the transfer of records to the output file will be terminated at this record.
WFILE=file the records will be written to this output file.
This CFS procedure searches the file currently being displayed for a specified search string, and then extracts n bytes following the string and writes it as a record with Recform=V in an output file.
Execution:
DO WRITE-PART [, ITEM=string] [, WFILE=file] [, LEN=n]
If no parameters are specified, a screen will be displayed requesting the search string, the name of the output file and the length of the record section to be extracted.
ITEM=string The first record containing the search string string will be identified as a search hit, and the required record section will be written to the output file.
WFILE=file The extracted record sections will be written to this output file.
LEN=n n bytes will be extracted and written as a new record.
This CFS procedure deletes specific parts of records, depending on a search string. The search string, the offset from which the deletion should be performed, and the length to be deleted can all be passed as parameters.
A prerequisite for this procedure is that the file to be processed must be an ISAM file, or being displayed in ISAM mode by means of the IS command.
The procedure can also be used to insert or replace a string by modifying the operation statement (S1,'...'='',C).
Execution:
DO DEL-STRING [, ITEM=string] [, OFFSET=offs] [, LEN=n]
If no parameters are specified, a screen will be displayed requesting the search string, the offset and the length of the record section to be deleted.
ITEM=string A search will be made for string, from which the section to be deleted will be identified.
OFFSET=offs The offset from the beginning of the search string, after which the the record section will be deleted to the required length (Standard: 0).
LEN=n n bytes will be deleted from the record, starting after the offest has been deducted from the start of the search string hit.
This procedure demonstrates how, along with deleting, inserting and replacing strings, records can be inserted into an existing file, based on certain criteria. Records can be inserted into a test file after being checked for changes to test fields.
DO OC
This CFS procedure opens Connections to predefined applications, depending on the parameters passed. For example, open Connections to $DIALOG under different userids. This procedure offers a flexible alternative to the CFS menu system for Connections (which offers automated logons to specific applications). The procedure can be modified as required, and must in any event be adapted to the users environment (userid, Account, password, UCON authorisation, KDCSIGN, etc).
Execution:
DO OC [, id] A Connection will be opened to the same userid as that under which the CFS task runs (same Account number, same host). An existing logon password will be requested under BS2000 prompting.
id The positional parameter id can be used to open a predefined Connection. The string identified by id will be interpreted as a label, and the OC statements in the procedure from this point will be executed.
Examples:
DO OC,TSOS Application $DIALOG, userid $TSOS, same HOST
DO OC,TSOS11 Application $DIALOG, userid $TSOS, host HOST11
DO OC,KURS Application $DIALOG, userid $KURS, same HOST
DO OC,UTMTEST Application UTMTEST with automatic logon
DO OC,CONS Application $CONSOLE, same HOST
DO OC,CONS11 Application $CONSOLE, host HOST11
This CFS procedure offers a Connection to the UTM application TEST. If a Connection exists to this application, it will be activated. If not, the procedure will reserve the next free Connection and open the link to the application automatically by passing the required input (e.g. KDCSIGN, RES file, ...).
The same functionality exists in the OC procedure ( DO OC,UTMTEST ).
These procedures will establish a Connection to $CONSOLE. If a Connection to $CONSOLE already exists, it will be activated (a Continue in Connection command will be issued). If no console Connection exists, one will be established using the authorisation contained in the statements. Finally, control will be passed to the keyboard. If the user leaves the console Connection, the link will automatically be terminated.
This CFS procedure will establish a console Connection via a generated sub-console.
Before executing the procedure, the relevant UCON userid and password must be entered in the procedure.
This CFS procedure will establish a dynamic console Connection, which has not been predefined, using an Operator-Role. This variation on establishing a Connection is available from BS2000 OSD/V1.0.
Before executing the procedure the userid, password and the Operator-Role must be entered in the procedure.
This CFS procedure establishes a Connection to $CONSOLE whereby all messages will be displayed, but the user may not provide any input.
The procedure can be terminated by pressing the K2 key twice.
Before executing the procedure the UCON userid and password must be entered in the procedure.
This CFS procedure will establish a Connection to $VMCONS (VM2000 virtual machine), using a VM dialog from the procedure.
If the user terminates the VM console, the Connection will be disconnected automatically.
Before executing the procedure, the $VMCONS password must be entered in the procedure.
/ENTER CFS.USERLIB.BEISPIEL(AUTOMATIC-CONSOLE)
This BS2000 procedure calls CFS and opens a Connection to $CONSOLE. Various actions can be taken based on messages appearing on the console.
- open messages can be answered automatically.
- users from particular userids can issue TYPE commands which are then issued from the console.
Before executing the procedure, the UCON userid and password must be entered in the procedure. In addition, the /ASR command should be used to reduce the number of unnecessary messages processed by this UCON connection.
The messages to which the procedure should react are contained in the library element CFS.USERLIB.BEISPIEL(D/KONSOLMELDUNGEN).
Example:
'NKVT012 PREMOUNT TAPE'+:1-20:'?' .MOUNT
'SYSTEMDUMP DESIRED'+:1-20:'?' .SYSDUMP
'CFSCON:' .CFSCONSOLE
'TERMINATE CONSOLE' .EXIT
Each record in this library element consists of a CFS search string relating to the contents of the console message and a SKIP label.
If the search string is found, then the SKIP label behind it (.label) will be passed as an internal CFS variable with the name &SLABEL and the procedure will switch processing to that point.
DO PROCESS-LIST
This CFS procedure provides a structure for processing all visible entries in the current file list (entries hidden with the Action Code "-" will not be included). All CFS functions can be applied; commands, Action Codes, Variable Actions.
An example of the processing available is the replacement of strings of identical length, without using FIND-REWR.
The CFS procedure can be adapted to suit any purpose by modifying the processing statements.
Execution:
DO PROCESS-LIST [, OLD=str1 , NEW=str2]
If no parameters are specified, a screen will be displayed requesting the search and replace strings.
OLD=str1 , NEW=str2
All records in all the visible files in the current list will be searched for the string str1. If found, each occurrence will be replaced with the string str2. It is important to ensure that the strings are of equal length, since by default CFS will not perform a delete and insert operation (only possible in ISAM mode).
If the process fails for a particular data object, an error message complete with DMS error code will be issued, and the processing will continue with the next object.
This CFS procedure provides access to a specific Event file via the CFS Event Scheduling system. Actions available include viewing all pending Events, all or specific other Events, and the creation of Events in the future.
By default, the procedure uses the CFS.ITEM.jobname Event file.
The various actions (display, create), access to all or pending Events, search strings for Event text, and date and time stamps for new Events can be passed as parameters when executing the procedure.
Execution:
DO TERMIN All pending Events from the specified Event file will be displayed.
DO TERMIN , date [, ...]
date All pending Events in the specified Event file for the day specified by date will be displayed. Instead of date, +n can be specified, i.e. all Events from today to today+n days will be displayed.
TEXT=string All pending Events containing the search string string from the specified Event file will be displayed. string represents a simple or complex search condition.
ALL=Y
All Events in the specified Event file, including those shown as closed by the STATE=OK flag, will be displayed.
DO TERMIN , ADD [, ...]
ADD A screen for entering a new Event for today, at the current time will be displayed (for example, for entering memos).
date [, time] A screen for entering a new Event on a date specified by date , and at a time specified by time will be displayed.
This CFS procedure will copy the records of specific data objects to a file in a print-ready format. A table of contents will be inserted at the beginning of the output file.
A Variable Action (ONXLIST) will be defined in the procedure. The user will be asked to flag the required data objects with an Action Code X. When the user has reached the end of the list and pressed Enter a second time, or initiated the Action by executing the Command A, the output file will then be created. The termination acknowlegement will be answered automatically by the procedure, and the output file will automatically be printed to the specified printer by means of a PD Action Code.
Execution:
DO LIST [, file] All data objects marked with X will be copied to an output file (default: #LIST.TOC) and printed.
file Name of the output file.
This CFS procedure is a demonstration of the functionality of a RUN module, DATE, which is used in CFS procedures to provide general date calculation and checking functions.
The *RUN (DATE) statement will automatically access a file CFS.IFREE, if available. This file contains statuatory and other holidays, and can also be modified through the Event Scheduling system.
These date functions can be used for plausibility testing purposes, or for event-specific Job processing. For example, using this procedure it is very easy to check at the beginning of a daily repeat job whether the current day is, say, the first working day of the month, or the first day of the week, or a public holiday. The user can then set a User switch or a Job variable, depending on the value of the return code.
A large number of function calls are available:
VALID valid date ?
FREE holiday ?
DDD Julian day of the year
WW calender week
WD work day ?
DW week day, coded as follows: Mon=1, Tue=2, ...
DW-G week day in German
DW-E week day in English
+n date plus n days
-n date minus n days
WDN next work day
WDP previous work day
WDF first work day for the specified month
WDL last work day for the specified month
WW1 date of the Monday of the specified calender week
This CFS procedure creates a calender file for the specified year using the *RUN (DATE) function. The information provided will include date, week day, holidays, work day, calender week and Julian day of the year.
The name of the calender file and the required year will be requested at the beginning of the procedure.
This CFS procedure provides the facility for searching a specified file (e.g. telephone lists, name lists, customer lists etc.) for any search string. All records containing the search string will be displayed on screen. If only one record contains the string, it will be displayed in the system line. If multiple records are found, these will be displayed on screen by means of the WROUT function. The procedure will pause at this point until the PLEASE ACKNOWLEDGE message is answered. At the end of the procedure, the original file list will be displayed again.
The procedure will select the specified file, invoke the CFS Editor by means of the Action Code D, and the contents of the search result records will be written to procedure variables. These variables will be displayed on screen and finally an RL command will be issued at the end of the procedure to return to the original list.
The procedure will use a test file from the CFS.USERLIB.BEISPIEL by default, but this can be modified as necessary.
Execution:
DO INFO [, string] If nothing is specified for the string parameter, then the first 80 bytes of all records will be displayed.
string Only those records from the file containing the specified string will be displayed.
This CFS procedure offers the same functions as the previous INFO procedure, but in addition the output will be prepared and displayed using FHS (with *RDMASK).
The name of the MFHSROUT FHS library must be specified in the procedure header before executing the procedure. The default name is $FHS.MFHSROUT.
Execution:
DO INFO-MASK [, string] If nothing is specified for the string parameter, all records will be displayed. The procedure can be interrupted by pressing the K1 key.
string Only those records containing string will be displayed.
E CFS.USERLIB.BEISPIEL(MOVE-FILES)
This BS2000 ENTER procedure provides the facility to move a specified group of data objects to a specific private volume or pubset (ON&MOVE).
CFS will be invoked in Basic mode from the procedure (SETSW ON=11, *001). Basic mode only makes a subset of CFS features available (Selection, Variable Actions, Documentation).
E CFS.USERLIB.BEISPIEL(FIND-REWR)
This BS2000 DO procedure offers the facility to search a specified group of data objects (multiple libraries, SAM, ISAM and PAM files) for records containing a specific search string. The resulting records will be written to a file which may then be edited as required using EDT or CFS Display, and the modified records will then be rewritten to the original object.
The procedure calls CFS in Enhanced procedure mode (SETSW ON=1, *002). In this mode the full functionality of CFS is available.
By default the procedure uses a test file from the CFS.USERLIB.BEISPIEL library and can be modified as required.
This CFS procedure provides the facility for setting up file transfer authorisation to different hosts, so that this information will be supplied automatically when the CFS file transfer function is invoked. The values passed will then be used as the default values for all FT actions, until they are modified manually, or in a procedure.
The labels and FT commands in the CFS procedure can be modified to suit the individual requirements.
Execution:
DO FT-PAR [, host] [, direction]
If the host parameter is not specified, then the host specified as the default in the procedure will be used, and the Transfer admission set (userid, Account number, password or FTAC Transfer admission) will be inserted in the FT mask.
host The Transfer admission set (userid, Account number, password or FTAC Transfer admission) relating to the partner system host will be inserted in the FT mask. If an invalid host is specified, an error message will be displayed.
direction The second positional parameter direction can be used to set the transfer direction (TO/FROM). the defauult is TO.
In addition to populating the FT mask through the procedure, the following other possibilities for presetting file transfer parameters exist:
- The contents of the FT mask can be stored as a parameter set by means of the SPFT %name command. These parameters can then be used later in an FT command, or in a Variable Action, e.g. ONXFT %HOST10
- A user-specific Action Code which contains the FT command parameters can be used against a file. An example is in the CFS.USERACT.BEISPIEL library, called %FT.
E CFS.USERLIB.BEISPIEL(FT-INHALT)
This BS2000 DO procedure offers the facility to receive multiple files from a remote FT-BS2000 system by using an index file (FSTAT list, CFS-DOC file, ...). The index file is transfered first, then an ON&FT command will be issued to transfer all the files in the list via an OLDLIST command. The files will be transferred asynchronously from the remote system.
The name of the index file, the partner system and the Transfer admission must be entered in the parameter mask of the Job Report system.
This CFS procedure will show the different variations for requesting parameters for CFS command procedures, BS2000 DO or S procedures.
Any commentary text can be inserted instead of the parameter name by entering text in double quotes (e.g. instructions for valid parameter entries).
In addition, the parameters can be requested from a blanked field (":D..." Secret Prompt) or from multiple lines for longer parameter entries (":#1..." one additional line).
DO APPL
This CFS procedure invokes TAS (Task Services) and will display the status of all applications, or of a specific application. The information displayed includes the application name , the number of logical connections, the number of messages in and out, and the number of bytes in and out.
Execution:
DO APPL [, appl [, CON] ] If no parameters are specified, a list of all applications will be displayed.
appl Only information relating to the application specified, appl, will be displayed. Information relating to all other applications will be suppressed by means of the Action Code '-' .
CON The current open logical connections to the appl application will be displayed.
Action Codes in the APPLICATION List:
CON List all open connections to an application.
This CFS procedure will invoke TAS (Task Services) and will display a list of all active UTM applications, or only those specified. The information displayed includes the application name (Name Manager entry), scope and TSN of each of the UTM tasks.
Execution:
DO UTM [, app [, CON|D] ] If no parameters are specified, a list of all UTM applications will be specified.
app Only information relating to the UTM application app will displayed, while the rest of the information will be suppressed by means of the Action Code '-' .
CON The current open logical connections to the appl application will be displayed.
D A special status screen showing diagnostic information relating to the UTM application app will be displayed. Information relating to the various UTM areas can be displayed on screen by means of the KTA, KAA, ROOT, MPUTAREA, RSTAREA, FORMIO and FORMBR commands.
Action Codes applicable in the NAMEMANAGER list UTM (extract):
CON Display a list of all partners of the specified UTM application.
D Display UTM information screen.
This CFS procedure will invoke the TAS (Task Services) component and display the status of all generated subsystems in the subsystem catalog, or only those specified. The information will include the subsystem name, version, current status, load address, Holder task, memory class and number of connections to the subsystem.
Execution:
DO DSSM [, ACT|subsys [, CON] ]
If no parameters are specified, a list of all subsystems will be displayed.
ACT Only those subsystems with a status of CREATED will be displayed.
subsys [, CON] Only the specified subsystem subsys will be displayed.
CON A list of all tasks currently associated with subsys will be displayed.
Action Codes applicable in the DSSM list (extract):
NP Select all tasks associated with this subsystem
L List all modules of a subsystem
CR Activate a subsystem
DEL Delete a subsystem
HOLD HOLD-SUBSYSTEM command
RES RESUME-SUBSYSTEM command
This CFS procedure will invoke the TAS (Task Services) component and display the status of all defined FT (File-Transfer) partner systems, or only that of specific partner systems. The information will include the REMSYS names, SYSADR, RELADR, the current state, security level and number of jobs (LOC/REM).
Execution:
DO FT [, ACT|partner] If no parameter is specified, a list of all available FT-BS2000 partner systems will be displayed.
ACT Only those FT-BS2000 partner systems with current jobs will be displayed.
partner Only the status of the FT-BS2000 partner system partner will be displayed.
Action Codes applicable in the FJAM list:
NP Select all file transfer requests associated with this FT-BS2000 partner system under CFS (NSTAT selection).
This CFS procedure uses the CFS Editor to access the $SYSFJAM.SYSFSA file directly, and will display the standard FTAC profile information in an IFG mask. The procedure must be executed from the TSOS userid.
With a mouseclick you get a describtion of the screen item.
The displayed information covers the following profile characteristics:
OWNER-ID Userid of the owner of the profile
NAME Name of the FTAC profile
INI Initiator (LOCal/REMote)
DIR Transfer Direction (TO/FROM)
FILENAME Predefined file / library name (FILE/LIBRARY/*EXP/*EXP(LIB))
SUCC Local Success processing (NONE/YES/*EXP)
FAIL Local Failure processing (NONE/YES/*EXP)
WRI Write Mode (EXTend/REPlace/NEW)
IGN-LEV Ignore Security Levels (Y/N)
EXP Expiration Date for profile available (Y/N) (from FTAC 2.0)
LCK Profile locked (Y/N) (from FTAC 2.0)
Execution:
DO FTAC [, TRANS [,srch] | PARTNER ] [, UID=userid] [, FILE=file]
If no parameters are specified, a standard information list of all FTAC profiles relating to all userids will be displayed.
TRANS The TRANSFER-ADMISSION will be displayed in the list. An optional second keyword parameter, srch, can be specified as a search condition to select specific Transfer admission sets.
PARTNER The PARTNER name will be displayed in stead of FAIL and WRI.
UID=userid Only the profile relating to this specific userid will be displayed.
FILE=file An output file named file will be created containing the required profile information.
COMMAND entries applicable in the FTAC screen (extract):
+ | - page forwards or backwards in the list
/cmd execute BS2000 commands
DOC file create an output file with the profile information
Action Codes applicable in the FTAC screen (extract):
D Display profile (SHOW-FT-PROFILE)
M Modify profile (MOD-FT-PROFILE)
P Set profile privilege
U Revoke profile privilege
L Lock profile (LOCK from FTAC V2.0)
UL Unlock profile (UNLOCK from FTAC V2.0)
This CFS procedure will invoke TAS (Task Services) and will display the status of all generated devices, or that of specific devices. The information displayed will include volume, device mnemonic, device type, device status (ATTACHED, DETACHED), device addresses and the number of IO's performed since startup.
Execution:
DO PDT [, ATT|mn] If no parameters are specified, a list of all generated devices will be displayed.
ATT Only those devices that are ATTACHED will be displayed.
mn Only the device with the mnemonic address mn will be displayed.
Action Codes applicable in the PDT list (extract):
NP Select all tasks currently accessing files on this volume.
This CFS procedure will invoke TAS (Task Services) and will display the status of all defined Front End processors, or of a specific processor. The information displayed will include the name of the processors, their type, network address, IP address, current status (BCIN, BCACT, ...) and protocol type.
Execution:
DO FEP [, ACT|proc] If no parameters are specified, a list of all processors defined in BCAM will be displayed.
ACT Only those processors currently in status BCACT will be displayed.
proc Only the processor specified by name proc will be displayed.
Action Codes applicable in the FEP list:
NP Select all $DIALOG tasks with a connection to the selected processor.
This CFS procedure will invoke TAS (Task Services) and will display the status of all existing Memory Pools, or only specific pools. The information displayed will include the Pool name, scope, load address, fixed attribute, number of requested memory pages and write status.
Execution:
DO POOL [, EDT|pool [, PROG] ]
If no parameters are specified, a list of all Memory Pools will be displayed.
EDT A list of all existing Memory Pools and their respective tasks will be displayed in EDT. The same functionality is available through the MEMORY-POOL-ALL procedure.
pool [, PROG] Only the Memory Pool specified by pool will be displayed.
PROG All tasks associated with the Memory Pool pool will be displayed. The name of the loaded program will be displayed as task information.
Action Codes applicable in the POOL list (extract):
D Display the contents of the Pool
NP Select all tasks associated with this Pool
This CFS procedure will invoke TAS (Task Services) and will determine which application is associated with which terminal.
Execution:
DO STAT-APPL-CON [, stat]
If no parameters are specified, the name of the station will be requested at the beginning of the procedure.
stat A search will be made for the logical connections associated with the station stat and the application name will be displayed.
This CFS procedure will invoke TAS (Task Services) and will display a list of all or some specific messages currently unanswered on the console. This requires a UCON Connection to $CONSOLE from within CFS. The relevant UCON userid and password must be entered in the procedure.
Execution:
DO OMSG [, string] If no parameters are specified, all open messages will be displayed.
string Only those messages containing the search string string will be displayed.
Action Codes applicable in the OPEN-MESSAGE list (extract):
FM Display the complete console message on the screen (Full Message)
. Answer the message with TSN.
.input Answer the message with TSN.input
If a console message needs to be answered with a specific string which is longer than 4 bytes, the Variable Action ONXCONS can also be used. This enables console messages from different TSN's to be answered with the same string. The TSN for each task will be provided by the internal dummy variable !TSN (e.g. ONXCONS !TSN.input).
COMMAND options applicable in the OPEN-MESSAGE list:
ATL INT=sec Automatic asynchronous output of all or specific open console messages at an interval of sec seconds (default INT=30). If a message needs to be answered, the ATL mode (Automatic Task List) can be interrupted by pressing the K2 key, and can then be resumed by entering ATL.
DO TAS
This CFS procedure will invoke TAS (TAsk Services) and will then execute a predefined task selection command, based on a code passed as a parameter during the procedure execution. If no parameter is specified, a list of available predefined task selection entries will be displayed, from which one may be selected by the user. After the tasks have been selected, the ATL mode (Automatic Task List) will be activated and the information relating to the selected items will be updated automatically at 30 second intervals. The ATL mode can be terminated by pressing the K2 key.
The procedure can be modified as required by adapting the mnemonic codes and selection criteria.
Execution:
DO TAS [, code] If no parameters are specified, an overview of the predefined selection criteria will be displayed, from which one may be selected:
-----------------------------------------------------
T A S K - S E R V I C E S Selection
TAS - Selection mask S
TAS - Terminate E
CPU Resource usage CPU 1
IO Resource usage IO 2
SIZE Resource usage HSP 3
IDLE TSN's no longer active 4
TASKS1 Tasks under $TT08,$KURS,$TSOS 5
SAP Tasks ($S43) 6
RSO RSO print jobs on error 7
Selection:
-----------------------------------------------------
code The predefined task selection is activated by entering the mnemonic code.
e.g. DO TAS,1 (select a task list according to CPU utilisation)
This CFS procedure will invoke JES (Join Entry Services) and will then execute a predefined Join selection command, based on a code passed as a parameter during the procedure execution. If no parameter is specified, a list of available predefined Join selection entries will be displayed, from which one may be selected by the user.
The CFS procedure can be modified as required by adapting the mnemonic codes and selection criteria.
Execution:
DO JES [, pvs] [, code] If no parameter is specified for code, a list of all predefined selection citeria will be displayed, and the user will be expected to pick one of them:
-----------------------------------------------------
J O I N - E N T R Y - S E R V I C E S select
JES - Selection Mask S
Current public disk utilisation 1
Current public and private disk utilisation 2
Number of existing files/Job variables 3
Current values for Pubspace Limit 4
Current values for Tempspace Limit 5
Current values for File Limit 6
Current value for Job variable-Limit 7
Account numbers with TIME<100 8
Userids without a password, and not locked 9
Userids which do not exist in the HOME PVS 10
SECOS: Expiration date for userid 11
SECOS: Expiration date for password 12
[pvs,] Selection :
-----------------------------------------------------
pvs , code A predefined Join selection identified by the mnemonic code will take place across the specified Public Volume Set pvs, or across all Pubsets if one is not specified.
Examples:
DO JES,G,1
Display a list of all userids from the G pubset, sorted in descending order on Pubspace Used.
DO JES,OPG,4
Display a list of all userids from the Pubset OPG which have used some public space, and which may not exceed the relevant Pubspace Limit (ENF=N). The difference between the limit and the space used will also be displayed. The list is sorted in ascending order on the pubspace difference value.
This CFS procedure will invoke TAS (Task Services) and will calculate the current system load and display it, along with other important system indicators such as CPU load, disk IO's per second, percentage utilisation of the Paging Area. Specific thresholds can be set, and values which exceed them will be displayed at double brightness.
The procedure can be interrupted by pressing the K2 key.
Execution:
DO MESSUNG,? A parameter mask will be displayed, in which the individual threshold values can be set.
Modifying the parameter values can also be achieved directly by specifying keyword parameters when calling the procedure:
CPU=proc1 proc1 sets the threshold for the total CPU load.
TPR=proc2 proc2 sets the threshold for the percentage load of the TPR portion of the total CPU load.
SIH=proc3 proc3 sets the threshold for the percentage load of the SIH portion of the total load.
DISKIO=diskio diskio sets the threshold for the number of disk IO's per second.
PAGIO=pagio pagio sets the threshold for the number of Paging IO's per second.
PGAREA=proc4 proc4 sets the threshold for the percentage load of the Paging area.
TSNCPU=cpu cpu sets the threshold for the task-specific amount of CPU usage within the measurement interval. If this value is exceeded, the display will include the TSN's of the offending tasks (max 3).
ACTINT=sec1 The measurement interval for the TAS SYSACT function will be set to sec1 seconds.
WAIT=sec2 The wait time between two measurements will be set to sec2 seconds.
INFO=Y Output of the measured values will only take place if at least one of the specified thresholds is exceeded.
FILE=file In addition to the output appearing on screen, the data will also be written to an output file file in SAM format, with Recform=V. If the file already exists, it will be extended by means of the OPEN=EXTEND option.
Example of a log file captured by the MESSUNG procedure:
-------------------------------------------------------------------------------- HOST DATE TIME CPU TU TPR SIH IO-DISK/S IO-PG/S PG-AREA TSN -------------------------------------------------------------------------------- HOST11 20.07.95 15:10:06 68.5 58.4 0.0 10.0 9 0 56% HOST11 20.07.95 15:10:44 90.1 83.2 0.0 6.8 5 0 58% 0PV0 HOST11 20.07.95 15:11:22 91.7 85.6 0.0 6.1 7 0 59% 0PV0 HOST11 20.07.95 15:12:00 93.4 87.4 0.0 6.0 9 0 60% 0PV0 HOST11 20.07.95 15:12:35 90.5 85.6 0.0 4.9 5 0 58% 0PV0 HOST11 20.07.95 15:13:13 97.9 96.0 0.0 1.9 1 0 58% 0PV0 HOST11 20.07.95 15:13:50 86.7 83.9 0.0 2.8 5 0 56% 0PV0 HOST11 20.07.95 15:14:28 85.3 79.8 0.0 5.5 8 0 60% 0PV0 HOST11 20.07.95 15:15:06 99.0 93.8 0.0 5.2 14 0 60% 0PV0 HOST11 20.07.95 15:15:44 98.7 93.0 0.0 5.7 16 0 60% 0PV0 HOST11 20.07.95 15:16:21 97.6 94.2 0.0 3.5 14 0 60% 0PV0 HOST11 20.07.95 15:16:57 99.3 91.8 0.0 7.5 14 0 60% 0PV0 HOST11 20.07.95 15:17:34 98.9 89.5 0.0 9.4 28 0 61% 0PV0 HOST11 20.07.95 15:18:12 51.8 42.0 0.0 9.8 33 0 55% HOST11 20.07.95 15:18:49 63.4 53.1 0.0 10.3 47 0 55% HOST11 20.07.95 15:19:27 47.1 37.8 0.0 9.3 21 0 54% HOST11 20.07.95 15:20:04 13.7 10.4 0.0 3.4 3 0 54% HOST11 20.07.95 15:20:42 6.8 4.9 0.0 2.0 1 0 54% HOST11 20.07.95 15:21:10 8.1 4.8 0.0 3.4 0 0 54%
This CFS procedure will determine repeatedly the number of IO's incurred by all open files, or just a specific file, during a measurement interval. The scope of files measured by the procedure, for example, all files, or only those on a specific volume, can be determined at execution time by parameters.
The information displayed will include a time stamp, file name, number of PAM-IO's during the measurement interval, number of Read-IO's, number of Write-IO's, TSN and the Open mode of the file.
The information gathered can be saved to a file if required.
The procedure can be interrupted by pressing the K2 key. Alternatively, a special Job variable can be set by the user to 'END'. This method guarantees a timely, orderly termination of the procedure.
Execution:
DO FILEIO All files incurring at least one IO operation during the last 30 seconds will be included in the display. The output is sorted in descending order on number of IO's.
DO FILEIO ,? The parameter mask for modifying the predefined procedure parameters will be displayed.
Parameters can also be modified directly at execution by means of keyword parameters:
TSN=tsn Only those files opened by the task with TSN tsn will be included. The procedure will be terminated automatically if the specified TSN no longer exists in the system.
FILE=file Only the IO's for file will be included.
VOLUME=vsn Only those files occupying at least one extent on the volume specified by vsn will be included.
IO=n Only those files incurring more than n IO's during the measurement interval will be included.
SUMIO=TSN|SUM The number of file IO's will be displayed for each TSN separately (default), or as a total for all TSN's (SUM).
INT=sec Duration of the measurement interval in seconds (default: 30 sec).
JOBVAR=jv-name Name of the Job variable which can be used to terminate the measurement. The variable must be set to 'END' from columns 1 to 3.
WFILE=wfile The information will be saved to the output file wfile.
Example of a FILEIO evaluation:
******************************************************************************* * F I L E - I O 'S DATE: 20.07.95 HOST: HOST11 ******************************************************************************* * P A R A M E T E R : TSN = *ALL * FILENAME = *ALL * VOLUME = *ALL * DELTA-IO = >0 * INTERVALL = 30 * SUMIO = TSN *------------------------------------------------------------------------------ * TIME FILENAME D-IO REA WRI TSN OPN *------------------------------------------------------------------------------ 09:06:51 :CFS:$TT08.CFS.PLAM1 18 18 0 0PVS I 09:06:51 :O:$TSOS.SYSLNK.ASSEMBH.011.LG 13 13 0 0PVV EX 09:06:51 :O:$TSOS.SYSSDF.ASSEMBH.011.USER 3 3 0 0PVV EX 09:06:51 :O:$TSOS.ASSEMBH 3 3 0 0PVV EX 09:06:51 :CFS:$TT08.CFS.E.0PVS.090642 3 2 1 0PVS 09:06:51 :CFS:$TT08.S.IN.CFS.PLAM1.ASS.0PVV.134253 2 2 0 0PVV EX 09:06:51 :CFS:$TT08.CFS.E.0PVS.090642 1 1 0 0PVV EX 09:07:28 :CFS:$TT08.CFS.PLAM1 128 128 0 0PVQ I 09:07:28 :CFS:$TT08.CFS.PLAM1 64 64 0 0PVV 09:07:28 :MAC:$TSOS.MACROLIB.V10 30 30 0 0PVV 09:07:28 :CFS:$TT08.S.214.0PVV.CIFLIB 15 2 13 0PVV OI 09:07:28 :CFS:$TT08.S.214.0PVQ.ZS.WRTRD.0112 9 5 4 0PVQ 09:07:28 :O:$TSOS.SYSSDF.ASSEMBH.011.USER 3 3 0 0PVV EX 09:08:03 :MAC:$TSOS.MACROLIB.V10 78 78 0 0PVV 09:08:03 :CFS:$TT08.S.214.0PVV.CIFLIB 25 0 25 0PVV OI 09:08:03 :CFS:$TT08.CFS.PLAM1 24 24 0 0PVV 09:08:37 :CFS:$TT08.CFS.PLAM1 50 50 0 0PVV 09:08:37 :CFS:$TT08.S.214.0PVV.CIFLIB 38 0 38 0PVV OI 09:08:37 :MAC:$TSOS.MACROLIB.V10 17 17 0 0PVV 09:09:09 :CFS:$TT08.CFS.PLAM1 46 46 0 0PVV 09:09:09 :CFS:$TT08.S.214.0PVV.CIFLIB 34 0 34 0PVV OI 09:09:09 :MAC:$TSOS.MACROLIB.V10 22 22 0 0PVV 09:09:43 :CFS:$TT08.S.214.0PVV.CIFLIB 61 0 61 0PVV OI 09:09:43 :MAC:$TSOS.MACROLIB.V10 12 12 0 0PVV 09:09:43 :CFS:$TT08.CFS.PLAM1 7 7 0 0PVV 09:10:17 :CFS:$TT08.S.214.0PVV.CIFLIB 58 0 58 0PVV OI 09:10:17 :CFS:$TT08.CFS.PLAM1 8 0 8 0PVV 09:10:51 NO ENTRIES FOUND 09:11:22 :CFS:$TT08.S.214.0PVV.CIFLIB 288 272 16 0PVV OI 09:11:22 :CFS:$TT08.CFS.PLAM1 97 11 86 0PVV 09:11:56 :CFS:$TT08.CFS.MDCCRDX.SRC 175 0 175 0PVV O 09:12:30 :CFS:$TT08.CFS.MDCCRDX.SRC 377 0 377 0PVV O 09:13:04 :CFS:$TT08.CFS.MDCCRDX.SRC 429 0 429 0PVV O 09:13:35 :CFS:$TT08.CFS.MDCCRDX.SRC 428 0 428 0PVV O 09:14:09 :CFS:$TT08.CFS.MDCCRDX.SRC 353 0 353 0PVV O 09:14:43 :CFS:$TT08.CFS.MDCCRDX.SRC 255 0 255 0PVV O 09:15:17 :CFS:$TT08.CFS.MDCCRDX.SRC 916 916 0 0PVV I 09:15:17 :CFS:$TT08.CFS.MDCCRDX.SRC.FLM 221 0 221 0PVV O 09:15:17 :O:$FLAM.FLAM 20 20 0 0PVV EX 09:15:17 :CFS:$TT08.CFS.PLAM1 2 0 2 0PVV 09:15:17 :CFS:$TT08.S.IN.CFS.PLAM1.ASS.0PVV.134253 1 1 0 0PVV EX 09:15:17 :CFS:$TT08.S.IN.CFS.LIB.XXX.DO.FLAMK.0PVV.42 1 1 0 0PVV EX 09:15:52 NO ENTRIES FOUND 09:16:23 NO ENTRIES FOUND
/DO CFS.USERLIB.BEISPIEL(FILESTAT),...
This BS2000 DO procedure will measure an individual TSN, a task with a specific Job name, or all tasks running under a specific userid. The procedure will repeatedly measure the number of IO's incurred during the previous measurement cycle by all or specific open files. In addition, the CPU usage and other information relating to the task will be displayed as well as being saved to a file. When monitoring a specific Job name or userid, the procedure will wait until the first of the tasks to be measured has been started. The procedure will be automatically terminated if no task specified for measurement exists in the system. The measurement can also be terminated earlier if a special Job variable is set to a value of 'END' by the user.
Execution:
/DO $user-id.CFS.USERLIB.BEISPIEL(FILESTAT), ...
JOBNAME=*NONE | jobnam
This parameter can be used to monitor a task with a specific Job name. If no task with this Job name exists, the procedure will wait until the first task with this name is started. The measurement process will be automatically terminated when the task with the specified Job name terminates with a LOGOFF.
USERID=*NONE | userid
This parameter will cause all tasks logged on under a specific userid to be measured. If no task exists under this userid, the procedure will wait until one is started. The measurement process will be automatically terminated when the last task running under this userid is logged off.
TSN=*NONE | tsn
This parameter will cause the specific task specified by its TSN to be measured. The measurement process will be automatically terminated when the task terminates with LOGOFF.
Only one of the three parameters described above may be used to specify the scope of the measurement process. The other two should contain the default value of *NONE.
FILENAME=*ALL | srch
Only IO's relating to files specified by the search CFS string srch will be included in the measurement process.
Standard: *ALL. No restriction will be made based on file name.
INT=sec The measurement period will be set to sec seconds (Standard: 30 sec).
CFSPHASE=$CFS.CFS
Userid and file name of the CFS program phase.
JOBVAR=$CFS.CFS.JV1
Name of the Job variable which may be used to terminate the measurement process on demand. Column 1 to 3 of the Job variable must be set to the value 'END'.
WFILE=FILESTAT.PROT
The results of the measurement process will be saved to this output file.
Example of a FILESTAT evaluation:
----------------------------------------------------
I O - S T A T I S T I C S FROM 20.07.95 14:31:22
----------------------------------------------------
USER-ID : TT08
INTERVAL : 60 SEC
FILES : *ALL
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:32:30 1 0 :CFS:$TT08.CFS.E.0PVS.143126 1 0PVS
14:32:30 1 0 :CFS:$TT08.CFS.E.0PVS.143126 1 0PVZ EX
14:32:30 2 0 :CFS:$TT08.S.IN.CFS.PLAM1.ASS.0PVZ.826748 2 0PVZ EX
14:32:30 85 0 :CFS:$TT08.CFS.PLAM1 85 0PVZ
14:32:31 102 0 :MAC:$TSOS.MACROLIB.V10 102 0PVZ
14:32:31 6 0 :O:$TSOS.SYSSDF.ASSEMBH.011.USER 6 0PVZ EX
14:32:31 3 0 :O:$TSOS.ASSEMBH 3 0PVZ EX
14:32:31 2 38 :CFS:$TT08.S.214.0PVZ.CIFLIB 40 0PVZ OI
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:32:31 0PVQ TT08 HILBERT 240 3 DIA 0.24 0 0 0
14:32:32 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:32:32 0PVS TT08 HILBERT 240 3 DIA 2.05 8 0 0
14:32:32 0PVZ TT08 HILBERT 255 2 BAT 45.84 259 0 0
14:32:32 SUM OF ALL DELTA IN INTERVALL: 48.13 267 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:33:33 101 0 :CFS:$TT08.CFS.PLAM1 101 0PVZ
14:33:33 44 0 :MAC:$TSOS.MACROLIB.V10 44 0PVZ
14:33:33 0 72 :CFS:$TT08.S.214.0PVZ.CIFLIB 72 0PVZ OI
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:33:34 0PVQ TT08 HILBERT 240 3 DIA 0.13 0 0 0
14:33:34 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:33:34 0PVS TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:33:34 0PVZ TT08 HILBERT 255 2 BAT 52.31 240 0 0
14:33:34 SUM OF ALL DELTA IN INTERVALL: 52.44 240 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:34:37 7 7 :CFS:$TT08.CFS.PLAM1 14 0PVZ
14:34:38 15 0 :MAC:$TSOS.MACROLIB.V10 15 0PVZ
14:34:38 0 124 :CFS:$TT08.S.214.0PVZ.CIFLIB 124 0PVZ OI
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:34:38 0PVQ TT08 HILBERT 240 3 DIA 0.13 0 0 0
14:34:38 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:34:38 0PVS TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:34:39 0PVZ TT08 HILBERT 255 2 BAT 53.79 193 1 0
14:34:39 SUM OF ALL DELTA IN INTERVALL: 53.92 193 1 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:35:40 11 89 :CFS:$TT08.CFS.PLAM1 100 0PVZ
14:35:40 258 16 :CFS:$TT08.S.214.0PVZ.CIFLIB 274 0PVZ OI
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:35:41 0PVQ TT08 HILBERT 240 3 DIA 0.14 0 0 0
14:35:41 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:35:41 0PVS TT08 HILBERT 240 3 DIA 0.01 0 0 0
14:35:41 0PVZ TT08 HILBERT 255 2 BAT 46.50 397 1 0
14:35:41 SUM OF ALL DELTA IN INTERVALL: 46.65 397 1 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:36:45 0 535 :CFS:$TT08.CFS.MDCCRDX.SRC 535 0PVZ O
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:36:45 0PVQ TT08 HILBERT 240 3 DIA 0.13 0 0 0
14:36:45 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:36:46 0PVS TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:36:46 0PVZ TT08 HILBERT 255 2 BAT 57.63 572 0 0
14:36:46 SUM OF ALL DELTA IN INTERVALL: 57.76 572 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:37:47 0 853 :CFS:$TT08.CFS.MDCCRDX.SRC 853 0PVZ O
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:37:48 0PVQ TT08 HILBERT 240 3 DIA 0.14 0 0 0
14:37:48 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:37:48 0PVS TT08 HILBERT 240 3 DIA 0.01 0 0 0
14:37:48 0PVZ TT08 HILBERT 255 2 BAT 57.42 899 0 0
14:37:48 SUM OF ALL DELTA IN INTERVALL: 57.57 899 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:38:52 0 622 :CFS:$TT08.CFS.MDCCRDX.SRC 622 0PVZ O
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:38:52 0PVQ TT08 HILBERT 240 3 DIA 0.13 0 0 0
14:38:52 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:38:52 0PVS TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:38:53 0PVZ TT08 HILBERT 255 2 BAT 57.68 657 0 0
14:38:53 SUM OF ALL DELTA IN INTERVALL: 57.81 657 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:39:54 1 0 :CFS:$TT08.S.IN.CFS.PLAM1.ASS.0PVZ.826748 1 0PVZ EX
14:39:54 0 2 :CFS:$TT08.CFS.PLAM1 2 0PVZ
14:39:54 1 0 :CFS:$TT08.S.IN.CFS.LIB.XXX.DO.FLAMK.0PVZ.08 1 0PVZ EX
TIME TSN USER-ID JOBNAME D-CPU D-IO D-PAGING D-OTHER
14:39:55 0PVQ TT08 HILBERT 240 3 DIA 0.13 0 0 0
14:39:55 0PVR TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:39:55 0PVS TT08 HILBERT 240 3 DIA 0.00 0 0 0
14:39:55 0PVZ TT08 HILBERT 255 2 BAT 33.81 4 0 0
14:39:55 SUM OF ALL DELTA IN INTERVALL: 33.94 4 0 0
----------------------------------------------------------------------------------------
TIME REA WRI FILENAME D-IO TSN OPN
14:40:56 2 0 :CFS:$TT08.CFS.JR.HILBERT.SYSOUT.0PVS.143126 2 0PVS
CPU IO PAGING OTHER
14:40:56 TOTAL : 408.22 3229 2 0
14:40:56 ENDE DER MESSUNG
This CFS procedure will display the current disk utilisation of various pubsets, private volumes or pools. Individual thresholds can be set for the different disks, pubsets or pools. If these thresholds have been exceeded, the values will be highlighted in the display.
Before the procedure is executed, the pubsets, private volumes and pools defined in the system must be mapped in the procedure.
The pubsets, private volumes and pools must be mapped in the procedure to variables &VOL1, &VOL2, &VOL3, ..., and so on up to &VOLn. The contents of the variables should be as follows:
*&VARn='PVSI_VOLUME_POOLNAME_PRO%_PAMPAGES_POOLRELA'
PVSI Catid of a Public Volume Set
VOLUME VSN of a private volume
POOLNAME Name relating to the disks pooled by POOLRELA
PRO% Threshold for the disk utilisation expressed as a percentage of the total space available
PAMPAGES Threshold for the number of free PAM pages
POOLRELA Pool name
Execution:
DO SPACE [, PUB|PRIV|POOL] [, FILE=file]
If no parameters are specified, the status of all pubsets, private volumes and pools defined in the procedure will be displayed.
PUB Only information relating to the specified pubsets will be displayed.
PRIV Only information relating to the specified private volume will be displayed.
POOL Only information relating to the specified pool will be displayed.
FILE=file The information requested will be saved to a SAM file named file. The screen display of the information will be suppressed.
/E CFS.USERLIB.BEISPIEL(ADDRESS-SPACE)
This Enter procedure allows the user to monitor the amount of free memory. This facility is particularly useful if sporadic bottlenecks occur. Procedure variables can be used to write cyclical results to an output file. If a threshold is exceeded, a message can be generated and displayed on the console. Simultaneously, a list of the user and system tasks (each up to 10 tasks with CL3, CL4, CL5, CL6) will be generated.
The procedure can be terminated from the console by entering /INTR tsn .
Before the procedure is started, the name of the results file, the system memory thresholds and the measurement interval must be modified as required to suit the environment as follows:
wfile Name of the file to which the extracted information should be written. (Standard: CFS.UEB.ADDRSP).
lim Threshold for the number of free 4k pages in the system memory (Standard: 500).
int Measurement interval in seconds (Standard: 600).
DO MOD-MAXCPU
This CFS procedure provides the facility for increasing the maximum CPU time allowed, or even to set it to NTL.
The procedure will invoke TAS, select the relevant TSN and perform the modification by changing the affected fields in the TCB (Task Control Block) and in the JTBP (Job to be processed Block) via the symbolic display of the control blocks (%TCB,%JTBP).
Execution:
DO MOD-MAXCPU [, tsn [, time]
If no parameters are specified, the TSN and the new time limit will be requested by prompting.
tsn TSN of the task whose limit should be modified
time The new time limit, or NTL (No Time Limit) if required
The MOD-MAXCPU procedure is no longer strictly necessary, since the functionality has been realised by the provision of the TAS Action Code T.
/E CFS.USERLIB.BEISPIEL(CAN-CONMAX)
This Enter procedure runs under the TSOS userid and monitors the Connect time of all Type 3 (Dialog) tasks running under all userids.
The procedure will cancel all interactive tasks whose logon time stamp was more than ccc minutes ago.
A second parameter www ( <= ccc ) can be used to determine the number of minutes warning a user will receive via a Message command of a possible cancel.
The following parameters exist at the start of the procedure, and may be modified as required:
&CONMAX=720 Maximum Connect time in minutes. All dialog tasks connected longer than this will be cancelled.
&CONWARN=600 Warning time in minutes. All tasks which have bee connected for longer than this time will be warned at regular intervals (see &WAIT) by means of a Message command that their task will be cancelled.
&WAIT=600 Wait time in seconds. To reduce the system overhead, a wait of &WAIT seconds will be introduced between the execution of each cycle of the procedure.
The Wait time thus also has the effect of only sending warning messages to users at this frequency.
&USID=-TSOS Userids which should be excluded from the process. Multiple userids can be excluded by specifying them in the format: -user1+-user2+- ...
It is also possible to specify that only certain userids should be monitored. The userids must then be specified in the format: user1,user2, ...
&JOBT=3 Only tasks of this Type will be monitored.
Job type 3 = Dialog tasks.
The procedure must also be modified to reflect the userid and password for access to $CONSOLE.
The Enter job for this procedure can only be terminated by a Cancel command.
/E CFS.USERLIB.BEISPIEL(CAN-CPUMAX)
This Enter procedure runs under the TSOS userid and monitors the CPU utilisation of all Type 3 (Dialog) tasks running under each userid, with the exception of TSOS itself.
The procedure monitors all interactive tasks (&JOBT=3, &PRI=>239, &USID=-TSOS), which have used more than &CPUMAX CPU seconds (&CPUMAX=8) during a measurement interval of &INT seconds (&INT=10). If the &WARNING parameter is set to 'Y' (Standard), the tasks will be warned repeatedly (&WARNCNT=3) via a Message command about an imminent Cancel command. Thereafter, or immediately if &WARNING='N', those tasks exceeding the specified CPU time will be cancelled.
The following parameters exist at the start of the procedure, and may be modified as required:
&INT=10 Measurement interval in seconds, over which the CPU time utilisation will be measured.
&CPUMAX=8 Delta value for the CPU time in seconds. All tasks which have used more than this number of CPU seconds during the specified measurement interval will be flagged.
&USID=-TSOS Userids which should be excluded from the process. Multiple userids can be excluded by specifying them in the format: -user1+-user2+- ...
It is also possible to specify that only certain userids should be monitored. The userids must then be specified in the format: user1,user2, ...
&JOBT=3 Only tasks of this Type will be monitored.
Job Type 3 = Dialog tasks.
&PRI=>239 Only those tasks with a priority higher than that specified will be analysed.
&WARNING='Y' All tasks which have exceeded their allowed CPU time will be warned by means of a Message command of being imminently cancelled.
If &WARNING='N' has been specified, the task will be cancelled immediately. In this case the &WARNCNT parameter is irrelevant.
&WARNCNT=3 If the CPU hog exceeds the permissable CPU time during 3 consecutive measurement intervals, it will be cancelled forthwith. If the CPU time is not exceeded during one of these intervals, the internal counter for this task will be reset to 0.
&WAIT=60 Wait time in seconds between the individual measurement cycles. This wait cycle of &WAIT seconds is introduced to reduce the system overhead imposed by the procedure.
The wait time also ensures that the test and warning messages only occur in this interval.
The relevant userid and password for access to $CONSOLE must be entered in the procedure.
The Enter job for this procedure can only be terminated by means of a Cancel command.
/E CFS.USERLIB.BEISPIEL(CAN-IDLE)
This Enter procedure runs under the TSOS userid and monitors the CPU activity of all Type 3 (Dialog) tasks.
The procedure will cancel all inactive tasks, identified as those which have used no CPU resources during the last &IDLE minutes.
The parameters which can be modified by the user are inserted at the beginning of the procedure.
&IDLE=300 Idle time in minutes. All tasks which have not used any CPU resources during the last 300 minutes will be cancelled.
Too large a value should not be entered for &IDLE, since even idle tasks do use some CPU resources over a long period of time.
&WAIT=60 Wait time in seconds between the individual measurement cycles. This wait cycle of &WAIT seconds is introduced to reduce the system overhead imposed by the procedure.
The Enter job for this procedure can only be terminated by means of a Cancel command.
This CFS procedure will select all files from the current userid currently residing in HSMS Storage Level S2, i.e. those that have been migrated. A BS2000 DO procedure will be created in which a SECURE command will be issued for all those files marked with X. This will result in those files being restored.
Restoring multiple files has the advantage that all marked files will be processed with a single command, and hence only one HSMS task will be created.
The procedure thus created will be started as an Enter job and monitored by the Job Report system.