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