General
Domain: | Job variables |
Macro type: | Type S (standard form/C/D/E/L form) |
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 ERAJV macro erases one or more job variable entries from the file catalog, or only the job variable value (in which case the job variable length is reset to zero).
The job variable name can be entered partially qualified and with wildcards.
Macro call format and operand description
Operation | Operands |
|
|
jvid
Identifies the job variable that is to be erased.
jvid can be:
jvname | A fully or partially qualified path name of a permanent or temporary job variable. |
*jvlink | A valid job variable link name. |
temp | All temporary job variables of the job are erased. |
IGNORE=
Specifies whether protection attributes included in the catalog for the job variable are to be ignored on erasure.
Non-privileged users can ignore the protection attributes ACCESS=READ, BASIC-ACL and EXDATE greater than the current date. The operand only takes effect when VERSION=1 is specified.
NONE
Default value; causes an error message to be issued if an attempt is made to erase a job variable which possesses one of the specified protection attributes.
protect1
Specifies the protection attribute to be ignored.
(protect1,...4)
The following values can be specified individually or in a list:
ACCESS: | The protection attributes ACCESS=READ and BASIC-ACL are ignored. |
EXDATE: | An expiration date greater than the current date is ignored. |
RDPASS: | Privileged users only |
WRPASS: | Privileged users only |
CHECK=
Specifies whether it is possible to influence the erasure of job variables. Option for intervention: response to system query as to whether erasure is really to take place. In batch mode, this operand is dynamically adapted in the event of a conflict, as only NO is meaningful in batch mode. The operand only takes effect when VERSION=1 is specified
STD
Default value; defines the following: MULTIPLE for interactive mode (global query) and NO for procedure/batch mode (erasure without prior warning).
NO
The erasure of job variables cannot be additionally influenced.
MULTIPLE
Results in a global query for each user ID (message: JVS0465), but only if more than one job variable is to be erased. MULTIPLE is the default value in interactive mode.
PVS
Results in a global query for each pubset (message: JVS0468), but only if more than one job variable is to be erased.
SINGLE
A query is made for each job variable that is to be erased (message: JVS0469).
Note
With MULTIPLE, PVS and SINGLE, the following query is appended to each message:
REPLY (Y=YES; N=NO; T=TERMINATE; [,CHECK=mode]) )
Response | Effect |
Y | Erase request is executed |
N | Erase request is not executed, message JVS046A |
T | Erasure is aborted |
Any other response | Same effect as “N” |
Optional suffix: | |
CHECK= | Check mode is not modified. |
CHECK=<mode> | Check mode (STD, NO, MULTIPLE, PVS or SINGLE) is set. |
Table 31: Response options in the check dialog with ERAJV
PASS=
Enables the user to erase password-protected job variables. The operand only takes effect when VERSION=1 is specified.
Passwords specified here are not entered in the password table of the job.
NONE
Default value; prevents the erasure of password-protected job variables.
password1
Specifies the password that is to be ignored when job variables are erased.
(password1,...3)
Up to three passwords can be specified in a list.
DATA=
Determines the scope of erasure. The operand only takes effect when VERSION=1 is specified.
NO
Default value; the job variable entry is erased.
YES
The value of the job variable is reset to zero.
SELADDR=
Limits the jobset specified by the fully or partially qualified path name jvid, with further selection criteria. If the operand is not specified, the IDJFJVS field is set to zero, and no further selection takes place.
Values can only be specified with SVC190 and with version 1
For further details, see macro description STAJV.
selection
Symbolic address of the parameter list which was created with the desired selection criteria by calling the JVSEL macros.
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 the macro expansion is to be compatible with.
0
Default value: the macro expansion is compatible with JV <= V8.7.
The operand MF=C/D, which generates a CSECT or DSECT, is not supported by this version (see note on DSECT).
1
The macro expansion is compatible with JV >= V10.0.
Notes concerning the CSECT/DSECT
Calling the ERAJV macro with the operands MF=D and VERSION=1 generates a DSECT for the operand list of the ERAJV macro (VERSION=1).
A CSECT or DSECT can be created by calling the IDJER macro for a ERAJV macro with VERSION=0. A CSECT is generated with IDJER [,prefix], and a DSECT with IDJER D[,prefix].
Return information and error flags
see chapter "Macro level".
DSECT
ERAJV ERAJV MF=D,VERSION=1 1 *********************************************************************** 1 * VERSION 400 1 *********************************************************************** 1 * E R A J V P A R A M E T E R L I S T * 1 *********************************************************************** 1 #INTF REFTYPE=REQUEST, C 1 INTNAME=ERAJV,INTCOMP=001 1 ERAJV DSECT 1 *********************************************************************** 1 * UNIT=41, FUNCTION=3, VERSION=<PARAMETER VERSION> * 1 *********************************************************************** 1 FHDR MF=(C,IDJE) 2 DS 0A 2 IDJEFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 2 * 2 IDJEIFID DS 0A 0 INTERFACE IDENTIFIER 2 IDJEFCTU 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 IDJEFCT DS AL1 2 FUNCTION NUMBER 2 IDJEFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 2 * 2 IDJERET 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 IDJESRET DS 0AL2 4 SUB RETURN CODE 2 IDJESR2 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 IDJER2OK EQU X'00' All correct, no additional info 2 IDJER2NA EQU X'01' Successful, no action was necessary 2 IDJER2WA EQU X'02' Warning, particular situation 2 IDJESR1 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 IDJERFSP EQU X'00' FUNCTION SUCCESSFULLY PROCESSED 2 IDJERPER EQU X'01' PARAMETER SYNTAX ERROR 2 * 3 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'01' - X'1F' 2 IDJERFNS EQU X'01' CALLED FUNCTION NOT SUPPORTED 2 IDJERFNA EQU X'02' CALLED FUNCTION NOT AVAILABLE 2 IDJERVNA EQU X'03' INTERFACE VERSION NOT SUPPORTED 2 * 2 IDJERAER EQU X'04' ALIGNMENT ERROR 2 IDJERIER EQU X'20' INTERNAL ERROR 2 IDJERCAR EQU X'40' CORRECT AND RETRY 2 * 2 GLOBALLY DEFINED ISL ERROR CODES IN CLASS X'40' - X'7F' 2 IDJERECR EQU X'41' SUBSYSTEM (SS) MUST BE CREATED 2 * EXPLICITELY BY CREATE-SS 2 IDJERECN EQU X'42' SS MUST BE EXPLICITELY CONNECTED 2 * 2 IDJERWAR EQU X'80' WAIT FOR A SHORT TIME AND RETRY 2 IDJERWLR EQU X'81' " LONG " 2 IDJERWUR 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 IDJERTNA EQU X'81' SS TEMPORARILY NOT AVAILABLE 2 IDJERDH EQU X'82' SS IN DELETE / HOLD 2 * 2 IDJEMRET DS 0AL2 6 MAIN RETURN CODE 2 IDJEMR2 DS AL1 6 MAIN RETURN CODE 2 2 IDJEMR1 DS AL1 7 MAIN RETURN CODE 1 2 * 2 * SPECIAL LAYOUT OF LINKAGE_MAIN_RETURN_CODE (YYYY IN X'00XXYYYY') 2 * 2 IDJERLNK EQU X'FFFF' LINKAGE ERROR / REQ. NOT PROCESSED 2 IDJEFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 2 * 1 *********************************************************************** 1 * END OF STANDARD HEADER. START OF SPECIAL ERAJV PARAMETER LIST * 1 *********************************************************************** 1 IDJEHDRI EQU X'00290301',4 1 IDJEJV DS CL80 JVNAME 1 DS CL40 RESERVED 1 IDJEFLAG DS X FLAGS 1 IDJEDATA EQU X'80' 7-7 DATA=YES 1 * SET JV-VALUE TO NULLSTRING 1 IDJEECT EQU X'40' 6-6 SET BY CMD PROCESSING 1 * (NOT USED BY MACROCALLER) 1 IDJELIST EQU X'20' 5-5 LIST=YES 1 * (NOT USED BY MACROCALLER) 1 IDJENPWT EQU X'10' 4-4 NO PASSWORD TEST 1 * (PRIV CALLER ONLY) 1 IDJESEVR EQU X'08' 3-3 SEVER PROCESSING 1 * (ONLY USED BY SEVER-CMD) 1 IDJETERM EQU X'04' 2-2 TERM. PROCESSING 1 * (ONLY USED BY LOGOFF-CMD) 1 IDJEENCR EQU X'02' 1-1 NO ENCRYPTION OF PASSWD 1 * REQUIRED 1 IDJENEWI EQU X'01' 0-0 NEW INTERFACE(V9.5 UP) 1 IDJECHK DS X FLAGS FOR CHECK INDICATOR 1 IDJECNO EQU X'80' 7-7 CHECK=NO 1 * ALL JVS ARE DELETED - NO 1 * FEEDBACK TO CALLER 1 IDJECMUL EQU X'40' 6-6 CHECK=MULTIPLE 1 * IT IS ASKED IF ALL JVS OF 1 * THE CURRENT USERID SHOULD 1 * BE DELETED 1 IDJECPVS EQU X'20' 5-5 CHECK=PVS 1 * IT IS ASKED IF ALL JVS OF 1 * THE CURRENT PUBSET SHOULD 1 * BE DELETED 1 IDJECSIN EQU X'10' 4-4 CHECK=SINGLE 1 * IT IS ASKED FOR EACH JV IF 1 * THE THE JV SHOULD BE DELETED 1 IDJECDEF EQU X'08' 3-3 CHECK=STD 1 * DEFAULTS ARE USED 1 * DIALOG: MULTIPLE 1 * OTHERS: NO 1 IDJEIGNO DS X FLAGS FOR IGNORE PARAMETER 1 IDJEINON EQU X'80' 7-7 IGNORE=NONE 1 * ALL PROTECTIONS ARE CHECKED 1 * IF PROTECTION DEFINED ERASE 1 * IS REJECTED 1 IDJEIRDP EQU X'40' 6-6 IGNORE=RDPASS 1 * RDPASS PROTECTION IS 1 * IGNORED. JV IS DELETED 1 IDJEIWRP EQU X'20' 5-5 IGNORE=WRPASS 1 * WRPASS PROTECTION IS 1 * IGNORED. JV IS DELETED 1 IDJEIACC EQU X'10' 4-4 IGNORE=ACCESS 1 * ACCESS=READ IS IGNORED. 1 * JV IS DELETED 1 IDJEIEXD EQU X'08' 3-3 IGNORE=EXDATE 1 * IGNORE RETPD DEFINITION. 1 IDJEFLG1 DS X FLAG 1 1 IDJEP2 EQU X'80' 7-7 CALLER=P2 1 IDJNSTEP DS 6XL1 3 ERR'S 1 IDJERESE DS 14XL1 UNUSED 1 IDJEPWD1 DS CL4 PASSWORD1 SET DEFAULT 0 1 IDJEPWD2 DS CL4 PASSWORD2 SET DEFAULT 0 1 IDJEPWD3 DS CL4 PASSWORD3 SET DEFAULT 0 1 * THE FOLLOWING FIELD IS SUPPLIED ONLY FOR CMD PROCESSING 1 IDJEADDR DS CL4 SORT TABLE ADDRESS 1 IDJEJVS DS A RESERVED 1 IDJEPLLN EQU *-ERAJV LENGTH OF DSECT 1 *********************************************************************** 1 SPACE