PRINT ON,NOGEN                                                 00010000
EDMAP1   DFHMSD TYPE=MAP,LANG=COBOL,MODE=INOUT,STORAGE=AUTO,SUFFIX=,   *00020003
               MAPATTS=(COLOR,HILIGHT),DSATTS=(COLOR,HILIGHT)           00021003
EDMAP1   DFHMDI SIZE=(24,80),COLUMN=1,LINE=1,DATA=FIELD,TIOAPFX=YES,   *00030002
               OBFMT=NO,CURSLOC=YES                                     00040000
* DATE                                                                  00060001
DATE     DFHMDF POS=(1,65),LENGTH=10,ATTRB=(PROT,BRT)                   00070001
         DFHMDF POS=(1,76),LENGTH=1,ATTRB=(PROT,NORM)                   00080000
         DFHMDF POS=(2,23),LENGTH=43,INITIAL=' CICS Application Program*00090005
               ming Fundamentals ',COLOR=BLUE,HILIGHT=REVERSE,         *00091005
               ATTRB=(PROT,NORM)                                        00100000
          DFHMDF POS=(2,67),LENGTH=1,ATTRB=PROT                         00100105
         DFHMDF POS=(3,33),LENGTH=22,INITIAL='Cobolskolan Sverige',    *00101005
               ATTRB=(PROT,NORM)                                        00102002
* EMPLOYEE                                                              00110001
EMPFILE  DFHMDF POS=(6,4),LENGTH=1,ATTRB=(UNPROT,BRT,IC)                00120002
         DFHMDF POS=(6,6),LENGTH=14,INITIAL='Employees',               *00130002
               ATTRB=(PROT,NORM)                                        00140000
* Paging                                                                00150001
Paging   DFHMDF POS=(8,4),LENGTH=1,ATTRB=(UNPROT,BRT)                   00160002
         DFHMDF POS=(8,6),LENGTH=14,INITIAL='Paging',                  *00170002
               ATTRB=(PROT,NORM)                                        00180000
* Exit                                                                  00230001
Exit     DFHMDF POS=(11,4),LENGTH=1,ATTRB=(UNPROT,BRT)                  00240002
         DFHMDF POS=(11,6),LENGTH=7,INITIAL='Exit',ATTRB=(PROT,NORM)    00250002
* MESSAGE                                                               00260001
MESSAGE  DFHMDF POS=(23,4),LENGTH=59,ATTRB=(PROT,BRT)                   00270001
         DFHMDF POS=(23,64),LENGTH=1,ATTRB=(PROT,NORM)                  00280000
         DFHMDF POS=(24,4),LENGTH=31,                                  *00290000
               INITIAL='F3 CLEAR=Exit  ENTER=Continue',ATTRB=(PROT,NORM*00300001
               )                                                        00310001
         DFHMSD TYPE=FINAL                                              00320000
         END                                                            00330000