EDTUPCB - Unterprogramm - Kontrollblock

Der EDTUPCB (Unterprogramm-Kontrollblock) enthält die Parameter, die die Voreinstellwerte des EDT bei der Funktion IEDTCMD festlegen.

Erstellen des Kontrollblockes EDTUPCB

Mit dem Assembler-Makro IEDTUPCB kann der Kontrollblock EDTUPCB generiert werden.

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

name	– Symbolischer Name der 1. DS-Anweisung bei Angabe von C. – Name der DSECT bei Angabe von D. Wird name nicht angegeben, wird EDTUPCB benutzt (mit vorangestelltem prefix, falls angegeben).
D C	Es wird ein Pseudoabschnitt (DSECT) generiert. Es wird ein Speicherabschnitt mit symbolischen Adressen generiert (keine CSECT-Anweisung).
prefix	1 Zeichen, mit dem die generierten Feldnamen beginnen sollen. Wird prefix nicht angegeben, wird standardmäßig E eingesetzt.
VERSION	Auswahl, welche Version des Kontrollblocks generiert werden soll: Die Version 2 wird mit dem V16-Format der Schnittstelle eingesetzt. Die Version 3 wird mit dem V17-Format der Schnittstelle eingesetzt.

Bei Angabe des Makros IEDTUPCB VERSION=3 wird der Kontrollblock EDTUPCB in folgender Form generiert:

           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

Bedeutung der Kontrollblockfelder		Länge (Byte)	Format	Parameterart
				Aufruf	Rückkehr
EUPUNIT	Eindeutige Identifikation des EDT.	2	X	A(M)
EUPVERS	Änderungsstand des Kontrollblocks.	1	X	A(M)
EUPINHBT	Durch Setzen der einzelnen Bits kann man bestimmte Anweisungen für den Benutzer sperren, um ein undefiniertes Beenden des EDT bzw. das Verlassen des Unicode-Modus zu verhindern: EUPMODE Sperren des Umschaltens zwischen Unicode-Modus und Kompatibilitäts-Modus EUPNTXT Bei @HALT und @RETURN wird die Angabe von message gesperrt EUPN@EDO Sperren von @EDIT ONLY EUPN@EDT Sperren von @EDIT EUPNUSER Sperren von @USE und @RUN EUPNBKPT Sperren der @SYSTEM-Anweisung (ohne Operanden) EUPNCMDM Sperren der @SYSTEM-Anweisung (mit Operanden) EUPNEXEC Sperren der @EXEC / @LOAD-Anweisung	1		A

A	Aufrufparameter	Muss vom Aufrufer versorgt werden.
(M)		Wird vom Makro (bei Angabe des Parameters C) gesetzt und sollte vom Anwender nicht verändert werden.
R	Rückkehrparameter	Wird vom EDT versorgt.
X	Binärformat	Binäre Zahlen.

Änderungen gegenüber dem V16-Format

Das Flag EUPMODE ist neu.

Kompatibles V17-Format

• Das Flag EUPMODE darf nicht gesetzt sein.

• Die Konstante EUPMSGM wurde nur aus Kompatibilitätsgründen beibehalten. Die maximale Länge der Meldung wird dynamisch in Abhängigkeit vom Terminaltyp festgelegt.