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


TEXT (1,32) 'Default Menu Form '
    BOLD 
    ;

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'  (9,16)
    PICTURE=50'X'
    HELP='Press GOLD H for Help'
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='MENU' ;
NAMED_DATA INDEX=2 NAME='.CR'
    DATA='OA$FLD_DONE' ;
NAMED_DATA INDEX=3 NAME='.ENTER'
    DATA='OA$FLD_DONE' ;
NAMED_DATA INDEX=4 NAME='.GOLD F'
    DATA='OA$FLD_DONE' ;
NAMED_DATA INDEX=5 NAME='.PC DO'
    DATA='OA$FLD_DONE' ;
NAMED_DATA INDEX=6 NAME='.TAB'
    DATA='OA$FLD_NEXT' ;
NAMED_DATA INDEX=7 NAME='.BS'
    DATA='OA$FLD_PREV' ;
NAMED_DATA INDEX=8 NAME='.KEY 0'
    DATA='OA$FLD_EXIT' ;
NAMED_DATA INDEX=9 NAME='.GOLD Q'
    DATA='OA$FLD_EXIT' ;
NAMED_DATA INDEX=10 NAME='.GOLD K'
    DATA='OA$FLD_EXIT' ;
NAMED_DATA INDEX=11 NAME='.PF4'
    DATA='GET OA$MENU_REMAINDER="SEL"' ;
NAMED_DATA INDEX=12 NAME='.PC SELECT'
    DATA='GET OA$MENU_REMAINDER="SEL"' ;
NAMED_DATA INDEX=13 NAME='.GOLD B'
    DATA='OA$FLD_BOTTOM' ;
NAMED_DATA INDEX=14 NAME='.GOLD T'
    DATA='OA$FLD_TOP' ;
NAMED_DATA INDEX=15 NAME='.GOLD H'
    DATA='HELP' ;
NAMED_DATA INDEX=16 NAME='.PC HELP'
    DATA='HELP' ;
NAMED_DATA INDEX=17 NAME='.GOLD V'
    DATA='FORM OA$VIEW_FIELDS' ;
NAMED_DATA INDEX=18 NAME='.GOLD %'
    DATA='FORM TRACEARG' ;
NAMED_DATA INDEX=19 NAME='.GOLD $'
    DATA='.IF OA$PROFIL_PRVDCL EQS "1" THEN KEYPAD OFF\\DCL\\KEYPAD ON' ;
NAMED_DATA INDEX=20 NAME='.GOLD I'
    DATA='OA$MENU_LEVEL_PUSH\FORM INTMENU' ;
NAMED_DATA INDEX=21 NAME='.GOLD L'
    DATA='OA$FLD_RECOG' ;
NAMED_DATA INDEX=22 NAME='.PC FIND'
    DATA='OA$FLD_RECOG' ;
NAMED_DATA INDEX=23 NAME='.GOLD S'
    DATA='OA$FLD_SEARCH' ;
NAMED_DATA INDEX=24 NAME='.GOLD TAB'
    DATA='OA$FLD_PAGE_FORWARD' ;
NAMED_DATA INDEX=25 NAME='.PC NEXT SCREEN'
    DATA='OA$FLD_PAGE_FORWARD' ;
NAMED_DATA INDEX=26 NAME='.GOLD BS'
    DATA='OA$FLD_PAGE_BACK' ;
NAMED_DATA INDEX=27 NAME='.PC PREV SCREEN'
    DATA='OA$FLD_PAGE_BACK' ;
NAMED_DATA INDEX=28 NAME='.GOLD #'
    DATA='FORM EDCLC1' ;
NAMED_DATA INDEX=29 NAME='.COMMA'
    DATA='DISPLAY Press GOLD H for HELP\FORCE' ;
NAMED_DATA INDEX=30 NAME='.KEY 1'
    DATA='DISPLAY Press GOLD L for list\FORCE' ;
NAMED_DATA INDEX=31 NAME='.KEY 4'
    DATA='DISPLAY Press GOLD L for list\FORCE' ;
NAMED_DATA INDEX=32 NAME='.KEY 2'
    DATA='DISPLAY Press GOLD S for search\FORCE' ;
NAMED_DATA INDEX=33 NAME='.KEY 5'
    DATA='DISPLAY Press GOLD S for search\FORCE' ;
NAMED_DATA INDEX=34 NAME='.PERIOD'
    DATA='OA$FLD_NEXT_LIST' ;
NAMED_DATA INDEX=35 NAME='.GOLD A'
    DATA='GET OA$MENU_REMAINDER="M " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=36 NAME='M'
    DATA='DISPLAY Additional options not available\FORCE' ;
NAMED_DATA INDEX=37 NAME='.GOLD P'
    DATA='PRINT_SCREEN' ;
NAMED_DATA INDEX=38 NAME='.GOLD E'
    DATA='DISPLAY This option is not implemented in this version\FORCE' ;
NAMED_DATA INDEX=39 NAME='.GOLD D'
    DATA='DISPLAY No CBI default available here\FORCE' ;
NAMED_DATA INDEX=40 NAME='.GOLD X'
    DATA='DISPLAY You are not in a CBI\FORCE' ;
NAMED_DATA INDEX=41 NAME='.GOLD ['
    DATA='DISPLAY Please use ''GOLD ('' to enable verify/trace' ;
NAMED_DATA INDEX=42 NAME='.GOLD ('
    DATA='.TRACE\GET OA$DCL="$SET VERIFY"\DISPLAY Verify/Trace mode on\FORCE' ;
NAMED_DATA INDEX=43 NAME='.GOLD ]'
    DATA='DISPLAY Please use ''GOLD )'' to disable verify/trace' ;
NAMED_DATA INDEX=44 NAME='.GOLD )'
    DATA='.TRACE OFF\GET OA$DCL="$SET NOVERIFY"\DISPLAY Verify/Trace mode off\FORCE' ;
NAMED_DATA INDEX=45 NAME='.GOLD W'
    DATA='FORM OA$VIEW_MESSAGES' ;
NAMED_DATA INDEX=46 NAME='.GOLD N'
    DATA='FORM OA$VIEW_ND' ;
NAMED_DATA INDEX=47 NAME='.GOLD U'
    DATA='.FZ FORM WPSELUDP\IFEXIT\.FZ DO WPDOUDP' ;
NAMED_DATA INDEX=48 NAME='EX'
    DATA='EXIT' ;
NAMED_DATA INDEX=49 NAME='.PF2'
    DATA='DISPLAY Press GOLD H for help\FORCE' ;
NAMED_DATA INDEX=50 NAME='TIME'
    DATA='TIME' ;
NAMED_DATA INDEX=51 NAME='DC'
    DATA='FORM OA$DESK' ;
NAMED_DATA INDEX=52 NAME='EXIT'
    DATA='EXIT' ;
NAMED_DATA INDEX=53 NAME='TR'
    DATA='DISPLAY Computer based instruction not available for this form' ;
NAMED_DATA INDEX=54 NAME='HELP'
    DATA='HELP GETTING_HELP' ;
NAMED_DATA INDEX=55 NAME='UPENT'
    DATA='DISPLAY Please use the SM subsystem to change a users profile\FORCE' ;
NAMED_DATA INDEX=56 NAME='PROFIL'
    DATA='DISPLAY Please use the US subsytem to change your profile\FORCE' ;
NAMED_DATA INDEX=57 NAME='?'
    DATA='GET OA$FUNCTION="FORM FMS_" OA$TERMINAL_LK201 OA$TERMINAL_AVO' ;
NAMED_DATA INDEX=58 NAME='FC'
    DATA='GET #CURDOC="$WPDOC"\FORM FC1/MORE=WP' ;
NAMED_DATA INDEX=59 NAME='EM'
    DATA='GET #MAILMEN=OA$PROFIL_MAIL_MENU\.IF #MAILMEN EQS "" OR #MAILMEN EQS' ;
NAMED_DATA INDEX=60 NAME='EM'
    DATA=' "CMI" OR #MAILMEN EQS "EMC" THEN FORM EMC ELSE FORM EMD' ;
NAMED_DATA INDEX=61 NAME='WP'
    DATA='FORM WP' ;
NAMED_DATA INDEX=62 NAME='DM'
    DATA='FORM DM' ;
NAMED_DATA INDEX=63 NAME='IM'
    DATA='FORM IM' ;
NAMED_DATA INDEX=64 NAME='BA'
    DATA='FORM BA' ;
NAMED_DATA INDEX=65 NAME='CM'
    DATA='DISPLAY Please enter ''TM'' to use the new Time Management system' ;
NAMED_DATA INDEX=66 NAME='COM'
    DATA='FORM COM' ;
NAMED_DATA INDEX=67 NAME='US'
    DATA='FORM US' ;
NAMED_DATA INDEX=68 NAME='PS'
    DATA='FORM PS' ;
NAMED_DATA INDEX=69 NAME='DIR'
    DATA='FORM DIR' ;
NAMED_DATA INDEX=70 NAME='PD'
    DATA='FORM PD' ;
NAMED_DATA INDEX=71 NAME='NI'
    DATA='FORM NI' ;
NAMED_DATA INDEX=72 NAME='DL'
    DATA='FORM DL' ;
NAMED_DATA INDEX=73 NAME='AI'
    DATA='DISPLAY Use the TM option to access your Action Items.' ;
NAMED_DATA INDEX=74 NAME='PH'
    DATA='FORM DIR' ;
NAMED_DATA INDEX=75 NAME='DT'
    DATA='FORM WPDXMENU' ;
NAMED_DATA INDEX=76 NAME='SP'
    DATA='FORM SPMENU' ;
NAMED_DATA INDEX=77 NAME='.GOLD *'
    DATA='FORM SPMENU' ;
NAMED_DATA INDEX=78 NAME='.DOWN'
    DATA='OA$FLD_DOWN' ;
NAMED_DATA INDEX=79 NAME='.UP'
    DATA='OA$FLD_UP' ;
NAMED_DATA INDEX=80 NAME='.GOLD UP'
    DATA='OA$FLD_PAGE_TOP' ;
NAMED_DATA INDEX=81 NAME='.GOLD DOWN'
    DATA='OA$FLD_PAGE_BOTTOM' ;
NAMED_DATA INDEX=82 NAME='.GOLD RIGHT'
    DATA='DISPLAY GOLD RIGHT is not available on this form' ;
NAMED_DATA INDEX=83 NAME='.GOLD LEFT'
    DATA='DISPLAY GOLD LEFT is not available on this form' ;
NAMED_DATA INDEX=84 NAME='PROFILE'
    DATA='FORM PROFILE\OA$INI_GLOBALS\OA$INI_PROFILE\OA$INI_LOGICALS' ;
NAMED_DATA INDEX=85 NAME='.PC EXIT'
    DATA='OA$FLD_EXIT' ;
NAMED_DATA INDEX=86 NAME='MAIL'
    DATA='GET OA$MENU_REMAINDER="EM " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=87 NAME='NETWORK'
    DATA='DISPLAY Please use the SM subsystem to change the network profile\FORCE' ;
 
END_OF_FORM NAME='DEFAULT' ;