000100 Identification Division.
000200 Program-Id. OVN231.
000300 Environment Division.
000400 Input-Output Section.
000500 File-Control.
000600     Select PICFIL Assign to PICUT
000700        Organization is Sequential
000800        Access Is Sequential
000900        File Status Picfil-Status
001000        .
001100 Data Division.
001200 File Section.
001300 FD PICFIL.
001400 01 Picfil-Post Pic X(80).
001500
001600 Working-Storage Section.
001900 01 Picfil-Meddelande.
002000    05   Pic X(50) Value
002100         '*** Det gick inte att öppna PICUT, status: '.
002200    05 Picfil-Status Pic X(02).
002300       88 Openfel Value '01' thru '99'.
002400
002500 01 Rad1.
002600    05   Pic X(40) Value 'Pic X(08) Value "COBOL" '.
002700    05   Pic X(04) Value All '*'.
002800    05   Pic X(08) Value 'COBOL'.
002900    05   Pic X(04) Value All '*'.
003000 01 Rad2.
003100    05   Pic X(40) Value 'Pic 9(08) Value 1234'.
003200    05   Pic X(04) Value All '*'.
003300    05   Pic 9(08) Value 1234.
003400    05   Pic X(04) Value All '*'.
003500 01 Rad3.
003600    05   Pic  X(40) Value 'Pic S9(08) Value 1234'.
003700    05   Pic  X(04) Value All '*'.
003800    05   Pic S9(08) Value 1234.
003900    05   Pic  X(04) Value All '*'.
004000 01 Rad4.
004100    05   Pic  X(40) Value 'Pic S9(08) Packed-Decimal Value 1234'.
004200    05   Pic  X(04) Value All '*'.
004300    05   Pic S9(08) Value 1234 Packed-Decimal.
004400    05   Pic  X(04) Value All '*'.
004500 01 Rad5.
004600    05   Pic  X(40) Value 'Pic S9(08) Packed-Decimal Value -1234'.
004700    05   Pic  X(04) Value All '*'.
004800    05   Pic S9(08) Value -1234 Packed-Decimal.
004900    05   Pic  X(04) Value All '*'.
005000 01 Rad6.
005100    05   Pic  X(40) Value 'Pic S9(04) Binary Value +1234'.
005200    05   Pic  X(04) Value All '*'.
005300    05   Pic S9(08) Value +1234 Binary.
005400    05   Pic  X(04) Value All '*'.
005500 01 Rad7.
005600    05   Pic  X(40) Value 'Pic S9(08) Binary Value -1234'.
005700    05   Pic  X(04) Value All '*'.
005800    05   Pic S9(08) Value -1234 Comp.
005900    05   Pic  X(04) Value All '*'.
006000
006100 Procedure Division.
006200     Open Output PICFIL
006300     If Openfel
006400        Display Picfil-Meddelande
006500        Move 99 to Return-Code
006600        Stop Run
006700     End-If
006800
006900     Write Picfil-Post from Rad1
007000     Write Picfil-Post from Rad2
007100     Write Picfil-Post from Rad3
007200     Write Picfil-Post from Rad4
007300     Write Picfil-Post from Rad5
007400     Write Picfil-Post from Rad6
007500     Write Picfil-Post from Rad7
007600
007700     Close PICFIL
007800
007900     GoBack
008000     .