RELJV JV-LINK-Eintrag löschen

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 RELJV löscht einen oder alle JV-LINK-Einträge aus der JV-LINK-Tabelle. Die Auswahl des zu löschenden Eintrags erfolgt über den Kettungsnamen.

Makroaufrufformat und Operandenbeschreibung

Operation	Operanden
RELJV	[LINK=*jvlink] ,MF=S / C / (E,..) / D / L ,PREFIX=IDJ / pre

LINK=*jvlink
gültiger Kettungsname einer Jobvariablen, (wie in DCLJV definiert), der aus der JV-LINK-Tabelle gelöscht werden soll. Der Kettungsname darf einschließlich des „*“ 8 Zeichen lang sein.
Besteht der Kettungsname aus Leerzeichen, werden alle Einträge aus der JV-LINK-Tabelle gelöscht.

MF=
PREFIX=
Zur Beschreibung der Operanden MF und PREFIX siehe Abschnitt "Allgemeine Makro-Operanden".
Die gültigen Werte sind zu Beginn der Makrobeschreibung dargestellt und aus dem Aufrufformat ersichtlich.

Rückinformation und Fehleranzeigen

siehe Kapitel "Makroebene".

DSECT

  RELJV    RELJV MF=D
1 *********************************************************************** 
1 *        VERSION 310
1 *********************************************************************** 
1 *       R E L J V   P A R A M E T E R   L I S T                       * 
1 *********************************************************************** 
1          #INTF REFTYPE=REQUEST,                                        C
1                INTNAME=RELJV,INTCOMP=001
1 RELJV    DSECT
1 *********************************************************************** 
1 *       UNIT=41, FUNCTION=33,  VERSION=1                              * 
1 *********************************************************************** 
1          FHDR   MF=(C,IDJR)
2          DS    0A
2 IDJRFHE  DS    0XL8            0   GENERAL PARAMETER AREA HEADER
2 *
2 IDJRIFID DS    0A              0   INTERFACE IDENTIFIER
2 IDJRFCTU 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 IDJRFCT  DS    AL1             2   FUNCTION NUMBER
2 IDJRFCTV DS    AL1             3   FUNCTION INTERFACE VERSION NUMBER
2 *
2 IDJRRET  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 IDJRSRET DS    0AL2            4   SUB RETURN CODE
2 IDJRSR2  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 IDJRR2OK EQU   X'00'               All correct, no additional info
2 IDJRR2NA EQU   X'01'               Successful, no action was necessary
2 IDJRR2WA EQU   X'02'               Warning, particular situation
2 IDJRSR1  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 IDJRRFSP EQU   X'00'               FUNCTION SUCCESSFULLY PROCESSED
2 IDJRRPER EQU   X'01'               PARAMETER SYNTAX ERROR
2 *  3 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'01' - X'1F'
2 IDJRRFNS EQU   X'01'               CALLED FUNCTION NOT SUPPORTED
2 IDJRRFNA EQU   X'02'               CALLED FUNCTION NOT AVAILABLE
2 IDJRRVNA EQU   X'03'               INTERFACE VERSION NOT SUPPORTED
2 *
2 IDJRRAER EQU   X'04'               ALIGNMENT ERROR
2 IDJRRIER EQU   X'20'               INTERNAL ERROR
2 IDJRRCAR EQU   X'40'               CORRECT AND RETRY
2 *  2 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'40' - X'7F'
2 IDJRRECR EQU   X'41'               SUBSYSTEM (SS) MUST BE CREATED
2 *                                  EXPLICITELY BY CREATE-SS
2 IDJRRECN EQU   X'42'               SS MUST BE EXPLICITELY CONNECTED
2 *
2 IDJRRWAR EQU   X'80'               WAIT FOR A SHORT TIME AND RETRY
2 IDJRRWLR EQU   X'81'                    "     LONG       "
2 IDJRRWUR 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 IDJRRTNA EQU   X'81'               SS TEMPORARILY NOT AVAILABLE
2 IDJRRDH  EQU   X'82'               SS IN DELETE / HOLD
2 *
2 IDJRMRET DS    0AL2            6   MAIN RETURN CODE
2 IDJRMR2  DS    AL1             6   MAIN RETURN CODE 2
2 IDJRMR1  DS    AL1             7   MAIN RETURN CODE 1
2 *
2 * SPECIAL LAYOUT OF LINKAGE_MAIN_RETURN_CODE (YYYY IN X'00XXYYYY')
2 *
2 IDJRRLNK EQU   X'FFFF'             LINKAGE ERROR / REQ. NOT PROCESSED
2 IDJRFHL  EQU   8               8   GENERAL OPERAND LIST HEADER LENGTH
2 *
1 *********************************************************************** 
1 *  END OF STANDARD HEADER. START OF SPECIAL RELJV PARAMETER LIST      * 
1 *********************************************************************** 
1 IDJRHDRI      EQU   X'00292101',4
1 IDJRJVL       DS    CL8                     JV LINKNAME
1 IDJRFLG       DS    XL4                     FLAG RESERVED
1 IDJRJVS       DS    A                       RESERVED
1 IDJRPLLN      EQU   *-RELJV              LENGTH OF DSECT
1 *********************************************************************** 
1          SPACE