EDTUPCB - Subroutine control block

EDTUPCB (subroutine control block) contains the parameters which define the EDT default values for the IEDTCMD function.

Creating the EDTUPCB control block

The IEDTUPCB Assembler macro is used to create the EDTUPCB control block.

Name	Operation	Operands
[name]	IEDTUPCB	[ {  D  | C } ] [,prefix] [,VERSION= {  2  | 3 } ]

name	– Symbolic name of the first DS statement when C is specified. – DSECT name if D is specified. If name is not specified then EDTUPCB is used (preceded by prefix if specified).
D C	A dummy section (DSECT) is generated. A memory section with symbolic addresses is generated (no CSECT statement).
prefix	One character with which the generated field names should start. If prefix is not specified, E is used by default.
VERSION	Selects which version of the control block is to be generated: Version 2 is used with the V16 format of the interface. Version 3 is used with the V17 format of the interface.

If the macro IEDTUPCB VERSION=3 is specified then the EDTUPCB control block is generated in the following form:

           IEDTUPCB D,VERSION=3
1 EDTUPCB  MFPRE DNAME=EDT, MF=D
2 EDTUPCB  DS    0F
1 *--------------- EDT UNIT NUMBER, EDTUPCB VERSION NUMBER --------------
1 EUPUNITC EQU   66                  EDT UNIT NUMBER
1 EUPVERSC EQU   3                   EDTUP VERSION NUMBER
1 EUPCMDM  EQU   (32763+4)           EDT COMMAND MAXLENGTH
1 EUPMSGM  EQU   (80+4)              EDT MESSAGE MAXLENGTH
1 *--------------- CONTROL BLOCK EDTUPCB --------------------------------
1 *                       *---- CONTROL BLOCK HEADER --------------------
1 EUPFHE   DS    0XL8                GENERAL OPERAND LIST HEADER
1 EUPIFID  DS    0A                  INTERFACE IDENTIFIER
1 EUPUNIT  DC    AL2(XUPUNITC)       UNIT NUMBER
1          DS    AL1                 RESERVED
1 EUPVERS  DC    AL1(XUPVERSC)       FUNCTION INTERFACE VERSION NUMBER
1          DS    A                   RESERVED
1 *                       *---- INHIBIT FLAGS ---------------------------
1 EUPINHBT DC    X'00'               INHIBIT FLAG BYTE
1 EUPMODE  EQU   X'80'               * NO SWITCH TO COMPATIBLE MODE V17.0
1 EUPNTXT  EQU   X'40'               * NO <TEXT>     (HALT / RETURN)
1 EUPN@EDO EQU   X'20'               * NO @EDIT ONLY (L-MODE : RDATA)
1 EUPN@EDT EQU   X'10'               * NO @EDIT      (L-MODE : WRTRD)
1 EUPNUSER EQU   X'08'               * NO USER-PROG. (@RUN/@USE)
1 EUPNBKPT EQU   X'04'               * NO BKPT (@SYSTEM)
1 EUPNCMDM EQU   X'02'               * NO CMD (@SYSTEM <STRING>)
1 EUPNEXEC EQU   X'01'               * NO MEXEC/MLOAD (@EXEC/@LOAD)
1 EUPNINHB EQU   X'00'               * NO RESTRICTIONS
1          DS    AL3                 RESERVED
1 *--------------- LENGTH OF CONTROL BLOCK ------------------------------
1 EUPUPCBL EQU   *-EDTUPCB

Meaning of the control block fields		Length (bytes)	Format	Parameter type
				Call	Return
EUPUNIT	Unique identification of EDT.	2	X	C(M)
EUPVERS	Control block version number.	1	X	C(M)
EUPINHBT	By setting the individual bits, it is possible to disable certain statements for users in order to prevent undefined termination of EDT or prevent an exit from Unicode mode: EUPMODE Disables switchover between Unicode mode and compatibility mode EUPNTXT Disallows to specify message in @HALT and @RETURN EUPN@EDO Disables @EDIT ONLY EUPN@EDT Disables @EDIT EUPNUSER Disables @USE and @RUN EUPNBKPT Disables the @SYSTEM statement (without operands) EUPNCMDM Disables the @SYSTEM statement (with operands) EUPNEXEC Disables the @EXEC / @LOAD statement	1		C

C (M)	Call parameter	Must be supplied by the caller. This is set by the macro (when the P parameter is set) and should not be changed by the user.
R X	Return parameter Binary format	Supplied by EDT. Binary digits

Changes compared to the V16 format

The EUPMODE flag is new.

Compatible V17 format

• The EUPMODE flag must not be set.

• The constant EUPMSGM has only been retained for reasons of compatibility. The maximum length of the message is determined dynamically depending on the terminal type.