000100 Identification Division. 000200 Program-Id. OVN71. 000300 Data Division. 000400 Working-Storage Section. 000500 01 NyttMeddelande Pic X(80). 000600 000700 01 MittDatum. 000800 05 Artal Pic 9(04). 000900 05 Manad Pic 9(02). 001000 05 Dag Pic 9(02). 001100 001200 01 MittData Pic X(05) Value 'COBOL'. 001300 001400 01 Meddelande. 001500 05 Pic X(09) Value 'Detta ar'. 001600 05 Data2 Pic X(06). 001700 05 Pic X(08) Value 'ovning 7'. 001800 001900 01 Fnamn Pic X(20) Value 'Bo'. 002000 01 Enamn Pic X(20) Value 'Ek'. 002100 002200 Procedure Division. 002300 002400 Move MittData to Data2 002500 002600 Accept MittDatum 002700 From DATE YYYYMMDD 002710 003500 String 003600 Meddelande(1:9) Delimited By Size 003800 Data2 Delimited By Size 004000 Meddelande(16:8) Delimited By Size 004100 ',' Delimited By SIze 004200 Space Delimited By Size 004300 Dag Delimited By SIze 004400 '/' Delimited By SIze 004500 Manad Delimited By SIze 004600 Space Delimited By SIze 004700 Artal Delimited By SIze 004800 ',' Delimited By SIze 004900 ' Halsningar fran ' Delimited By Size 005000 Fnamn Delimited by Space 005100 Space Delimited By Size 005200 Enamn Delimited by Space 005300 Into NyttMeddelande 005400 End-String 005500 Display NyttMeddelande 005600 005700 GoBack 005800 .