!          FMS Form Description Application Aid 
!                     Version V2.2
 
FORM NAME='DATABASE'
    AREA_TO_CLEAR=1:23
    WIDTH=80
    BACKGROUND=CURRENT
    ;


TEXT (1,10) 'Database Applications'
    ;
TEXT (8,9) ' CP  '
    BOLD 
    ;
TEXT (8,15) 'Corporate Phone Directory'
    ;
TEXT (22,10) 'Enter selection and press RETURN'
    ;

ATTRIBUTE_DEFAULTS FIELD
    CLEAR_CHARACTER=' '
    NOAUTOTAB BLANK_FILL NOBLINKING NOBOLD NOREVERSE
    NOUNDERLINE NODISPLAY_ONLY ECHO NOFIXED_DECIMAL
    LEFT_JUSTIFIED NOSUPERVISOR_ONLY NOSUPPRESS NOUPPERCASE
    ;

FIELD NAME='CHOICE'  (20,10)
    PICTURE=71'X'
    HELP='Press GOLD H for Help'
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='MENU /CHOICE=CHOICE/CLEAR' ;
NAMED_DATA INDEX=2 NAME='CP'
    DATA='DTR :CDD$TOP.CORPORATE.MENU_PHONE' ;
 
END_OF_FORM NAME='DATABASE' ;