         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(30).
           03 i-vnaam pic X(30).
           03 i-straat pic X(30).
           03 i-postcode pic 9(4).
           03 i-gemeente pic x(30).
           03 i-loon pic 9(5).
           03 i-kind pic 9(2).
           03 i-dd pic 9(2).
           03 i-mm pic 9(2).
           03 i-jj pic 9(2).

         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 0410
           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 TOETS AT 2030
         STOP RUN.
