|
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: 2286 (0x8ee)
Types: s3xseg
Names: »S$SAMP1«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$SAMP1«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$SAMP1«
0101 H 008 SAMPL1
0102 F************************************************* SAMPL1
0103 F* * SAMPL1
0104 F* THIS PROGRAM - * SAMPL1
0105 F* * SAMPL1
0106 F* 1. LOADS 100 RECORDS TO AN INDEXED FILE. * SAMPL1
0107 F* * SAMPL1
0108 F* 2. READS ONE RECORD FROM FILE $SOURCE FOR * SAMPL1
0109 F* INPUT. THE FILE $SOURCE IS BUILT WHEN * SAMPL1
01091F* SAMPLE PROGRAM SAMPL2 IS COMPILED BY * SAMPL1
01092F* GIVING A RETAIN-T PARAMETER TO THE * SAMPL1
01093F* FILE $SOURCE. * SAMPL1
01094F* * SAMPL1
0110 F* 3. CREATES THE OUTPUT DATA USING A * SAMPL1
0111 F* LOOP IN THE CALCULATION SPECIFICATIONS. * SAMPL1
0112 F* * SAMPL1
0113 F* 4. USES KEYS FROM 000005 THROUGH 000500 * SAMPL1
0114 F* IN INCREMENTS OF 5. * SAMPL1
0115 F* * SAMPL1
0116 F* 5. SHOULD BE FOLLOWED BY SAMPLE PROGRAM 2 * SAMPL1
0117 F* TO VERIFY THAT THE FILE WAS PROPERLY * SAMPL1
0118 F* LOADED. * SAMPL1
0119 F* * SAMPL1
0120 F************************************************* SAMPL1
0121 F$SOURCE IP F 96 96 DISK SAMPL1
0122 FDISKOUT O F 256 128 06AI 1 DISK 01 SAMPL1
0123 FPRINTER O F 1 96 TRACTR1 SAMPL1
0201 I$SOURCE NS 01 SAMPL1
0202 I 1 1 NODATA SAMPL1
0301 C 01 Z-ADD0 COUNT 60 SAMPL1
0302 C 01 Z-ADD0 RECNBR 30 SAMPL1
0303 C REPEAT TAG SAMPL1
0304 C 01 COUNT ADD 5 COUNT SAMPL1
0305 C 01 RECNBR ADD 1 RECNBR SAMPL1
0306 C 01 COUNT COMP 505 02 SAMPL1
0307 C 01N02 EXCPT SAMPL1
0308 C 01N02 GOTO REPEAT SAMPL1
03081C SETON LR SAMPL1
0309 CLR RECNBR SUB 1 RECNBR SAMPL1
0401 OPRINTER T 204 LR SAMPL1
0402 O 20 'SAMPLE PROGRAM 1 HAS' SAMPL1
0403 O 27 'LOADED' SAMPL1
0404 O RECNBRZ 31 SAMPL1
0405 O 39 'RECORDS' SAMPL1
0406 O 61 'INTO AN INDEXED FILE.' SAMPL1
0408 O T 2 LR SAMPL1
0409 O 21 'KEYS ARE IN ASCENDING' SAMPL1
0410 O 42 'SEQUENCE STARTING AT' SAMPL1
0411 O 64 '000005 AND INCREASING' SAMPL1
0412 O 84 'IN INCREMENTS OF 5.' SAMPL1
0413 O T 01 LR SAMPL1
0414 O 21 'SAMPLE PROGRAM 2 WILL' SAMPL1
0415 O 44 'PRINT FROM THE INDEXED' SAMPL1
0416 O 65 'FILE TO SHOW THAT IT' SAMPL1
0417 O 86 'WAS PROPERLY LOADED.' SAMPL1
0501 ODISKOUT E 01N02 SAMPL1
0502 O COUNT 6 SAMPL1
0503 O 94 'RECORD NUMBER' SAMPL1
0504 O RECNBR 128 SAMPL1
$BBSC BSCA-NO --EBCDIC OR ASCII--
$BCRT CRT-NO --YE