000100 Identification Division.
000200 Program-Id. OVN132
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 List-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 01 List-Separator.
004900    05 Pic X(120) Value All '_'.
005000
005100 01 List-Rubrik.
005200    05 Pic X(120) Value 'Utskrift av Artikelregister'.
005300
005400 01 List-Slutrad.
005500    05 Pic X(120) Value 'Slut på utskrift'.
005600
005700 01 List-ArtikelRubrik.
005800    05  Pic X(06) Value 'Artnr'.
005900    05  Pic X(26) Value 'Artnamn'.
006000    05  Pic X(02) Value Space.
006100    05  Pic X(04) Value 'Lp1'.
006200    05  Pic X(07) Value 'Antal'.
006300    05  Pic X(04) Value 'Lp2'.
006400    05  Pic X(07) Value 'Antal'.
006500    05  Pic X(04) Value 'Lp3'.
006600    05  Pic X(07) Value 'Antal'.
006700
006800 01 List-ArtikelRad.
006900    05 Artfil-Nr     Pic X(05).
007000    05               Pic X(01) Value Space.
007100    05 Artfil-Namn   Pic X(25).
007200    05               Pic X(01) Value Space.
007300    05 Artfil-Typ    Pic X(01).
007400    05               Pic X(01) Value Space.
007500    05 Artfil-Lp1    Pic X(02).
007600    05               Pic X(02) Value Space.
007700    05 Artfil-Kv1    Pic Z(06).
007800    05               Pic X(01) Value Space.
007900    05 Artfil-Lp2    Pic X(02).
008000    05               Pic X(02) Value Space.
008100    05 Artfil-Kv2    Pic Z(06).
008200    05               Pic X(01) Value Space.
008300    05 Artfil-Lp3    Pic X(02).
008400    05               Pic X(02) Value Space.
008500    05 Artfil-Kv4    Pic Z(06).
008600    05               Pic X(01) Value Space.
008700
008800 Procedure Division.
008900     Perform Initiera
009000     Perform Skriv-List-Rubrik
009100     Perform Skriv-Artikel-Rubrik
009200     Perform Until Klar
009300        Read ARTFIL
009400           At End
009500              Set KLAR to True
009600           Not At End
009700              Perform Skrivut
009800        End-Read
009900     End-Perform
010000     Perform Skriv-List-Slutrad
010100     Perform Avsluta
010200     GoBack
010300     .
010400
010500 Initiera.
010600     Open Input ARTFIL
010700     If Artfil-Openfel
010800        Move 99 to Return-Code
010900        Display Artfil-Meddelande
011000        Stop Run
011100     Else
011200        Display 'OPEN av ARTFIL ok...'
011300        Open Output LISTFIL
011400        Display 'OPEN av LISTFIL ok...'
011500     End-If
011600     .
011700
011800 Skrivut.
011900     Move Corr Artfil-Post
012000            to List-ArtikelRad
012100     Write List-Rad
012200        from List-ArtikelRad
012300     .
012400 Skriv-Artikel-Rubrik.
012500     Write List-Rad
012600        from List-ArtikelRubrik
012700     Write List-Rad
012800        from List-Separator
012900     .
013000 Skriv-List-Rubrik.
013100     Write List-Rad
013200        from List-Rubrik
013300     .
013400 Skriv-List-Slutrad.
013500     Write List-Rad
013600        from List-Separator
013700     Write List-Rad
013800        from List-Slutrad
013900     .
014000
014100 Avsluta.
014200     Close ARTFIL
014300     Display 'CLOSE av ARTFIL ok...'
014400     Close ARTFIL
014500     Display 'CLOSE av LISTFIL ok...'
014600     Display 'Programmet avslutar...'
014700     .