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


TEXT (16,1) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    &'qqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (17,2) 'FLD1 :'
    ;
TEXT (18,2) 'FLD2 :'
    ;
TEXT (19,2) 'FLD3 :'
    ;

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='FLD1'  (17,16)
    PICTURE=30'X'
    HELP='Press GOLD H for Help'
    UPPERCASE UNDERLINE 
    ;
FIELD NAME='FLD2'  (18,16)
    PICTURE=30'X'
    HELP='Press GOLD H for Help'
    UPPERCASE UNDERLINE 
    ;
FIELD NAME='FLD3'  (19,16)
    PICTURE='X'
    HELP='Press GOLD H for Help'
    UPPERCASE UNDERLINE 
    ;

ORDER BEGIN_WITH = 1
    NAME='FLD1' 
    NAME='FLD2' 
    NAME='FLD3' 
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='ARG /OVERLAY' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='/PRE=''GET OA$DISPLAY=OA$_WPISEA_SRCH_FIELDS''' ;
NAMED_DATA INDEX=3 NAME='.TYPE'
    DATA='/HARD="Form Title Here"' ;
NAMED_DATA INDEX=4 NAME='FLD1'
    DATA='/GET_SAVE=#APPL_FLD1' ;
NAMED_DATA INDEX=5 NAME='FLD1'
    DATA='/PUT_SAVE=#APPL_FLD1' ;
NAMED_DATA INDEX=6 NAME='FLD1'
    DATA='/HARD="FLD1"' ;
NAMED_DATA INDEX=7 NAME='FLD2'
    DATA='/GET_SAVE=#APPL_FLD2' ;
NAMED_DATA INDEX=8 NAME='FLD2'
    DATA='/PUT_SAVE=#APPL_FLD2' ;
NAMED_DATA INDEX=9 NAME='FLD2'
    DATA='/HARD="FLD2"' ;
NAMED_DATA INDEX=10 NAME='FLD3'
    DATA='/GET_SAVE=#APPL_FLD3' ;
NAMED_DATA INDEX=11 NAME='FLD3'
    DATA='/PUT_SAVE=#APPL_FLD3' ;
NAMED_DATA INDEX=12 NAME='FLD3'
    DATA='/HARD="Access Level"' ;
NAMED_DATA INDEX=13 NAME='.COMMA'
    DATA='GET OA$FUNCTION = ''GET '' OA$FIELD_NAME ''= #FIELD_BUFFER''' ;
NAMED_DATA INDEX=14 NAME='.HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
NAMED_DATA INDEX=15 NAME='.HYPHEN'
    DATA='\GET OA$FUNCTION = ''GET '' OA$FIELD_NAME '' = ""''' ;
NAMED_DATA INDEX=16 NAME='.GOLD HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
 
END_OF_FORM NAME='APPL$INDEX$FIND' ;