000100 Identification Division.
000200 Program-Id. OVN12.
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 Data Division.
001200 File Section.
001300 FD ARTFIL Recording Mode f
001400           Record Contains 80.
001500 01 Artfil-Post Pic X(80).
001600
001700
001800 Working-Storage Section.
001900 01 Artfil-Meddelande.
002000    05 Pic X(35) Value 'ARTFIL gick ej att öppna, status: '.
002100    05 Artfil-Status Pic X(02) Value Space.
002200       88 Artfil-Openfel Value '01' thru '99'.
002300
002400 01 Villkor  Pic 9 Value 0.
002500    88 Klar        Value 1.
002600
002700 Procedure Division.
002800     Perform Initiera
002900     Perform Until Klar
003000        Read ARTFIL
003100           At End
003200              Set KLAR to True
003300           Not At End
003400              Perform Skrivut
003500        End-Read
003600     End-Perform
003700     Perform Avsluta
003800     GoBack
003900     .
004000
004100 Initiera.
004200     Open Input ARTFIL
004300     If Artfil-Openfel
004400        Move 99 to Return-Code
004500        Display Artfil-Meddelande
004600        Stop Run
004700     Else
004800        Display 'OPEN av ARTFIL ok...'
004900     End-If
005000     .
005100
005200 Skrivut.
005300     Display 'OVN12 => ' Artfil-Post
005400     .
005500
005600 Avsluta.
005700     Close ARTFIL
005800     Display 'CLOSE av ARTFIL ok...'
005900     Display 'Programmet avslutar...'
006000     .