Allgemeines
Anwendungsgebiet: | Jobvariablen |
Makrotyp: | S-Typ: (Standardform/C-/D-/E-/L-Form) siehe Abschnitt „Der Operand MF“ |
Bei der C-Form und D-Form des Makroaufrufs kann ein Präfix PREFIX (pre = 1..3 Buchstaben) angegeben werden (siehe Abschnitt „Der Operand PREFIX“). | |
Voreinstellung: | PREFIX = IDJ |
Makrobeschreibung
Der Makro DCLJV ordnet einer Jobvariablen einen Kettungsnamen zu und erstellt für die Jobvariable - falls sie noch nicht vorhanden ist - einen Katalogeintrag.
Hinweise
Die Zuordnung zwischen Jobvariablen-Kettungsnamen und Jobvariablen-Namen wird in der JV-LINK-Tabelle des Auftrags festgehalten.
Pro Kettungsnamen kann nur ein Eintrag in der JV-LINK-Tabelle vorhanden sein, eine Jobvariable kann dagegen mehreren Kettungsnamen zugeordnet sein.
Makroaufrufformat und Operandenbeschreibung
Operation | Operanden |
|
|
jvname
ist der vollqualifizierte Pfadname einer permanenten oder temporären Jobvariablen. Existiert die Jobvariable bereits, muss der Benutzer die Zugriffsberechtigung haben. Handelt es sich um eine neue Jobvariable, wird sie unter dem angegebenen Namen katalogisiert (entspricht dem Makroaufruf CATJV mit Standardwerten). In diesem Fall darf nur die Systembetreuung eine andere Benutzerkennung angeben.
LINK=
bezeichnet den Kettungsnamen (erstes Zeichen ist ein „*“), unter dem die Jobvariable innerhalb des Auftrags ab sofort angesprochen werden kann. Existiert für den angegebenen Kettungsnamen bereits eine Zuordnung, so wird die alte Zuordnung des Kettungsnamens aufgehoben und durch die neue Zuordnung ersetzt.
*jvlink
Kettungsname der Jobvariablen. Die maximale Länge des Kettungsnamens ist 8 Zeichen einschließlich „*“.
MF=
PREFIX=
Zur Beschreibung der Operanden MF und PREFIX siehe "Der Operand MF ".
Die gültigen Werte sind zu Beginn der Makrobeschreibung und aus dem Aufrufformat ersichtlich.
VERSION=
legt fest, welcher Version die Makroauflösung entsprechen soll.
0
ist Voreinstellung: Die Makroauflösung entspricht dem Stand JV <= V8.7. Der Operand MF=D/C zur Erzeugung einer DSECT/CSECT wird dabei nicht unterstützt (siehe Hinweis DSECT).
1
Die Makroauflösung entspricht JV >= V10.0.
Hinweise zur DSECT
Der Aufruf des Makros DCLJV mit den Operanden MF=D und VERSION=1 erzeugt eine DSECT für die Operandenliste des DCLJV-Makros (VERSION=1).
Eine DSECT für den Makro mit VERSION=0 wird mit Aufruf des Makros IDJDC [D][,prefix] erzeugt.
Rückinformation und Fehleranzeigen
siehe Kapitel "Meldungen" - "Makroebene" .
DSECT
DCLJV DCLJV MF=D,VERSION=1 1 *********************************************************************** 1 * VERSION 203 1 *********************************************************************** 1 * D C L J V P A R A M E T E R L I S T * 1 *********************************************************************** 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=DCLJV,INTCOMP=001 1 DCLJV DSECT 1 *********************************************************************** 1 * UNIT=41, FUNCTION=6, VERSION=<PARAMETER VERSION> * 1 *********************************************************************** 1 FHDR MF=(C,IDJD) 2 DS 0A 2 IDJDFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 2 * 2 IDJDIFID DS 0A 0 INTERFACE IDENTIFIER 2 IDJDFCTU 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 IDJDFCT DS AL1 2 FUNCTION NUMBER 2 IDJDFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 2 * 2 IDJDRET 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 IDJDSRET DS 0AL2 4 SUB RETURN CODE 2 IDJDSR2 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 IDJDR2OK EQU X'00' All correct, no additional info 2 IDJDR2NA EQU X'01' Successful, no action was necessary 2 IDJDR2WA EQU X'02' Warning, particular situation 2 IDJDSR1 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 IDJDRFSP EQU X'00' FUNCTION SUCCESSFULLY PROCESSED 2 IDJDRPER EQU X'01' PARAMETER SYNTAX ERROR 2 * 3 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'01' - X'1F' 2 IDJDRFNS EQU X'01' CALLED FUNCTION NOT SUPPORTED 2 IDJDRFNA EQU X'02' CALLED FUNCTION NOT AVAILABLE 2 IDJDRVNA EQU X'03' INTERFACE VERSION NOT SUPPORTED 2 * 2 IDJDRAER EQU X'04' ALIGNMENT ERROR 2 IDJDRIER EQU X'20' INTERNAL ERROR 2 IDJDRCAR EQU X'40' CORRECT AND RETRY 2 * 2 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'40' - X'7F' 2 IDJDRECR EQU X'41' SUBSYSTEM (SS) MUST BE CREATED 2 * EXPLICITELY BY CREATE-SS 2 IDJDRECN EQU X'42' SS MUST BE EXPLICITELY CONNECTED 2 * 2 IDJDRWAR EQU X'80' WAIT FOR A SHORT TIME AND RETRY 2 IDJDRWLR EQU X'81' " LONG " 2 IDJDRWUR 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 IDJDRTNA EQU X'81' SS TEMPORARILY NOT AVAILABLE 2 IDJDRDH EQU X'82' SS IN DELETE / HOLD 2 * 2 IDJDMRET DS 0AL2 6 MAIN RETURN CODE 2 IDJDMR2 DS AL1 6 MAIN RETURN CODE 2 2 IDJDMR1 DS AL1 7 MAIN RETURN CODE 1 2 * 2 * SPECIAL LAYOUT OF LINKAGE_MAIN_RETURN_CODE (YYYY IN X'00XXYYYY') 2 * 2 IDJDRLNK EQU X'FFFF' LINKAGE ERROR / REQ. NOT PROCESSED 2 IDJDFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 2 * 1 *********************************************************************** 1 * END OF STANDARD HEADER. START OF SPECIAL DCLJV PARAMETER LIST * 1 *********************************************************************** 1 IDJDHDRI EQU X'00290601',4 1 IDJDJVL DS CL8 JV LINKNAME 1 IDJDJV DS CL54 JVNAME 1 IDJDFLG DS XL2 FLAG RESERVED 1 IDJDJVS DS A RESERVED 1 IDJDPLLN EQU *-DCLJV LENGTH OF DSECT 1 *********************************************************************** 1 SPACE