|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6604 (0x19cc)
Types: s3xseg
Names: »S$DTFD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTFD«
MACRO 00010000
&LABEL $DTFD &UP-,&AC-,&BUFNO-,&MVF-,&LIM-,&ORD-,&BIN-,&RECL-,&CHN-, C00300000
&RCAD-,&IO-,&BLKL-,&MVFT-,&MVFN-,&NAME-,&KEYA-,&KEYL-, C00310000
&KEYD-,&MSTX-,&ENT-,&DISK- 00320000
TABLE &UP *UPSI TABLE 00330000
'' TABDF 0 DEFAULT 0 00340000
TABLE &AC * ACCESS METHOD TABLE 00350000
CO TABDF 17408 CONSECUTIVE OUTPUT 00360000
CG TABDF 18432 CONSECUTIVE GET 00370000
CU TABDF 16896 CONSECUTIVE UPDATE 00380000
DO TABDF 9216 DIRECT OUTPUT 00390000
DG TABDF 10240 DIRECT GET 00400000
DU TABDF 8704 DIRECT UPDATE 00410000
IO TABDF 33792 INDEXED OUTPUT 00420000
IS TABDF 34816 INDEXED SEQUENTIAL INPUT 00430000
ISA TABDF 35072 INDEXED SEQUENTIAL ADD 00440000
ISU TABDF 35328 INDEXED SEQUENTIAL UPDATE 00450000
ISUA TABDF 35584 INDEXED SEQUENTIAL UPDATE AND ADD 00460000
IR TABDF 34848 INDEXED RANDOM INPUT 00470000
IRA TABDF 33056 INDEXED RANDOM ADD 00480000
IRU TABDF 33312 INDEXED RANDOM UPDATE 00490000
IRUA TABDF 33568 INDEXED RANDOM UPDATE AND ADD 00500000
IA TABDF 33024 INDEXED ADD 00510000
CA TABDF 16640 CONSECUTIVE ADD 00520000
TABDF '''AC' PARAMETER NOT GIVEN 00530000
TABLE &MVF * MULTIVOLUME FILE 00540000
'' TABDF 0 DEFAULT SINGLE VOLUME 00550000
N TABDF 0 SINGLE VOLUME 00560000
Y TABDF 'X''1000''' MULTIVOLUME 00570000
TABLE &ORD * ORDERED LOAD 00580000
'' TABDF 0 DEFAULT NO 00590000
N TABDF 0 NO ORDERED LOAD 00600000
Y TABDF 'X''0040''' ORDERED LOAD REQUESTED 00610000
TABLE &LIM * LIMITS PROCESSING 00620000
'' TABDF 0 DEFAULT NO 00630000
N TABDF 0 NOT LIMITS PROCESSING 00640000
Y TABDF 'X''0010''' LIMITS PROCESSING REQUESTED 00650000
TABLE &BUFNO * BUFFER NUMBER 00660000
1 TABDF 0 SINGLE BUFFERED 00670000
2 TABDF 8 DOUBLE BUFFERED 00680000
'' TABDF 0 DEFAULT SINGLE BUFFERED 00690000
TABLE &CHN * CHAINING TABLE 00700000
'' TABDF 'X''FFFF''' DEFAULT X'FFFF' 00710000
TABLE &BIN * BINARY OR DECIMAL KEYS 00720000
'' TABDF 0 DEFAULT DECIMAL KEYS 00730000
N TABDF 0 DECIMAL KEYS 00740000
Y TABDF 'X''0080''' BINARY KEYS 00750000
TABLE &RECL * RECORD LENGTH 00760000
'' TABDF '''RECL' DEFAULT 00770000
TABLE &DISK * DISK DRIVE TABLE 00780000
5445 TABDF 'C0' 5445 DISK DRIVE 00790000
5444 TABDF 'A0' 5444 DISK DRIVE 00800000
'' TABDF 'A0' DEFAULT TO 5444 DISK DRIVE 00810000
TEXT 00820000
* DEFINE THE FILE FOR DISK RELEASE-7 00820001
AIF (T'&LABEL EQ 'O').A 00830000
&LABEL EQU * GENERATE USER LABEL 00840000
.A AIF (&DISK NE 'C0').A0 00845000
DC XL1'C0' DEVICE 00850000
AGO .A1 00853000
.A0 DC XL1'A0' DEVICE 00856000
.A1 DC BL1'&UP' EXTERNAL INDICATOR (UPSI) 00860000
* ATTRIBUTES 00870000
DC AL2(&AC+&BUFNO+&MVF+&LIM+&ORD+&BIN) 00880000
DC AL2(&RECL) RECORD LENGTH 00890000
DC AL2(&CHN) ADDRESS OF NEXT DTF 00900000
DC CL4'REGS' REGISTER SAVE AREA(POST OPEN) 00910000
AIF (T'&RCAD EQ 'O').SR 00920000
DC AL2(&RCAD) ADDRESS OF LOGICAL RECORD 00930000
AGO .SR1 00940000
.SR DC XL2'0' NO LOGICAL RECORD ADDRESS GIVEN 00950000
.SR1 ANOP 00960000
DC XL2'0' RESERVED FOR POST OPEN DTF 00970000
DC AL2(&IO) ADDRESS OF IO AREA 00980000
DC XL2'0' RESERVED FOR POST OPEN DTF 00990000
DC AL2(&BLKL) BLOCK LENGTH 01000000
DC XL2'0' RESERVED FOR POST OPEN DTF 01010000
DC XL2'0' RESERVED FOR POST OPEN DTF 01020000
AIF (T'&MVFT EQ 'O').AA 01030000
DC AL2(&MVFT) ADDR OF MULTIVOLUME FILE TABLE 01040000
AGO .AB 01050000
.AA DC XL2'0' MULTIVOLUME FILE TABLE NOT GIVEN 01060000
.AB AIF (T'&MVFN EQ 'O').BB 01070000
DC AL2(&MVFN) NUMBER OF VOLUMES FOR MULTIVOLUME01080000
AGO .BC 01090000
.BB DC XL2'0' RESERVED FOR POST OPEN DTF 01100000
.BC AIF (&DISK NE 'C0').BD 01110000
DC XL1'80' SWA FORMAT-1 INDEX 01110001
AGO .BE 01110002
.BD DC XL1'00' SWA FORMAT-1 INDEX 01110003
.BE DC CL8'&NAME' FILE NAME 01130000
DC XL1'00' INDICATOR BITS 01140000
DC XL2'00' RESERVED FOR POST OPEN DTF 01150000
DC XL2'00' RESERVED FOR POST OPEN DTF 01160000
DC XL3'00' RESERVED FOR POST OPEN DTF 01170000
AIF (T'&KEYA EQ 'O').B 01180000
DC XL2'00' RESERVED FOR POST OPEN DTF 01190000
DC AL2(&KEYA) ADDRESS OF REQUESTED KEY 01200000
.B AIF (T'&KEYL EQ 'O').F 01210000
AIF (T'&KEYA NE 'O').D 01220000
DC XL4'00' RESERVED FOR POST OPEN DTF 01230000
.D DC XL2'00' RESERVED FOR POST OPEN DTF 01240000
DC XL2'00' RESERVED FOR POST OPEN DTF 01250000
DC AL2(&KEYL) KEY LENGTH 01260000
DC XL2'00' RESERVED FOR POST OPEN DTF 01270000
DC AL2(&KEYD) KEY DISPLACEMENT 01280000
AIF (T'&MSTX EQ 'O').E 01290000
DC AL2(&MSTX) ADDRESS OF MSTNDX 01300000
DC AL2(&ENT*2+&ENT*&KEYL) NUMBER OF BYTES IN MSTNDX 01310000
AIF (&MVF EQ '0').E 01320000
DC XL83'0' RESERVED FOR POST OPEN DTF 01330000
AGO .K 01340000
.E AIF (&AC EQ '35328').L1 01360000
AIF (&AC EQ '35584').L1 01370000
AIF (&LIM EQ '0').L2 01380000
.L1 DC AL2(0) RESERVED FOR POST OPEN DTF 01390000
.L2 AIF (&MVF EQ '0').F 01400000
DC XL83'0' RESERVED FOR POST OPEN DTF 01410000
AGO .K 01420000
.F AIF (&AC EQ '35072').G 01430000
AIF (&AC NE '35584').H 01440000
.G DC XL2'00' RESERVED FOR POST OPEN DTF 01450000
DC XL3'00' RESERVED FOR POST OPEN DTF 01460000
DC XL6'00' RESERVED FOR POST OPEN DTF 01470000
.H AIF (&AC EQ '33056').C 01480000
AIF (&AC EQ '33024').C 01490000
AIF (&AC EQ '34848').C 01500000
AIF (&AC EQ '33312').C 01510000
AIF (&AC NE '33568').J 01520000
.C DC XL5'00' RESERVED FOR POST OPEN DTF 01530000
.J AIF (&MVF EQ '0').K 01540000
AIF (T'&MVFT NE 'O').K 01550000
DC XL95'00' RESERVED FOR POST OPEN DTF 01560000
.K ANOP 01570000
AIF (&DISK NE 'C0').END 01580000
AIF (&AC EQ '9216').A10 01590000
AIF (&AC EQ '10240').A10 01600000
AIF (&AC EQ '8704').A10 01610000
AIF (&MVF EQ '0').SUA 01620000
DC XL1'00' RESERVED FOR POST OPEN DTF 01630000
AGO .A12 01640000
.SUA AIF (&AC NE '35584').TYP 01650000
DC XL1'00' RESERVED FOR POST OPEN DTF 01660000
AGO .A12 01670000
.TYP AIF (&AC EQ '17408').A06 01680000
AIF (&AC EQ '18432').A10 01690000
AIF (&AC EQ '16896').A10 01700000
AIF (&AC EQ '34848').A10 01710000
AIF (&AC EQ '33312').A10 01720000
AIF (&AC EQ '34816').A11 01730000
AIF (&AC EQ '35328').A11 01740000
AIF (&AC EQ '33792').A11 01750000
.A12 DC XL1'00' RESERVED FOR POST OPEN DTF 01760000
.A11 DC XL1'00' RESERVED FOR POST OPEN DTF 01770000
.A10 DC XL4'00' RESERVED FOR POST OPEN DTF 01780000
.A06 DC XL6'00' RESERVED FOR POST OPEN DTF 01790000
.END ANOP 01800000
MEND 01820000