PRINT ON,NOGEN
EDMAP22  DFHMSD TYPE=MAP,LANG=COBOL,MODE=INOUT,STORAGE=AUTO,SUFFIX=
EDMAP22  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=(PROT,BRT)
         DFHMDF POS=(5,26),LENGTH=1,ATTRB=(ASKIP,NORM)
* SSN                             Social Security Number
         DFHMDF POS=(7,4),LENGTH=15,INITIAL='Social Sec no :',         *
               ATTRB=(ASKIP,NORM)
SSNO     DFHMDF POS=(7,20),LENGTH=10,ATTRB=(UNPROT,NUM,BRT,IC)
         DFHMDF POS=(7,31),LENGTH=1,ATTRB=(ASKIP,NORM)
* NAME                            First Name
         DFHMDF POS=(9,4),LENGTH=15,INITIAL='First name    :',         *
               ATTRB=(ASKIP,NORM)
FNAME    DFHMDF POS=(9,20),LENGTH=20,ATTRB=(UNPROT,BRT)
         DFHMDF POS=(9,41),LENGTH=1,ATTRB=(PROT,NORM)
* FNAME                           Last Name
         DFHMDF POS=(11,4),LENGTH=15,INITIAL='Last name     :',        *
               ATTRB=(PROT,NORM)
LNAME    DFHMDF POS=(11,20),LENGTH=20,ATTRB=(UNPROT,BRT)
         DFHMDF POS=(11,41),LENGTH=1,ATTRB=(PROT,NORM)
* DPT                             Department
         DFHMDF POS=(13,4),LENGTH=15,INITIAL='Department    :',        *
               ATTRB=(PROT,NORM)
DPT      DFHMDF POS=(13,20),LENGTH=5,ATTRB=(UNPROT,BRT)
         DFHMDF POS=(13,26),LENGTH=1,ATTRB=(PROT,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 F1=Clear F5=Chang*
               e F6=Add  F7=Delete  F10=Status',                       *
               ATTRB=(PROT,NORM)
         DFHMSD TYPE=FINAL
         END