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


TEXT (2,32) 'Dept. Name Here'
    BOLD 
    ;
TEXT (4,18) '          APPL System Manager       '
    REVERSE 
    ;
TEXT (6,9) ' SEL '
    BOLD 
    ;
TEXT (6,15) 'Select                        :'
    ;
TEXT (6,47) ' '
    REVERSE 
    ;
TEXT (6,78) ' '
    REVERSE 
    ;
TEXT (7,45) ':'
    ;
TEXT (7,47) ' '
    REVERSE 
    ;
TEXT (7,78) ' '
    REVERSE 
    ;
TEXT (8,9) ' C '
    BOLD 
    ;
TEXT (8,15) 'Create                        :'
    ;
TEXT (8,47) ' '
    REVERSE 
    ;
TEXT (8,78) ' '
    REVERSE 
    ;
TEXT (9,9) ' E '
    BOLD 
    ;
TEXT (9,15) 'Edit                          :'
    ;
TEXT (9,47) ' '
    REVERSE 
    ;
TEXT (9,78) ' '
    REVERSE 
    ;
TEXT (10,9) ' D '
    BOLD 
    ;
TEXT (10,15) 'Delete'
    ;
TEXT (11,9) ' P '
    BOLD 
    ;
TEXT (11,15) 'Print'
    ;
TEXT (12,9) ' R '
    BOLD 
    ;
TEXT (12,15) 'Read'
    ;
TEXT (13,9) ' I '
    BOLD 
    ;
TEXT (13,15) 'Index'
    ;
TEXT (15,9) ' CO '
    BOLD 
    ;
TEXT (15,15) 'Copy current item'
    ;
TEXT (16,9) ' PI  '
    BOLD 
    ;
TEXT (16,15) 'Print Index'
    ;
TEXT (22,10) 'Enter selection and press RETURN'
    ;

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='USER'  (1,1)
    PICTURE=32'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='TITLE'  (1,34)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='DAY'  (1,65)
    PICTURE=3'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='DATE'  (1,69)
    PICTURE=11'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='MAIL'  (3,26)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='FLD1'  (6,48)
    PICTURE=30'X'
    DISPLAY_ONLY REVERSE 
    ;
FIELD NAME='FLD2'  (7,48)
    PICTURE=30'X'
    DISPLAY_ONLY REVERSE 
    ;
FIELD NAME='FLD3'  (8,48)
    PICTURE=30'X'
    DISPLAY_ONLY REVERSE 
    ;
FIELD NAME='FLD4'  (9,48)
    PICTURE=30'X'
    DISPLAY_ONLY REVERSE 
    ;
FIELD NAME='CHOICE'  (20,10)
    PICTURE=70'X'
    HELP='Press GOLD H for Help'
    ;

ORDER BEGIN_WITH = 1
    NAME='USER' 
    NAME='TITLE' 
    NAME='DAY' 
    NAME='DATE' 
    NAME='MAIL' 
    NAME='FLD1' 
    NAME='FLD2' 
    NAME='FLD3' 
    NAME='FLD4' 
    NAME='CHOICE' 
    ;

NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='MENU/USER=USER/DATE=DATE/MAIL=MAIL/CHOICE=CHOICE/CLEAR/GET=DAY,OA$DAY;' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='FLD1,$APPL_FLD1;FLD2,$APPL_FLD2;' ;
NAMED_DATA INDEX=3 NAME='.TYPE'
    DATA='FLD3,$APPL_FLD3;FLD4,$APPL_FLD4' ;
NAMED_DATA INDEX=4 NAME='.TYPE'
    DATA='/HARD='' APPL Item Menu''/TITLE=TITLE' ;
NAMED_DATA INDEX=5 NAME='OA$_MO_SELECT'
    DATA='FORM APPL_SEL' ;
NAMED_DATA INDEX=6 NAME='OA$_MO_CREATE'
    DATA='DO APPL_CREATE' ;
NAMED_DATA INDEX=7 NAME='OA$_MO_EDIT'
    DATA='.IF $THEKEY EQS "" THEN' ;
NAMED_DATA INDEX=8 NAME='OA$_MO_EDIT'
    DATA=' DISPLAY APPL Item must be SELected to edit it\\FORCE ELSE' ;
NAMED_DATA INDEX=9 NAME='OA$_MO_EDIT'
    DATA=' FORM APPL_ENTRY/MODE=CHANGE' ;
NAMED_DATA INDEX=10 NAME='OA$_MO_EDIT'
    DATA='/SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3"' ;
NAMED_DATA INDEX=11 NAME='OA$_MO_EDIT'
    DATA='\IFEXIT' ;
NAMED_DATA INDEX=12 NAME='OA$_MO_EDIT'
    DATA='\GET $APPL_FLD4=APPL_ENTRY.FLD4[$THEKEY]' ;
NAMED_DATA INDEX=13 NAME='OA$_MO_DELETE'
    DATA='DO APPL_DELETE' ;
NAMED_DATA INDEX=14 NAME='OA$_MO_PRINT'
    DATA='.IF $THEKEY EQS "" THEN' ;
NAMED_DATA INDEX=15 NAME='OA$_MO_PRINT'
    DATA=' DISPLAY APPL Item must be SELected to print it\\FORCE ELSE' ;
NAMED_DATA INDEX=16 NAME='OA$_MO_PRINT'
    DATA=' DO APPL_PRINT' ;
NAMED_DATA INDEX=17 NAME='OA$_MO_READ'
    DATA='.IF $THEKEY EQS "" THEN' ;
NAMED_DATA INDEX=18 NAME='OA$_MO_READ'
    DATA=' DISPLAY APPL Item must be SELected to read it\\FORCE ELSE' ;
NAMED_DATA INDEX=19 NAME='OA$_MO_READ'
    DATA=' FORM APPL_ENTRY/MODE=INQUIRE' ;
NAMED_DATA INDEX=20 NAME='OA$_MO_READ'
    DATA='/SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3"' ;
NAMED_DATA INDEX=21 NAME='OA$_MO_INDEX'
    DATA='OA$SCL_EXIT\BIND_BREAK *APPL\FORM APPL$INDEX' ;
NAMED_DATA INDEX=22 NAME='OA$_MO_RECALL_INDEX'
    DATA='FOR FIRST *APPL DO GET #APPL_KEY = .%KEY\' ;
NAMED_DATA INDEX=23 NAME='OA$_MO_RECALL_INDEX'
    DATA='.IF #APPL_KEY EQS "" THEN ' ;
NAMED_DATA INDEX=24 NAME='OA$_MO_RECALL_INDEX'
    DATA='  OA$MSG_PURGE\\GET OA$DISPLAY = OA$_INXNOINDEX ELSE FORM APPL$INDEX' ;
NAMED_DATA INDEX=25 NAME='FLD1'
    DATA='/GET_SAVE=$APPL_FLD1 /HARD="Key"' ;
NAMED_DATA INDEX=26 NAME='FLD2'
    DATA='/GET_SAVE=$APPL_FLD2 /HARD="FLD2"' ;
NAMED_DATA INDEX=27 NAME='FLD3'
    DATA='/GET_SAVE=$APPL_FLD3/HARD="FLD3"' ;
NAMED_DATA INDEX=28 NAME='APPL_FLD4'
    DATA='/GET_SAVE=$APPL_FLD4 /HARD="FLD4"' ;
NAMED_DATA INDEX=29 NAME='CHOICE'
    DATA='/HARD=''OPTIONS: SEL,C,E,D,P,R,I,CO,RI''' ;
NAMED_DATA INDEX=30 NAME='.DOWN'
    DATA='DO APPL_DOWN' ;
NAMED_DATA INDEX=31 NAME='.UP'
    DATA='DO APPL_UP' ;
NAMED_DATA INDEX=32 NAME='.GOLD T'
    DATA='DO APPL_UP' ;
NAMED_DATA INDEX=33 NAME='CO'
    DATA='.IF $THEKEY EQS "" THEN' ;
NAMED_DATA INDEX=34 NAME='CO'
    DATA=' DISPLAY APPL Item must be SELected to copy it\\FORCE ELSE' ;
NAMED_DATA INDEX=35 NAME='CO'
    DATA=' FORM APPL_ENTRY/MODE=COPY' ;
NAMED_DATA INDEX=36 NAME='CO'
    DATA='/SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3"' ;
NAMED_DATA INDEX=37 NAME='CO'
    DATA='\IFEXIT' ;
NAMED_DATA INDEX=38 NAME='CO'
    DATA='\GET $THEKEY=$APPL_FLD1 $APPL_FLD2 $APPL_FLD3' ;
NAMED_DATA INDEX=39 NAME='CO'
    DATA='\GET $APPL_FLD4=APPL_ENTRY.FLD4[$THEKEY]' ;
 
END_OF_FORM NAME='APPL_SYSMGR' ;