|
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: 9600 (0x2580)
Names: »OPG6.CBL«
└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
└─ ⟦this⟧ »OPG6.CBL«
0x0000…0020 20 20 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 ┆ IDENTIFICATION DIVISION. ┆ 0x0020…0040 0a 20 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 ┆ PROGRAM-ID. ┆ 0x0040…0060 20 20 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 ┆ OPG6. A┆ 0x0060…0080 55 54 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 ┆UTHOR. ┆ 0x0080…00a0 20 20 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 ┆ HOLD 4. DATE-WRI┆ 0x00a0…00c0 54 54 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 ┆TTEN. ┆ 0x00c0…00e0 20 32 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 ┆ 24.09.85. DATE-COMPILED┆ 0x00e0…0100 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 20 2e 30 ┆. .0┆ 0x0100…0120 39 2e 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 ┆9.85. * * ┆ 0x0120…0140 45 4e 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 ┆ENVIRONMENT DIVISION. CO┆ 0x0140…0160 4e 46 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 ┆NFIGURATION SECTION. SOU┆ 0x0160…0180 52 43 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 ┆RCE-COMPUTER. ┆ 0x0180…01a0 20 20 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 ┆ PICCOLINE. OBJECT-┆ 0x01a0…01c0 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 20 20 ┆COMPUTER. ┆ 0x01c0…01e0 20 20 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 ┆ PICCOLINE. SPECIAL-NAM┆ 0x01e0…0200 45 53 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 ┆ES. CO┆ 0x0200…0220 4e 53 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 ┆NSOLE IS CRT. INPUT-OUTP┆ 0x0220…0240 55 54 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 ┆UT SECTION. FILE-CONTROL┆ 0x0240…0260 2e 0d 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 ┆. SELECT LAES-FIL1 ASSIG┆ 0x0260…0280 4e 20 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 ┆N TO "PERSON.TRA". SELEC┆ 0x0280…02a0 54 20 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 ┆T LAES-FIL2 ASSIGN TO "P-TRANS.T┆ 0x02a0…02c0 52 41 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 ┆RA". SELECT AJOUR-FIL AS┆ 0x02c0…02e0 53 49 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 ┆SIGN TO "A-PERSON.TRA". ┆ 0x02e0…0300 53 45 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 ┆SELECT PRINTER ASSIGN TO "LST┆ 0x0300…0320 3a 22 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 ┆:". * * DA┆ 0x0320…0340 54 41 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 ┆TA DIVISION. FILE SECTIO┆ 0x0340…0360 4e 2e 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 ┆N. FD LAES-FIL1 ┆ 0x0360…0380 20 20 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 ┆ LABEL RECORD IS S┆ 0x0380…03a0 54 41 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 ┆TANDARD. 01 PERSREG.┆ 0x03a0…03c0 0d 0a 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 ┆ 02 PERS-NR ┆ 0x03c0…03e0 20 20 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 ┆ PIC 9(10). ┆ 0x03e0…0400 20 20 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 ┆ 02 PERS-FNVN ┆ 0x0400…0420 20 20 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 ┆ PIC X(15). 02 PE┆ 0x0420…0440 52 53 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 ┆RS-EFNVN PIC X(20┆ 0x0440…0460 29 2e 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 ┆). 02 PERS-GNVN ┆ 0x0460…0480 20 20 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 ┆ PIC X(20). ┆ 0x0480…04a0 20 20 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 ┆ 02 PERS-POSTNR ┆ 0x04a0…04c0 20 20 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 ┆ PIC 9(4). 02 P┆ 0x04c0…04e0 45 52 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 ┆ERS-BYNAVN PIC X(2┆ 0x04e0…0500 30 29 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 ┆0). 02 PERS-TLFNR ┆ 0x0500…0520 20 20 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 ┆ PIC 9(8). ┆ 0x0520…0540 2a 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 32 0d 0a 20 20 ┆* FD LAES-FIL2 ┆ 0x0540…0560 20 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 ┆ LABEL RECORD IS ST┆ 0x0560…0580 41 4e 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 ┆ANDARD. 01 TRANSREG.┆ 0x0580…05a0 0d 0a 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 ┆ 02 TRANS-TYPE ┆ 0x05a0…05c0 20 20 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 ┆ PIC 9. ┆ 0x05c0…05e0 30 32 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 ┆02 TRANS-NR PI┆ 0x05e0…0600 43 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 54 52 41 4e 53 2d ┆C 9(10). 02 TRANS-┆ 0x0600…0620 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 31 35 29 2e 0d 0a ┆FNVN PIC X(15). ┆ 0x0620…0640 20 20 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 ┆ 02 TRANS-EFNVN ┆ 0x0640…0660 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). ┆ 0x0660…0680 20 20 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 ┆ 02 TRANS-GNVN ┆ 0x0680…06a0 50 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 54 52 41 4e ┆PIC X(20). 02 TRAN┆ 0x06a0…06c0 53 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 28 34 29 2e 0d ┆S-POSTNR PIC 9(4). ┆ 0x06c0…06e0 0a 20 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 ┆ 02 TRANS-BYNAVN ┆ 0x06e0…0700 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 20 ┆ PIC X(20). ┆ 0x0700…0720 20 20 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 ┆ 02 TRANS-TLFNR ┆ 0x0720…0740 20 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 ┆ PIC 9(8). * FD ┆ 0x0740…0760 20 20 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 ┆ AJOUR-FIL ┆ 0x0760…0780 4c 41 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 ┆LABEL RECORD IS STANDARD. ┆ 0x0780…07a0 20 20 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 ┆ 01 AJOUR-REG. ┆ 0x07a0…07c0 20 30 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 ┆ 02 AJOUR-NR P┆ 0x07c0…07e0 49 43 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 ┆IC 9(10). 02 AJOUR┆ 0x07e0…0800 2d 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 31 35 29 2e 0d ┆-FNVN PIC X(15). ┆ 0x0800…0820 0a 20 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 ┆ 02 AJOUR-EFNVN ┆ 0x0820…0840 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 20 ┆ PIC X(20). ┆ 0x0840…0860 20 20 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 ┆ 02 AJOUR-GNVN ┆ 0x0860…0880 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 30 32 20 20 41 4a 4f ┆ PIC X(20). 02 AJO┆ 0x0880…08a0 55 52 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 ┆UR-POSTNR PIC 9999.┆ 0x08a0…08c0 0d 0a 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 ┆ 02 AJOUR-BYNAVN ┆ 0x08c0…08e0 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). ┆ 0x08e0…0900 20 20 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 ┆ 02 AJOUR-TLFNR ┆ 0x0900…0920 20 20 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 ┆ PIC 9(8). * FD ┆ 0x0920…0940 20 20 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 ┆ PRINTER L┆ 0x0940…0960 41 42 45 4c 20 52 45 43 4f 52 44 20 49 53 20 4f 4d 49 54 54 45 44 2e 0d 0a 20 20 20 20 20 20 20 ┆ABEL RECORD IS OMITTED. ┆ 0x0960…0980 20 20 20 20 20 30 31 20 20 50 52 49 4e 54 2d 4c 49 4e 49 45 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 01 PRINT-LINIE ┆ 0x0980…09a0 20 20 20 50 49 43 20 20 58 28 31 33 32 29 2e 0d 0a 20 20 20 20 20 20 2a 0d 0a 20 20 20 20 20 20 ┆ PIC X(132). * ┆ 0x09a0…09c0 2a 0d 0a 20 20 20 20 20 20 20 57 4f 52 4b 49 4e 47 2d 53 54 4f 52 41 47 45 20 53 45 43 54 49 4f ┆* WORKING-STORAGE SECTIO┆ 0x09c0…09e0 4e 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 20 52 41 50 50 4f 52 54 2d 4c 49 4e 49 45 2e 0d 0a ┆N. 01 RAPPORT-LINIE. ┆ 0x09e0…0a00 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 52 41 50 50 2d 50 45 52 53 4e 52 20 20 20 20 20 20 ┆ 02 RAPP-PERSNR ┆ 0x0a00…0a20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 42 39 39 42 39 39 42 39 39 39 39 2e 0d 0a 20 20 ┆ PIC 99B99B99B9999. ┆ 0x0a20…0a40 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 20 ┆ 02 FILLER ┆ 0x0a40…0a60 20 20 20 20 20 20 20 50 49 43 20 20 58 28 35 29 20 20 56 41 4c 55 45 20 22 3a 20 20 20 20 22 2e ┆ PIC X(5) VALUE ": ".┆ 0x0a60…0a80 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 4b 4f 4d 4d 45 4e 54 41 52 20 20 20 20 20 20 ┆ 02 KOMMENTAR ┆ 0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 31 31 34 29 20 56 41 4c 55 45 20 53 50 41 ┆ PIC X(114) VALUE SPA┆ 0x0aa0…0ac0 43 45 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 45 4f 46 2d 4c 41 45 53 31 20 20 20 20 20 20 20 ┆CE. 01 EOF-LAES1 ┆ 0x0ac0…0ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 58 58 20 56 41 4c 55 45 20 22 4e 45 ┆ PIC XXX VALUE "NE┆ 0x0ae0…0b00 4a 22 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 45 4f 46 2d 4c 41 45 53 32 20 20 20 20 20 20 20 ┆J". 01 EOF-LAES2 ┆ 0x0b00…0b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 58 58 20 56 41 4c 55 45 20 22 4e 45 ┆ PIC XXX VALUE "NE┆ 0x0b20…0b40 4a 22 2e 0d 0a 20 20 20 20 20 20 20 20 30 31 20 44 41 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 ┆J". 01 DATO ┆ 0x0b40…0b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 39 39 39 39 2e 0d 0a 20 20 20 20 ┆ PIC 999999. ┆ 0x0b60…0b80 20 20 20 20 30 31 20 4f 56 45 52 53 4b 52 49 46 54 2d 31 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ 01 OVERSKRIFT-1. ┆ 0x0b80…0ba0 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 20 20 20 20 20 50 ┆ 02 FILLER P┆ 0x0ba0…0bc0 49 43 20 20 58 28 33 37 29 20 56 41 4c 55 45 20 53 50 41 43 45 53 2e 0d 0a 20 20 20 20 20 20 20 ┆IC X(37) VALUE SPACES. ┆ 0x0bc0…0be0 20 20 20 20 30 32 20 20 4f 56 53 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 OVS1 ┆ 0x0be0…0c00 20 20 50 49 43 20 20 58 28 34 35 29 20 56 41 4c 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PIC X(45) VALUE ┆ 0x0c00…0c20 20 22 41 20 4a 20 4f 20 55 20 52 20 46 20 5c 20 52 20 49 20 4e 20 47 20 53 20 52 20 41 20 50 20 ┆ "A J O U R F Ø R I N G S R A P ┆ 0x0c20…0c40 50 20 4f 20 52 20 54 20 20 20 50 52 2e 20 20 22 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 ┆P O R T PR. ". 02┆ 0x0c40…0c60 20 20 4f 56 53 31 2d 44 41 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 ┆ OVS1-DATO PIC ┆ 0x0c60…0c80 20 39 39 42 39 39 42 39 39 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 49 4c 4c 45 ┆ 99B99B99. 02 FILLE┆ 0x0c80…0ca0 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 33 34 29 20 ┆R PIC X(34) ┆ 0x0ca0…0cc0 56 41 4c 55 45 20 53 50 41 43 45 53 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 20 20 46 49 ┆VALUE SPACES. 02 FI┆ 0x0cc0…0ce0 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 58 58 ┆LLER PIC XXX┆ 0x0ce0…0d00 58 58 20 56 41 4c 55 45 20 22 53 49 44 45 20 22 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 30 32 ┆XX VALUE "SIDE ". 02┆ 0x0d00…0d20 20 20 53 49 44 45 2d 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 ┆ SIDE-NR PIC ┆ 0x0d20…0d40 20 5a 5a 39 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 4f 56 45 52 53 4b 52 49 46 54 2d 32 2e 0d 0a ┆ ZZ9. 01 OVERSKRIFT-2. ┆ 0x0d40…0d60 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 20 20 20 20 20 20 ┆ 02 FILLER ┆ 0x0d60…0d80 20 20 20 20 20 20 20 20 20 50 49 43 20 20 58 28 31 33 32 29 20 56 41 4c 55 45 0d 0a 20 20 20 20 ┆ PIC X(132) VALUE ┆ 0x0d80…0da0 20 20 20 20 20 20 20 20 20 22 50 45 52 53 4f 4e 2d 4e 55 4d 4d 45 52 3a 20 20 20 20 46 4f 52 4b ┆ "PERSON-NUMMER: FORK┆ 0x0da0…0dc0 4c 41 52 49 4e 47 3a 22 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 20 4c 49 4e 49 45 2d 54 41 45 4c ┆LARING:". 01 LINIE-TAEL┆ 0x0dc0…0de0 4c 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 20 56 41 4c 55 ┆LER PIC 99 VALU┆ 0x0de0…0e00 45 20 31 38 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 20 53 49 44 45 54 41 4c 20 20 20 20 20 20 20 ┆E 18. 01 SIDETAL ┆ 0x0e00…0e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 39 39 39 20 56 41 4c 55 45 20 30 ┆ PIC 999 VALUE 0┆ 0x0e20…0e40 30 31 2e 0d 0a 20 20 20 20 20 20 20 30 31 20 20 54 45 4d 50 2d 52 45 47 2e 0d 0a 20 20 20 20 20 ┆01. 01 TEMP-REG. ┆ 0x0e40…0e60 20 20 20 20 20 30 32 20 20 54 45 4d 50 2d 54 59 50 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 02 TEMP-TYPE ┆ 0x0e60…0e80 20 20 20 20 20 20 20 50 49 43 20 20 20 58 20 20 56 41 4c 55 45 20 53 50 41 43 45 2e 0d 0a 20 20 ┆ PIC X VALUE SPACE. ┆ 0x0e80…0ea0 20 07 20 20 20 20 20 20 30 32 20 20 54 45 4d 50 2d 41 52 42 2e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ 02 TEMP-ARB. ┆ 0x0ea0…0ec0 20 20 20 20 30 34 20 20 54 45 4d 50 2d 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 04 TEMP-NR ┆ 0x0ec0…0ee0 20 20 50 49 43 20 20 20 39 28 31 30 29 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 ┆ PIC 9(10). 04 ┆ 0x0ee0…0f00 20 54 45 4d 50 2d 46 4e 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 ┆ TEMP-FNVN PIC ┆ 0x0f00…0f20 20 58 28 31 35 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 2d 45 ┆ X(15). 04 TEMP-E┆ 0x0f20…0f40 46 4e 56 4e 20 20 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 ┆FNVN PIC X(20).┆ 0x0f40…0f60 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 47 4e 56 4e 20 20 20 20 ┆ 04 TEMP-GNVN ┆ 0x0f60…0f80 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 20 ┆ PIC X(20). ┆ 0x0f80…0fa0 20 20 20 20 20 20 20 20 30 34 20 20 54 45 4d 50 2d 50 4f 53 54 4e 52 20 20 20 20 20 20 20 20 20 ┆ 04 TEMP-POSTNR ┆ 0x0fa0…0fc0 20 20 20 20 20 20 50 49 43 20 20 20 39 39 39 39 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PIC 9999. ┆ 0x0fc0…0fe0 30 34 20 20 54 45 4d 50 2d 42 59 4e 41 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 ┆04 TEMP-BYNAVN PI┆ 0x0fe0…1000 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 34 20 20 54 45 4d ┆C X(20). 04 TEM┆ 0x1000…1020 50 2d 54 4c 46 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 43 20 20 20 39 28 38 ┆P-TLFNR PIC 9(8┆ 0x1020…1040 29 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 50 52 4f ┆). * * PRO┆ 0x1040…1060 43 45 44 55 52 45 20 44 49 56 49 53 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 53 54 59 52 20 53 45 ┆CEDURE DIVISION. STYR SE┆ 0x1060…1080 43 54 49 4f 4e 2e 0d 0a 20 20 20 20 20 20 20 53 54 59 52 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 ┆CTION. STYR-IND. ┆ 0x1080…10a0 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4f 50 45 4e 2d 46 49 4c 45 52 2e 0d 0a 20 20 20 20 20 20 ┆ PERFORM OPEN-FILER. ┆ 0x10a0…10c0 20 20 20 20 20 50 45 52 46 4f 52 4d 20 49 4e 44 4c 41 45 53 2d 44 41 54 4f 2e 0d 0a 20 20 20 20 ┆ PERFORM INDLAES-DATO. ┆ 0x10c0…10e0 20 20 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 ┆ PERFORM TRANS UNTIL EOF-L┆ 0x10e0…1100 41 45 53 31 3d 22 4a 41 20 22 20 4f 52 20 45 4f 46 2d 4c 41 45 53 32 3d 22 4a 41 20 22 2e 0d 0a ┆AES1="JA " OR EOF-LAES2="JA ". ┆ 0x1100…1120 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4f 46 2d 4c 41 45 53 32 3d 22 4a 41 20 22 0d 0a 20 ┆ IF EOF-LAES2="JA " ┆ 0x1120…1140 20 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 41 45 53 2d 4e 41 45 53 54 45 20 ┆ PERFORM LAES-NAESTE ┆ 0x1140…1160 55 4e 54 49 4c 20 45 4f 46 2d 4c 41 45 53 31 3d 22 4a 41 20 22 0d 0a 20 20 20 20 20 20 20 20 20 ┆UNTIL EOF-LAES1="JA " ┆ 0x1160…1180 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 54 52 41 ┆ ELSE PERFORM TRA┆ 0x1180…11a0 4e 53 20 55 4e 54 49 4c 20 45 4f 46 2d 4c 41 45 53 32 3d 22 4a 41 20 22 2e 0d 0a 20 20 20 20 20 ┆NS UNTIL EOF-LAES2="JA ". ┆ 0x11a0…11c0 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 4c 55 4b 2d 46 49 4c 45 52 2e 0d 0a 20 20 20 20 20 20 ┆ PERFORM LUK-FILER. ┆ 0x11c0…11e0 20 20 20 20 20 53 54 4f 50 20 52 55 4e 2e 0d 0a 20 20 20 20 20 20 20 20 53 54 59 52 2d 55 44 2e ┆ STOP RUN. STYR-UD.┆ 0x11e0…1200 0d 0a 20 20 20 20 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 ┆ EXIT. * ┆ 0x1200…1220 2a 0d 0a 20 20 20 20 20 20 20 4f 50 45 4e 2d 46 49 4c 45 52 20 53 45 43 54 49 4f 4e 2e 0d 0a 20 ┆* OPEN-FILER SECTION. ┆ 0x1220…1240 20 20 20 20 20 20 4f 50 45 4e 2d 49 4e 44 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e ┆ OPEN-IND. OPEN┆ 0x1240…1260 20 49 4e 50 55 54 20 4c 41 45 53 2d 46 49 4c 31 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 50 ┆ INPUT LAES-FIL1. OP┆ 0x1260…1280 45 4e 20 49 4e 50 55 54 20 4c 41 45 53 2d 46 49 4c 32 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆EN INPUT LAES-FIL2. ┆ 0x1280…12a0 4f 50 45 4e 20 4f 55 54 50 55 54 20 41 4a 4f 55 52 2d 46 49 4c 2e 0d 0a 20 20 20 20 20 20 20 20 ┆OPEN OUTPUT AJOUR-FIL. ┆ 0x12a0…12c0 20 20 20 4f 50 45 4e 20 4f 55 54 50 55 54 20 50 52 49 4e 54 45 52 2e 0d 0a 20 20 20 20 20 20 20 ┆ OPEN OUTPUT PRINTER. ┆ 0x12c0…12e0 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 20 20 20 20 ┆ PERFORM LAES-LAES1. ┆ 0x12e0…1300 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 20 20 ┆ PERFORM LAES-LAES2. ┆ 0x1300…1320 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 2a 0d ┆OPEN-UD. EXIT. * ┆ 0x1320…1340 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 53 45 ┆ * INDLAES-DATO SE┆ 0x1340…1360 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 20 20 ┆CTION. DATO-IND. ┆ 0x1360…1380 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 20 20 ┆ PERFORM CLEAR. ┆ 0x1380…13a0 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 0a 20 ┆DISPLAY "DAGS DATO:" AT 0101. ┆ 0x13a0…13c0 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 0d 0a ┆ ACCEPT DATO AT 0112. ┆ 0x13c0…13e0 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 20 20 ┆ PERFORM CLEAR. ┆ 0x13e0…1400 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 20 20 ┆ DATO-UD. EXIT. ┆ 0x1400…1420 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 4f 4e ┆* * CLEAR SECTION┆ 0x1420…1440 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 20 44 ┆. CLS-IND. D┆ 0x1440…1460 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 20 20 ┆ISPLAY SPACES UPON CRT. ┆ 0x1460…1480 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 0d 0a ┆CLS-UD. EXIT. * ┆ 0x1480…14a0 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 0d 0a ┆ * TRANS SECTION. ┆ 0x14a0…14c0 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 49 46 ┆ TRANS-IND. IF┆ 0x14c0…14e0 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 20 50 ┆ EOF-LAES1="NEJ" P┆ 0x14e0…1500 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 4e 52 ┆ERFORM LAES-NAESTE UNTIL PERS-NR┆ 0x1500…1520 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 4f 56 ┆ NOT < TRANS-NR. MOV┆ 0x1520…1540 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 20 20 ┆E SPACES TO KOMMENTAR. ┆ 0x1540…1560 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 20 20 ┆ IF TRANS-TYPE=1 ┆ 0x1560…1580 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 45 20 ┆ PERFORM OPRET ELSE ┆ 0x1580…15a0 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 50 45 ┆IF TRANS-TYPE=2 PE┆ 0x15a0…15c0 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 0a 20 ┆RFORM AENDRE ELSE ┆ 0x15c0…15e0 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 20 20 ┆ PERFORM SLET. ┆ 0x15e0…1600 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 20 20 ┆ TRANS-UD. EXIT. ┆ 0x1600…1620 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 53 45 ┆ * * LUK-FILER SE┆ 0x1620…1640 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 20 20 ┆CTION. LUK-IND. ┆ 0x1640…1660 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 20 20 ┆ CLOSE LAES-FIL1. ┆ 0x1660…1680 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 43 4c ┆ CLOSE LAES-FIL2. CL┆ 0x1680…16a0 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 53 45 ┆OSE AJOUR-FIL. CLOSE┆ 0x16a0…16c0 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 20 20 ┆ PRINTER. LUK-UD. ┆ 0x16c0…16e0 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 20 20 ┆ EXIT. * * ┆ 0x16e0…1700 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 20 4c ┆ LAES-NAESTE SECTION. L┆ 0x1700…1720 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 52 45 ┆NST-IND. MOVE PERSRE┆ 0x1720…1740 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 54 45 ┆G TO TEMP-ARB. WRITE┆ 0x1740…1760 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 20 20 ┆ AJOUR-REG FROM TEMP-REG. ┆ 0x1760…1780 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 20 20 ┆ PERFORM LAES-LAES1. ┆ 0x1780…17a0 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 20 20 ┆ LNST-UD. EXIT. ┆ 0x17a0…17c0 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 4f 4e ┆* * OPRET SECTION┆ 0x17c0…17e0 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 20 49 ┆. OPR-IND. I┆ 0x17e0…1800 46 20 50 45 52 53 2d 4e 52 3d 54 52 41 4e 53 2d 4e 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆F PERS-NR=TRANS-NR ┆ 0x1800…1820 20 4d 4f 56 45 20 22 4f 50 52 45 54 54 45 4c 53 45 20 41 46 20 45 4b 53 49 53 54 45 52 45 4e 44 ┆ MOVE "OPRETTELSE AF EKSISTEREND┆ 0x1820…1840 45 20 50 4f 53 54 22 20 54 4f 20 4b 4f 4d 4d 45 4e 54 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆E POST" TO KOMMENTAR ┆ 0x1840…1860 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 46 4c 59 54 ┆ ELSE PERFORM FLYT┆ 0x1860…1880 2d 4c 41 45 53 32 2d 54 49 4c 2d 41 4a 4f 55 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 4d ┆-LAES2-TIL-AJOUR M┆ 0x1880…18a0 4f 56 45 20 22 4f 50 52 45 54 54 45 54 22 20 54 4f 20 4b 4f 4d 4d 45 4e 54 41 52 2e 0d 0a 20 20 ┆OVE "OPRETTET" TO KOMMENTAR. ┆ 0x18a0…18c0 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 54 52 41 4e 53 52 45 47 20 54 4f 20 54 45 4d 50 2d 52 ┆ MOVE TRANSREG TO TEMP-R┆ 0x18c0…18e0 45 47 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4f 52 4d 20 53 4b 52 49 56 2d 44 45 ┆EG. PERFORM SKRIV-DE┆ 0x18e0…1900 54 41 49 4c 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 45 4d 50 2d 4e 52 20 3c 20 54 ┆TAIL. IF TEMP-NR < T┆ 0x1900…1920 52 41 4e 53 2d 4e 52 20 57 52 49 54 45 20 41 4a 4f 55 52 2d 52 45 47 2e 0d 0a 20 20 20 20 20 20 ┆RANS-NR WRITE AJOUR-REG. ┆ […truncated at 200 lines…]