000100 Identification Division.
000200 Program-Id. OVN131
000300 Environment Division.
000400 Input-Output Section.
000500 File-Control.
000600     Select ARTFIL Assign to ARTDD
000700        Organization is Sequential
000800        Access Is Sequential
000900        File Status is Artfil-Status
001000        .
001100     Select LISTFIL Assign to LISTDD
001200        Organization is Sequential
001300        Access Is Sequential
001400        .
001500 Data Division.
001600 File Section.
001700 FD ARTFIL Recording Mode f
001800           Record Contains 80.
001900 01 Artfil-Post.
002000    05 Artfil-Nr     Pic X(05).
002100    05               Pic X(01).
002200    05 Artfil-Namn   Pic X(25).
002300    05               Pic X(01).
002400    05 Artfil-Typ    Pic X(01).
002500    05               Pic X(01).
002600    05 Artfil-Lp1    Pic X(02).
002700    05 Artfil-Kv1    Pic 9(06).
002800    05 Artfil-Lp2    Pic X(02).
002900    05 Artfil-Kv2    Pic 9(06).
003000    05 Artfil-Lp3    Pic X(02).
003100    05 Artfil-Kv4    Pic 9(06).
003200    05               Pic X(22).
003300
003400 FD LISTFIL Recording Mode f
003500            Record Contains 120.
003600 01 Listfil-Rad Pic X(120).
003700
003800
003900 Working-Storage Section.
004000 01 Artfil-Meddelande.
004100    05 Pic X(35) Value 'ARTFIL gick ej att öppna, status: '.
004200    05 Artfil-Status Pic X(02) Value Space.
004300       88 Artfil-Openfel Value '01' thru '99'.
004400
004500 01 Villkor  Pic 9 Value 0.
004600    88 Klar        Value 1.
004700
004800 Procedure Division.
004900     Perform Initiera
005000     Perform Until Klar
005100        Read ARTFIL
005200           At End
005300              Set KLAR to True
005400           Not At End
005500              Perform Skrivut
005600        End-Read
005700     End-Perform
005800     Perform Avsluta
005900     GoBack
006000     .
006100
006200 Initiera.
006300     Open Input ARTFIL
006400     If Artfil-Openfel
006500        Move 99 to Return-Code
006600        Display Artfil-Meddelande
006700        Stop Run
006800     Else
006900        Display 'OPEN av ARTFIL ok...'
007000        Open Output LISTFIL
007100        Display 'OPEN av LISTFIL ok...'
007200     End-If
007300     .
007400
007500 Skrivut.
007600     Write Listfil-Rad
007700        from Artfil-Post
007800     .
007900
008000 Avsluta.
008100     Close ARTFIL
008200     Display 'CLOSE av ARTFIL ok...'
008300     Close ARTFIL
008400     Display 'CLOSE av LISTFIL ok...'
008500     Display 'Programmet avslutar...'
008600     .