HOL4MP DFHMSD TYPE=DSECT,MODE=INOUT,TERM=ALL,STORAGE=AUTO,LANG=COBOL
HOL4MP DFHMDI SIZE=(24,80),LINE=1,COLUMN=1,COLOR=GREEN,HILIGHT=OFF,    +
               MAPATTS=(COLOR,HILIGHT),DSATTS=HILIGHT,CTRL=FREEKB
       DFHMDF POS=(1,72),LENGTH=6,INITIAL='HOL4MP',                    +
               COLOR=BLUE,ATTRB=(ASKIP,NORM)
       DFHMDF POS=(3,10),LENGTH=43,                                    +
               INITIAL='CONSULTA DE CLIENTES -> DB2',                  +
               COLOR=RED,ATTRB=(ASKIP,NORM)
       DFHMDF POS=(5,1),LENGTH=24,INITIAL='INTRODUZCA EL DNI: ',       +
               COLOR=GREEN,ATTRB=(NORM,PROT)
DNI    DFHMDF POS=(5,26),LENGTH=9,INITIAL='_________',                 +
               COLOR=TURQUOISE,ATTRB=(UNPROT,NORM,IC)
       DFHMDF POS=(5,36),LENGTH=1,ATTRB=(ASKIP)
NOM    DFHMDF POS=(7,26),LENGTH=20,ATTRB=(NORM,PROT),COLOR=YELLOW
APE    DFHMDF POS=(8,26),LENGTH=20,ATTRB=(NORM,PROT),COLOR=YELLOW
DIR    DFHMDF POS=(9,26),LENGTH=35,ATTRB=(NORM,PROT),COLOR=YELLOW
MSG    DFHMDF POS=(23,1),LENGTH=60,ATTRB=(BRT,PROT),COLOR=NEUTRAL
       DFHMDF POS=(24,1),LENGTH=20,ATTRB=(NORM,PROT),COLOR=BLUE,       +
               INITIAL='F3=SALIR'
       DFHMSD TYPE=FINAL
       END