!          FMS Form Description Application Aid 
!                     Version V2.4
 
FORM NAME='APPL_ENTRY'
    AREA_TO_CLEAR=1:23
    WIDTH=CURRENT
    BACKGROUND=CURRENT
    HIGHLIGHT=REVERSE
    DBLWID=1
    ;


TEXT (1,13) '<<'
    ;
TEXT (1,16) 'APPL'
    BOLD 
    ;
TEXT (1,22) 'LOG'
    BOLD 
    ;
TEXT (1,26) '>>'
    ;
TEXT (3,3) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (3,35) 'PROJECT INFO'
    ;
TEXT (3,48) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (10,79) ' '
    CHARACTER_SET=RULE
    ;
TEXT (12,1) ' '
    CHARACTER_SET=RULE
    ;
TEXT (13,3) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (13,38) 'DATES'
    ;
TEXT (13,44) 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq'
    CHARACTER_SET=RULE
    ;
TEXT (16,29) 'FIELD15          FIELD16'
    ;

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'  (5,26)
    PICTURE=30'X'
    UPPERCASE 
    ;
FIELD NAME='FLD2'  (6,26)
    PICTURE=30'X'
    UPPERCASE 
    ;
FIELD NAME='FLD3'  (7,26)
    PICTURE=30'X'
    UPPERCASE 
    ;
FIELD NAME='FLD4'  (8,26)
    PICTURE=30'X'
    UPPERCASE 
    ;
FIELD NAME='FIELD15'  (15,28)
    PICTURE=8'X'
    UNDERLINE 
    ;
FIELD NAME='FIELD16'  (15,46)
    PICTURE=8'X'
    UNDERLINE 
    ;

ORDER BEGIN_WITH = 1
    NAME='FLD1' 
    NAME='FLD2' 
    NAME='FLD3' 
    NAME='FLD4' 
    NAME='FIELD15' 
    NAME='FIELD16' 
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='ENTRY /MODE=UPDATE/HARD=''Entry Form''' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='/KEY=FLD1,FLD2,FLD3' ;
NAMED_DATA INDEX=3 NAME='.TYPE'
    DATA='/POST=''IFEXIT\GET $APPL_FLD1 = FLD1\GET $APPL_FLD2 = FLD2' ;
NAMED_DATA INDEX=4 NAME='.TYPE'
    DATA='\GET $APPL_FLD3 = FLD3''' ;
NAMED_DATA INDEX=5 NAME='.FILE'
    DATA='OA$SITE_DATA_SHARE:APPL.DAT,' ;
NAMED_DATA INDEX=6 NAME='.FILE'
    DATA='OA$SITE_DATA_SHARE:APPL.FDL' ;
NAMED_DATA INDEX=7 NAME='FLD1'
    DATA='/RSE_RECOG=appl_entry.FLD1 WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=8 NAME='FLD1'
    DATA=' .FLD2 = FLD2 AND' ;
NAMED_DATA INDEX=9 NAME='FLD1'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=10 NAME='FLD1'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=11 NAME='FLD2'
    DATA='/RSE_RECOG=appl_entry.FLD2 WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=12 NAME='FLD2'
    DATA=' .FLD2 = FLD2 AND' ;
NAMED_DATA INDEX=13 NAME='FLD2'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=14 NAME='FLD2'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=15 NAME='FLD3'
    DATA='/RSE_RECOG=appl_entry.FLD3 WITH (.FLD1 = FLD1 AND ' ;
NAMED_DATA INDEX=16 NAME='FLD3'
    DATA=' .FLD2 = FLD2 AND' ;
NAMED_DATA INDEX=17 NAME='FLD3'
    DATA=' .FLD3 = FLD3)' ;
NAMED_DATA INDEX=18 NAME='FLD3'
    DATA='/SHOW=''.FLD1 "  " .FLD2 "  " .FLD3 "  " .FLD4''' ;
NAMED_DATA INDEX=19 NAME='FLD4'
    DATA='/RECOG=appl_entry.FLD4' ;
NAMED_DATA INDEX=20 NAME='ANY_TABLE'
    DATA='/VALID=OA$TABLE:"A,C,H,V"' ;
NAMED_DATA INDEX=21 NAME='ANY_TABLE'
    DATA='/RECOG=OA$TABLE:"A = Active,C = Closed,H = On Hold,V = Void"' ;
NAMED_DATA INDEX=22 NAME='ANY_DATE_FIELD'
    DATA='/VALID=CAL$CHECK_DATE:"ANY_DATE_FIELD"/OPTIONAL' ;
NAMED_DATA INDEX=23 NAME='ANY_DATE_FIELD'
    DATA='/POST=''DATE_CONVERT ANY_DATE_FIELD, ANY_DATE_FIELD, 1''' ;
NAMED_DATA INDEX=24 NAME='.DATE & TIME'
    DATA='GET OA$FUNCTION = "GET " OA$FIELD_NAME " = OA$DATE"' ;
NAMED_DATA INDEX=25 NAME='.COMMA'
    DATA='GET OA$FUNCTION = ''GET '' OA$FIELD_NAME ''= #FIELD_BUFFER''' ;
NAMED_DATA INDEX=26 NAME='.HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
NAMED_DATA INDEX=27 NAME='.HYPHEN'
    DATA='\GET OA$FUNCTION = ''GET '' OA$FIELD_NAME '' = ""''' ;
NAMED_DATA INDEX=28 NAME='.GOLD HYPHEN'
    DATA='GET OA$FUNCTION = ''GET #FIELD_BUFFER = '' OA$FIELD_NAME' ;
 
END_OF_FORM NAME='APPL_ENTRY' ;