General
Domain: | Job variables | |
Macro type: | Type S (with version=0): standard form/D/E/L form |
Macro description
The DONEVT macro is used to delete one or more conditions previously linked by means of an ONEVT macro to an event item declared with the ENAEI macro. The user can also delete all currently existing conditions for job variable events.
The user must issue the DONEVT macro before the DISEI macro, i.e. delete a condition before specifying the related event item. If this is not done, the results will be incorrect.Conditions for job variable events can be deleted in the following three ways:
The ONEVT counter (COUNT operand) reaches the value zero.
The program terminates.
A DONEVT macro deletes the condition.
Macro call format and operand description
Operation | Operands |
|
|
EIID=
Specifies the conditions to be deleted which were previously set for a job variable event using the ONEVT macro.
*ALL
All conditions which still exist for job variable events are deleted.
addr
Symbolic address of the event item ID.
(r)
Register containing the symbolic address of the event item ID.
MF=
PREFIX=
MACID=
PARAM=
For a description of the MF, PREFIX, MACID and PARAM operands, see "The MF operand". The permitted values and defaults for MF for this macro are indicated at the beginning of the macro description, those for PREFIX and MACID in the description of the VERSION operand.
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.
With the D form of this macro call a prefix (pre=1...3 letters) can be specified. Default: pre=DON
1
The macro expansion is compatible with JV >= V10.0.
With the C form, D form or M form of the macro call a prefix PREFIX (p=1 letter) can be specified, and with the C and D forms MACID also.
POST=
Specifies a 2-byte value that can be used at program level to identify the DONEVT (in combination with the event item ID). The value must have been set with the ONEVT macro.
Specification of this operand is permissible only in conjunction with VERSION=1 or higher.
val
2-byte Assembler constant of any format.
r
Register containing the address of the 2-byte field in which the user stored the value.
Return information and error flags
with VERSION=0:
R15 |
| A return code relating to execution of the DONEVT macro (VERSION=0) is passed in register R15: | ||||||||||||||||
X'bb' | X'aa' | Meaning |
X'00' | X'00' | Execution terminated normally |
X'00' | X'04' | Function not executed: invalid address for event item |
X'04' | X'04' | Function not executed: event item not found |
X'08' | X'04' | Function not executed: system error (space management) |
X'FF' | Function not executed: CJC not available in the system |
With VERSION=1:
Following initialization of the standard header (when MF=S/L is specified in the call), the return information is made available at the symbolic address <PREFIX><MACID>RET (4 bytes).
Standard- |
| A return code relating to execution of the DONEVT macro (VERSION=1) is passed in the standard header: (aaaa = main code, bb = subcode1, cc = subcode2) | ||||||||||||||||
X'cc' | X'bb' | X'aaaa' | Meaning |
X'00' | X'00' | X'0000' | Execution terminated normally |
X'00' | X'01' | X'0004' | Function not executed: invalid address for event item |
X'04' | X'01' | X'0004' | Function not executed: event item not found |
X'08' | X'20' | X'0004' | Function not executed: system error |
X'FFFF' | Function not executed: error during initialization of the standard header (see "Macro level" ) |
In addition to the return codes named in VERSION=0 or 1, the general JV return codes for basic errors (e.g. invalid address for the operand list) may also appear. To find their meaning, see the relevant explanation under macro IDEJVS ("Macro level").
DSECT
DONEVT DONEVT MF=D,VERSION=1,PREFIX=A 1 DONEVT MFCHK MF=D, C 1 SUPPORT=(C,D,E,L,M,S), C 1 PREFIX=A, C 1 MACID=VSC, C 1 DMACID=VSC, C 1 DNAME=DONPL, C 1 PARAM=, C 1 SVC=190 2 DONEVT DSECT , 2 *,##### PREFIX=A, MACID=VSC ##### 1 AVSCFHDR FHDR MF=(C,AVSC),EQUATES=NO 2 AVSCFHDR DS 0A 2 AVSCFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 2 * 2 AVSCIFID DS 0A 0 INTERFACE IDENTIFIER 2 AVSCFCTU 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 AVSCFCT DS AL1 2 FUNCTION NUMBER 2 AVSCFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 2 * 2 AVSCRET DS 0A 4 GENERAL RETURN CODE 2 AVSCSRET DS 0AL2 4 SUB RETURN CODE 2 AVSCSR2 DS AL1 4 SUB RETURN CODE 2 2 AVSCSR1 DS AL1 5 SUB RETURN CODE 1 2 AVSCMRET DS 0AL2 6 MAIN RETURN CODE 2 AVSCMR2 DS AL1 6 MAIN RETURN CODE 2 2 AVSCMR1 DS AL1 7 MAIN RETURN CODE 1 2 AVSCFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 2 * 1 AVSCPCON DS X PARAM.-CONTROL 1 AVSCPREG EQU X'40' PARAM. IN REGISTER 1 AVSCXREG EQU X'20' POST IN REGISTER 1 AVSCXSPE EQU X'04' POST SPECIFIED 1 AVSCPTPR EQU X'02' P2 CALLER 1 AVSCPKEY EQU X'01' PARAM. IS KEYWORD 1 AVSCUNUD DS CL1 UNUSED 1 AVSCPOST DS H POST-VALUE 1 ORG AVSCPOST 1 AVSCPOSR DS AL1 REG. CONT. POST-VALUE 1 DS AL1 NOT USED IN THIS CONTEXT 1 AVSCEIID DS A A(IDENTIFIER) 1 ORG AVSCEIID 1 AVSCREG DS X REGISTER # 1 AVSCUNU2 DS CL3 UNUSED 1 AVSC# EQU *-AVSCFHDR LENGTH 1 * 1 * RETURNCODES 1 * 1 AVSCOK EQU X'00000000' SUCCESSFUL CALL 1 AVSCINAD EQU X'00010004' INVALID PARM.-LIST 1 AVSCINEI EQU X'04010004' INVALID IDENTIFIER 1 AVSCSYSE EQU X'08200004' SYSTEM ERROR