|
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«
└─⟦2e71fd85d⟧ Bits:30009192 5704-sc2.V06.rpg
└─⟦3ab7d675a⟧
└─⟦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 256 256 DISK SAMPL1 0122 FDISKOUT O F 256 128 06AI 1 DISK40 01 SAMPL1 0123 FPRINTER O F 96 96 PRINTER SAMPL1 0201 I$SOURCE NS 01 SAMPL1 0202 I 1 1 NODATA SAMPL1 0301 CL0 Z-ADD0 COUNT 60 SAMPL1 0302 CL0 Z-ADD0 RECNBR 30 SAMPL1 0303 CL0 REPEAT TAG SAMPL1 0304 CL0 COUNT ADD 5 COUNT SAMPL1 0305 CL0 RECNBR ADD 1 RECNBR SAMPL1 0306 CL0 COUNT COMP 505 02 SAMPL1 0307 CL0 N02 EXCPT SAMPL1 0308 CL0 N02 GOTO REPEAT SAMPL1 03081CL0 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 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 N02 SAMPL1 0502 O COUNT 6 SAMPL1 0503 O 94 'RECORD NUMBER' SAMPL1 0504 O RECNBR 128 SAMPL1