RELJV Remove JV-LINK entry

General

Domain:	Job variables
Macro type:	Type S (standard form/C/D/E/L form) see section “The MF operand”
In the C and D forms of the macro, a prefix (PREFIX = pre, where pre is 1..3 letters) can be specified (see section “The PREFIX operand”).
Default value:	PREFIX=IDJ

Macro description

The RELJV macro deletes one or all JV-LINK entries from the JV-LINK table. The entry to be deleted is selected via its link name.

Macro call format and operand description

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

LINK=*jvlink
Valid link name of a job variable (as defined in DCLJV) which is to be deleted from the JV-LINK table. The link name may be up to 8 characters long, including the asterisk (*).
If a link name consisting of blanks is specified, all entries are deleted from the JV-LINK table.

MF=
PREFIX=
For a description of the MF and PREFIX operands, see section "General macro operands".
Their permitted values are indicated at the beginning of the macro description and in the macro call format.

Return information and error flags

see section "Macro level".

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