|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10240 (0x2800)
Names: »OPG6.LST«
└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
└─ ⟦this⟧ »OPG6.LST«
0x0000…0020 0c 2a 20 4c 65 76 65 6c 20 49 49 20 43 4f 42 4f 4c 20 20 56 32 2e 31 20 20 20 20 20 20 20 20 20 ┆ * Level II COBOL V2.1 ┆ 0x0020…0040 20 20 20 20 20 20 20 20 20 4f 50 47 36 2e 43 42 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPG6.CBL ┆ 0x0040…0060 20 20 20 20 50 61 67 65 20 30 30 30 31 0d 0a 2a 0d 0a 2a 20 4f 70 74 69 6f 6e 73 3a 0d 0a 20 20 ┆ Page 0001 * * Options: ┆ 0x0060…0080 20 20 20 20 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 44 49 56 49 53 49 4f 4e 2e 0d 0a 20 ┆ IDENTIFICATION DIVISION. ┆ 0x0080…00a0 20 20 20 20 20 20 50 52 4f 47 52 41 4d 2d 49 44 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PROGRAM-ID. ┆ 0x00a0…00c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 47 36 2e 0d 0a 20 20 20 20 20 20 20 41 55 54 ┆ OPG6. AUT┆ 0x00c0…00e0 48 4f 52 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HOR. ┆ 0x00e0…0100 20 20 20 20 20 20 48 4f 4c 44 20 34 2e 0d 0a 20 20 20 20 20 20 20 44 41 54 45 2d 57 52 49 54 54 ┆ HOLD 4. DATE-WRITT┆ 0x0100…0120 45 4e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 ┆EN. 2┆ 0x0120…0140 34 2e 30 39 2e 38 35 2e 0d 0a 20 20 20 20 20 20 20 44 41 54 45 2d 43 4f 4d 50 49 4c 45 44 2e 20 ┆4.09.85. DATE-COMPILED. ┆ 0x0140…0160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 30 39 2e ┆ .09.┆ 0x0160…0180 38 35 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 45 4e ┆85. * * EN┆ 0x0180…01a0 56 49 52 4f 4e 4d 45 4e 54 20 44 49 56 49 53 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 43 4f 4e 46 ┆VIRONMENT DIVISION. CONF┆ 0x01a0…01c0 49 47 55 52 41 54 49 4f 4e 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 53 4f 55 52 43 ┆IGURATION SECTION. SOURC┆ 0x01c0…01e0 45 2d 43 4f 4d 50 55 54 45 52 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E-COMPUTER. ┆ 0x01e0…0200 20 20 20 20 50 49 43 43 4f 4c 49 4e 45 2e 0d 0a 20 20 20 20 20 20 20 4f 42 4a 45 43 54 2d 43 4f ┆ PICCOLINE. OBJECT-CO┆ 0x0200…0220 4d 50 55 54 45 52 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MPUTER. ┆ 0x0220…0240 50 49 43 43 4f 4c 49 4e 45 2e 0d 0a 20 20 20 20 20 20 20 53 50 45 43 49 41 4c 2d 4e 41 4d 45 53 ┆PICCOLINE. SPECIAL-NAMES┆ 0x0240…0260 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 ┆. CONS┆ 0x0260…0280 4f 4c 45 20 49 53 20 43 52 54 2e 0d 0a 20 20 20 20 20 20 20 49 4e 50 55 54 2d 4f 55 54 50 55 54 ┆OLE IS CRT. INPUT-OUTPUT┆ 0x0280…02a0 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 46 49 4c 45 2d 43 4f 4e 54 52 4f 4c 2e 0d ┆ SECTION. FILE-CONTROL. ┆ 0x02a0…02c0 0a 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4c 41 45 53 2d 46 49 4c 31 20 41 53 53 49 47 4e 20 ┆ SELECT LAES-FIL1 ASSIGN ┆ 0x02c0…02e0 54 4f 20 22 50 45 52 53 4f 4e 2e 54 52 41 22 2e 0d 0a 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 ┆TO "PERSON.TRA". SELECT ┆ 0x02e0…0300 4c 41 45 53 2d 46 49 4c 32 20 41 53 53 49 47 4e 20 54 4f 20 22 50 2d 54 52 41 4e 53 2e 54 52 41 ┆LAES-FIL2 ASSIGN TO "P-TRANS.TRA┆ 0x0300…0320 22 2e 0d 0a 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 41 4a 4f 55 52 2d 46 49 4c 20 41 53 53 49 ┆". SELECT AJOUR-FIL ASSI┆ 0x0320…0340 47 4e 20 54 4f 20 22 41 2d 50 45 52 53 4f 4e 2e 54 52 41 22 2e 0d 0a 20 20 20 20 20 20 20 53 45 ┆GN TO "A-PERSON.TRA". SE┆ 0x0340…0360 4c 45 43 54 20 50 52 49 4e 54 45 52 20 20 20 20 41 53 53 49 47 4e 20 54 4f 20 22 4c 53 54 3a 22 ┆LECT PRINTER ASSIGN TO "LST:"┆ 0x0360…0380 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 44 41 54 41 ┆. * * DATA┆ 0x0380…03a0 20 44 49 56 49 53 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 2e ┆ DIVISION. FILE SECTION.┆ 0x03a0…03c0 0d 0a 20 20 20 20 20 20 20 46 44 20 20 20 20 20 20 20 4c 41 45 53 2d 46 49 4c 31 0d 0a 20 20 20 ┆ FD LAES-FIL1 ┆ 0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 41 42 45 4c 20 52 45 43 4f 52 44 20 49 53 20 53 54 41 ┆ LABEL RECORD IS STA┆ 0x03e0…0400 4e 44 41 52 44 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 20 20 20 20 50 45 52 53 52 45 47 2e 0d 0a ┆NDARD. 01 PERSREG. ┆ 0x0400…0420 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 50 45 52 53 2d 4e 52 20 20 20 20 20 20 20 20 20 ┆ 02 PERS-NR ┆ 0x0420…0440 20 20 20 20 20 20 20 20 20 20 50 49 43 20 39 28 31 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ PIC 9(10). ┆ 0x0440…0460 20 20 30 32 20 20 50 45 52 53 2d 46 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 PERS-FNVN ┆ 0x0460…0480 50 49 43 20 58 28 31 35 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 50 45 52 53 ┆PIC X(15). 02 PERS┆ 0x0480…04a0 2d 45 46 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e ┆-EFNVN PIC X(20).┆ 0x04a0…04c0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 50 45 52 53 2d 47 4e 56 4e 20 20 20 20 20 ┆ 02 PERS-GNVN ┆ 0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 ┆ PIC X(20). ┆ 0x04e0…0500 20 20 20 20 30 32 20 20 50 45 52 53 2d 50 4f 53 54 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 PERS-POSTNR ┆ 0x0500…0520 20 20 50 49 43 20 39 28 34 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 50 45 52 ┆ PIC 9(4). 02 PER┆ 0x0520…0540 53 2d 42 59 4e 41 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 ┆S-BYNAVN PIC X(20)┆ 0x0540…0560 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 50 45 52 53 2d 54 4c 46 4e 52 20 20 20 ┆. 02 PERS-TLFNR ┆ 0x0560…0580 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 39 28 38 29 2e 0d 0a 20 20 20 20 20 20 2a 0d ┆ PIC 9(8). * ┆ 0x0580…05a0 0a 20 20 20 20 20 20 20 46 44 20 20 20 20 20 20 20 4c 41 45 53 2d 46 49 4c 32 0d 0a 20 20 20 20 ┆ FD LAES-FIL2 ┆ 0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 4c 41 42 45 4c 20 52 45 43 4f 52 44 20 49 53 20 53 54 41 4e ┆ LABEL RECORD IS STAN┆ 0x05c0…05e0 44 41 52 44 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 20 20 20 54 52 41 4e 53 52 45 47 2e 0d 0a ┆DARD. 01 TRANSREG. ┆ 0x05e0…0600 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 52 41 4e 53 2d 54 59 50 45 20 20 20 20 20 20 ┆ 02 TRANS-TYPE ┆ 0x0600…0620 20 20 20 20 20 20 20 20 20 20 50 49 43 20 39 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 ┆ PIC 9. 02┆ 0x0620…0640 20 20 54 52 41 4e 53 2d 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 ┆ TRANS-NR PIC ┆ 0x0640…0660 39 28 31 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 52 41 4e 53 2d 46 4e ┆9(10). 02 TRANS-FN┆ 0x0660…0680 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 31 35 29 2e 0d 0a 20 20 ┆VN PIC X(15). ┆ 0x0680…06a0 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 52 41 4e 53 2d 45 46 4e 56 4e 20 20 20 20 20 20 20 ┆ 02 TRANS-EFNVN ┆ 0x06a0…06c0 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PIC X(20). ┆ 0x06c0…06e0 30 32 20 20 54 52 41 4e 53 2d 47 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 ┆02 TRANS-GNVN PI┆ 0x06e0…0700 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 52 41 4e 53 2d ┆C X(20). 02 TRANS-┆ 0x0700…0720 50 4f 53 54 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 39 28 34 29 2e 0d 0a 20 ┆POSTNR PIC 9(4). ┆ 0x0720…0740 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 52 41 4e 53 2d 42 59 4e 41 56 4e 20 20 20 20 20 ┆ 02 TRANS-BYNAVN ┆ 0x0740…0760 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ PIC X(20). ┆ 0x0760…0780 20 30 32 20 20 54 52 41 4e 53 2d 54 4c 46 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆ 02 TRANS-TLFNR P┆ 0x0780…07a0 49 43 20 39 28 38 29 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 46 44 20 20 20 20 ┆IC 9(8). * FD ┆ 0x07a0…07c0 20 20 20 41 4a 4f 55 52 2d 46 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 41 ┆ AJOUR-FIL LA┆ 0x07c0…07e0 42 45 4c 20 52 45 43 4f 52 44 20 49 53 20 53 54 41 4e 44 41 52 44 2e 0d 0a 20 20 20 20 20 20 20 ┆BEL RECORD IS STANDARD. ┆ 0x07e0…0800 20 30 31 20 20 20 20 41 4a 4f 55 52 2d 52 45 47 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 ┆ 01 AJOUR-REG. 0┆ 0x0800…0820 32 20 20 41 4a 4f 55 52 2d 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 ┆2 AJOUR-NR PIC┆ 0x0820…0840 20 39 28 31 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 41 4a 4f 55 52 2d 46 ┆ 9(10). 02 AJOUR-F┆ 0x0840…0860 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 31 35 29 2e 0d 0a 20 ┆NVN PIC X(15). ┆ 0x0860…0880 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 41 4a 4f 55 52 2d 45 46 4e 56 4e 20 20 20 20 20 20 ┆ 02 AJOUR-EFNVN ┆ 0x0880…08a0 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ PIC X(20). ┆ 0x08a0…08c0 20 30 32 20 20 41 4a 4f 55 52 2d 47 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆ 02 AJOUR-GNVN P┆ 0x08c0…08e0 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 41 4a 4f 55 52 ┆IC X(20). 02 AJOUR┆ 0x08e0…0900 2d 50 4f 53 54 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 39 39 39 39 2e 0d 0a ┆-POSTNR PIC 9999. ┆ 0x0900…0920 20 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 41 4a 4f 55 52 2d 42 59 4e 41 56 4e 20 20 20 20 ┆ 02 AJOUR-BYNAVN ┆ 0x0920…0940 20 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ PIC X(20). ┆ 0x0940…0960 20 20 30 32 20 20 41 4a 4f 55 52 2d 54 4c 46 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 AJOUR-TLFNR ┆ 0x0960…0980 50 49 43 20 39 28 38 29 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 46 44 20 20 20 ┆PIC 9(8). * FD ┆ 0x0980…09a0 20 20 20 20 50 52 49 4e 54 45 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 41 42 ┆ PRINTER LAB┆ 0x09a0…09c0 45 4c 20 52 45 43 4f 52 44 20 49 53 20 4f 4d 49 54 54 45 44 2e 0d 0a 0c 2a 20 4c 65 76 65 6c 20 ┆EL RECORD IS OMITTED. * Level ┆ 0x09c0…09e0 49 49 20 43 4f 42 4f 4c 20 20 56 32 2e 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆II COBOL V2.1 ┆ 0x09e0…0a00 4f 50 47 36 2e 43 42 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 61 67 65 20 ┆OPG6.CBL Page ┆ 0x0a00…0a20 30 30 30 32 0d 0a 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 31 20 20 50 52 49 4e 54 2d 4c ┆0002 * 01 PRINT-L┆ 0x0a20…0a40 49 4e 49 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 31 33 32 29 2e 0d ┆INIE PIC X(132). ┆ 0x0a40…0a60 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 57 4f 52 4b 49 4e ┆ * * WORKIN┆ 0x0a60…0a80 47 2d 53 54 4f 52 41 47 45 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 20 ┆G-STORAGE SECTION. 01 ┆ 0x0a80…0aa0 52 41 50 50 4f 52 54 2d 4c 49 4e 49 45 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 52 ┆RAPPORT-LINIE. 02 R┆ 0x0aa0…0ac0 41 50 50 2d 50 45 52 53 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 ┆APP-PERSNR PIC 99┆ 0x0ac0…0ae0 42 39 39 42 39 39 42 39 39 39 39 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 49 4c ┆B99B99B9999. 02 FIL┆ 0x0ae0…0b00 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 35 29 ┆LER PIC X(5)┆ 0x0b00…0b20 20 20 56 41 4c 55 45 20 22 3a 20 20 20 20 22 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 ┆ VALUE ": ". 02 ┆ 0x0b20…0b40 20 4b 4f 4d 4d 45 4e 54 41 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 ┆ KOMMENTAR PIC ┆ 0x0b40…0b60 58 28 31 31 34 29 20 56 41 4c 55 45 20 53 50 41 43 45 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 ┆X(114) VALUE SPACE. 01 ┆ 0x0b60…0b80 45 4f 46 2d 4c 41 45 53 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 ┆EOF-LAES1 PI┆ 0x0b80…0ba0 43 20 20 58 58 58 20 56 41 4c 55 45 20 22 4e 45 4a 22 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 ┆C XXX VALUE "NEJ". 01 ┆ 0x0ba0…0bc0 45 4f 46 2d 4c 41 45 53 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 ┆EOF-LAES2 PI┆ 0x0bc0…0be0 43 20 20 58 58 58 20 56 41 4c 55 45 20 22 4e 45 4a 22 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 ┆C XXX VALUE "NEJ". 01 ┆ 0x0be0…0c00 44 41 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 ┆DATO PI┆ 0x0c00…0c20 43 20 20 39 39 39 39 39 39 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 4f 56 45 52 53 4b 52 49 46 ┆C 999999. 01 OVERSKRIF┆ 0x0c20…0c40 54 2d 31 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 49 4c 4c 45 52 20 20 20 20 20 ┆T-1. 02 FILLER ┆ 0x0c40…0c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 33 37 29 20 56 41 4c 55 45 20 ┆ PIC X(37) VALUE ┆ 0x0c60…0c80 53 50 41 43 45 53 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 4f 56 53 31 20 20 20 20 ┆SPACES. 02 OVS1 ┆ 0x0c80…0ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 34 35 29 20 56 41 4c ┆ PIC X(45) VAL┆ 0x0ca0…0cc0 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 20 4a 20 4f 20 55 20 52 20 46 20 5c 20 ┆UE "A J O U R F Ø ┆ 0x0cc0…0ce0 52 20 49 20 4e 20 47 20 53 20 52 20 41 20 50 20 50 20 4f 20 52 20 54 20 20 20 50 52 2e 20 20 22 ┆R I N G S R A P P O R T PR. "┆ 0x0ce0…0d00 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 4f 56 53 31 2d 44 41 54 4f 20 20 20 20 20 ┆. 02 OVS1-DATO ┆ 0x0d00…0d20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 42 39 39 42 39 39 2e 0d 0a 20 20 20 20 ┆ PIC 99B99B99. ┆ 0x0d20…0d40 20 20 20 20 20 20 20 30 32 20 20 46 49 4c 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 FILLER ┆ 0x0d40…0d60 20 20 20 20 20 50 49 43 20 20 58 28 33 34 29 20 56 41 4c 55 45 20 53 50 41 43 45 53 2e 0d 0a 20 ┆ PIC X(34) VALUE SPACES. ┆ 0x0d60…0d80 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 49 4c 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 FILLER ┆ 0x0d80…0da0 20 20 20 20 20 20 20 20 50 49 43 20 20 58 58 58 58 58 20 56 41 4c 55 45 20 22 53 49 44 45 20 22 ┆ PIC XXXXX VALUE "SIDE "┆ 0x0da0…0dc0 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 53 49 44 45 2d 4e 52 20 20 20 20 20 20 20 ┆. 02 SIDE-NR ┆ 0x0dc0…0de0 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 5a 5a 39 2e 0d 0a 20 20 20 20 20 20 20 30 31 ┆ PIC ZZ9. 01┆ 0x0de0…0e00 20 4f 56 45 52 53 4b 52 49 46 54 2d 32 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 ┆ OVERSKRIFT-2. 02 F┆ 0x0e00…0e20 49 4c 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 ┆ILLER PIC X(┆ 0x0e20…0e40 31 33 32 29 20 56 41 4c 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 50 45 52 53 4f 4e ┆132) VALUE "PERSON┆ 0x0e40…0e60 2d 4e 55 4d 4d 45 52 3a 20 20 20 20 46 4f 52 4b 4c 41 52 49 4e 47 3a 22 2e 0d 0a 20 20 20 20 20 ┆-NUMMER: FORKLARING:". ┆ 0x0e60…0e80 20 20 30 31 20 20 4c 49 4e 49 45 2d 54 41 45 4c 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 01 LINIE-TAELLER ┆ 0x0e80…0ea0 20 20 20 20 50 49 43 20 20 39 39 20 56 41 4c 55 45 20 31 38 2e 0d 0a 20 20 20 20 20 20 20 30 31 ┆ PIC 99 VALUE 18. 01┆ 0x0ea0…0ec0 20 20 53 49 44 45 54 41 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SIDETAL ┆ 0x0ec0…0ee0 50 49 43 20 20 39 39 39 20 56 41 4c 55 45 20 30 30 31 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 20 ┆PIC 999 VALUE 001. 01 ┆ 0x0ee0…0f00 54 45 4d 50 2d 52 45 47 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 30 32 20 20 54 45 4d 50 2d 54 59 ┆TEMP-REG. 02 TEMP-TY┆ 0x0f00…0f20 50 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 58 20 20 ┆PE PIC X ┆ 0x0f20…0f40 56 41 4c 55 45 20 53 50 41 43 45 2e 0d 0a 20 20 20 07 20 20 20 20 20 20 30 32 20 20 54 45 4d 50 ┆VALUE SPACE. 02 TEMP┆ 0x0f40…0f60 2d 41 52 42 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 4e 52 20 ┆-ARB. 04 TEMP-NR ┆ 0x0f60…0f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 39 28 31 30 29 2e 0d 0a ┆ PIC 9(10). ┆ 0x0f80…0fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 46 4e 56 4e 20 20 20 20 20 20 ┆ 04 TEMP-FNVN ┆ 0x0fa0…0fc0 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 58 28 31 35 29 2e 0d 0a 20 20 20 20 20 20 20 ┆ PIC X(15). ┆ 0x0fc0…0fe0 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 45 46 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 04 TEMP-EFNVN ┆ 0x0fe0…1000 20 20 20 20 50 49 43 20 20 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 ┆ PIC X(20). 0┆ 0x1000…1020 34 20 20 54 45 4d 50 2d 47 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 ┆4 TEMP-GNVN PIC┆ 0x1020…1040 20 20 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 ┆ X(20). 04 TEMP┆ 0x1040…1060 2d 50 4f 53 54 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 39 39 39 39 ┆-POSTNR PIC 9999┆ 0x1060…1080 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 42 59 4e 41 56 4e 20 ┆. 04 TEMP-BYNAVN ┆ 0x1080…10a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 58 28 32 30 29 2e 0d 0a 20 20 20 20 ┆ PIC X(20). ┆ 0x10a0…10c0 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 54 4c 46 4e 52 20 20 20 20 20 20 20 20 20 ┆ 04 TEMP-TLFNR ┆ 0x10c0…10e0 20 20 20 20 20 20 20 50 49 43 20 20 20 39 28 38 29 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 ┆ PIC 9(8). * ┆ 0x10e0…1100 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 44 49 56 49 53 49 4f 4e 2e ┆ * PROCEDURE DIVISION.┆ 0x1100…1120 0d 0a 20 20 20 20 20 20 20 53 54 59 52 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 53 ┆ STYR SECTION. S┆ 0x1120…1140 54 59 52 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4f 50 45 ┆TYR-IND. PERFORM OPE┆ 0x1140…1160 4e 2d 46 49 4c 45 52 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 49 4e 44 ┆N-FILER. PERFORM IND┆ 0x1160…1180 4c 41 45 53 2d 44 41 54 4f 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 54 ┆LAES-DATO. PERFORM T┆ 0x1180…11a0 52 41 4e 53 20 55 4e 54 49 4c 20 45 4f 46 2d 4c 41 45 53 31 3d 22 4a 41 20 22 20 4f 52 20 45 4f ┆RANS UNTIL EOF-LAES1="JA " OR EO┆ 0x11a0…11c0 46 2d 4c 41 45 53 32 3d 22 4a 41 20 22 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4f ┆F-LAES2="JA ". IF EO┆ 0x11c0…11e0 46 2d 4c 41 45 53 32 3d 22 4a 41 20 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 ┆F-LAES2="JA " PERF┆ 0x11e0…1200 4f 52 4d 20 4c 41 45 53 2d 4e 41 45 53 54 45 20 55 4e 54 49 4c 20 45 4f 46 2d 4c 41 45 53 31 3d ┆ORM LAES-NAESTE UNTIL EOF-LAES1=┆ 0x1200…1220 22 4a 41 20 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 ┆"JA " ELSE ┆ 0x1220…1240 20 20 20 20 20 50 45 52 46 4f 52 4d 20 54 52 41 4e 53 20 55 4e 54 49 4c 20 45 4f 46 2d 4c 41 45 ┆ PERFORM TRANS UNTIL EOF-LAE┆ 0x1240…1260 53 32 3d 22 4a 41 20 22 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 55 ┆S2="JA ". PERFORM LU┆ 0x1260…1280 4b 2d 46 49 4c 45 52 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 50 20 52 55 4e 2e 0d 0a ┆K-FILER. STOP RUN. ┆ 0x1280…12a0 20 20 20 20 20 20 20 20 53 54 59 52 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 20 45 58 49 54 2e 0d ┆ STYR-UD. EXIT. ┆ 0x12a0…12c0 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 4f 50 45 4e 2d 46 ┆ * * OPEN-F┆ 0x12c0…12e0 49 4c 45 52 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 4f 50 45 4e 2d 49 4e 44 2e 0d ┆ILER SECTION. OPEN-IND. ┆ 0x12e0…1300 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 49 4e 50 55 54 20 4c 41 45 53 2d 46 49 4c 31 ┆ OPEN INPUT LAES-FIL1┆ 0x1300…1320 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 49 4e 50 55 54 20 4c 41 45 53 2d 46 49 ┆. OPEN INPUT LAES-FI┆ 0x1320…1340 4c 32 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4f 55 54 50 55 54 20 41 4a 4f 55 ┆L2. OPEN OUTPUT AJOU┆ 0x1340…1360 52 2d 46 49 4c 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4f 55 54 50 55 54 20 50 ┆R-FIL. OPEN OUTPUT P┆ 0x1360…1380 52 49 4e 54 45 52 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 41 45 53 ┆RINTER. PERFORM LAES┆ 0x1380…13a0 2d 4c 41 45 53 31 2e 0d 0a 0c 2a 20 4c 65 76 65 6c 20 49 49 20 43 4f 42 4f 4c 20 20 56 32 2e 31 ┆-LAES1. * Level II COBOL V2.1┆ 0x13a0…13c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 47 36 2e 43 42 4c 20 20 20 20 20 20 ┆ OPG6.CBL ┆ 0x13c0…13e0 20 20 20 20 20 20 20 20 20 20 20 20 20 50 61 67 65 20 30 30 30 33 0d 0a 2a 0d 0a 20 20 20 20 20 ┆ Page 0003 * ┆ 0x13e0…1400 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 41 45 53 2d 4c 41 45 53 32 2e 0d 0a 20 20 20 20 20 ┆ PERFORM LAES-LAES2. ┆ 0x1400…1420 20 20 4f 50 45 4e 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 20 20 20 ┆ OPEN-UD. EXIT. ┆ 0x1420…1440 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 49 4e 44 4c 41 45 53 2d 44 41 54 4f 20 ┆* * INDLAES-DATO ┆ 0x1440…1460 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 44 41 54 4f 2d 49 4e 44 2e 0d 0a 20 20 20 20 ┆SECTION. DATO-IND. ┆ 0x1460…1480 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 43 4c 45 41 52 2e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ PERFORM CLEAR. ┆ 0x1480…14a0 20 20 44 49 53 50 4c 41 59 20 22 44 41 47 53 20 44 41 54 4f 3a 22 20 41 54 20 30 31 30 31 2e 0d ┆ DISPLAY "DAGS DATO:" AT 0101. ┆ 0x14a0…14c0 0a 20 20 20 20 20 20 20 20 20 20 20 41 43 43 45 50 54 20 44 41 54 4f 20 41 54 20 30 31 31 32 2e ┆ ACCEPT DATO AT 0112.┆ 0x14c0…14e0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 43 4c 45 41 52 2e 0d 0a 20 20 20 ┆ PERFORM CLEAR. ┆ 0x14e0…1500 20 20 20 20 44 41 54 4f 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 20 ┆ DATO-UD. EXIT. ┆ 0x1500…1520 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 43 4c 45 41 52 20 53 45 43 54 49 ┆ * * CLEAR SECTI┆ 0x1520…1540 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 43 4c 53 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ON. CLS-IND. ┆ 0x1540…1560 20 44 49 53 50 4c 41 59 20 53 50 41 43 45 53 20 55 50 4f 4e 20 43 52 54 2e 0d 0a 20 20 20 20 20 ┆ DISPLAY SPACES UPON CRT. ┆ 0x1560…1580 20 20 43 4c 53 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 20 20 20 2a ┆ CLS-UD. EXIT. *┆ 0x1580…15a0 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 54 52 41 4e 53 20 53 45 43 54 49 4f 4e 2e ┆ * TRANS SECTION.┆ 0x15a0…15c0 0d 0a 20 20 20 20 20 20 20 54 52 41 4e 53 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ TRANS-IND. ┆ 0x15c0…15e0 49 46 20 45 4f 46 2d 4c 41 45 53 31 3d 22 4e 45 4a 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF EOF-LAES1="NEJ" ┆ 0x15e0…1600 20 50 45 52 46 4f 52 4d 20 4c 41 45 53 2d 4e 41 45 53 54 45 20 55 4e 54 49 4c 20 50 45 52 53 2d ┆ PERFORM LAES-NAESTE UNTIL PERS-┆ 0x1600…1620 4e 52 20 4e 4f 54 20 3c 20 54 52 41 4e 53 2d 4e 52 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4d ┆NR NOT < TRANS-NR. M┆ 0x1620…1640 4f 56 45 20 53 50 41 43 45 53 20 54 4f 20 4b 4f 4d 4d 45 4e 54 41 52 2e 0d 0a 20 20 20 20 20 20 ┆OVE SPACES TO KOMMENTAR. ┆ 0x1640…1660 20 20 20 20 20 49 46 20 54 52 41 4e 53 2d 54 59 50 45 3d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ IF TRANS-TYPE=1 ┆ 0x1660…1680 20 20 20 50 45 52 46 4f 52 4d 20 4f 50 52 45 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 ┆ PERFORM OPRET ELS┆ 0x1680…16a0 45 20 49 46 20 54 52 41 4e 53 2d 54 59 50 45 3d 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E IF TRANS-TYPE=2 ┆ 0x16a0…16c0 50 45 52 46 4f 52 4d 20 41 45 4e 44 52 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d ┆PERFORM AENDRE ELSE ┆ 0x16c0…16e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 53 4c 45 54 2e 0d 0a 20 20 20 ┆ PERFORM SLET. ┆ 0x16e0…1700 20 20 20 20 54 52 41 4e 53 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 ┆ TRANS-UD. EXIT. ┆ 0x1700…1720 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 4c 55 4b 2d 46 49 4c 45 52 20 ┆ * * LUK-FILER ┆ 0x1720…1740 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 4c 55 4b 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 ┆SECTION. LUK-IND. ┆ 0x1740…1760 20 20 20 20 20 20 43 4c 4f 53 45 20 4c 41 45 53 2d 46 49 4c 31 2e 0d 0a 20 20 20 20 20 20 20 20 ┆ CLOSE LAES-FIL1. ┆ 0x1760…1780 20 20 20 43 4c 4f 53 45 20 4c 41 45 53 2d 46 49 4c 32 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ CLOSE LAES-FIL2. ┆ 0x1780…17a0 43 4c 4f 53 45 20 41 4a 4f 55 52 2d 46 49 4c 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f ┆CLOSE AJOUR-FIL. CLO┆ 0x17a0…17c0 53 45 20 50 52 49 4e 54 45 52 2e 0d 0a 20 20 20 20 20 20 20 4c 55 4b 2d 55 44 2e 0d 0a 20 20 20 ┆SE PRINTER. LUK-UD. ┆ 0x17c0…17e0 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 ┆ EXIT. * * ┆ 0x17e0…1800 20 20 20 20 4c 41 45 53 2d 4e 41 45 53 54 45 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 ┆ LAES-NAESTE SECTION. ┆ 0x1800…1820 20 4c 4e 53 54 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 50 45 52 53 ┆ LNST-IND. MOVE PERS┆ 0x1820…1840 52 45 47 20 54 4f 20 54 45 4d 50 2d 41 52 42 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆REG TO TEMP-ARB. WRI┆ 0x1840…1860 54 45 20 41 4a 4f 55 52 2d 52 45 47 20 46 52 4f 4d 20 54 45 4d 50 2d 52 45 47 2e 0d 0a 20 20 20 ┆TE AJOUR-REG FROM TEMP-REG. ┆ 0x1860…1880 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 41 45 53 2d 4c 41 45 53 31 2e 0d 0a 20 20 20 ┆ PERFORM LAES-LAES1. ┆ 0x1880…18a0 20 20 20 20 4c 4e 53 54 2d 55 44 2e 0d 0a 20 20 20 20 20 20 20 45 58 49 54 2e 0d 0a 20 20 20 20 ┆ LNST-UD. EXIT. ┆ 0x18a0…18c0 20 20 2a 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 20 4f 50 52 45 54 20 53 45 43 54 49 ┆ * * OPRET SECTI┆ 0x18c0…18e0 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 4f 50 52 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ON. OPR-IND. ┆ 0x18e0…1900 20 49 46 20 50 45 52 53 2d 4e 52 3d 54 52 41 4e 53 2d 4e 52 0d 0a 0c 2a 20 4c 65 76 65 6c 20 49 ┆ IF PERS-NR=TRANS-NR * Level I┆ 0x1900…1920 49 20 43 4f 42 4f 4c 20 20 56 32 2e 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f ┆I COBOL V2.1 O┆ […truncated at 200 lines…]