|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$SAMP2«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$SAMP2«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$SAMP2«
0101 H 008 SAMPL2
0102 F************************************************* SAMPL2
0103 F* * SAMPL2
0104 F* THIS PROGRAM - * SAMPL2
0105 F* * SAMPL2
0106 F* 1. MUST BE PRECEDED BY SAMPLE PROGRAM 1 * SAMPL2
0107 F* WHICH LOADS AN INDEXED FILE. * SAMPL2
0108 F* * SAMPL2
0109 F* 2. READS AN INDEXED FILE SEQUENTIALLY. * SAMPL2
0110 F* * SAMPL2
0111 F* 3. USES A BLOCK LENGTH FOR DISK WHICH * SAMPL2
0112 F* IS DIFFERENT FROM THAT USED FOR * SAMPL2
0113 F* LOADING THE FILE IN SAMPLE PROGRAM 1. * SAMPL2
0114 F* * SAMPL2
0115 F* 4. COUNTS THE NUMBER OF RECORDS READ SO * SAMPL2
0116 F* THAT THE USER CAN QUICKLY VERIFY THAT * SAMPL2
0117 F* 100 RECORDS WERE LOADED. * SAMPL2
0118 F* * SAMPL2
0119 F************************************************* SAMPL2
0120 FDISKIN IPE F 512 128 06AI 1 DISK 01 SAMPL2
0121 FPRINTER O F 1 96 OF TRACTR1 SAMPL2
0201 IDISKIN NS 01 1 C0 SAMPL2
0202 I 1 6 KEY SAMPL2
0203 I 82 94 DESC SAMPL2
0204 I 126 1280RECNBR SAMPL2
0301 C 01 COUNT ADD 1 COUNT 30 SAMPL2
0401 OPRINTER H 204 1P SAMPL2
0402 O OR OF SAMPL2
0403 O 5 'KEY' SAMPL2
0404 O 22 'DESCRIPTION' SAMPL2
0405 O 30 'PAGE' SAMPL2
0406 O PAGE Z 35 SAMPL2
0407 O D 1 01 SAMPL2
0408 O KEY 6 SAMPL2
0409 O DESC 21 SAMPL2
0410 O RECNBRZ 25 SAMPL2
0411 O T 3 01 LR SAMPL2
0412 O COUNT Z 3 SAMPL2
0413 O 26 'RECORDS WERE READ FROM' SAMPL2
0414 O 44 'THE INDEXED FILE.' SAMPL2
F YOU WISH TO CONTINUE WITH THE IMAGE TABLE ALREADY IN USE, * P
RESS PROGRAM START *
* S
YSTEM GENERATION W