6 FMSFLBFLI20011-AUG-1990 08:14:4411-AUG-1990 08:14:50  "APPL$INDEX$FINDAPPL$INDEX$MENUZ APPL$INDEX< APPL_ENTRY APPL_PRINT APPL_REPORTS APPL_SEL% APPL_SYSMGR-MORE$SCROLL$KEYS$INDEX FRM11-AUG-1990 08:14:44 6 FMSFLBFLG20011-AUG-1990 08:14:3111-AUG-1990 08:14:31   S , 20= PPAPPL$INDEX$FIND ,  @FLD1Press GOLD H for Help ,  @FLD2Press GOLD H for Help .  @FLD3Press GOLD H for Help < <   0  .TYPE ARG /OVERLAY : .TYPE,/PRE='GET OA$DISPLAY=OA$_WPISEA_SRCH_FIELDS' & .TYPE/HARD="Form Title Here" " FLD1/GET_SAVE=#APPL_FLD1 " FLD1/PUT_SAVE=#APPL_FLD1  FLD1 /HARD="FLD1" " FLD2/GET_SAVE=#APPL_FLD2 " FLD2/PUT_SAVE=#APPL_FLD2  FLD2 /HARD="FLD2" " FLD3/GET_SAVE=#APPL_FLD3 " FLD3/PUT_SAVE=#APPL_FLD3 " FLD3/HARD="Access Level" H .COMMA8GET OA$FUNCTION = 'GET ' OA$FIELD_NAME '= #FIELD_BUFFER' F .HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME @ .HYPHEN/\GET OA$FUNCTION = 'GET ' OA$FIELD_NAME ' = ""' L  .GOLD HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq  FLD1 :  FLD2 :  FLD3 :  FRM11-AUG-1990 08:14:45 6 FMSFLBFLG20011-AUG-1990 08:14:3211-AUG-1990 08:14:32   44< , 20@PPAPPL$INDEX$MENU  @ CHOICE      0 > .TYPE0ARG /OVERLAY/POST="GET OA$MENU_REMAINDER=CHOICE" 0 CHOICE!/HARD=OA$_NI_HRD_INDEX_MENU_OPTNS N Glqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk  x  ! Index Menu  Kx   x   Kx   x   ALL   Select all   Kx   x   CAS   Cancel all   Kx   x   Kx   x   C  Create   Kx  x   E  Edit  'XE  , Multiple edit ! Kx " x #  D $ Delete % 'XD & ,Multiple delete ' Kx ( x )  P * Print + (XP , ,Multiple print - Kx . x /  R 0 Read 1 'XR 2 , Multiple read 3 Kx 4 x 5 Kx 6 x 7 Kx 8 x 9 Kx : x ;$  Enter option and press RETURN < Kx = x > Kx ?N Gmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj @ FRM11-AUG-1990 08:14:45 6 FMSFLBFLG20011-AUG-1990 08:14:3411-AUG-1990 08:14:34  ~ llH ( 20 o PP APPL$INDEX    SELECTIONS   UNREAD   POINTER   SELECTED   LINE   FLD1   FLD2   FLD3  N CHOICE  L    (% G C   0   TD ( .TYPEINDEX/CHOICE=CHOICE/CLEAR 2 .TYPE#/PRE_FUNCTION='OA$SCL_INIT ,,,*APPL * .TYPE\IFNOTSTATUS\XOP "~~FIND~~"' $ .MOREMORE$SCROLL$KEYS$INDEX 0 .GOLD M FORM APPL$INDEX$MENU\CLOSE_PRIOR  LINE/VIEW=,,,*APPL  LINE /ALIAS=%LINE  POINTER/POINTER  SELECTED /SELECTED & ~~FIND~~FORM APPL$INDEX$FIND\  ~~FIND~~IFEXIT\  ~~FIND~~ CLOSE_PRIOR\  ~~FIND~~ OA$SCL_EXIT\ " ~~FIND~~BIND_BREAK *APPL\ " ~~FIND~~XOP "~~BINDW~~"\ $ ~~FIND~~OA$SCL_INIT,,,*APPL ,  ~~BINDW~~BINDW *APPL TO APPL_ENTRY *!  ~~BINDW~~ WITH .FLD1 = #APPL_FLD1 !*"  ~~BINDW~~ AND .FLD2 = #APPL_FLD2 "*#  ~~BINDW~~ AND .FLD3 = #APPL_FLD3 #P$ CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' $$%  OA$_MO_INDEXXOP "~~FIND~~" %@& .GOLD F0GET $APPL_FLD1 = APPL_ENTRY.FLD1[OA$SCROLL_KEY]\ &@' .GOLD F0GET $APPL_FLD2 = APPL_ENTRY.FLD2[OA$SCROLL_KEY]\ '@( .GOLD F0GET $APPL_FLD3 = APPL_ENTRY.FLD3[OA$SCROLL_KEY]\ (B) .GOLD F1GET $APPL_KEY = $APPL_FLD1 $APPL_FLD2 $APPL_FLD3\ )<* .GOLD F,GET $APPL_FLD4 = APPL_ENTRY.FLD4[$APPL_KEY]\ *+ .GOLD F OA$FLD_EXIT +:,  OA$_MO_CREATE#FORM APPL_ENTRY/ONE_ENTRY/MODE=ADD\ ,-  OA$_MO_CREATEIFEXIT\ -".  OA$_MO_CREATE CLOSE_PRIOR\ .$/  OA$_MO_CREATEOA$SCL_REFRESH /@0 ! OA$_MO_EDIT,GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\ 0@1 " OA$_MO_EDIT,GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\ 1@2 # OA$_MO_EDIT,GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\ 2@3 $ OA$_MO_EDIT,GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\ 304 % OA$_MO_EDITFORM APPL_ENTRY/MODE=CHANGE 4L5 & OA$_MO_EDIT8/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\ 56 ' OA$_MO_EDITIFEXIT\ 6 7 ( OA$_MO_EDIT CLOSE_PRIOR\ 7"8 ) OA$_MO_EDITOA$SCL_UPDATE\ 8"9 * OA$_MO_EDITOA$SCL_REFRESH 9B: + OA$_MO_DELETE,GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\ :B; , OA$_MO_DELETE,GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\ ;B< - OA$_MO_DELETE,GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\ <B= . OA$_MO_DELETE,GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\ =2> / OA$_MO_DELETEFORM APPL_ENTRY/MODE=DELETE >N? 0 OA$_MO_DELETE8/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\ ?@ 1 OA$_MO_DELETEIFEXIT\ @"A 2 OA$_MO_DELETE CLOSE_PRIOR\ A$B 3 OA$_MO_DELETEOA$SCL_REFRESH B8C 4 OA$_MO_PRINT"MERGE SELECTIONLIST1,APPLLIST.SEL\ C&D 5 OA$_MO_PRINTFORM APPL_PRINT\ D,E 6 OA$_MO_PRINTPURGE_FILE APPLLIST.SEL E<F 7OA$_MO_X_PRINT$XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ F8G 8OA$_MO_X_PRINT!MERGE SELECTIONLIST,APPLLIST.SEL\ G(H 9OA$_MO_X_PRINTFORM APPL_PRINT\ H.I :OA$_MO_X_PRINTPURGE_FILE APPLLIST.SEL I@J ; OA$_MO_READ,GET #APPL_KEY=*APPL.%KEY[OA$SCROLL_ADDRESS]\ J@K < OA$_MO_READ,GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\ K@L = OA$_MO_READ,GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\ L@M > OA$_MO_READ,GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\ M0N ? OA$_MO_READFORM APPL_ENTRY/MODE=INQUIRE NLO @ OA$_MO_READ8/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\ OP A OA$_MO_READIFEXIT\ P Q B OA$_MO_READ CLOSE_PRIOR\ Q$R C OA$_MO_READOA$SCL_REFRESH\ R:S D OA$_MO_X_READ$XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ S"T E OA$_MO_X_READ GET #RFA=''\ TU F OA$_MO_X_READ.FX U2V G OA$_MO_X_READ NEXT_SELECTED *APPL,#RFA\\ V"W H OA$_MO_X_READ IFSTATUS\\ W:X I OA$_MO_X_READ# GET #APPL_KEY = *APPL.%KEY[#RFA]\\ XDY J OA$_MO_X_READ. GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\\ YDZ K OA$_MO_X_READ. GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\\ ZD[ L OA$_MO_X_READ. GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\\ [4\ M OA$_MO_X_READ FORM APPL_ENTRY/MODE=INQUIRE \P] N OA$_MO_X_READ9/SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\\ ]$^ O OA$_MO_X_READ CLOSE_PRIOR\\ ^_ P OA$_MO_X_READ REPEAT _>` QOA$_MO_X_DELETE%XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ `&a ROA$_MO_X_DELETE YESNO_PROMPT\ a$b SOA$_MO_X_DELETE OA$FLD_STAY\ b$c TOA$_MO_X_DELETE GET #RFA=''\ c4d UOA$_MO_X_DELETE.IF OA$PROMPT_TEXT = OA$Y de VOA$_MO_X_DELETE THEN e4f WOA$_MO_X_DELETE XOP "~~DELETE_LOOP~~"\ f&g XOA$_MO_X_DELETEOA$SCL_REFRESH gh Y~~DELETE_LOOP~~.FX h6i Z~~DELETE_LOOP~~ NEXT_SELECTED "*APPL",#RFA\\ i$j [~~DELETE_LOOP~~ IFSTATUS\\ j:k \~~DELETE_LOOP~~! GET #APPL_KEY=*APPL.%KEY[#RFA]\\ k8l ]~~DELETE_LOOP~~ WRITE DELETE *APPL %KEY=#RFA\\ l&m ^~~DELETE_LOOP~~ GET #RFA=''\\ m n _~~DELETE_LOOP~~ REPEAT n:o ` OA$_MO_X_EDIT$XOP "~~CHECK_SELECTIONS~~"\IFSTATUS\ o"p a OA$_MO_X_EDIT GET #RFA=''\ p*q b OA$_MO_X_EDITXOP "~~EDIT_LOOP~~"\ q$r c OA$_MO_X_EDITOA$SCL_REFRESH rs d ~~EDIT_LOOP~~.FX s2t e ~~EDIT_LOOP~~ NEXT_SELECTED *APPL,#RFA\\ t"u f ~~EDIT_LOOP~~ IFSTATUS\\ u:v g ~~EDIT_LOOP~~# GET #APPL_KEY = *APPL.%KEY[#RFA]\\ vDw h ~~EDIT_LOOP~~. GET #APPL_TEMP_FLD1 = *APPL.FLD1[#APPL_KEY]\\ wDx i ~~EDIT_LOOP~~. GET #APPL_TEMP_FLD2 = *APPL.FLD2[#APPL_KEY]\\ xDy j ~~EDIT_LOOP~~. GET #APPL_TEMP_FLD3 = *APPL.FLD3[#APPL_KEY]\\ y2z k ~~EDIT_LOOP~~ FORM APPL_ENTRY/MODE=CHANGE zP{ l ~~EDIT_LOOP~~: /SAVE="#APPL_TEMP_FLD1,#APPL_TEMP_FLD2,#APPL_TEMP_FLD3"\\ {$| m ~~EDIT_LOOP~~ CLOSE_PRIOR\\ |2} n ~~EDIT_LOOP~~ OA$SCL_UPDATE #RFA, #RFA\\ }~ o ~~EDIT_LOOP~~ REPEAT ~ Index   (Selections: @ 9) (New messages:  O) V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq J CNo. FLD1 FLD2 FLD3 V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq V Pqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq D >Move to item and enter option (press GOLD MENU to see options)  FRM11-AUG-1990 08:14:45 6 FMSFLBFLG20011-AUG-1990 08:14:3511-AUG-1990 08:14:35  ' ` ` 4 ( 20 PP APPL_ENTRY     @FLD1   @FLD2   @FLD3   @FLD4   FIELD15   FIELD16 r <Z x .  @A0 2 .TYPE$ENTRY /MODE=UPDATE/HARD='Entry Form' " .TYPE/KEY=FLD1,FLD2,FLD3 H .TYPE9/POST='IFEXIT\GET $APPL_FLD1 = FLD1\GET $APPL_FLD2 = FLD2 & .TYPE\GET $APPL_FLD3 = FLD3' * .FILEOA$SITE_DATA_SHARE:APPL.DAT, * .FILEOA$SITE_DATA_SHARE:APPL.FDL @ FLD12/RSE_RECOG=appl_entry.FLD1 WITH (.FLD1 = FLD1 AND  FLD1 .FLD2 = FLD2 AND  FLD1 .FLD3 = FLD3) < FLD1./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' @ FLD22/RSE_RECOG=appl_entry.FLD2 WITH (.FLD1 = FLD1 AND  FLD2 .FLD2 = FLD2 AND  FLD2 .FLD3 = FLD3) < FLD2./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' @ FLD32/RSE_RECOG=appl_entry.FLD3 WITH (.FLD1 = FLD1 AND  FLD3 .FLD2 = FLD2 AND  FLD3 .FLD3 = FLD3) < FLD3./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' $ FLD4/RECOG=appl_entry.FLD4 ,  ANY_TABLE/VALID=OA$TABLE:"A,C,H,V" N  ANY_TABLE> ,& qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq - # PROJECT INFO .& 0qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq /  O 0   1(  "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 2 &DATES 3*  ,#qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 4 FIELD15 FIELD16 5 FRM11-AUG-1990 08:14:46 6 FMSFLBFLG20011-AUG-1990 08:14:3711-AUG-1990 08:14:37   ( 20F PP  APPL_PRINT . F CHOICEPress GOLD H for Help       N .TYPE@MENU /CHOICE=CHOICE/CLEAR/OVERLAY/HARD='APPL PRINT OPTIONS'/ONCE (  OA$_MO_BRIEFDO APPL_PRINT_BRIEF 2 OA$_MO_FULL_DESCRIPTIONDO APPL_PRINT_FULL  CHOICE /HARD='B,F'  !Print Options   B  Brief description   F  Full description $  Enter option and press RETURN  FRM11-AUG-1990 08:14:46 6 FMSFLBFLG20011-AUG-1990 08:14:3811-AUG-1990 08:14:38  tt * 20FPP APPL_REPORTS . F CHOICEPress GOLD H for Help      0 0 .TYPE"MENU /OVERLAY /CHOICE=CHOICE/CLEAR $ .TYPE/HARD="Your Menu Name" 4 CHOICE$/HARD="Options: (your menu options)"  AAA DO XXX_RPT  BBB DO XXX_RPT   " APPL Reports   8lqqqqqqqqqqqqqqqqqqqk   8x  @Note:   Lx   AAA  xxxxxxxxx Report   8x  :These options can   Lx   BBB  xxxxxxxxx Report   8x  :take   ?minutes  Gto   Lx   CCC  xxxxxxxxx Report   8x  :complete. Your   Lx !  DDD " xxxxxxxxx Report # 8x $ :terminal will be % Lx &  EEE ' xxxxxxxxx Report ( 8x ) :unusable during * Lx + 8x , : that time. - Lx . 8mqqqqqqqqqqqqqqqqqqqj /&  Enter selection and press RETURN 0 FRM11-AUG-1990 08:14:47 6 FMSFLBFLG20011-AUG-1990 08:14:3911-AUG-1990 08:14:39  ) X & 20Z !PPAPPL_SEL   @FLD1   @FLD2   @FLD3 < <    < .TYPE-ARG /OVERLAY/HARD=' Select APPL Group number' 4 .TYPE%/PRE='DISPLAY Enter APPL Group number 8 .TYPE) and press RETURN or use GOLD-L for list' D .TYPE5/POST='GET $THEKEY = $APPL_FLD1 $APPL_FLD2 $APPL_FLD3 8 .TYPE)\GET $APPL_FLD4=appl_entry.FLD4[$THEKEY]' : FLD1-/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND   FLD1 .FLD2 = FLD2 AND  FLD1 .FLD3 = FLD3) 2 FLD1%;GET FLD1=appl_entry.FLD1[OA$SEL_KEY] 2 FLD1%\GET FLD2=appl_entry.FLD2[OA$SEL_KEY] 2 FLD1%\GET FLD3=appl_entry.FLD3[OA$SEL_KEY] < FLD1./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' , FLD1/PUT_SAVE=$APPL_FLD1/HARD="KEY" : FLD2-/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND   FLD2 .FLD2 = FLD2 AND  FLD2 .FLD3 = FLD3) 2 FLD2%;GET FLD1=appl_entry.FLD1[OA$SEL_KEY] 2 FLD2%\GET FLD2=appl_entry.FLD2[OA$SEL_KEY] 2 FLD2%\GET FLD3=appl_entry.FLD3[OA$SEL_KEY] < FLD2./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' . FLD2 /PUT_SAVE=$APPL_FLD2/HARD="FLD2" : FLD3-/RSE_RECOG=appl_entry WITH (.FLD1 = FLD1 AND   FLD3 .FLD2 = FLD2 AND  FLD3 .FLD3 = FLD3) 2! FLD3%;GET FLD1=appl_entry.FLD1[OA$SEL_KEY] !2" FLD3%\GET FLD2=appl_entry.FLD2[OA$SEL_KEY] "2# FLD3%\GET FLD3=appl_entry.FLD3[OA$SEL_KEY] #<$ FLD3./SHOW='.FLD1 " " .FLD2 " " .FLD3 " " .FLD4' $4% FLD3&/PUT_SAVE=$APPL_FLD3/HARD="APPL Key " %H& .COMMA8GET OA$FUNCTION = 'GET ' OA$FIELD_NAME '= #FIELD_BUFFER' &F' .HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME '@( .HYPHEN/\GET OA$FUNCTION = 'GET ' OA$FIELD_NAME ' = ""' (L) ! .GOLD HYPHEN6GET OA$FUNCTION = 'GET #FIELD_BUFFER = ' OA$FIELD_NAME )  Select APPL Group *  + 8 , (PUT LABELS HERE) -  . 8 /  0 8 1 FRM11-AUG-1990 08:14:48 6 FMSFLBFLG20011-AUG-1990 08:14:4111-AUG-1990 08:14:41  6 V V ( 20(' PP APPL_SYSMGR  USER   TITLE   DAY  DATE   MAIL   FLD1   FLD2   FLD3   FLD4 . F CHOICEPress GOLD H for Help  " A>EA L 0j 0 0 0      T .TYPEFMENU/USER=USER/DATE=DATE/MAIL=MAIL/CHOICE=CHOICE/CLEAR/GET=DAY,OA$DAY; . .TYPE FLD1,$APPL_FLD1;FLD2,$APPL_FLD2; . .TYPEFLD3,$APPL_FLD3;FLD4,$APPL_FLD4 2 .TYPE#/HARD=' APPL Item Menu'/TITLE=TITLE $  OA$_MO_SELECT FORM APPL_SEL $  OA$_MO_CREATEDO APPL_CREATE ,  OA$_MO_EDIT.IF $THEKEY EQS "" THEN N  OA$_MO_EDIT: DISPLAY APPL Item must be SELected to edit it\\FORCE ELSE 0  OA$_MO_EDIT FORM APPL_ENTRY/MODE=CHANGE B  OA$_MO_EDIT./SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3"   OA$_MO_EDIT\IFEXIT <  OA$_MO_EDIT(\GET $APPL_FLD4=APPL_ENTRY.FLD4[$THEKEY] $  OA$_MO_DELETEDO APPL_DELETE ,  OA$_MO_PRINT.IF $THEKEY EQS "" THEN P  OA$_MO_PRINT; DISPLAY APPL Item must be SELected to print it\\FORCE ELSE $  OA$_MO_PRINT DO APPL_PRINT ,  OA$_MO_READ.IF $THEKEY EQS "" THEN N!  OA$_MO_READ: DISPLAY APPL Item must be SELected to read it\\FORCE ELSE !2"  OA$_MO_READ FORM APPL_ENTRY/MODE=INQUIRE "B#  OA$_MO_READ./SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3" #B$  OA$_MO_INDEX,OA$SCL_EXIT\BIND_BREAK *APPL\FORM APPL$INDEX $F% OA$_MO_RECALL_INDEX)FOR FIRST *APPL DO GET #APPL_KEY = .%KEY\ %6& OA$_MO_RECALL_INDEX.IF #APPL_KEY EQS "" THEN &`' OA$_MO_RECALL_INDEXD OA$MSG_PURGE\\GET OA$DISPLAY = OA$_INXNOINDEX ELSE FORM APPL$INDEX '.( FLD1 /GET_SAVE=$APPL_FLD1 /HARD="Key" (.) FLD2!/GET_SAVE=$APPL_FLD2 /HARD="FLD2" ).* FLD3 /GET_SAVE=$APPL_FLD3/HARD="FLD3" *4+  APPL_FLD4!/GET_SAVE=$APPL_FLD4 /HARD="FLD4" +6, CHOICE&/HARD='OPTIONS: SEL,C,E,D,P,R,I,CO,RI' ,- .DOWN DO APPL_DOWN -. .UP DO APPL_UP ./ .GOLD T DO APPL_UP /"0 !CO.IF $THEKEY EQS "" THEN 0F1 "CO: DISPLAY APPL Item must be SELected to copy it\\FORCE ELSE 1&2 #CO FORM APPL_ENTRY/MODE=COPY 2:3 $CO./SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3" 34 %CO\IFEXIT 485 &CO-\GET $THEKEY=$APPL_FLD1 $APPL_FLD2 $APPL_FLD3 546 'CO(\GET $APPL_FLD4=APPL_ENTRY.FLD4[$THEKEY] 6  Dept. Name Here 7  APPL System Manager 8  SEL 9& Select : : / ; N < -: = / > N ?  C @& Create : A / B N C  E D& Edit : E  / F  N G  D H Delete I  P J Print K  R L Read M  I N Index O  CO P Copy current item Q  PI R  Print Index S&  Enter selection and press RETURN T FRM11-AUG-1990 08:14:49 6 FMSFLBFLG20011-AUG-1990 08:14:4311-AUG-1990 08:14:43  n  4 20iPPMORE$SCROLL$KEYS$INDEX     .TYPEARG  .UP OA$SCL_UP  .DOWN OA$SCL_DOWN ( .PC NEXT SCREENOA$SCL_NEXT_PAGE * .PC PREV SCREENOA$SCL_PRIOR_PAGE "  .GOLD TABOA$SCL_NEXT_PAGE $  .GOLD F12OA$SCL_PRIOR_PAGE " .GOLD TOA$SCL_FIRST_PAGE . .GOLD BOA$SCL_LAST_PAGE\OA$SCL_BOTTOM  .GOLD UP OA$SCL_TOP    .GOLD DOWN OA$SCL_BOTTOM $  .PC SELECT.IF CHOICE EQS '' &  .PC SELECT THEN OA$SCL_SELECT H  .PC SELECT4 ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ (  .PC SELECT GET CHOICE=''\\ (  .PC SELECT OA$SCL_REFRESH * .GOLD PC SELECT.IF CHOICE EQS '' . .GOLD PC SELECT THEN OA$SCL_DESELECT N .GOLD PC SELECT6 ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ . .GOLD PC SELECT GET CHOICE=''\\ , .GOLD PC SELECT OA$SCL_REFRESH " .PERIOD.IF CHOICE EQS '' $ .PERIOD THEN OA$SCL_SELECT D .PERIOD4 ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ & .PERIOD GET CHOICE=''\\ $ .PERIOD OA$SCL_REFRESH &  .GOLD PERIOD.IF CHOICE EQS '' *!  .GOLD PERIOD THEN OA$SCL_DESELECT L"  .GOLD PERIOD6 ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\\ !*#  .GOLD PERIOD GET CHOICE=''\\ "*$  .GOLD PERIOD OA$SCL_REFRESH #% .F6 DO APPL_INT $"& !.F8XOP OA$_MO_CANCEL_ALL %"' ".F17XOP "~~UDP_PROCESS~~" &"( #.F18XOP "~~UDP_PROCESS~~" '") $.F19XOP "~~UDP_PROCESS~~" ("* %.F20XOP "~~UDP_PROCESS~~" )(+ & .GOLD F17XOP "~~UDP_PROCESS~~" *(, ' .GOLD F18XOP "~~UDP_PROCESS~~" +(- ( .GOLD F19XOP "~~UDP_PROCESS~~" ,(. ) .GOLD F20XOP "~~UDP_PROCESS~~" ->/ *~~UDP_PROCESS~~%.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD .R0 +~~UDP_PROCESS~~9 THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 /B1 ,~~UDP_PROCESS~~) ELSE GET #UDP_NAME = OA$FIELD_TERM_NAME\ 0D2 -~~UDP_PROCESS~~+GET #UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"\ 1F3 .~~UDP_PROCESS~~-GET #FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]\ 2d4 /~~UDP_PROCESS~~L.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME 3@5 0~~UDP_PROCESS~~' ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE 4*6 1%NUMBEROA$SCL_GOTO OA$MENU_CHOICE 57 2%NULL OA$SCL_DOWN 6H8 3OA$_MO_SELECT_ALL.GET OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO 7\9 4OA$_MO_SELECT_ALLB GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"\OA$SCL_REFRESH 8<: 5OA$_MO_CANCEL_ALL!XOP "~~CAS_LOOP~~"\OA$SCL_REFRESH 9J; 6 ~~CAS_LOOP~~4GET #RFA = ''\NEXT_SELECTED OA$SCROLL_BINDING, #RFA\ ::< 7 ~~CAS_LOOP~~$IFSTATUS\OA$SCL_DESELECT #RFA\REPEAT ;8= 8~~CHECK_SELECTIONS~~.IF OA$SCROLL_SELECTED eq 0 <R> 9~~CHECK_SELECTIONS~~4 THEN GET OA$DISPLAY=OA$_INXNONESEL\\GET OA$STATUS=0 =2? :~~CHECK_SELECTIONS~~ ELSE GET OA$STATUS=1 >B@ ;OA$_MO_SCRATCH_PAD'GET #SP_TYPE_AHEAD = OA$MENU_REMAINDER\ ?6A <OA$_MO_SCRATCH_PADGET OA$MENU_REMAINDER = ""\ @.B =OA$_MO_SCRATCH_PADOA$MENU_LEVEL_PUSH\ ABC >OA$_MO_SCRATCH_PAD'GET OA$MENU_REMAINDER = #SP_TYPE_AHEAD\ BND ?OA$_MO_SCRATCH_PAD2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENU CE @ OA$_MO_TIMETIME DF A OA$_MO_EXITEXIT EG B OA$_MO_EXIT2EXIT FfH COA$_MO_DESK_CALCULATORFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER GFI DOA$_MO_ACTION_ITEMS*GET OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AI HfJ EOA$_MO_TIME_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER IVK FOA$_MO_ELECTRONIC_MESSAGING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" JHL GOA$_MO_ELECTRONIC_MESSAGING$ THEN GET OA$CURMES = OA$SCROLL_KEY\ KjM HOA$_MO_ELECTRONIC_MESSAGINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER LFN I OA$_MO_MAIL2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" M8O J OA$_MO_MAIL$ THEN GET OA$CURMES = OA$SCROLL_KEY\ NZP K OA$_MO_MAILFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER OVQ LOA$_MO_DOCUMENT_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" PDR MOA$_MO_DOCUMENT_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\ QjS NOA$_MO_DOCUMENT_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER RRT OOA$_MO_WORD_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" S@U POA$_MO_WORD_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\ TfV QOA$_MO_WORD_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER UNW ROA$_MO_FILE_CABINET2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" V@X SOA$_MO_FILE_CABINET# THEN GET @#CURDOC = OA$SCROLL_KEY\ WbY TOA$_MO_FILE_CABINETFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER XTZ UOA$_MO_DOCUMENT_TRANSFER2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" YD[ VOA$_MO_DOCUMENT_TRANSFER# THEN GET @#CURDOC = OA$SCROLL_KEY\ Zh\ WOA$_MO_DOCUMENT_TRANSFERFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER [f] XOA$_MO_DESK_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER \l^ YOA$_MO_INFORMATION_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ]l_ ZOA$_MO_BUISNESS_APPLICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ^b` [OA$_MO_CUSTOM_MANAGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER _da \OA$_MO_COMMUNICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ``b ]OA$_MO_USER_SETUPFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ajc ^OA$_MO_PROFESSION_SPECIFICFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER bbd _OA$_MO_DIRECTORIESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER cje `OA$_MO_PROGRAM_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER dnf aOA$_MO_APPLICATION_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER e`g bOA$_MO_NICKNAMESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER fhh cOA$_MO_DISTRIBUTION_LISTSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER g\i d OA$_MO_PHONEFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER hDj eOA$_MO_ADMINISTRATOR&.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" ijk fOA$_MO_ADMINISTRATORM THEN OA$FLD_EXIT\\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER jBl gOA$_MO_ADMINISTRATOR% ELSE GET OA$DISPLAY = OA$_ICR\\FORCE kZm h OA$_MO_MGTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER lRn iSMFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER m