!          FMS Form Description Application Aid 
!                     Version V2.4
 
FORM NAME='MORE$SCROLL$KEYS$INDEX'
    AREA_TO_CLEAR=15:23
    WIDTH=80
    BACKGROUND=CURRENT
    ;



NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='ARG ' ;
NAMED_DATA INDEX=2 NAME='.UP'
    DATA='OA$SCL_UP' ;
NAMED_DATA INDEX=3 NAME='.DOWN'
    DATA='OA$SCL_DOWN' ;
NAMED_DATA INDEX=4 NAME='.PC NEXT SCREEN'
    DATA='OA$SCL_NEXT_PAGE' ;
NAMED_DATA INDEX=5 NAME='.PC PREV SCREEN'
    DATA='OA$SCL_PRIOR_PAGE' ;
NAMED_DATA INDEX=6 NAME='.GOLD TAB'
    DATA='OA$SCL_NEXT_PAGE' ;
NAMED_DATA INDEX=7 NAME='.GOLD F12'
    DATA='OA$SCL_PRIOR_PAGE' ;
NAMED_DATA INDEX=8 NAME='.GOLD T'
    DATA='OA$SCL_FIRST_PAGE' ;
NAMED_DATA INDEX=9 NAME='.GOLD B'
    DATA='OA$SCL_LAST_PAGE\OA$SCL_BOTTOM' ;
NAMED_DATA INDEX=10 NAME='.GOLD UP'
    DATA='OA$SCL_TOP' ;
NAMED_DATA INDEX=11 NAME='.GOLD DOWN'
    DATA='OA$SCL_BOTTOM' ;
NAMED_DATA INDEX=12 NAME='.PC SELECT'
    DATA='.IF CHOICE EQS ''''' ;
NAMED_DATA INDEX=13 NAME='.PC SELECT'
    DATA=' THEN OA$SCL_SELECT' ;
NAMED_DATA INDEX=14 NAME='.PC SELECT'
    DATA=' ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\' ;
NAMED_DATA INDEX=15 NAME='.PC SELECT'
    DATA='      GET CHOICE=''''\\' ;
NAMED_DATA INDEX=16 NAME='.PC SELECT'
    DATA='      OA$SCL_REFRESH' ;
NAMED_DATA INDEX=17 NAME='.GOLD PC SELECT'
    DATA='.IF CHOICE EQS ''''' ;
NAMED_DATA INDEX=18 NAME='.GOLD PC SELECT'
    DATA=' THEN OA$SCL_DESELECT' ;
NAMED_DATA INDEX=19 NAME='.GOLD PC SELECT'
    DATA=' ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\' ;
NAMED_DATA INDEX=20 NAME='.GOLD PC SELECT'
    DATA='      GET CHOICE=''''\\' ;
NAMED_DATA INDEX=21 NAME='.GOLD PC SELECT'
    DATA='      OA$SCL_REFRESH' ;
NAMED_DATA INDEX=22 NAME='.PERIOD'
    DATA='.IF CHOICE EQS ''''' ;
NAMED_DATA INDEX=23 NAME='.PERIOD'
    DATA=' THEN OA$SCL_SELECT' ;
NAMED_DATA INDEX=24 NAME='.PERIOD'
    DATA=' ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\' ;
NAMED_DATA INDEX=25 NAME='.PERIOD'
    DATA='      GET CHOICE=''''\\' ;
NAMED_DATA INDEX=26 NAME='.PERIOD'
    DATA='      OA$SCL_REFRESH' ;
NAMED_DATA INDEX=27 NAME='.GOLD PERIOD'
    DATA='.IF CHOICE EQS ''''' ;
NAMED_DATA INDEX=28 NAME='.GOLD PERIOD'
    DATA=' THEN OA$SCL_DESELECT' ;
NAMED_DATA INDEX=29 NAME='.GOLD PERIOD'
    DATA=' ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\' ;
NAMED_DATA INDEX=30 NAME='.GOLD PERIOD'
    DATA='      GET CHOICE=''''\\' ;
NAMED_DATA INDEX=31 NAME='.GOLD PERIOD'
    DATA='      OA$SCL_REFRESH' ;
NAMED_DATA INDEX=32 NAME='.F6'
    DATA='DO APPL_INT' ;
NAMED_DATA INDEX=33 NAME='.F8'
    DATA='XOP OA$_MO_CANCEL_ALL' ;
NAMED_DATA INDEX=34 NAME='.F17'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=35 NAME='.F18'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=36 NAME='.F19'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=37 NAME='.F20'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=38 NAME='.GOLD F17'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=39 NAME='.GOLD F18'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=40 NAME='.GOLD F19'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=41 NAME='.GOLD F20'
    DATA='XOP "~~UDP_PROCESS~~"' ;
NAMED_DATA INDEX=42 NAME='~~UDP_PROCESS~~'
    DATA='.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD' ;
NAMED_DATA INDEX=43 NAME='~~UDP_PROCESS~~'
    DATA=' THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5' ;
NAMED_DATA INDEX=44 NAME='~~UDP_PROCESS~~'
    DATA=' ELSE GET #UDP_NAME = OA$FIELD_TERM_NAME\' ;
NAMED_DATA INDEX=45 NAME='~~UDP_PROCESS~~'
    DATA='GET #UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"\' ;
NAMED_DATA INDEX=46 NAME='~~UDP_PROCESS~~'
    DATA='GET #FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]\' ;
NAMED_DATA INDEX=47 NAME='~~UDP_PROCESS~~'
    DATA='.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME' ;
NAMED_DATA INDEX=48 NAME='~~UDP_PROCESS~~'
    DATA=' ELSE GET OA$FUNCTION = ''SCRIPT '' #FILE' ;
NAMED_DATA INDEX=49 NAME='%NUMBER'
    DATA='OA$SCL_GOTO OA$MENU_CHOICE' ;
NAMED_DATA INDEX=50 NAME='%NULL'
    DATA='OA$SCL_DOWN' ;
NAMED_DATA INDEX=51 NAME='OA$_MO_SELECT_ALL'
    DATA='GET OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO ' ;
NAMED_DATA INDEX=52 NAME='OA$_MO_SELECT_ALL'
    DATA='  GET OA$FUNCTION = ''OA$SCL_SELECT OA$SEL_ADDRESS''"\OA$SCL_REFRESH' ;
NAMED_DATA INDEX=53 NAME='OA$_MO_CANCEL_ALL'
    DATA='XOP "~~CAS_LOOP~~"\OA$SCL_REFRESH' ;
NAMED_DATA INDEX=54 NAME='~~CAS_LOOP~~'
    DATA='GET #RFA = ''''\NEXT_SELECTED OA$SCROLL_BINDING, #RFA\' ;
NAMED_DATA INDEX=55 NAME='~~CAS_LOOP~~'
    DATA='IFSTATUS\OA$SCL_DESELECT #RFA\REPEAT' ;
NAMED_DATA INDEX=56 NAME='~~CHECK_SELECTIONS~~'
    DATA='.IF OA$SCROLL_SELECTED eq 0' ;
NAMED_DATA INDEX=57 NAME='~~CHECK_SELECTIONS~~'
    DATA=' THEN GET OA$DISPLAY=OA$_INXNONESEL\\GET OA$STATUS=0' ;
NAMED_DATA INDEX=58 NAME='~~CHECK_SELECTIONS~~'
    DATA=' ELSE GET OA$STATUS=1' ;
NAMED_DATA INDEX=59 NAME='OA$_MO_SCRATCH_PAD'
    DATA='GET #SP_TYPE_AHEAD = OA$MENU_REMAINDER\' ;
NAMED_DATA INDEX=60 NAME='OA$_MO_SCRATCH_PAD'
    DATA='GET OA$MENU_REMAINDER = ""\' ;
NAMED_DATA INDEX=61 NAME='OA$_MO_SCRATCH_PAD'
    DATA='OA$MENU_LEVEL_PUSH\' ;
NAMED_DATA INDEX=62 NAME='OA$_MO_SCRATCH_PAD'
    DATA='GET OA$MENU_REMAINDER = #SP_TYPE_AHEAD\' ;
NAMED_DATA INDEX=63 NAME='OA$_MO_SCRATCH_PAD'
    DATA='.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENU' ;
NAMED_DATA INDEX=64 NAME='OA$_MO_TIME'
    DATA='TIME' ;
NAMED_DATA INDEX=65 NAME='OA$_MO_EXIT'
    DATA='EXIT' ;
NAMED_DATA INDEX=66 NAME='OA$_MO_EXIT2'
    DATA='EXIT' ;
NAMED_DATA INDEX=67 NAME='OA$_MO_DESK_CALCULATOR'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=68 NAME='OA$_MO_ACTION_ITEMS'
    DATA='GET OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AI' ;
NAMED_DATA INDEX=69 NAME='OA$_MO_TIME_MANAGEMENT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=70 NAME='OA$_MO_ELECTRONIC_MESSAGING'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=71 NAME='OA$_MO_ELECTRONIC_MESSAGING'
    DATA=' THEN GET OA$CURMES = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=72 NAME='OA$_MO_ELECTRONIC_MESSAGING'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=73 NAME='OA$_MO_MAIL'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=74 NAME='OA$_MO_MAIL'
    DATA=' THEN GET OA$CURMES = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=75 NAME='OA$_MO_MAIL'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=76 NAME='OA$_MO_DOCUMENT_PROCESSING'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=77 NAME='OA$_MO_DOCUMENT_PROCESSING'
    DATA=' THEN GET $WPDOC = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=78 NAME='OA$_MO_DOCUMENT_PROCESSING'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=79 NAME='OA$_MO_WORD_PROCESSING'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=80 NAME='OA$_MO_WORD_PROCESSING'
    DATA=' THEN GET $WPDOC = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=81 NAME='OA$_MO_WORD_PROCESSING'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=82 NAME='OA$_MO_FILE_CABINET'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=83 NAME='OA$_MO_FILE_CABINET'
    DATA=' THEN GET @#CURDOC = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=84 NAME='OA$_MO_FILE_CABINET'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=85 NAME='OA$_MO_DOCUMENT_TRANSFER'
    DATA='.IF   OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"' ;
NAMED_DATA INDEX=86 NAME='OA$_MO_DOCUMENT_TRANSFER'
    DATA=' THEN GET @#CURDOC = OA$SCROLL_KEY\' ;
NAMED_DATA INDEX=87 NAME='OA$_MO_DOCUMENT_TRANSFER'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=88 NAME='OA$_MO_DESK_MANAGEMENT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=89 NAME='OA$_MO_INFORMATION_MANAGEMENT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=90 NAME='OA$_MO_BUISNESS_APPLICATIONS'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=91 NAME='OA$_MO_CUSTOM_MANAG'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=92 NAME='OA$_MO_COMMUNICATIONS'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=93 NAME='OA$_MO_USER_SETUP'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=94 NAME='OA$_MO_PROFESSION_SPECIFIC'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=95 NAME='OA$_MO_DIRECTORIES'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=96 NAME='OA$_MO_PROGRAM_DEVELOPMENT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=97 NAME='OA$_MO_APPLICATION_DEVELOPMENT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=98 NAME='OA$_MO_NICKNAMES'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=99 NAME='OA$_MO_DISTRIBUTION_LISTS'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=100 NAME='OA$_MO_PHONE'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=101 NAME='OA$_MO_ADMINISTRATOR'
    DATA='.IF   PROFIL.AD$MIN:U[OA$USER] EQS "Y"' ;
NAMED_DATA INDEX=102 NAME='OA$_MO_ADMINISTRATOR'
    DATA=' THEN OA$FLD_EXIT\\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=103 NAME='OA$_MO_ADMINISTRATOR'
    DATA=' ELSE GET OA$DISPLAY = OA$_ICR\\FORCE' ;
NAMED_DATA INDEX=104 NAME='OA$_MO_MGT'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
NAMED_DATA INDEX=105 NAME='SM'
    DATA='OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER' ;
 
END_OF_FORM NAME='MORE$SCROLL$KEYS$INDEX' ;