EDTAMCB - Access-Method-Kontrollblock

Der EDTAMCB (Access-Method-Control-Block) ist der Kontrollblock für die logischen Satzzugriffsfunktionen. Er enthält jene Datenfelder, die bei einem Zugriff auf die Arbeitsdateien benötigt werden.

Erstellen des Kontrollblocks EDTAMCB

Mit dem Assembler-Makro IEDTAMCB kann der Kontrollblock EDTAMCB generiert werden.

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

name	– Symbolischer Name der 1. DS-Anweisung bei Angabe von C. – Name der DSECT bei Angabe von D. Wird name nicht angegeben, wird EDTAMCB 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 1 wird mit dem V16-Format der Schnittstelle eingesetzt. Die Version 2 wird mit dem V17-Format der Schnittstelle eingesetzt.

Bei Angabe des Makros IEDTAMCB VERSION=2 wird der Kontrollblock EDTAMCB in folgender Form generiert:

           IEDTAMCB D,VERSION=2
1 EDTAMCB  MFPRE DNAME=EDT,MF=D
2 EDTAMCB  DSECT ,
2                *,##### PREFIX=I, MACID= #####
1 *--------------- EDT UNIT NUMBER, EDTAMCB VERSION NUMBER --------------
1 EAMUNITC EQU   66                  EDT UNIT NUMBER
1 EAMVERSC EQU   2                   INTERFACE IDENTIFIER
1 *--------------- CONTROL BLOCK EDTAMCB --------------------------------
1 *                      *--- CONTROL BLOCK HEADER ----------------------
1 EAMFHE   DS    0XL8                GENERAL OPERAND LIST HEADER
1 EAMIFID  DS    0A                  INTERFACE IDENTIFIER
1 EAMUNIT  DC    AL2(XAMUNITC)       UNIT NUMBER
1          DS    AL1                 RESERVED
1 EAMVERS  DC    AL1(XAMVERSC)       FUNCTION INTERFACE VERSION NUMBER
1          DS    A                   RESERVED
1          DS    X                   RESERVED                       V17.0
1 *                      *---- FLAG-BYTE -------------------------- V16.4
1 EAMFLAG  DC    X'00'               FLAG                           V16.4
1 EAMIGN13 EQU   X'01'               IGNORE LINE MARK 13            V16.4
1 EAMNOMOD EQU   X'02'               INHIBIT SETTING MODIFIED FLAG  V16.6
1          DS    AL2                 RESERVED
1 *                      *--- INPUT PARAMETERS --------------------------
1 EAMFILE  DC    CL8' '              FILENAME
1 EAMDISP  DC    F'0'                DISPLACEMENT
1 EAMLKEY1 DC    H'8'                LENGTH OF KEY1
1 EAMLKEY2 DC    H'8'                LENGTH OF KEY2
1 *                      *--- INPUT PARAMETERS (ONLY IN MOVE MODE) ------
1 EAMPKEY  DC    H'8'                LENGTH OF KEY OUTPUT BUFFER
1 EAMPREC  DC    H'0'                LENGTH OF RECORD OUTPUTBUFFER
1 *                      *--- INPUT / OUTPUT PARAMETERS -----------------
1 EAMLKEY  DC    H'8'                LENGTH OF KEY
1 EAMLREC  DC    H'0'                LENGTH OF RECORD
1 EAMMARK  DS    0H                  LINE MARKS (16 BITS)
1 EAMMARK2 DC    X'00'               UPPER MARKS (8 BITS)
1 EAMMK15  EQU   X'80'               MARK 15 (BIT 2**15)
1 EAMMK14  EQU   X'40'               MARK 14 (BIT 2**14)
1 EAMMK13  EQU   X'20'               MARK 13 (BIT 2**13)
1 EAMMK09  EQU   X'02'               MARK 09 (BIT 2**09)
1 EAMMK08  EQU   X'01'               MARK 08 (BIT 2**08)
1 EAMMARK1 DC    X'00'               LOWER MARKS (8 BIT)
1 EAMMK07  EQU   X'80'               MARK 07 (BIT 2**07)
1 EAMMK06  EQU   X'40'               MARK 06 (BIT 2**06)
1 EAMMK05  EQU   X'20'               MARK 05 (BIT 2**05)
1 EAMMK04  EQU   X'10'               MARK 04 (BIT 2**04)

1 EAMMK03  EQU   X'08'               MARK 03 (BIT 2**03)
1 EAMMK02  EQU   X'04'               MARK 02 (BIT 2**02)
1 EAMMK01  EQU   X'02'               MARK 01 (BIT 2**01)
1          DS    AL2                 RESERVED
1 *--------------- LENGTH OF CONTROL BLOCK ------------------------------
1 EAMAMCBL EQU   *-EDTAMCB

Bedeutung der Kontrollblockfelder		Länge (Byte)	Format	Parameterart
				Aufruf	Rückkehr
EAMUNIT	Eindeutige Identifikation des EDT.	2	X	A(M)
EAMVERS	Änderungsstand des Kontrollblocks.	1	X	A(M)
EAMFLAG Flag EAMIGN13 Flag EAMNOMOD	Das Byte enthält Flags zur Satzbearbeitung Dieses Flag muß gesetzt sein, falls Sätze mit Markierung 13 gelesen werden sollen (IEDTGET) oder markiert werden sollen (IEDTPTM). Dieses Flag muß gesetzt sein, falls beim Schreiben eines Satzes die Arbeitsdatei nicht als modifiziert gekennzeichnet werden soll (IEDTPUT).	1		A A A
EAMFILE	Angabe der Arbeitsdateivariablen ($0..$22), die angibt, auf welche Arbeitsdatei (0-22) zugegriffen werden soll oder der Werte G oder L0 bis L22 bei der Abfrage des Arbeitsdateistatus oder des Werts C beim Löschen des Kopierpuffers.	8	C	A
EAMDISP	Dieses Feld enthält: beim Lesen eines Satzes (IEDTGET) die relative Position des gewünschten Satzes beim Lesen eines Satzes mit Markierung (IEDTGTM) die gewünschte Suchrichtung.	4	X	A
EAMLKEY1	Länge des Puffers EDTKEY1	2	X	A
EAMLKEY2	Länge des Puffers EDTKEY2	2	X	A
EAMPKEY	Dieses Feld muss vor dem Lesen eines Satzes (IEDTGET, IEDTGTM) mit der Länge des Ausgabepuffers für die Zeilennummer versorgt werden.Derzeit ist nur der Wert 8 zulässig.	2	X	A
EAMPREC	Dieses Feld muss vor dem Lesen eines Satzes (IEDTGET, IEDTGTM) mit der Länge des Ausgabepuffers für den Satz versorgt werden.	2	X	A
EAMLKEY	Länge der übertragenen Daten im Puffer EDTKEY. Beim Lesen übergibt der EDT die tatsächliche Länge der gelesenen Satznummer, beim Schreiben übergibt der Anwender die Länge der zu schreibenden Satznummer. Derzeit ist nur der Wert 8 zulässig.	2	X	A	R
EAMLREC	Länge der übertragenen Daten im Puffer EDTREC. Beim Lesen übergibt der EDT die tatsächliche Länge des gelesenen Satzes, beim Schreiben übergibt der Anwender die Länge des zu schreibenden Satzes.	2	X	A	R
EAMMARK	Angabe der Markierungen eines Satzes. Es wird sowohl bei der Eingabe als auch bei der Ausgabe verwendet. Das Markierungsfeld wird als Zusatzinformation zu jedem Satz verwaltet. Dem Benutzer stehen die Markierungen 1..9 (EAMMK01..EAMMK09) sowie die Markierungen 13, 14 und 15 EAMMK13, EAMMK14 und EAMMK15) bei IEDTPUT und IEDTPTM frei zur Verfügung, die restlichen Markierungen sind für Sonderfunktionen reserviert.	2		A	R

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 von EDT versorgt.
X	Binärformat	Binäre Zahlen.
C	Abdruckbar	Abdruckbare Texte (im Zeichensatz EDF03IRV).

Änderungen gegenüber dem V16-Format

• Das Feld EAMMMODB und die beiden Flags EAMMOVM und EAMLOCM entfallen.

• Die Equates für die nicht verwendeten Markierungen (EAMMK10, EAMMK11, EAMMK12 und EAMMK0) entfallen.

Kompatibles V17-Format

Keine Einschränkungen.