000100 Identification Division.
000200 Program-Id. OVN5.
000300 Environment Division.
000400 Configuration Section.
000500 Special-Names.
000600     Decimal-Point is Comma.
000700 Data Division.
000800 Working-Storage Section.
000900 77 Tal1  Pic 9(08)     Value 1234.
001000 77 Tal2  Pic 9(08)     Value 1234.
001100 77 Tal3  Pic 9(08)     Value 456.
001200 77 Tal4A Pic S9(06)V99 Value +1,25.
001300 77 Tal4B Pic S9(06)V99 Value -1,25.
001400 77 Tal5A Pic S9(06)V99 Value +4,50.
001500 77 Tal5B Pic S9(06)V99 Value -4,50.
001600 77 Tal6  Pic S9(06)V99 Value -7,25.
001700 77 RadX  Pic X(40) Value '*---------------------------------*'.
001800 77 RadA  Pic X(40) Value 'Detta är en utskrift från Grupp xx'.
001900 77 RadB  Pic X(40) Value 'Det var allt från Grupp xx'.
002000 01 Rad1.
002100    05 Pic X(25) Value 'Utan nollundertryckning'.
002200    05 RTal1 Pic 9(08).
002300 01 Rad2.
002400    05 Pic X(25) Value 'Med nollundertryckning'.
002500    05 RTal2 Pic Z(04)9(04).
002600 01 Rad3.
002700    05 Pic X(25) Value 'Med utfyllnad'.
002800    05 RTal3 Pic *(06)9(02).
002900 01 Rad4A.
003000    05 Pic x(25) Value 'Positivt tal med tecken'.
003100    05 RTal4A Pic +Z(04),99.
003200 01 Rad4B.
003300    05 Pic X(25) Value 'Negativt tal med tecken'.
003400    05 RTal4B Pic +Z(04),99.
003500 01 Rad5A.
003600    05 Pic x(25) Value 'Positivt tal utan tecken'.
003700    05 RTal5A Pic -Z(04),99.
003800 01 Rad5B.
003900    05 Pic x(25) Value 'Negativt tal med tecken'.
004000    05 RTal5B Pic -Z(04),99.
004100 01 Rad6.
004200    05 Pic x(26) Value 'Negativt tal med tecken'.
004300    05 Rtal6 Pic Z(04),99-.
004400 Procedure Division.
004500     Move Tal1  To RTal1
004600     Move Tal2  To RTal2
004700     Move Tal3  To RTal3
004800     Move Tal4A To RTal4A
004900     Move Tal4B To RTal4B
005000     Move Tal5A To RTal5A
005100     Move Tal5B To RTal5B
005200     Move Tal6  To RTal6
005300     Display RadX
005400     Display RadA
005500     Display RadX
005600     Display ' '
005700     Display Rad1
005800     Display Rad2
005900     Display Rad3
006000     Display Rad4A
006100     Display Rad4B
006200     Display Rad5A
006300     Display Rad5B
006400     Display Rad6
006500     Display ' '
006600     Display RadX
006700     Display RadB
006800     Display RadX
006900     GoBack
007000     .