000100 Identification Division.
000200 Program-id. OVN81.
000800 Data Division.
000900 Working-Storage Section.
001000 01 Meddelande    Pic X(25) Value 'Ett Meddelande'.
001100
001200 Procedure Division.
001300     Perform SkrivMeddelande
001400     GoBack
001500     .
001600 SkrivMeddelande.
001700     Display Meddelande
001800     .