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