RDTFT

Ausgabe der Datei-Attribute

Mit dem Makro RDTFT werden Informationen aus der TFT ausgegeben.

RDTFT ...,LINK=...,VERSION=2/3

Mit den Operanden VERSION=2/3 und PARMOD=31 wird eine Ausgabeliste erzeugt, die zusätzlich Informationen über die Dateieigenschaft EXC32GB (siehe Makro FILE) ausgibt.

Ausschnitt aus der Dsect von RDTFT

            RDTFT MF=D,PLIST=OUTPUT,VERSION=3 
:
:
:
1 ***************** FCB AND DEVICE TYPE INFORMATION 
1 IDRFINFO DS    0HL2 
:
:
1 IDRIND15 DS    C                 INDICATOR 15 
1 IDRDESCS EQU   X'80'               7-7 S DESTOC SPECIFIED 
1 IDRDESCY EQU   X'40'               6-6 S DESTOC = YES 
1 IDRCMSGS EQU   X'20'               5-5 S CLOSMSG SPECIFIED 
1 IDRCMSGY EQU   X'10'               4-4 S CLOSMSG = YES 
1 IDRTAPWS EQU   X'08'               3-3 S TAPEWR  SPECIFIED 
1 IDRTAPWY EQU   X'04'               2-2 S TAPEWR  = DEVICE-BUFFER 
1 IDRX32GS EQU   X'02'               1-1 S EXC32GB SPECIFIED 
1 IDRX32GA EQU   X'01'               0-0 S EXC32GB = ALLOWED