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 DCLJV macro assigns a link name to a job variable and generates a catalog entry for a job variable if one does not already exist.
Notes
The assignments of job variable link names to job variable names is recorded in the JV-LINK table of the job.
The JV-LINK table may contain only one entry per link name. A job variable can, however, be assigned to more than one link name.
Macro call format and operand description
Operation | Operands |
|
|
jvname
Fully qualified path name of a permanent or temporary job variable.
If the job variable already exists, the user must have access authorization. If it is a new job variable, it is cataloged under the specified name (corresponds to the CATJV macro with default values). In this case, only systems support may specify a different user ID.
LINK=
Specifies the link name (with * as the first character) by which the job variable can be addressed within the job from this point on. If an assignment for the specified link name already exists, the old link name assignment is replaced by the new assignment.
*jvlink
Link name for the job variable. The link name may be up to 8 characters long, including the asterisk (*).
MF=
PREFIX=
For a description of the MF and PREFIX operands, see "The MF operand". Their permitted values are indicated at the beginning of the macro description and in the macro call format.
VERSION=
Specifies which version of BS2000 the macro expansion is to be compatible with.
0
Default value; the macro expansion is compatible with JV <= V8.7.
The MF=D/C operand, which generates a DSECT or CSECT respectively, is not supported by this version (see note on DSECT).
1
The macro expansion is compatible with JV >= V10.0.
Notes concerning the DSECT
Calling the DCLJV macro with the operands MF=D and VERSION=1 generates a DSECT for the operand list of the DCLJV macro (VERSION=1).
A DSECT for the macro with VERSION=0 is generated by calling the macro IDJDC [D][,prefix].
Return information and error flags
see paragraph "Messages" - "Macro level".
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