[~/ohjelmointi/cobol] $ cat input.cbl IDENTIFICATION DIVISION. PROGRAM-ID. LAITATIETO. DATA DIVISION. WORKING-STORAGE SECTION. 01 NIMI PIC X(15). 01 IKA PIC 9(3). PROCEDURE DIVISION. DIS. DISPLAY "Laita nimesi: ". ACCEPT NIMI. DISPLAY "Laita ikasi : ". ACCEPT IKA. DISPLAY "Nimesi on ", NIMI. DISPLAY "Ikasi on ", IKA. STOP RUN.