         IDENTIFICATION DIVISION.
         PROGRAM-ID. Oef2b.
         AUTHOR. LEVY.
         DATE-WRITTEN. 10-oktober-2004.
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         SOURCE-COMPUTER. PC.
         OBJECT-COMPUTER. PC.
         DATA DIVISION.
         WORKING-STORAGE SECTION.
         01 LAYOUT.
           03 Hogeschool PIC X(15) VALUE "HOGESCHOOL GENT".
           03 datum PIC X(8) VALUE "20/10/O4".
           03 fiche pic x(16) value "PERSONEELSFICHE".
           03 naam PIC X(5) VALUE "Naam:".
           03 fnaam PIC X(11) VALUE "Familienaam".
           03 vnaam PIC X(8) VALUE "Voornaam".
           03 adres PIC X(6) VALUE "ADRES:".
           03 straat PIC X(6) VALUE "Straat".
           03 postcode PIC X(8) VALUE "Postcode".
           03 gemeente PIC X(8) value "Gemeente".
           03 loon pic x(5) value "loon".
           03 kinderen pic x(16) value "Aantal kinderen:".
           03 geboren pic x(23) value "Geboortedatum: DD/MM/JJ".
           03 woont pic x(8) value "woont in".
           03 gebin pic x(25) value "en is geboren in het jaar".
         01 TOETS PIC X.
         01 invoergegevens.
           03 i-fnaam pic X(15).
           03 i-vnaam pic X(10).
           03 i-straat pic X(30).
           03 i-postcode pic ZZZZ.
           03 i-gemeente pic x(30).
           03 i-loon pic ZZZZZ.
           03 i-kind pic ZZ.
           03 i-dd pic ZZ.
           03 i-mm pic ZZ.
           03 i-jj pic ZZ.

         PROCEDURE DIVISION.

         HOOFDPROGRAMMA.

         DISPLAY SPACES UPON CRT
           DISPLAY Hogeschool AT 0101
           display datum at 0172
           display fiche at 0301
           display naam at 0405
           display fnaam at 0410
           display vnaam at 0510
           display adres at 0440
           display straat at 0446
           display postcode at 0546
           display gemeente at 0646
           display loon at 0805
           display kinderen at 1005
           display geboren at 1205
           accept i-fnaam at 0422
           accept i-vnaam at 0519
           accept i-straat at 0453
           accept i-postcode at 0555
           accept i-gemeente at 0655
           accept i-loon at 0811
           accept i-kind at 1022
           accept i-dd at 1220
           accept i-mm at 1223
           accept i-jj at 1226
           display i-vnaam at 1501
           display woont at 1510
           display i-gemeente at 1525
           display gebin at 1535
           display i-jj at 1571


         ACCEPT TOETS AT 2030
         STOP RUN.
