Allgemeines
Anwendungsgebiet: | Jobvariablen |
|
Makrotyp: | S-Typ: (Standardform/C-/D-E-/L-Form) | |
Bei der C-Form und D-Form des Makroaufrufs kann ein Präfix PREFIX (pre = 1..3 Buchstaben) angegeben werden (siehe Abschnitt „Der Operand MF“). | ||
Voreinstellung: | PREFIX=IDJ | |
Makrobeschreibung
Mit dem Makro TIMJV können auf Programmebene folgende Elemente im Systemteil einer auftragsüberwachenden Jobvariablen modifiziert werden (siehe auch Kommando MODIFY-MONJV):
Zeitstempel (Operand TIMESTAMP)
Name des zu überwachenden Auftrages (Operand DESCRIPTOR)
Auftragsspezifische Informationen (Operand USER-INFORMATION)
Format und Position der Elemente im Systemteil sind im Abschnitt „Werte für überwachende Jobvariablen“ beschrieben.
Makroaufrufformat und Operandenbeschreibung
Operation | Operanden |
|
|
MONJV=jvid
Name der auftragsüberwachenden Jobvariablen. Ohne Angabe einer Jobvariablen wirkt der Makro auf die auftragsüberwachende Jobvariable des Auftrags, in dem er aufgerufen wurde.
TIMESTAMP=
Gibt an, ob ein Zeitstempel für die Auftragsüberwachung gesetzt werden soll.
*UNCHANGED
Voreinstellung: Es wird kein Zeitstempel geschrieben.
*SET
Es wird ein Zeitstempel in UTC-Zeit geschrieben.
Format: yyyy-mm-ddhhmmss.
DESCRIPTOR=
Gibt an, ob der Name des zu überwachenden Auftrags gesetzt werden soll.
*UNCHANGED
Voreinstellung: Es wird kein Wert geschrieben.
auftragsname
Name des zu überwachenden Auftrags (max. 8 Zeichen).
INFO
Gibt an, ob auftragsspezifische Informationen gesetzt werden sollen.
*UNCHANGED
Voreinstellung: Es wird kein Wert geschrieben.
auftragsinfos
Auftragsspezifische Informationen (max. 58 Byte Zeichen).
PASS=kennwort
Lese- oder Schreibkennwort der Jobvariablen.
MF=
PREFIX=
Zur Beschreibung der Operanden MF und PREFIX siehe "Allgemeine Makro-Operanden". Die gültigen Werte sind zu Beginn der Makrobeschreibung dargestellt und aus dem Aufrufformat ersichtlich.
VERSION=1
Voreinstellung: Die Makroauflösung entspricht dem Stand JV >= V13.0B.
Hinweis
Die Operanden TIMESTAMP, DESCRIPTOR und INFO dürfen nur bei der Makrogenerierung mit MF=S bzw. MF=L angegeben werden
Rückinformation und Fehleranzeigen
siehe Abschnitt "Makroebene".
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