SIGNON  DFHMSD TYPE=&SYSPARM,MODE=INOUT,TERM=ALL,                      X 
               LANG=COBOL,TIOAPFX=YES,STORAGE=AUTO,CTRL=FREEKB
LOGONM  DFHMDI SIZE=(024,080),                                         X
               LINE=1,                                                 X
               COLUMN=1
        DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL,         X
               INITIAL='Signon to DUTAS'
        DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='WARNING!  BY ACCESSING AND USING THIS GOVERNMENX
               T COMPUTER SYSTEM, YOU ARE'
        DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
               MENT AND OTHER PURPOSES.'
        DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
               R SYSTEM MAY SUBJECT YOU TO'
        DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='CRIMINAL PROSECUTION.'
        DFHMDF POS=(8,1),LENGTH=70,ATTRB=ASKIP,COLOR=GREEN,            X
               INITIAL='Type your DCGov email address and password, theX
               n press ENTER:'
        DFHMDF POS=(10,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN,          X
               INITIAL='Userid . . . .:'
USERN   DFHMDF POS=(10,28),LENGTH=50,ATTRB=(UNPROT,IC),COLOR=TURQUOISE,X                       
               INITIAL=' '              
        DFHMDF POS=(10,79),ATTRB=ASKIP
        DFHMDF POS=(11,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN,          X
               INITIAL='Password . . .:'
PASSW   DFHMDF POS=(11,28),LENGTH=50,ATTRB=(UNPROT,DRK),               X                       
               INITIAL='                   '              
        DFHMDF POS=(11,79),ATTRB=ASKIP
INFMS   DFHMDF POS=(15,20),LENGTH=40,COLOR=RED,INITIAL='        '        
        DFHMDF POS=(15,60),ATTRB=ASKIP
        
        DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL,         X
               INITIAL='F3=Exit'

SUXESS  DFHMDI SIZE=(024,080),                                         X
               LINE=1,                                                 X
               COLUMN=1
        DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL,         X
               INITIAL='Signon to DUTAS'
        DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='WARNING!  BY ACCESSING AND USING THIS GOVERNMENX
               T COMPUTER SYSTEM, YOU ARE'
        DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
               MENT AND OTHER PURPOSES.'
        DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
               R SYSTEM MAY SUBJECT YOU TO'
        DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL,          X
               INITIAL='CRIMINAL PROSECUTION.'
        DFHMDF POS=(8,10),LENGTH=60,ATTRB=ASKIP,COLOR=BLUE,            X
               INITIAL='Logon Success! Please press ENTER:'
BLANK   DFHMDF POS=(10,32),LENGTH=30,ATTRB=(UNPROT,IC,DRK),            X                       
               INITIAL=' '              
        DFHMDF POS=(10,64),ATTRB=ASKIP
        DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL,         X
               INITIAL='F3=Exit'
        DFHMSD TYPE=FINAL 
               END