General
Domain: | Job variables |
Macro type: | Type S (standard form/C form/D form/E form /L form) |
A PREFIX (pre = 1..3 characters) can be specified for the C form and D form of the macro call (see section “The PREFIX operand”); | |
Default setting: | PREFIX=IDJ |
Macro description
The following elements in the system section of a job monitoring job variable can be modified at the program level with the TIMJV macro (see also the command MODIFY-MONJV):
Time stamp (operand TIMESTAMP)
Name of the job to be monitored (operand DESCRIPTOR)
Job specific information (operand USER-INFORMATION)
The format and position of the elements in the system section are described in the section “Values for monitoring job variables”.
Macro call format and operand description
Operation | Operands |
|
|
MONJV=jvid
Name of the monitoring job variable. When no job variable is specified, the macro affects the monitoring job variable of the job in which it was called.
TIMESTAMP=
Specifies if a time stamp is to be set for job monitoring.
*UNCHANGED
Default: No time stamp is recorded.
*SET
A time stamp is recorded in GMT time.
Format: yyyy-mm-ddhhmmss.
DESCRIPTOR=
Specifies if the name of the job to be monitored is set.
*UNCHANGED
Default: No value is recorded.
jobname
Name of the job to be monitored (max. 8 byte long string).
INFO=
Specifies if job-specific information is to be set.
*UNCHANGED
Default: No value is recorded.
jobinfo
Job-specific information (max. 58 byte long string).
PASS=password
Read or write password of the job variable.
MF=
PREFIX=
See "The MF operand" for descriptions or the MF and PREFIX operands.
The valid values are shown at the beginning of the macro description and can be obtained from the call format.
VERSION=1
Default. The macro expansion is compatible with JV >= V13.0B.
Note
The operands TIMESTAMP, DESCRIPTOR and INFO may only be specified when generating macros with MF=S or MF=L
Return information and error flags
See section "Macro level"
DSECT
TIMJV TIMJV MF=D 1 *********************************************************************** 1 * VERSION 312 1 *********************************************************************** 1 * T I M J V P A R A M E T E R L I S T * 1 *********************************************************************** 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=TIMJV,INTCOMP=001 1 TIMJV DSECT 1 *********************************************************************** 1 * UNIT=41, FUNCTION=34, VERSION=1 * 1 *********************************************************************** 1 FHDR MF=(C,IDJT) 2 DS 0A 2 IDJTFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 2 * 2 IDJTIFID DS 0A 0 INTERFACE IDENTIFIER 2 IDJTFCTU DS AL2 0 FUNCTION UNIT NUMBER 2 * BIT 15 HEADER FLAG BIT, 2 * MUST BE RESET UNTIL FURTHER NOTICE 2 * BIT 14-12 UNUSED, MUST BE RESET 2 * BIT 11-0 REAL FUNCTION UNIT NUMBER 2 IDJTFCT DS AL1 2 FUNCTION NUMBER 2 IDJTFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 2 * 2 IDJTRET DS 0A 4 GENERAL RETURN CODE 2 * 2 * GENERAL_RETURN_CODE CLEARED (X'00000000') MEANS 2 * REQUEST SUCCESSFUL PROCESSED AND NO ADDITIONAL INFORMATION 2 * 2 IDJTSRET DS 0AL2 4 SUB RETURN CODE 2 IDJTSR2 DS AL1 4 SUB RETURN CODE 2 2 * ALWAYS CLEARED (X'00') IF MAIN_RETURN_CODE IS X'FFFF' 2 * Standard subcode2 values as defined by convention: 2 IDJTR2OK EQU X'00' All correct, no additional info 2 IDJTR2NA EQU X'01' Successful, no action was necessary 2 IDJTR2WA EQU X'02' Warning, particular situation 2 IDJTSR1 DS AL1 5 SUB RETURN CODE 1 2 * 2 * GENERAL INDICATION OF ERROR CLASSES 2 * 2 * CLASS A X'00' FUNCTION WAS SUCCESSFULLY PROCESSED 2 * CLASS B X'01' - X'1F' PARAMETER SYNTAX ERROR 2 * CLASS C X'20' INTERNAL ERROR IN CALLED FUNCTION 2 * CLASS D X'40' - X'7F' NO CLASS SPECIFIC REACTION POSSIBLE 2 * CLASS E X'80' - X'82' WAIT AND RETRY 2 * 2 IDJTRFSP EQU X'00' FUNCTION SUCCESSFULLY PROCESSED 2 IDJTRPER EQU X'01' PARAMETER SYNTAX ERROR 2 * 3 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'01' - X'1F' 2 IDJTRFNS EQU X'01' CALLED FUNCTION NOT SUPPORTED 2 IDJTRFNA EQU X'02' CALLED FUNCTION NOT AVAILABLE 2 IDJTRVNA EQU X'03' INTERFACE VERSION NOT SUPPORTED 2 * 2 IDJTRAER EQU X'04' ALIGNMENT ERROR 2 IDJTRIER EQU X'20' INTERNAL ERROR 2 IDJTRCAR EQU X'40' CORRECT AND RETRY 2 * 2 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'40' - X'7F' 2 IDJTRECR EQU X'41' SUBSYSTEM (SS) MUST BE CREATED 2 * EXPLICITELY BY CREATE-SS 2 IDJTRECN EQU X'42' SS MUST BE EXPLICITELY CONNECTED 2 * 2 IDJTRWAR EQU X'80' WAIT FOR A SHORT TIME AND RETRY 2 IDJTRWLR EQU X'81' " LONG " 2 IDJTRWUR EQU X'82' WAIT TIME IS UNCALCULABLY LONG 2 * BUT RETRY IS POSSIBLE 2 * 2 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'80' - X'82' 2 IDJTRTNA EQU X'81' SS TEMPORARILY NOT AVAILABLE 2 IDJTRDH EQU X'82' SS IN DELETE / HOLD 2 * 2 IDJTMRET DS 0AL2 6 MAIN RETURN CODE 2 IDJTMR2 DS AL1 6 MAIN RETURN CODE 2 2 IDJTMR1 DS AL1 7 MAIN RETURN CODE 1 2 * 2 * SPECIAL LAYOUT OF LINKAGE_MAIN_RETURN_CODE (YYYY IN X'00XXYYYY') 2 * 2 IDJTRLNK EQU X'FFFF' LINKAGE ERROR / REQ. NOT PROCESSED 2 IDJTFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 2 * 1 *********************************************************************** 1 * END OF STANDARD HEADER. START OF SPECIAL TIMJV PARAMETER LIST * 1 *********************************************************************** 1 IDJTHDRI EQU X'00292201',4 1 IDJTJV DS CL54 MONJV 1 IDJTFLG DS XL1 FLAG 1 IDJTTIME EQU X'80' 7-7 1=SET TIMESTAMP 0=UNCH 1 IDJTDEUN EQU X'40' 6-6 1=DESCRIPTOR UNCHANGED 1 * 0=DESCRIPTOR GIVEN 1 IDJTINUN EQU X'20' 5-5 1=INFO UNCHANGED 1 * 0=INFO GIVEN 1 IDJTRES1 DS XL1 RESERVED 1 IDJTPASS DS CL4 PASSWORD 1 DS XL12 1 IDJTDESC DS CL8 DESCRIPTOR 1 IDJTINFO DS CL58 INFO 1 IDJTRES2 DS XL2 RESERVED 1 IDJTJVS DS A RESERVED 1 IDJTPLLN EQU *-TIMJV LENGTH OF DSECT 1 *********************************************************************** 1 SPACE