|
|
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: 1778 (0x6f2)
Types: s3xseg
Names: »SXRF46«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF46«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF46«
H C 012 XRF46 0000
F* 0010
F****************************************************** 0020
F* 5798-NKG COPYRIGHT IBM CORP. 1977. REFER TO * 0030
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0040
F****************************************************** 0050
F* 0060
F* PRINT DICTIONARY OF I/O FIELD NAMES FROM DICTFILE 0070
F* FOLLOWING XRF43 AND SORT AT XRF45. 0080
F* 0090
FADDROUT IR F 255 3 3IT EDISK 0100
FDICTFILEIP F 60R I DISK 0110
FPRINTER O F 132 OF PRINTER 0120
E ADDROUT DICTFILE 0130
IDICTFILENS 01 0140
I/COPY R1,AUX062 0150
I FLDNM L1 07 0160
I SEQNR 05 0170
I NOELE 02 0180
I FLDLN 04 0190
I DECPS 03 0200
C L1 SETON 06 0210
C 01N05N07 0220
CANNL1 SETOF 06 0230
C* 0240
C****************************************************** 0250
CLR MOVE '5798-NKG'COIBM 8 * 0260
CLR MOVE 'COPYRIGH'COIBM * 0270
CLR MOVE 'T IBM CO'COIBM * 0280
CLR MOVE 'RP. 1977'COIBM * 0290
C****************************************************** 0300
C* 0310
OPRINTER H 202 1P 0320
O OR OF 0330
O UDATE Y 15 0340
O 25 'XRF46' 0350
O 55 'DATA NAME DICTIONARY' 0360
O PAGE Z 82 0370
O 78 'PAGE' 0380
O H 1 1P 0390
O OR OF 0400
O 12 'FIELD' 0410
O 31 'AUTO.' 0420
O 41 'NO. OF' 0430
O H 2 1P 0440
O OR OF 0450
O 11 'NAME' 0460
O 24 'FILE NAME' 0470
O 30 'BOOK' 0480
O 40 'ELEM' 0490
O 49 'SIZE' 0500
O 63 'DESCRIPTION' 0510
O D 1 01N05N07 0520
O OR 01 05 06 0530
O 04 FLDNM 13 0540
O 04 FILNM 23 0550
O 04 RECNM 32 0560
O 02 04 NOELE Z 40 0570
O 02 04 42 'X' 0580
O 04 FLDLN Z 47 0590
O N03 04 48 ',' 0600
O N03 04 DECPS 49 0610
O 03 04 49 'A' 0620
O 06 FLDDS 82 0630
O T L1 0640