Mainframe: November 2011

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

Mainframe

Saturday, 5 November 2011

cics map for administrator