EDTPARL - Arbeitsdateispezifische Einstellungen

Beim Lesen der arbeitsdateispezifischen Einstellungen mit der Funktion IEDTGET legt der EDT die Informationen im Kontrollblock EDTPARL ab.

Erstellen des Kontrollblocks EDTPARL

Mit dem Assembler-Makro IEDTPARL kann der Kontrollblock EDTPARL generiert werden.

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

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

Bei Angabe des Makros IEDTPARL VERSION=4 wird der Kontrollblock EDTPARL in folgender Form generiert:

           IEDTPARL D,VERSION=4
1 EDTPARL  MFPRE DNAME=EDT,MF=D,PREFIX=*
2 EDTPARL  DSECT ,
2                *,##### PREFIX=, MACID= #####
1 *--------------- EDT UNIT NUMBER, EDTPARL VERSION NUMBER --------------
1 EPLUNITC EQU   66                  EDT UNIT NUMBER
1 EPLVERSC EQU   4                   EDTPARL VERSION NUMBER
1 *                       *---- CONTROL BLOCK HEADER --------------------
1 EPLFHE   DS    0XL8                GENERAL OPERAND LIST HEADER
1 EPLIFID  DS    0A                  INTERFACE IDENTIFIER
1 EPLUNIT  DC    AL2(XPLUNITC)       UNIT NUMBER
1          DS    AL1                 RESERVED
1 EPLVERS  DC    AL1(XPLVERSC)       FUNCTION INTERFACE VERSION NUMBER
1          DS    A                   RESERVED
1 *                       *---- OUTPUT FIELDS ---------------------------
1 EPLVPOS  DS    CL8                 FIRST LINE IN WINDOW
1 EPLHPOS  DS    H                   FIRST COLUMN IN WINDOW
1 EPLRLIM  DS    H                   MAX RECORD-LENGTH IN F-MODE
1 EPLINF   DS    CL1                 INF ON/OFF  (1/0)
1 EPLLOW   DS    CL1                 LOWER ON/OFF (1/0)
1 EPLHEX   DS    CL1                 HEX ON/OFF (1/0)
1 EPLEDL   DS    CL1                 EDIT LONG ON/OFF (1/0)
1 EPLSCALE DS    CL1                 SCALE ON/OFF (1/0)
1 EPLPROT  DS    CL1                 PROTECTION ON/OFF (1/0)
1 EPLSTRUC DS    CL1                 STRUCTURE SYMBOL IF EBCDIC
1 EPLOPEN  DS    CL1                 OPEN FLAG:   (I/P/R/S/X/0)
1 EPLEMPTY DS    CL1                 EMPTY FLAG
1 EPLMODIF DS    CL1                 MODIFIED FLAG
1 EPLSTDF  DS    CL54                STANDARD FILENAME
1 EPLSTDL  DS    CL54                STANDARD LIBRARY NAME
1 EPLSTDT  DS    CL8                 STANDARD PLAM TYPE
1          DS    CL4                 RESERVED
1 EPLVPOS1 DS    CL8                 FIRST LINE IN WINDOW 1
1 EPLHPOS1 DS    H                   FIRST COLUMN IN WINDOW 1
1 EPLVPOS2 DS    CL8                 FIRST LINE IN WINDOW 2
1 EPLHPOS2 DS    H                   FIRST COLUMN IN WINDOW 2
1 EPLINDX1 DS    CL1                 INDEX OFF/ON/FULL (0/1/2) WINDOW 1
1 EPLINDX2 DS    CL1                 INDEX OFF/ON/FULL (0/1/2) WINDOW 2
1 EPLOPENC DS    XL1024              COMMON AREA FOR FILE DESCRIPTION
1 EPLOPEND EQU   *                   END OF COMMON AREA
1          ORG   XPLOPENC            DESCRIPTION OF OPENED DATA FILE
1 EPLOPNFL DS    CL54                NAME OF OPENED FILE/PLAM LIBRARY
1 EPLOPNE  DS    CL64                NAME OF OPENED PLAM ELEMENT
1 EPLOPNV  DS    CL24                VERSION OF OPENED PLAM ELEMENT

1 EPLOPNT  DS    CL8                 TYP OF OPENED PLAM ELEMENT
1          ORG   XPLOPENC            DESCRIPTION OF OPENED UFS FILE
1 EPLOPNX  DS    CL1024              NAME OF OPENED UFS FILE
1 *
1 EPLCCSN  DS    CL8                 CODED CHARACTER SET NAME       V17.0
1 EPLCCSNG DS    XL1                 CCS IS GLOBAL (0/1)            V17.0
1 EPLSSTRU DS    H                   STRUCTURE SYMBOL UTF16
1 *--------------- LENGTH OF CONTROL BLOCK ------------------------------
1 EPLPARLL EQU   *-EDTPARL

Das Feld EPLOPENC enthält abhängig vom Open-Flag EPLOPEN die Beschreibung der mit @OPEN oder @XOPEN eröffneten Datei oder des PLAM-Elementes.

Bedeutung der Kontrollblockfelder		Länge (Byte)	Format	Parameterart
				Aufruf	Rückkehr
EPLUNIT	Identifikation von EDT.	2	X	A(M)
EPLVERS	Änderungsstand des Kontrollblocks.	1	X	A(M)
EPLVPOS	1. Zeile im Datenfenster (00000001..99999999), gleicher Wert wie EPLVPOS1	8	C		R
EPLHPOS	1. Spalte im Datenfenster (1..32768), gleicher Wert wie EPLHPOS1)	2	X		R
EPLRLIM	Max. Satzlänge im F-Modus (1..32768)	2	X		R
EPLINF	Information On/Off (1/0)	1	C		R
EPLLOW	Lower On/Off (1/0)	1	C		R
EPLHEX	Hex On/Off (1/0)	1	C		R
EPLEDL	Edit Long On/Off (1/0)	1	C		R
EPLSCALE	Scale On/Off (1/0)	1	C		R
EPLPROT	Protection On/Off (1/0)	1	C		R
EPLSTRUC	Stuktur-Symbol (falls EBCDIC-codiert, bei anderen Codierungen wird der Wert nur in EPLSSTRU abgelegt)	1	C		R
EPLOPEN	OPEN-Anzeige = R: ISAM real P: PLAM I: ISAM virtuell S: SAM virtuell X: UFS/POSIX 0: Keine Datei geöffnet	1	C		R
EPLEMPTY	Datei leer Ja/Nein (1/0)	1	C		R
EPLMODIF	Datei verändert Ja/Nein (1/0)	1	C		R
EPLSTDF	Standard-Dateiname, der mit @FILE eingestellt wurde	54	C		R
EPLSTDL	Standard-Bibliotheksname, der mit @PAR LIBRARY=... eingestellt wurde	54	C		R
EPLSTDT	Standard-Typ, der mit @PAR ELEMENT- TYPE=... eingestellt wurde	8	C		R
EPLOPNFL	EPLOPEN = R: ISAM-Dateiname, real geöffnet P: PLAM-Bibliotheksname I: ISAM-Dateiname S: SAM-Dateiname, aufgefüllt mit Leerzeichen	54	C		R
EPLOPNE	EPLOPEN = P: PLAM-Elementname, aufgefüllt mit Leerzeichen	64	C		R
EPLOPNV	EPLOPEN = P: PLAM-Versionsnummer, aufgefüllt mit Leerzeichen	24	C		R
EPLOPNT	EPLOPEN = P: PLAM-Typ, aufgefüllt mit Leerzeichen	8	C		R
EPLOPNX	EPLOPEN = X: POSIX-Dateiname, aufgefüllt mit Leerzeichen, nicht mit Null terminiert	1024	C		R
EPLVPOS1	Erste Zeilennummer im Fenster 1	8	C		R
EPLHPOS1	Erste Spalte im Fenster 1	2	X		R
EPLVPOS2	Erste Zeilennummer im Fenster 2	8	C		R
EPLHPOS2	Erste Spalte im Fenster 2	2	X		R
EPLINDX1	Index Off/On/Full Fenster 1 (0/1/2), wie mit @PAR INDEX=...bzw. @PAR EDIT-FULL=... eingestellt wurde	1	C		R
EPLINDX2	Index Off/On/Full Fenster 2 (0/1/2)	1	C		R
EPLCCSN	Zeichensatz der Arbeitsdatei. Ist die Arbeitsdatei leer, enthält EPLCCSN Leerzeichen.	8	C		R
EPLCCSNG	Der Zeichensatz gilt für alle nicht-leeren Arbeitsdatein Ja/Nein (1/0)	1	C		R
EPLSSTRU	Struktursymbol in UTF16	2	U		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.
L	Aufrufparameter	Muss vom Aufrufer beim ersten Aufruf mit binären Nullen gelöscht werden.
R	Rückkehrparameter	Wird von EDT versorgt.
X	Binärformat	Binäre Zahlen.
C	Abdruckbar	Abdruckbare Texte (im Zeichensatz EDF03IRV).
U	UTF16-Zeichen	Text in UTF16-Codierung

Änderungen gegenüber dem V16-Format

• Das Feld EPLCCSN ist neu (früher mit dem Namen EPGCCSN im Kontrollblock EDTPARG).

• Das Feld EPLCCSNG ist neu.

• Das Feld EPLSTCOD ist entfallen.

• Das Feld EPLOPNXC ist entfallen.

• Das Feld EPLSTRUC enthält nur noch dann das Struktur-Symbol, wenn dieses als EBCDIC-Zeichen darstellbar ist, sonst enthält es binäre Nullen. Das Feld EPLSSTRU enthält in jedem Fall das Struktur-Symbol in UTF16-Codierung.

Kompatibles V17-Format

Falls das V17-Format zum Aufruf des EDT im Kompatibilitäts-Modus oder eines EDT kleiner V17.0 benutzt wird, werden die von der jeweiligen V16-Version nicht gelieferten Informationen mit Standardwerten versorgt:

• Alle Dateinamensfelder mit Leerzeichen

• EPLVPOS1 und EPLVPOS2 mit '00010000'

• EPLHPOS1 und EPLHPOS2 mit binär 1

• EPLINDX1 und EPLINDX2 mit '1'

• EPLCCSN mit dem global eingestellten CCSN (EPLCCSNG enthält dann 1), falls die Arbeitsdatei nicht leer ist, andernfalls mit Leerzeichen (EPLCCSNG enthält dann 0).