Saturday, 5 November 2011

cics map for administrator

 ADMIN   DFHMSD TYPE=&SYSPARM,                                
                CTRL=(FREEKB,FRSET),                          
                LANG=COBOL,                                   
                MODE=INOUT,                                   
                TIOAPFX=YES                                   
 ADMENU  DFHMDI SIZE=(24,80),                                 
                LINE=01,                                      
                COLUMN=01                                     
         DFHMDF POS=(03,35),                                  
                ATTRB=(ASKIP,PROT),                           
                INITIAL='ADMIN MENU',                         
                LENGTH=010                                    
         DFHMDF POS=(08,15),                                  
                ATTRB=(ASKIP,PROT),                           
                INITIAL='1 - TO VIEW ACCOUNT INFORMATION',    
                LENGTH=031                                    
         DFHMDF POS=(09,15),                                  
                ATTRB=(ASKIP,PROT),                           
                INITIAL='2 - TO FREEZE THE ACCOUNT',          
                LENGTH=025                                    
         DFHMDF POS=(11,15),                                  
                ATTRB=(ASKIP,PROT),                           
                INITIAL='3 - LOGOUT',                         
                LENGTH=010                                    
         DFHMDF POS=(14,18),                                  
                ATTRB=(ASKIP,PROT),                          
                INITIAL='ENTER YOUR CHOICE :',               
                LENGTH=019                                   
 ADCHCE  DFHMDF POS=(14,39),                                 
                ATTRB=UNPROT,                                
                INITIAL='_',                                 
                LENGTH=001                                   
         DFHMSD TYPE=FINAL                                   
         END