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

SCROLL BEGIN_WITH=6  END_WITH=19 ;

TEXT (1,28) ' Index '
    BOLD 
    ;
TEXT (2,2) '(Selections:'
    ;
TEXT (2,18) ')                                          (New messages:'
    ;
TEXT (2,79) ')'
    ;
TEXT (3,1) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    &'qqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (4,4) 'No.  FLD1                           FLD2                    '
    &'FLD3   '
    ;
TEXT (5,1) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    &'qqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (20,1) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    &'qqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (22,2) 'Move to item and enter option (press GOLD MENU to see option'
    &'s)'
    ;

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='SELECTIONS'  (2,15)
    PICTURE=3'9'
    DISPLAY_ONLY 
    ;
FIELD NAME='UNREAD'  (2,76)
    PICTURE=3'9'
    DISPLAY_ONLY 
    ;
FIELD NAME='POINTER'  (6,2)
    PICTURE='X'
    DISPLAY_ONLY 
    ;
FIELD NAME='SELECTED'  (6,3)
    PICTURE='X'
    DISPLAY_ONLY 
    ;
FIELD NAME='LINE'  (6,4)
    PICTURE=5'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='FLD1'  (6,9)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='FLD2'  (6,40)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='FLD3'  (6,71)
    PICTURE='X'
    DISPLAY_ONLY 
    ;
FIELD NAME='CHOICE'  (21,2)
    PICTURE=78'X'
    ;

ORDER BEGIN_WITH = 1
    NAME='SELECTIONS' 
    NAME='UNREAD' 
    NAME='POINTER' 
    NAME='SELECTED' 
    NAME='LINE' 
    NAME='FLD1' 
    NAME='FLD2' 
    NAME='FLD3' 
    NAME='CHOICE' 
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='INDEX/CHOICE=CHOICE/CLEAR' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='/PRE_FUNCTION=''OA$SCL_INIT ,,,*APPL' ;
NAMED_DATA INDEX=3 NAME='.TYPE'
    DATA='\IFNOTSTATUS\XOP "~~FIND~~"''' ;
NAMED_DATA INDEX=4 NAME='.MORE'
    DATA='MORE$SCROLL$KEYS$INDEX' ;
NAMED_DATA INDEX=5 NAME='.GOLD M'
    DATA='FORM APPL$INDEX$MENU\CLOSE_PRIOR' ;
NAMED_DATA INDEX=6 NAME='LINE'
    DATA='/VIEW=,,,*APPL' ;
NAMED_DATA INDEX=7 NAME='LINE'
    DATA='/ALIAS=%LINE' ;
NAMED_DATA INDEX=8 NAME='POINTER'
    DATA='/POINTER' ;
NAMED_DATA INDEX=9 NAME='SELECTED'
    DATA='/SELECTED' ;
NAMED_DATA INDEX=10 NAME='~~FIND~~'
    DATA='FORM APPL$INDEX$FIND\' ;
NAMED_DATA INDEX=11 NAME='~~FIND~~'
    DATA='IFEXIT\' ;
NAMED_DATA INDEX=12 NAME='~~FIND~~'
    DATA='CLOSE_PRIOR\' ;
NAMED_DATA INDEX=13 NAME='~~FIND~~'
    DATA='OA$SCL_EXIT\' ;
NAMED_DATA INDEX=14 NAME='~~FIND~~'
    DATA='BIND_BREAK *APPL\' ;
NAMED_DATA INDEX=15 NAME='~~FIND~~'
    DATA='XOP "~~BINDW~~"\' ;
NAMED_DATA INDEX=16 NAME='~~FIND~~'
    DATA='OA$SCL_INIT,,,*APPL' ;
NAMED_DATA INDEX=17 NAME='~~BINDW~~'
    DATA='BINDW *APPL TO APPL_ENTRY' ;
NAMED_DATA INDEX=18 NAME='~~BINDW~~'
    DATA=' WITH .FLD1 = #APPL_FLD1' ;
NAMED_DATA INDEX=19 NAME='~~BINDW~~'
    DATA=' AND  .FLD2 = #APPL_FLD2' ;
NAMED_DATA INDEX=20 NAME='~~BINDW~~'
    DATA=' AND .FLD3 = #APPL_FLD3' ;
NAMED_DATA INDEX=21 NAME='CHOICE'
    DATA='/PRE=''GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT''' ;
NAMED_DATA INDEX=22 NAME='OA$_MO_INDEX'
    DATA='XOP "~~FIND~~"' ;
NAMED_DATA INDEX=23 NAME='.GOLD F'
    DATA='GET $APPL_FLD1 = APPL_ENTRY.FLD1[OA$SCROLL_KEY]\' ;
NAMED_DATA INDEX=24 NAME='.GOLD F'
    DATA='GET $APPL_FLD2 = APPL_ENTRY.FLD2[OA$SCROLL_KEY]\' ;
NAMED_DATA INDEX=25 NAME='.GOLD F'
    DATA='GET $APPL_FLD3 = APPL_ENTRY.FLD3[OA$SCROLL_KEY]\' ;
NAMED_DATA INDEX=26 NAME='.GOLD F'
    DATA='GET $APPL_KEY = $APPL_FLD1 $APPL_FLD2 $APPL_FLD3\' ;
NAMED_DATA INDEX=27 NAME='.GOLD F'
    DATA='GET $APPL_FLD4 = APPL_ENTRY.FLD4[$APPL_KEY]\' ;
NAMED_DATA INDEX=28 NAME='.GOLD F'
    DATA='OA$FLD_EXIT' ;
NAMED_DATA INDEX=29 NAME='OA$_MO_CREATE'
    DATA='FORM APPL_ENTRY/ONE_ENTRY/MODE=ADD\' ;
NAMED_DATA INDEX=30 NAME='OA$_MO_CREATE'
    DATA='IFEXIT\' ;
NAMED_DATA INDEX=31 NAME='OA$_MO_CREATE'
    DATA='CLOSE_PRIOR\' ;
NAMED_DATA INDEX=32 NAME='OA$_MO_CREATE'
    DATA='OA$SCL_REFRESH' ;
NAMED_DATA INDEX=33 NAME='OA$_MO_EDIT'
    DATA='GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\' ;
NAMED_DATA INDEX=34 NAME='OA$_MO_EDIT'
    DATA='GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\' ;
NAMED_DATA INDEX=35 NAME='OA$_MO_EDIT'
    DATA='GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\' ;
NAMED_DATA INDEX=36 NAME='OA$_MO_EDIT'
    DATA='GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\' ;
NAMED_DATA INDEX=37 NAME='OA$_MO_EDIT'
    DATA='FORM APPL_ENTRY/MODE=CHANGE' ;
NAMED_DATA INDEX=38 NAME='OA$_MO_EDIT'
    DATA='/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\' ;
NAMED_DATA INDEX=39 NAME='OA$_MO_EDIT'
    DATA='IFEXIT\' ;
NAMED_DATA INDEX=40 NAME='OA$_MO_EDIT'
    DATA='CLOSE_PRIOR\' ;
NAMED_DATA INDEX=41 NAME='OA$_MO_EDIT'
    DATA='OA$SCL_UPDATE\' ;
NAMED_DATA INDEX=42 NAME='OA$_MO_EDIT'
    DATA='OA$SCL_REFRESH' ;
NAMED_DATA INDEX=43 NAME='OA$_MO_DELETE'
    DATA='GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\' ;
NAMED_DATA INDEX=44 NAME='OA$_MO_DELETE'
    DATA='GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\' ;
NAMED_DATA INDEX=45 NAME='OA$_MO_DELETE'
    DATA='GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\' ;
NAMED_DATA INDEX=46 NAME='OA$_MO_DELETE'
    DATA='GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\' ;
NAMED_DATA INDEX=47 NAME='OA$_MO_DELETE'
    DATA='FORM APPL_ENTRY/MODE=DELETE' ;
NAMED_DATA INDEX=48 NAME='OA$_MO_DELETE'
    DATA='/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\' ;
NAMED_DATA INDEX=49 NAME='OA$_MO_DELETE'
    DATA='IFEXIT\' ;
NAMED_DATA INDEX=50 NAME='OA$_MO_DELETE'
    DATA='CLOSE_PRIOR\' ;
NAMED_DATA INDEX=51 NAME='OA$_MO_DELETE'
    DATA='OA$SCL_REFRESH' ;
NAMED_DATA INDEX=52 NAME='OA$_MO_PRINT'
    DATA='MERGE SELECTIONLIST1,APPLLIST.SEL\' ;
NAMED_DATA INDEX=53 NAME='OA$_MO_PRINT'
    DATA='FORM APPL_PRINT\' ;
NAMED_DATA INDEX=54 NAME='OA$_MO_PRINT'
    DATA='PURGE_FILE APPLLIST.SEL' ;
NAMED_DATA INDEX=55 NAME='OA$_MO_X_PRINT'
    DATA='XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\' ;
NAMED_DATA INDEX=56 NAME='OA$_MO_X_PRINT'
    DATA='MERGE SELECTIONLIST,APPLLIST.SEL\' ;
NAMED_DATA INDEX=57 NAME='OA$_MO_X_PRINT'
    DATA='FORM APPL_PRINT\' ;
NAMED_DATA INDEX=58 NAME='OA$_MO_X_PRINT'
    DATA='PURGE_FILE APPLLIST.SEL' ;
NAMED_DATA INDEX=59 NAME='OA$_MO_READ'
    DATA='GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\' ;
NAMED_DATA INDEX=60 NAME='OA$_MO_READ'
    DATA='GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\' ;
NAMED_DATA INDEX=61 NAME='OA$_MO_READ'
    DATA='GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\' ;
NAMED_DATA INDEX=62 NAME='OA$_MO_READ'
    DATA='GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\' ;
NAMED_DATA INDEX=63 NAME='OA$_MO_READ'
    DATA='FORM APPL_ENTRY/MODE=INQUIRE' ;
NAMED_DATA INDEX=64 NAME='OA$_MO_READ'
    DATA='/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\' ;
NAMED_DATA INDEX=65 NAME='OA$_MO_READ'
    DATA='IFEXIT\' ;
NAMED_DATA INDEX=66 NAME='OA$_MO_READ'
    DATA='CLOSE_PRIOR\' ;
NAMED_DATA INDEX=67 NAME='OA$_MO_READ'
    DATA='OA$SCL_REFRESH\' ;
NAMED_DATA INDEX=68 NAME='OA$_MO_X_READ'
    DATA='XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\' ;
NAMED_DATA INDEX=69 NAME='OA$_MO_X_READ'
    DATA='GET #RFA=''''\' ;
NAMED_DATA INDEX=70 NAME='OA$_MO_X_READ'
    DATA='.FX' ;
NAMED_DATA INDEX=71 NAME='OA$_MO_X_READ'
    DATA=' NEXT_SELECTED *APPL,#RFA\\' ;
NAMED_DATA INDEX=72 NAME='OA$_MO_X_READ'
    DATA=' IFSTATUS\\' ;
NAMED_DATA INDEX=73 NAME='OA$_MO_X_READ'
    DATA=' GET #APPL_KEY = *APPL.%KEY[#RFA]\\' ;
NAMED_DATA INDEX=74 NAME='OA$_MO_X_READ'
    DATA=' GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\\' ;
NAMED_DATA INDEX=75 NAME='OA$_MO_X_READ'
    DATA=' GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\\' ;
NAMED_DATA INDEX=76 NAME='OA$_MO_X_READ'
    DATA=' GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\\' ;
NAMED_DATA INDEX=77 NAME='OA$_MO_X_READ'
    DATA=' FORM APPL_ENTRY/MODE=INQUIRE' ;
NAMED_DATA INDEX=78 NAME='OA$_MO_X_READ'
    DATA='/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\\' ;
NAMED_DATA INDEX=79 NAME='OA$_MO_X_READ'
    DATA=' CLOSE_PRIOR\\' ;
NAMED_DATA INDEX=80 NAME='OA$_MO_X_READ'
    DATA=' REPEAT' ;
NAMED_DATA INDEX=81 NAME='OA$_MO_X_DELETE'
    DATA='XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ ' ;
NAMED_DATA INDEX=82 NAME='OA$_MO_X_DELETE'
    DATA='YESNO_PROMPT\' ;
NAMED_DATA INDEX=83 NAME='OA$_MO_X_DELETE'
    DATA='OA$FLD_STAY\' ;
NAMED_DATA INDEX=84 NAME='OA$_MO_X_DELETE'
    DATA='GET #RFA=''''\' ;
NAMED_DATA INDEX=85 NAME='OA$_MO_X_DELETE'
    DATA='.IF   OA$PROMPT_TEXT = OA$Y' ;
NAMED_DATA INDEX=86 NAME='OA$_MO_X_DELETE'
    DATA=' THEN' ;
NAMED_DATA INDEX=87 NAME='OA$_MO_X_DELETE'
    DATA='     XOP "~~DELETE_LOOP~~"\' ;
NAMED_DATA INDEX=88 NAME='OA$_MO_X_DELETE'
    DATA='OA$SCL_REFRESH' ;
NAMED_DATA INDEX=89 NAME='~~DELETE_LOOP~~'
    DATA='.FX' ;
NAMED_DATA INDEX=90 NAME='~~DELETE_LOOP~~'
    DATA=' NEXT_SELECTED "*APPL",#RFA\\' ;
NAMED_DATA INDEX=91 NAME='~~DELETE_LOOP~~'
    DATA=' IFSTATUS\\' ;
NAMED_DATA INDEX=92 NAME='~~DELETE_LOOP~~'
    DATA=' GET #APPL_KEY=*APPL.%KEY[#RFA]\\' ;
NAMED_DATA INDEX=93 NAME='~~DELETE_LOOP~~'
    DATA=' WRITE DELETE *APPL %KEY=#RFA\\' ;
NAMED_DATA INDEX=94 NAME='~~DELETE_LOOP~~'
    DATA=' GET #RFA=''''\\' ;
NAMED_DATA INDEX=95 NAME='~~DELETE_LOOP~~'
    DATA=' REPEAT' ;
NAMED_DATA INDEX=96 NAME='OA$_MO_X_EDIT'
    DATA='XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\' ;
NAMED_DATA INDEX=97 NAME='OA$_MO_X_EDIT'
    DATA='GET #RFA=''''\' ;
NAMED_DATA INDEX=98 NAME='OA$_MO_X_EDIT'
    DATA='XOP "~~EDIT_LOOP~~"\' ;
NAMED_DATA INDEX=99 NAME='OA$_MO_X_EDIT'
    DATA='OA$SCL_REFRESH' ;
NAMED_DATA INDEX=100 NAME='~~EDIT_LOOP~~'
    DATA='.FX' ;
NAMED_DATA INDEX=101 NAME='~~EDIT_LOOP~~'
    DATA=' NEXT_SELECTED *APPL,#RFA\\' ;
NAMED_DATA INDEX=102 NAME='~~EDIT_LOOP~~'
    DATA=' IFSTATUS\\' ;
NAMED_DATA INDEX=103 NAME='~~EDIT_LOOP~~'
    DATA=' GET #APPL_KEY = *APPL.%KEY[#RFA]\\' ;
NAMED_DATA INDEX=104 NAME='~~EDIT_LOOP~~'
    DATA=' GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\\' ;
NAMED_DATA INDEX=105 NAME='~~EDIT_LOOP~~'
    DATA=' GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\\' ;
NAMED_DATA INDEX=106 NAME='~~EDIT_LOOP~~'
    DATA=' GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\\' ;
NAMED_DATA INDEX=107 NAME='~~EDIT_LOOP~~'
    DATA=' FORM APPL_ENTRY/MODE=CHANGE' ;
NAMED_DATA INDEX=108 NAME='~~EDIT_LOOP~~'
    DATA=' /SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\\' ;
NAMED_DATA INDEX=109 NAME='~~EDIT_LOOP~~'
    DATA=' CLOSE_PRIOR\\' ;
NAMED_DATA INDEX=110 NAME='~~EDIT_LOOP~~'
    DATA=' OA$SCL_UPDATE #RFA, #RFA\\' ;
NAMED_DATA INDEX=111 NAME='~~EDIT_LOOP~~'
    DATA=' REPEAT' ;
 
END_OF_FORM NAME='APPL$INDEX' ;