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