000100 Identification Division. 000200 Program-Id. OVN11. 000300 Data Division. 000400 Working-Storage Section. 000500 77 Dagnum Pic 9(01). 000600 77 Mannum Pic 9(02). 000700 77 Datum Pic X(08). 000800 77 Tid Pic X(08). 000900 001000 01 Meddelandet Pic X(80). 001100 001200 01 Tabellerna. 001300 001400 05 Dagarna. 001500 10 Pic X(08) Value 'Mandag'. 001600 10 Pic X(08) Value 'Tisdag'. 001700 10 Pic X(08) Value 'Onsdag'. 001800 10 Pic X(08) Value 'Torsdag'. 001900 10 Pic X(08) Value 'Fredag'. 002000 10 Pic X(08) Value 'Lordag'. 002100 10 Pic X(08) Value 'Sondag'. 002200 05 Dagnamnen Redefines Dagarna. 002300 10 Dagnamn Pic X(08) Occurs 7. 002400 002500 05 Manaderna. 002600 10 Pic X(10) Value 'Januari'. 002700 10 Pic X(10) Value 'Februari'. 002800 10 Pic X(10) Value 'Mars'. 002900 10 Pic X(10) Value 'April'. 003000 10 Pic X(10) Value 'Maj'. 003100 10 Pic X(10) Value 'Juni'. 003200 10 Pic X(10) Value 'Juli'. 003300 10 Pic X(10) Value 'Augusti'. 003400 10 Pic X(10) Value 'September'. 003500 10 Pic X(10) Value 'Oktober'. 003600 10 Pic X(10) Value 'November'. 003700 10 Pic X(10) Value 'December'. 003800 05 Mannamnen Redefines Manaderna. 003900 10 Mannamn Pic X(10) Occurs 12. 004000 004100 Procedure Division. 004200 Accept Dagnum from Day-Of-Week 004300 Accept Datum from Date YYYYMMDD 004400 Accept Tid from Time 004500 Move Datum(5:2) to Mannum 004600 004700 String 004800 'I dag ar det ' Delimited by Size 004900 Dagnamn(Dagnum) Delimited by Space 005000 ' den ' Delimited by Size 005100 Datum(7:2) Delimited by Size 005200 ':e ' Delimited by Size 005300 Mannamn(Mannum) Delimited by Space 005400 ' och klockan ar ' Delimited by Size 005500 Tid(1:2) Delimited by Size 005600 ':' Delimited by Size 005700 Tid(3:2) Delimited by Size 005800 Into Meddelandet 005900 End-String 006000 006100 Display Meddelandet 006200 GoBack 006300 .