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