!          FMS Form Description Application Aid 
!                     Version V2.4
 
FORM NAME='APPL_SEL'
    AREA_TO_CLEAR=16:22
    WIDTH=80
    BACKGROUND=CURRENT
    ;


TEXT (17,32) 'Select APPL Group'
    BOLD 
    ;
TEXT (19,25) ' '
    REVERSE 
    ;
TEXT (19,56) ' '
    REVERSE 
    ;
TEXT (20,1) '(PUT LABELS HERE)'
    ;
TEXT (20,25) ' '
    REVERSE 
    ;
TEXT (20,56) ' '
    REVERSE 
    ;
TEXT (21,25) ' '
    REVERSE 
    ;
TEXT (21,56) ' '
    REVERSE 
    ;

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'  (19,26)
    PICTURE=30'X'
    UPPERCASE REVERSE 
    ;
FIELD NAME='FLD2'  (20,26)
    PICTURE=30'X'
    UPPERCASE REVERSE 
    ;
FIELD NAME='FLD3'  (21,26)
    PICTURE=30'X'
    UPPERCASE REVERSE 
    ;

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

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='ARG /OVERLAY/HARD='' Select APPL Group number''' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='/PRE=''DISPLAY Enter APPL Group number' ;
NAMED_DATA INDEX=3 NAME='.TYPE'
    DATA=' and press RETURN or use GOLD-L for list''' ;
NAMED_DATA INDEX=4 NAME='.TYPE'
    DATA='/POST=''GET $THEKEY = $APPL_FLD1 $APPL_FLD2 $APPL_FLD3' ;
NAMED_DATA INDEX=5 NAME='.TYPE'
    DATA='\GET $APPL_FLD4=appl_entry.FLD4[$THEKEY]''' ;
NAMED_DATA INDEX=6 NAME='FLD1'
    DATA='/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=7 NAME='FLD1'
    DATA=' .FLD2 = FLD2 AND ' ;
NAMED_DATA INDEX=8 NAME='FLD1'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=9 NAME='FLD1'
    DATA=';GET FLD1=appl_entry.FLD1[OA$SEL_KEY]' ;
NAMED_DATA INDEX=10 NAME='FLD1'
    DATA='\GET FLD2=appl_entry.FLD2[OA$SEL_KEY]' ;
NAMED_DATA INDEX=11 NAME='FLD1'
    DATA='\GET FLD3=appl_entry.FLD3[OA$SEL_KEY]' ;
NAMED_DATA INDEX=12 NAME='FLD1'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=13 NAME='FLD1'
    DATA='/PUT_SAVE=$APPL_FLD1/HARD="KEY"' ;
NAMED_DATA INDEX=14 NAME='FLD2'
    DATA='/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=15 NAME='FLD2'
    DATA=' .FLD2 = FLD2 AND ' ;
NAMED_DATA INDEX=16 NAME='FLD2'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=17 NAME='FLD2'
    DATA=';GET FLD1=appl_entry.FLD1[OA$SEL_KEY]' ;
NAMED_DATA INDEX=18 NAME='FLD2'
    DATA='\GET FLD2=appl_entry.FLD2[OA$SEL_KEY]' ;
NAMED_DATA INDEX=19 NAME='FLD2'
    DATA='\GET FLD3=appl_entry.FLD3[OA$SEL_KEY]' ;
NAMED_DATA INDEX=20 NAME='FLD2'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=21 NAME='FLD2'
    DATA='/PUT_SAVE=$APPL_FLD2/HARD="FLD2"' ;
NAMED_DATA INDEX=22 NAME='FLD3'
    DATA='/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=23 NAME='FLD3'
    DATA=' .FLD2 = FLD2 AND ' ;
NAMED_DATA INDEX=24 NAME='FLD3'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=25 NAME='FLD3'
    DATA=';GET FLD1=appl_entry.FLD1[OA$SEL_KEY]' ;
NAMED_DATA INDEX=26 NAME='FLD3'
    DATA='\GET FLD2=appl_entry.FLD2[OA$SEL_KEY]' ;
NAMED_DATA INDEX=27 NAME='FLD3'
    DATA='\GET FLD3=appl_entry.FLD3[OA$SEL_KEY]' ;
NAMED_DATA INDEX=28 NAME='FLD3'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=29 NAME='FLD3'
    DATA='/PUT_SAVE=$APPL_FLD3/HARD="APPL Key  "' ;
NAMED_DATA INDEX=30 NAME='.COMMA'
    DATA='GET OA$FUNCTION = ''GET '' OA$FIELD_NAME ''= #FIELD_BUFFER''' ;
NAMED_DATA INDEX=31 NAME='.HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
NAMED_DATA INDEX=32 NAME='.HYPHEN'
    DATA='\GET OA$FUNCTION = ''GET '' OA$FIELD_NAME '' = ""''' ;
NAMED_DATA INDEX=33 NAME='.GOLD HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
 
END_OF_FORM NAME='APPL_SEL' ;