PRINT ON,NOGEN
EDMAP21  DFHMSD TYPE=MAP,LANG=COBOL,MODE=INOUT,STORAGE=AUTO,SUFFIX=
EDMAP21  DFHMDI SIZE=(24,80),COLUMN=1,LINE=1,DATA=FIELD,TIOAPFX=YES,   *
               OBFMT=NO
         DFHMDF POS=(2,28),LENGTH=30,INITIAL='CICS Application Programm*
               ing',                                                   *
               ATTRB=(PROT,NORM)
         DFHMDF POS=(3,31),LENGTH=22,INITIAL='MONITOR IT-Utbildning',  *
               ATTRB=(PROT,NORM)
* Empno                           Employee number
         DFHMDF POS=(5,4),LENGTH=15,INITIAL='Employee no   :',         *
               ATTRB=(ASKIP,NORM)
EMPNO    DFHMDF POS=(5,20),LENGTH=5,ATTRB=(UNPROT,NUM,BRT,IC)
         DFHMDF POS=(5,26),LENGTH=1,ATTRB=(ASKIP,NORM)
* MESSAGE                         Message
MSGX     DFHMDF POS=(22,2),LENGTH=59,ATTRB=(PROT,BRT)
         DFHMDF POS=(22,62),LENGTH=1,ATTRB=(PROT,NORM)
MSG      DFHMDF POS=(23,2),LENGTH=59,ATTRB=(PROT,BRT)
         DFHMDF POS=(23,62),LENGTH=1,ATTRB=(PROT,NORM)
         DFHMDF POS=(24,1),LENGTH=79,                                  *
               INITIAL='F3 CLEAR=Exit  ENTER=Continue'
         DFHMSD TYPE=FINAL
         END