MAP  FRO PROJECT

EDIT       MTPLP02.SMITHA.PDS(EMPLOYEE) - 01.28            Columns 00001 00072

Command ===>                                                  Scroll ===> PAGE

****** ***************************** Top of Data ******************************

000100 EMPLOY  DFHMSD TYPE=&SYSPARM,                                          X

000200                MODE=INOUT,                                             X

000300                LANG=COBOL,                                             X

000400                STORAGE=AUTO,                                           X

000500                TIOAPFX=YES,                                            X

000600                CTRL=(FREEKB,ALARM,FRSET),                              X

000610                MAPATTS=(COLOR,HILIGHT),                                X

000620                DSATTS=(COLOR,HILIGHT)                                  

000700 EMPDATA DFHMDI SIZE=(24,80),LINE=1,COLUMN=1                            

000710         DFHMDF POS=(3,25),LENGTH=20,ATTRB=PROT,                        X

000720                INITIAL='********************',COLOR=RED,HILIGHT=BLINK  

000800         DFHMDF POS=(4,25),LENGTH=20,ATTRB=PROT,                        X

000900                INITIAL='EMPLOYEE MAINTENANCE',COLOR=GREEN,HILIGHT=BLINK

000910         DFHMDF POS=(5,25),LENGTH=20,ATTRB=PROT,                        X

000920                INITIAL='********************',COLOR=RED,HILIGHT=BLINK  

001000         DFHMDF POS=(7,20),LENGTH=18,ATTRB=PROT,                        X

001100                INITIAL='EMPLOYEE NUMBER  :',COLOR=BLUE                 

 001200 ENO     DFHMDF POS=(7,39),LENGTH=5,ATTRB=(UNPROT,IC),                  X

 001300                INITIAL='-----',COLOR=YELLOW                            

 001400         DFHMDF POS=(7,45),LENGTH=1,ATTRB=ASKIP                         

 001500         DFHMDF POS=(9,20),LENGTH=18,ATTRB=PROT,                        X

 001600                INITIAL='NAME             :',COLOR=BLUE                 

 001700 NAME    DFHMDF POS=(9,39),LENGTH=10,ATTRB=(UNPROT),                    X

 001800                INITIAL='----------',COLOR=YELLOW                       

 001900         DFHMDF POS=(9,50),LENGTH=1,ATTRB=ASKIP                         

 001910         DFHMDF POS=(11,20),LENGTH=18,ATTRB=PROT,                       X

 001920                INITIAL='DATE OF BIRTH    :',COLOR=BLUE                 

 001930 DOB     DFHMDF POS=(11,39),LENGTH=10,ATTRB=(NORM,UNPROT),              X

 001940                INITIAL='----------',COLOR=YELLOW                       

 001950         DFHMDF POS=(11,50),LENGTH=1,ATTRB=ASKIP                        

 001960         DFHMDF POS=(13,20),LENGTH=18,ATTRB=PROT,                       X

 001970                INITIAL='DEPARTMENT       :',COLOR=BLUE                 

 001980 DEPT    DFHMDF POS=(13,39),LENGTH=5,ATTRB=(NORM,UNPROT),               X

 001990                INITIAL='-----',COLOR=YELLOW                            

 001991         DFHMDF POS=(13,45),LENGTH=1,ATTRB=ASKIP        

 001992         DFHMDF POS=(15,20),LENGTH=18,ATTRB=PROT,                       X

 001993                INITIAL='DATE OF JOINING  :',COLOR=BLUE                 

 001994 DOJ     DFHMDF POS=(15,39),LENGTH=10,ATTRB=(NORM,UNPROT),              X

 001995                INITIAL='----------',COLOR=YELLOW                       

 001996         DFHMDF POS=(15,50),LENGTH=1,ATTRB=ASKIP                        

 001997         DFHMDF POS=(17,20),LENGTH=18,ATTRB=PROT,                       X

 001998                INITIAL='LOCATION         :',COLOR=BLUE                 

 001999 LOC     DFHMDF POS=(17,39),LENGTH=10,ATTRB=(NORM,UNPROT),              X

 002000                INITIAL='----------',COLOR=YELLOW                       

 002001         DFHMDF POS=(17,50),LENGTH=1,ATTRB=ASKIP                        

 002002         DFHMDF POS=(19,20),LENGTH=18,ATTRB=PROT,                       X

 002003                INITIAL='PHONE NO.        :',COLOR=BLUE                 

 002004 PHONE   DFHMDF POS=(19,39),LENGTH=10,ATTRB=(NORM,UNPROT),              X

 002005                INITIAL='----------',COLOR=YELLOW                       

 002006         DFHMDF POS=(19,50),LENGTH=1,ATTRB=ASKIP                        

 002007         DFHMDF POS=(21,18),LENGTH=10,ATTRB=PROT,                       X

 002008                INITIAL='MESSAGE  :',COLOR=BLUE                         

 002009 MSG     DFHMDF POS=(21,29),LENGTH=30,ATTRB=(NORM,UNPROT),              X

002010                INITIAL='------------------------------',COLOR=YELLOW   

002011         DFHMDF POS=(21,60),LENGTH=1,ATTRB=ASKIP                        

002012         DFHMDF POS=(23,2),LENGTH=7,ATTRB=PROT,                         X

002013                INITIAL='F1:VIEW',COLOR=BLUE,HILIGHT=BLINK              

002014         DFHMDF POS=(23,18),LENGTH=7,ATTRB=PROT,                        X

002015                INITIAL='F2:EXIT',COLOR=BLUE,HILIGHT=BLINK              

002016         DFHMDF POS=(23,40),LENGTH=6,ATTRB=PROT,                        X

002017                INITIAL='F3:ADD',COLOR=BLUE,HILIGHT=BLINK               

002018         DFHMDF POS=(23,56),LENGTH=14,ATTRB=PROT,                       X

002019                INITIAL='F4:CONFIRM ADD',COLOR=BLUE,HILIGHT=BLINK       

002020         DFHMDF POS=(24,2),LENGTH=9,ATTRB=PROT,                         X

002021                INITIAL='F5:UPDATE',COLOR=BLUE,HILIGHT=BLINK            

002022         DFHMDF POS=(24,18),LENGTH=17,ATTRB=PROT,                       X

002023                INITIAL='F6:CONFIRM UPDATE',COLOR=BLUE,HILIGHT=BLINK    

002024         DFHMDF POS=(24,40),LENGTH=9,ATTRB=PROT,                        X

002025                INITIAL='F7:DELETE',COLOR=BLUE,HILIGHT=BLINK            

002026         DFHMDF POS=(24,56),LENGTH=17,ATTRB=PROT,                       X

002027                INITIAL='F8:CONFIRM DELETE',COLOR=BLUE,HILIGHT=BLINK    

002030         DFHMSD TYPE=FINAL  

002100         END                

RUN THIS MAP BY MAPJCL FIRST AFTER CREATING IT.

                                    MAP FOR SHOWING  " BYE " AT END     

000100 EMPLO   DFHMSD TYPE=&SYSPARM,                                          X

000200                MODE=INOUT,                                             X

000300                LANG=COBOL,                                             X

000400                STORAGE=AUTO,                                           X

000500                TIOAPFX=YES,                                            X

000600                CTRL=(FREEKB,ALARM,FRSET),                              X

000700                MAPATTS=(COLOR,HILIGHT),                                X

000800                DSATTS=(COLOR,HILIGHT)                                  

000900 EMPDAT  DFHMDI SIZE=(24,80),LINE=1,COLUMN=1                            

001000         DFHMDF POS=(3,25),LENGTH=20,ATTRB=PROT,                        X

001100                INITIAL='********************',COLOR=RED,HILIGHT=BLINK  

001200         DFHMDF POS=(4,25),LENGTH=20,ATTRB=PROT,                        X

001300                INITIAL='END OF PROJECT::BYE',COLOR=GREEN,HILIGHT=BLINK 

001400         DFHMDF POS=(5,25),LENGTH=20,ATTRB=PROT,                        X

001500                INITIAL='********************',COLOR=RED,HILIGHT=BLINK  

007200         DFHMSD TYPE=FINAL                                              

007300         END