1 A.BCKG0A.BCKBACKUP/LOG/IGNORE=INTERLOCK/LABEL=CRS USER$8:[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS*.*;,USER$8:[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CVT_TIME.SCP; VX6320$MUA6:A.BCK A1V23 @ 0V5.5 _VX6320::  _$255$MUA6: V5.5  +.*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369+,q.V/@ 4VT-50123KPWOW56Bݕ7&ݕ8@B9U4G@HJ66FMSFLBFLI20020-JUL-1992 06:45:5020-JUL-1992 06:45:50 I" BGEN_ENTRY CGEN_ENTRYCRS CRS$DOC$ENTRYCRSMLC(CRS_EQP) CRS_MENU2, CRS_RESERVE0r CRS_RESERVE_D4CRS_RESERVE_DATE_OFFSET_ARG76CRS_RESERVE_DATE_OFFSET_ARG2<CRS_RESERVE_D_INDEXFRM20-JUL-1992 06:45:5166FMSFLBFED200 3-JAN-1992 13:20:07 3-JAN-1992 13:20:07  ((20PPP BGEN_ENTRYP KEY    .TYPEENTRY/MODE=UPDATE"".FILEBGEN_ENTRY.DAT,KEY KEY: FRM20-JUL-1992 06:45:5166FMSFLBFED20030-DEC-1991 11:20:2130-DEC-1991 11:20:21  ((20PPP CGEN_ENTRYP KEY    .TYPEENTRY/MODE=UPDATE"".FILECGEN_ENTRY.DAT,KEY KEY: FRM20-JUL-1992 06:45:5166FMSFLBFLG20029-MAY-1992 10:18:5929-MAY-1992 10:18:59   20 uPPCRS< CHOICE MORE ROOM  BEG_DT  BEG_TIME  MEETING   END_TIME 9<+F +d +o +u 7   < <.TYPE-menu/clear/choice=choice/pre='DO CRS_MENU_LOG &&.TYPE\DO CRS_MENU_LOAD_WINDOW44.TYPE%\GET ROOM=#ROOM\get MEETING=#MEETING\PP.TYPEAget BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\<<.TYPE..if $crs_prv eqs "Y" then get more="(More...)"  .TYPE else get more=""'CFORM CRS_RESERVE_IAMLCDO CRS_MENU_LOG\(( MLCDISPLAY CRS set for MLC CRS. FMBDO CRS_MENU_LOG\$$ FMBDISPLAY CRS set for FMB. OLDCDO CRS_RESERVE__C CODO CRS_RESERVE_COEDO CRS_RESERVE_EDDO CRS_RESERVE_DIFORM CRS_RESERVE_IHHIOR GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #SEL_ROOM:30 "\\3.4.( ~~SEL_BUILD~~ GET #CONN=" AND "\4252) ~~SEL_BUILD~~.IF #SEL_BEG_DT NES "" THEN 5L6L* ~~SEL_BUILD~~6 GET #WITH=#WITH #CONN " .BEG_DT = #SEL_BEG_DT "\\6.7.+ ~~SEL_BUILD~~ GET #CONN=" AND " \7484, ~~SEL_BUILD~~.IF #SEL_BEG_TIME NES "" THEN 8P9P- ~~SEL_BUILD~~: GET #WITH=#WITH #CONN " .BEG_TIME = #SEL_BEG_TIME "\\9.:.. ~~SEL_BUILD~~ GET #CONN=" AND " \:4;4/ ~~SEL_BUILD~~.IF #SEL_END_TIME NES "" THEN ;P<P0 ~~SEL_BUILD~~: GET #WITH=#WITH #CONN " .END_TIME = #SEL_END_TIME "\\<.=.1 ~~SEL_BUILD~~ GET #CONN=" AND "\=4>42 ~~SEL_BUILD~~.IF #SEL_MEETING NES "" THEN >P?P3 ~~SEL_BUILD~~9 GET #WITH=#WITH #CONN " .MEETING <=> #SEL_MEETING "\?&@&4 ~~SEL_BUILD~~GET OA$FUNCTION=@XAX5 ~~SEL_BUILD~~B 'FOR FIRST CRS_RESERVE ' #WITH ' DO GET $CRS_LAST_USED=.CRS_KEY'\AVBV6 ~~SEL_BUILD~~@.IF $CRS_LAST_USED EQS "" THEN GET $CRS_LAST_USED=#CRS_LAST_USEDBJCJ7.DOWN.PERIODDO CRS_RESERVE_NRRJK?SODO CRS_RESERVE_SOKL@SDO CRS_RESERVE_ILMACOIDO CRS_RESERVE_COIMNBCORDO CRS_RESERVE_CORNOCCODDO CRS_RESERVE_CODOPDIO DO CRS_OWNERSPQEMSODO CRS_RESERVE_MSOQHRHFSTAT:.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE.DAT" ANDRJSJGSTAT< LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS.DAT" THEN DISPLAYS:T:HSTAT- CRS set for FMB\.IF LOG$CRS_RESERVE_FILE EQSTFUFISTAT9 "OA$DATA:CRS_RESERVE_MLC.DAT" AND LOG$CRS_ROOMS_FILE EQSUFVFJSTAT9 "OA$DATA:CRS_ROOMS_MLC.DAT" THEN DISPLAY CRS set for MLCVWKSCDO CRS_RESERVE_SCWXXXL.PC NEXT SCREEN@.IF $CRS_PRV EQS "Y" THEN GET OA$MENU_REMAINDER="CRS_MENU2" ELSEX:Y:M.PC NEXT SCREEN" DISPLAY Invalid option - re-enterYZNSARDO CRS_RESERVE_SARZ[OCRDO CRS_RESERVE__C[\PCOTDO CRS_RESERVE_COT\]QNOTDO CRS_RESERVE_NOT]D^DR.GOLD O3GET #RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\^4_4S.GOLD O#DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\_:`:T.GOLD O)GET #BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME\`LaLU.GOLD Oh>\~~SHOW_DOCUMENTATION~~GET #ORIGTITLE=OA$CURDOC_TITLE\hdid]~~SHOW_DOCUMENTATI A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VON~~EGET OA$DISPLAY="Making temporary COPY of DOCUMENTATION . . . "\FORCE\iPjP^~~SHOW_DOCUMENTATION~~1COPY "OA$DATA:CRS_HELP.WPL" "MYCOPY_CRS_DOC.WPL"\j:k:_~~SHOW_DOCUMENTATION~~CAB CREATE "XXX",,@#CURDOC\kBlB`~~SHOW_DOCUMENTATION~~#CAB ADD_ATTRIBUTE @#CURDOC,"TITLE",ldmda~~SHOW_DOCUMENTATION~~E "TEMPORARY COPY OF CRS DOCUMENTATION -- WILL DISAPPEAR AFTER USE"\m:n:b~~SHOW_DOCUMENTATION~~EDIT "MYCOPY_CRS_DOC.WPL"\n:o:c~~SHOW_DOCUMENTATION~~DELETE MYCOPY_CRS_DOC.WPL\o<p<d~~SHOW_DOCUMENTATION~~CAB DELETE_DOCUMENT @#CURDOC\pNqNe~~SHOW_DOCUMENTATION~~/CAB SELECT #ORIGDOC:30,#ORIGDOC:6:30,,@#CURDOC\q,r,f~~SHOW_DOCUMENTATION~~ CLOSE_PRIOR\rTsTg~~SHOW_DOCUMENTATION~~5PROMPT "Print a copy of CRS documentation [Y/N] ? "\s,t,h~~SHOW_DOCUMENTATION~~ OA$FLD_STAY\tBuBi~~SHOW_DOCUMENTATION~~".IF OA$PROMPT_TEXT:1 EQS "Y" THEN uLvLj~~SHOW_DOCUMENTATION~~, GET #PRINT_FILE="OA$DATA:CRS_HELP.WPL"\\v.w.k~~SHOW_DOCUMENTATION~~ DO WPPRINTw.x.lEDITHELPEDIT "OA$DATA:CRS_HELP.WPL" x4y4mEDITLOC#EDIT "OA$DATA:CRS_ROOMS_LOCATE.WPL"y>z>n.GOLD L.LIST OA$DATA:CRS_ROOMS_LOCATE.WPL\CLOSE_PRIOR\z.{.o.GOLD LPROMPT "Print list [Y/N] ? "\{|p.GOLD L OA$FLD_STAY\|2}2q.GOLD L".IF OA$PROMPT_TEXT:1 EQS "Y" THEN }D~Dr.GOLD L3 GET #PRINT_FILE="OA$DATA:CRS_ROOMS_LOCATE.WPL"\\~s.GOLD L DO WPPRINTtUSE DO CRS_STATSuOCDO CRS_RESERVE__CBB <===================================================== @@:C O N F E R E N C E R O O M S C H E D U L E R BB <===================================================== VVPNOTE: For Audio-Visual Equipment, Food Service, or special arrangements, it is VVPstill necessary to complete a CONFERENCE ROOM/FOOD SERVICE REQUEST form.  SEL && SELect Room:)*I  $Date: ) * 6  $Time: ) *  1to  =   $Mtg.: ) * I C  Create  $COD"" )Copy to Same Room/Other DateE  Edit $COR"")Copy to Same Date/Other RoomD   Delete $COT**)$Copy to Same Date & Room/Other TimesR  Read $COI (()!Copy by Intervals or Day of MonthI   Index $NOT )Send Meeting NoticeRD Review by Date $RC **)#Review Default Room Characteristics SAR  Show Available Rooms$SC,,)&Scan for Specific Room Characteristics&& Enter selection and press RETURNFRM20-JUL-1992 06:45:5166FMSFLBFED20025-FEB-1992 12:07:4425-FEB-1992 12:07:44 **20  CRS$DOC$ENTRY,, TEXTPress GOLD H for Help00 NUMBERPress GOLD H for Help**    .TYPEENTRY 2 2.FILE$OA$DATA:CRS_DOCUMENTATION.DAT,NUMBER 4 4NUMBER%/RECOG=CRS$DOC$ENTRY:NUMBER/SHOW=TEXT FRM20-JUL-1992 06:45:5166FMSFLBFLG20029-MAY-1992 10:20:2629-MAY-1992 10:20:26 $$20 tPPCRSMLC< CHOICE MORE ROOM  BEG_DT  BEG_TIME  MEETING   END_TIME 9<+F +d +o +u 7   < <.TYPE-menu/clear/choice=choice/pre='DO CRS_MENU_LOG &&.TYPE\DO CRS_MENU_LOAD_WINDOW44.TYPE%\GET ROOM=#ROOM\get MEETING=#MEETING\PP.TYPEAget BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\<<.TYPE..if $crs_prv eqs "Y" then get more="(More...)"  .TYPE else get more=""'NCFORM CRS_RESERVE_IAMLCDO CRS_MENU_LOG\(( MLCDISPLAY CRS set for MLC CRS. FMBDO CRS_MENU_LOG\$$ FMBDISPLAY CRS set for FMB. OLDCDO CRS_RESERVE__C CODO CRS_RESERVE_COEDO CRS_RESERVE_EDDO CRS_RESERVE_DIFORM CRS_RESERVE_IHHIOR GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #SEL_ROOM:30 "\\3.4.( ~~SEL_BUILD~~ GET #CONN=" AND "\4252) ~~SEL_BUILD~~.IF #SEL_BEG_DT NES "" THEN 5L6L* ~~SEL_BUILD~~6 GET #WITH=#WITH #CONN " .BEG_DT = #SEL_BEG_DT "\\6.7.+ ~~SEL_BUILD~~ GET #CONN=" AND " \7484, ~~SEL_BUILD~~.IF #SEL_BEG_TIME NES "" THEN 8P9P- ~~SEL_BUILD~~: GET #WITH=#WITH #CONN " .BEG_TIME = #SEL_BEG_TIME "\\9.:.. ~~SEL_BUILD~~ GET #CONN=" AND " \:4;4/ ~~SEL_BUILD~~.IF #SEL_END_TIME NES "" THEN ;P<P0 ~~SEL_BUILD~~: GET #WITH=#WITH #CONN " .END_TIME = #SEL_END_TIME "\\<.=.1 ~~SEL_BUILD~~ GET #CONN=" AND "\=4>42 ~~SEL_BUILD~~.IF #SEL_MEETING NES "" THEN >P?P3 ~~SEL_BUILD~~9 GET #WITH=#WITH #CONN " .MEETING <=> #SEL_MEETING "\?&@&4 ~~SEL_BUILD~~GET OA$FUNCTION=@XAX5 ~~SEL_BUILD~~B 'FOR FIRST CRS_RESERVE ' #WITH ' DO GET $CRS_LAST_USED=.CRS_KEY'\AVBV6 ~~SEL_BUILD~~@.IF $CRS_LAST_USED EQS "" THEN GET $CRS_LAST_USED=#CRS_LAST_USEDBJCJ7.DOWN.PERIODDO CRS_RESERVE_NRRJK?SODO CRS_RESERVE_SOKL@SDO CRS_RESERVE_ILMACOIDO CRS_RESERVE_COIMNBCORDO CRS_RESERVE_CORNOCCODDO CRS_RESERVE_CODOPDIO DO CRS_OWNERSPQEMSODO CRS_RESERVE_MSOQHRHFSTAT:.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE.DAT" ANDRJSJGSTAT< LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS.DAT" THEN DISPLAYS:T:HSTAT- CRS set for FMB\.IF LOG$CRS_RESERVE_FILE EQSTFUFISTAT9 "OA$DATA:CRS_RESERVE_MLC.DAT" AND LOG$CRS_ROOMS_FILE EQSUFVFJSTAT9 "OA$DATA:CRS_ROOMS_MLC.DAT" THEN DISPLAY CRS set for MLCVWKSCDO CRS_RESERVE_SCWXXXL.PC NEXT SCREEN@.IF $CRS_PRV EQS "Y" THEN GET OA$MENU_REMAINDER="CRS_MENU2" ELSEX:Y:M.PC NEXT SCREEN" DISPLAY Invalid option - re-enterYZNSARDO CRS_RESERVE_SARZ[OCRDO CRS_RESERVE__C[\PCOTDO CRS_RESERVE_COT\]QNOTDO CRS_RESERVE_NOT]D^DR.GOLD O3GET #RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\^4_4S.GOLD O#DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\_:`:T.GOLD O)GET #BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME\`LaLU.GOLD Oh>\~~SHOW_DOCUMENTATION~~GET #ORIGTITLE=OA$CURDOC_TITLE\hdid]~~SHOW_DOCUMENTATION~~EGET OA$DISPLAY="Making temporary COPY of DOCUMENTATION . . . "\FORCE\iPjP^~~SHOW_DOCUMENTATION~~1COPY "OA$DATA:CRS_HELP.WPL" "MYCOPY_CRS_DOC.WPL"\j:k:_~~SHOW_DOCUMENTATION~~CAB CREATE "XXX",,@#CURDOC\kBlB`~~SHOW_DOCUMENTATION~~#CAB ADD_ATTRIBUTE @#CURDOC,"TITLE",ldmda~~SHOW_DOCUMENTATION~~E "TEMPORARY COPY OF CRS DOCUMENTATION -- WILL DISAPPEAR AFTER USE"\m:n:b~~SHOW_DOCUMENTATION~~EDIT "MYCOPY_CRS_DOC.WPL"\n:o:c~~SHOW_DOCUMENTATION~~DELETE MYCOPY_CRS_DOC.WPL\o<p<d~~SHOW_DOCUMENTATION~~CAB DELETE_DOCUMENT @#CURDOC\pNqNe~~SHOW_DOCUMENTATION~~/CAB SELECT #ORIGDOC:30,#ORIGDOC:6:30,,@#CURDOC\q,r,f~~SHOW_DOCUMENTATION~~ CLOSE_PRIOR\rTsTg~~SHOW_DOCUMENTATION~~5PROMPT "Print a copy of CRS documentation [Y/N] ? "\s,t,h~~SHOW_DOCUMENTATION~~ OA$FLD_STAY\tBuBi~~SHOW_DOCUMENTATION~~".IF OA$PROMPT_TEXT:1 EQS "Y" THEN uLvLj~~SHOW_DOCUMENTATION~~, GET #PRINT_FILE="OA$DATA:CRS_HELP.WPL"\\v.w.k~~SHOW_DOCUMENTATION~~ DO WPPRINTw.x.lEDITHELPEDIT "OA$DATA:CRS_HELP.WPL" x4y4mEDITLOC#EDIT "OA$DATA:CRS_ROOMS_LOCATE.WPL"y>z>n.GOLD L.LIST OA$DATA:CRS_ROOMS_LOCATE.WPL\CLOSE_PRIOR\z.{.o.GOLD LPROMPT "Print list [Y/N] ? "\{|p.GOLD L OA$FLD_STAY\|2}2q.GOLD L".IF OA$PROMPT_TEXT:1 EQS "Y" THEN }D~Dr.GOLD L3 GET #PRINT_FILE="OA$DATA:CRS_ROOMS_LOCATE.WPL"\\~s.GOLD L DO WPPRINTtCDO CRS_RESERVE__CLL E============================================================= HH BC O N F E R E N C E R O O M S C H E D U L E R (MLC) LL E============================================================= VVPNOTE: For Audio-Visual Equipment, Food Service, or special arrangements, it is VVPstill necessary to complete a CONFERENCE ROOM/FOOD SERVICE REQUEST form.  SEL && SELect Room:)*I  $Date: ) * 6  $Time: ) *  1to  =   $Mtg.: ) * I C  Create  $COD"" )Copy to Same Room/Other DateE  Edit $COR"")Copy to Same Date/Other RoomD   Delete $COT**)$Copy to Same Date & Room/Other TimesR  Read $COI (()!Copy by Intervals or Day of MonthI   Index $NOT )Send Meeting NoticeRD Review by Date $RC **)#Review Default Room Characteristics SAR  Show Available Rooms$SC,,)&Scan for Specific Room Characteristics&& Enter selection and press RETURNFRM20-JUL-1992 06:45:5266FMSFLBFLG20020-OCT-1989 12:36:1220-OCT-1989 12:36:12 ddz$$20PPPCRS_EQP( VALUE( OTHER**(   .TYPEENTRY/MODE=UPDATE( (.FILEOA$DATA:CRS_EQP.DAT,VALUE . .VALUE/RECOG=CRS_EQP:VALUE/SHOW=OTHER 881CRS EQUIPMENT  I PPINOTE: This form controls values used for GOLD L recognition by the  PPICRS_RESERVE_I screen for fields: ARRANGEMENT, AV, & OTHER.  VALUE:  OTHER: FRM20-JUL-1992 06:45:5266FMSFLBFED200 2-JAN-1992 08:02:13 2-JAN-1992 08:02:13   *&&20< PD CRS_MENU2< CHOICE   &&.TYPEMENU/CHOICE=CHOICE/CLEARPUDO CRS_RESERVE_PUP PSPUDQUEUE_BATCH OA$LIB:CRS_RESERVE_PU.COM/NOPRINT/KEEP/PARAMS=(OA$USER)/ H HSPU> ~~POST_WHICH~~'.IF WHICH EQ 4 THEN GET POST_WHICH="TH"22DAY&/VALID=OA$TABLE:"SU,MO,TU,WE,TH,FR,SA"VVDAYI/RECOG=OA$TABLE:"SU Sunday,MO Monday,TU Tuesday,WE Wednesday,TH Thursday,""DAYFR Friday,SA Saturday"DAY/PUT_SAVE=#DAYFFDAY9/PROMPT="Enter first two letters of desired DAY of WEEK."(( OCCURENCES/PUT_SAVE=#OCCURENCESZZ OCCURENCESG/PROMPT="Enter the total number of incremented Dates to be calculated."HHAEnter the information below to schedule on a specific monthly RRLbasis and press RETURN for Index of Dates.  !BB 2T 0  |D((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION='.TYPEXOP "~~INIT~~"\**.TYPEOA$SCL_EXIT\BIND_BREAK *CRSD,,.TYPE\XOP "~~FIND~~"\DISPLAY\FORCE'$$.MOREMORE$SCROLL$KEYS$INDEX@@.GOLD M0DISPLAY Your only options here are 'D' and 'XD'..GOLD F OA$FLD_EXIT BEG_DT/VIEW=,,,*CRSD POINTER/POINTER SELECTED /SELECTED LINE /ALIAS=%LINE.. ~~FIND~~OA$SCL_EXIT\BIND_BREAK *CRSD\JJ~~FIND~~9BIND *CRSD TO CRS_RESERVE WITH .RESERVER BEGINNING #USER\$ $~~FIND~~OA$SCL_INIT,,,*CRSD P!PCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!$"$ OA$_MO_INDEXXOP "~~FIND~~""T#T~~INIT~~C.IF $CRS_PRV NES "Y" THEN GET #USER=OA$USER ELSE XOP "~~EXTDATA~~"\#$~~INIT~~\IFEXIT\$^%^~~INIT~~MGET OA$DISPLAY='Indexing Reservations belonging to "' #USER '" . . . '\force\%&~~INIT~~ GET #RFA=""&:':D/GET #DELKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_KEY]\'4(4D)WRITE DELETE CRS_RESERVE CRS_KEY=#DELKEY\(()(DOA$SCL_EXIT\BIND_BREAK *CRSD\)*DXOP "~~FIND~~"*T+T ~~EXTDATA~~?GET #EXTDATA="Username"\FORM EXTDATA\IFEXIT\GET #USER=#INFOTYPE+,;- (Selections:.>>9) (New messages:/O)0VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq1DD?Beginning Dt/Time Meeting Contact 2VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq3VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq4PPJMove to item and enter option (press GOLD MENU to see options, or HELP for5more information)6FRM20-JUL-1992 06:45:5366FMSFLBFED200 2-JAN-1992 12:31:33 2-JAN-1992 12:31:33 5 L L  **20' PP CRS_RESERVE_E AROOM BEG_DT BEG_TIME  END_TIME  MEETING  CONTACT1   EXT1   CONTACT2  EXT2  % + I b  h  .TYPEARGPROOM/PUT_SAVE=#PROOM\\PROOMM/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING PROOM AND .TYPE EQS "CR";22PROOM#OA$MSG_PURGE\DO CRS_RESERVE_E_GOLDL>>PROOM//POST='DO CRS_RESERVE_VAL_FLD\GET #PROOM=PROOM'44PROOM&/SHOW=BEG_DT,BEG_TIME,END_TIME,MEETING""PBEG_DT/PUT_SAVE=#PBEG_DT&& PBEG_TIME/PUT_SAVE=#PBEG_TIME&&  PEND_TIME/PUT_SAVE=#END_TIMELL ROOM>/PUT_SAVE=#ROOM/PRE='DISPLAY Use GOLD L for exact ROOM names.'TT ROOMG/RSE_RECOG=CRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR";HH ROOM;.IF OA$SEL_KEY NES "" THEN GET ROOM=OA$SEL_KEY\\OA$FLD_NEXT,, ROOM/POST='DO CRS_RESERVE_VAL_FLD'  ROOM/SHOW=CAPACITY/AUTOXXROOMK/VALID=44 .Now change the MEETING information if needed: ? Meeting/Function: @ Primary Contact: AExtension 1: BSecondary Contact:CExtension 2: DERRLNOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2") it is FRRLnecessary to CHANGE reservations for each room separately. G A CRS_RESERVE_EJ CRS_RESERVE_IuDCRS_RESERVE_IACRS_RESERVE_IA_ARG4CRS_RESERVE_IA_MENU:CRS_RESERVE_INCRR_MENUCRS_RESERVE_IOR_INDEXCRS_RESERVE_IOR_MENU CRS_RESERVE_RCRS_RESERVE_RCvCRS_RESERVE_RESCRS_RESERVE_RES_ARGFRM20-JUL-1992 06:45:5366FMSFLBFLG20027-MAY-1992 12:31:0727-MAY-1992 12:31:07 p @O@OKN**20YPP CRS_RESERVE_IN CHOICE POINTER SELECTED  LINE  MEETING  A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VtqK ROOM   BEG_DT   BEG_TIME  END_TIME  UNREAD   SELECTIONS IEND_DT IROOM  ICONTACT1  IRESERVER IBEG_DT- IMEETING88    ! :5 F @ LELN Q T0_ }0   0  J((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENU..?#FOR *CRSIOR DO GET #X=OA$SEL_COUNT\..?$GET OA$DISPLAY="INDEXED ITEMS: " #XIXOP "~~FIND~~"DDGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAYR R GTG You must specify GOTO xxxx where 'xxxx' is part of the file spec. ELSE ! GT XOP "~~GT~~"!" ~~GT~~ DECIMAL I\""#" ~~GT~~GET #PLINES=#LINES\#N$N ~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\$.%.~~GT~~ GET OA$MENU_REMAINDER=""\\%"&"~~GT~~ GET #PLINES=0\&'~~GT~~ GET #X=0\'(~~GT~~ GET #LINES=0\()~~GT~~GET #STATUS=0\)0*0~~GT~~ FOR *CRSIOR DO COMPUTE #X=#X+1\\*R+R~~GT~~B .IF .MEETING <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\\\+&,&~~GT~~ GET #STATUS=1\\,*-*~~GT~~ GET OA$STATUS=#STATUS\\- . ~~GT~~ IFNOTSTATUS\.N/N~~GT~~?.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE/H0H~~GT~~8 GET OA$DISPLAY="No (more) file specs <=> '" #obj "'."\\01~~GT~~ GET #OBJ=""12COIGET #COI_QUIT="Y"\2(3(COIGET #RFA=OA$SCROLL_ADDRESS\3$4$COIXOP "~~ID_LAST_USED~~"\4 5 COIDO CRS_RESERVE_COI\56COI CLOSE_PRIOR\6B7B COI6.IF #COI_QUIT EQS "Y" THEN OA$NULL ELSE XOP "~~BIND~~"7F8F!~~ID_LAST_USED~~-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\8P9P"~~ID_LAST_USED~~7FOR FIRST CRS_RESERVE WITH .CRS_KEY = $CRS_LAST_USED DO92:2#~~ID_LAST_USED~~ GET #ROOM=.ROOM\\:8;8$~~ID_LAST_USED~~ GET #MEETING=.MEETING\\;2<2%~~ID_LAST_USED~~ GET #TYPE=.TYPE\\<6=6&~~ID_LAST_USED~~ GET #BEG_DT=.BEG_DT\\=:>:'~~ID_LAST_USED~~! GET #BEG_TIME=.BEG_TIME\\>6?6(~~ID_LAST_USED~~ GET #END_DT=.END_DT\\?:@:)~~ID_LAST_USED~~! GET #END_TIME=.END_TIME\\@:A:*~~ID_LAST_USED~~! GET #RESERVER=.RESERVER\\A:B:+~~ID_LAST_USED~~! GET #CONTACT1=.CONTACT1\\B2C2,~~ID_LAST_USED~~ GET #EXT1=.EXT1\\C:D:-~~ID_LAST_USED~~! GET #CONTACT2=.CONTACT2\\D0E0.~~ID_LAST_USED~~ GET #EXT2=.EXT2E F /XCOIXOP "~~PRE_XCOI~~"\FG0XCOIGET OA$DISPLAY=GXHX1XCOIJ#VNUM " out of " #TNUM " attempted reservations were copied successfully."H I 2 ~~PRE_XCOI~~ DECIMAL I\I(J(3 ~~PRE_XCOI~~GET #TNUM=#VNUM=0\J.K.4 ~~PRE_XCOI~~DO CRS_RESERVE_COI_TABLE\K"L"5 ~~PRE_XCOI~~ CLOSE_PRIOR\LXMX6 ~~PRE_XCOI~~B.IF #RESP EQS "Y" AND #TABLE NES "" THEN GET OA$STATUS=1 ELSE GET M"N"7 ~~PRE_XCOI~~ OA$STATUS=0\NO8 ~~PRE_XCOI~~ IFSTATUS\O6P69 ~~PRE_XCOI~~ GET OA$DISPLAY="Working . . . "\PQ: ~~PRE_XCOI~~FORCE\Q"R"; ~~PRE_XCOI~~ GET #RFA=""\R$S$< ~~PRE_XCOI~~XOP "~~XCOI~~"S8T8=~~XCOI~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\TU>~~XCOI~~ IFSTATUS\U(V(?~~XCOI~~XOP "~~ID_LAST_USED~~"\V>W>@~~XCOI~~,FOR OA$TABLE:#TABLE DO GET #REG_DATE=.%KEY\\W*X*A~~XCOI~~ DO CRS_RESERVE_XCOI\\X.Y.B~~XCOI~~ COMPUTE #TNUM=#TNUM+1\ YZC~~XCOI~~REPEATZ [ DXCODXOP "~~PRE_XCOD~~"\[\EXCODGET OA$DISPLAY=\X]XFXCODJ#VNUM " out of " #TNUM " attempted reservations were copied successfully."] ^ G ~~PRE_XCOD~~ DECIMAL I\^(_(H ~~PRE_XCOD~~GET #TNUM=#VNUM=0\_*`*I ~~PRE_XCOD~~XOP "~~XCOD_DATE~~"\`aJ ~~PRE_XCOD~~IFEXIT\a6b6K ~~PRE_XCOD~~ GET OA$DISPLAY="Working . . . "\bcL ~~PRE_XCOD~~FORCE\c"d"M ~~PRE_XCOD~~ GET #RFA=""\d$e$N ~~PRE_XCOD~~XOP "~~XCOD~~"e8f8O~~XCOD~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\fgP~~XCOD~~ IFSTATUS\g(h(Q~~XCOD~~XOP "~~ID_LAST_USED~~"\h&i&R~~XCOD~~DO CRS_RESERVE_XCOD\i,j,S~~XCOD~~COMPUTE #TNUM=#TNUM+1\ jkT~~XCOD~~REPEATkNlNU ~~XCOD_DATE~~8GET #SCREEN_TITLE="Copy selected records to what date?"\l&m&V ~~XCOD_DATE~~FORM VALID_DATEmFnFWP;.IF *CRSIOR.%FIRST[""] NES "" THEN XOP "~~P~~" ELSE DISPLAYn:o:XP/ There is no Index information listed to print.oDpDY~~P~~6FORM AUTO SELECT FOR *CRSIOR DO SEL_STYLE .ROOM:14 " "pJqJZ~~P~~< .BEG_DT:13 .BEG_TIME:7 .END_TIME:7 .CONTACT1:20 .MEETING:30qHrH[~~P~~:/STYLE=FILE/LIST="CRS_INDEX.TMP"\DUMP_CACHE CRS_INDEX.TMP\r.s.\~~P~~ MERGE CRS_RESERVE_I.BLP,CRS.TMP\s8t8]~~P~~)GET #PRINT_FILE="CRS.TMP"\DO WPPRINT\.IF tLuL^~~P~~> OA$DIR:"*.*".ALLBUTVER["CRS.TMP"] NES "" THEN DELETE CRS.TMP\uLvL_~~P~~>.IF OA$DIR:"*.*".ALLBUTVER["CRS_INDEX.TMP"] NES "" THEN DELETEvw`~~P~~ CRS_INDEX.TMPwxaIORXOP "~~IFIND~~"xLyLbXSO@.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\\y2z2cXSO%GET OA$STATUS=0 ELSE GET OA$STATUS=1\z{dXSO IFSTATUS\{|eXSO GET #RFA=""\|}fXSOGET #STATUS=1\}D~DgXSO7.IF $CRS_PRV NES "Y" THEN XOP "~~SO_CHECK_OWNERSHIP~~"\~**hXSO.IF #STATUS EQ 0 THEN DISPLAY LLiXSO? At least one of the selected reservations is NOT yours to SO.\""jXSOGET OA$STATUS=#STATUS\kXSO IFSTATUS\ lXSOXOP "~~SO_PROMPT~~"\""mXSOGET OA$STATUS=#SSTAT\nXSO IFSTATUS\oXSOXOP "~~XSO~~"\pXSOOA$SCL_REFRESH@@q~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\66r~~XSO~~&GET #OWNER=CRS_RESERVE.RESERVER[#RFA]\66s~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\$$t~~XSO~~XOP "~~SO~~"\REPEAT&&uSOGET #RFA=OA$SCROLL_ADDRESS\..vSO"GET #CRS_LAST_USED=$CRS_LAST_USED\FFwSO:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\<<xSO0GET #OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\<<ySO0.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN **zSO DO CRS_RESERVE_SO ELSE DISPLAY66{SO+ You may\y A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VZ NOT use 'SO' on this reservation.\..|SO"GET $CRS_LAST_USED=#CRS_LAST_USED\LL}SO@.IF (#SI_RESERVER NES "") AND (#RESERVER NES #SI_RESERVER) THEN ..~SO# OA$SCL_REMOVE #RFA\\OA$SCL_REFRESH,, ~~SO_PROMPT~~PROMPT "New Owner: "\"" ~~SO_PROMPT~~ OA$FLD_STAY\44 ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\TT ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN.. ~~SO_PROMPT~~ GET #SSTAT="0" ELSE** ~~SO_PROMPT~~ GET #SSTAT="1"\,, ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\"" ~~SO_PROMPT~~ IFNOTSTATUS\@@ ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=>> ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ GET #STAT=1\JJ~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\NN~~SO~~?.IF (#SI_RESERVER NES "") AND (#NEWOWNER NES #SI_RESERVER) THEN""~~SO~~ OA$SCL_REMOVE #RFANN~~SO_CHECK_OWNERSHIP~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\FF~~SO_CHECK_OWNERSHIP~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\``~~SO_CHECK_OWNERSHIP~~A.IF CRS_RESERVE.RESERVER[#CRSKEY] NES OA$USER THEN GET #STATUS=0\66~~SO_CHECK_OWNERSHIP~~GET OA$STATUS=#STATUS\..~~SO_CHECK_OWNERSHIP~~IFSTATUS\REPEAT66 LEFTOVERS$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\88 LEFTOVERS&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\44 LEFTOVERS"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\>> LEFTOVERS,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\TT LEFTOVERSA.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"(( LEFTOVERS ELSE GET #OSTAT="0"\** LEFTOVERS.IF #OSTAT EQS "0" THENXX LEFTOVERSE PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\  LEFTOVERS OA$FLD_STAY,,R"GET #CRS_LAST_USED=$CRS_LAST_USED\&&RGET #RFA=OA$SCROLL_ADDRESS\R XOP "~~R~~"\,,R!GET $CRS_LAST_USED=#CRS_LAST_USED<<~~R~~-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\ ~~R~~DO CRS_RESERVE_R\NN~~R~~?.IF OA$FORM_TERMINATOR = 112 THEN GET #STAT=0 ELSE GET #STAT=1\~~R~~ CLOSE_PRIORXR GET #RFA=""\..XR"GET #CRS_LAST_USED=$CRS_LAST_USED\XR XOP "~~XR~~"\XR CLOSE_PRIOR\,,XR!GET $CRS_LAST_USED=#CRS_LAST_USED66~~XR~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\~~XR~~ IFSTATUS\~~XR~~ CLOSE_PRIOR\~~XR~~ XOP "~~R~~"\$$~~XR~~GET OA$STATUS=#STAT\~~XR~~ IFSTATUS\~~XR~~REPEAT..COD"GET #CRS_LAST_USED=$CRS_LAST_USED\((CODGET #RFA=OA$SCROLL_ADDRESS\::COD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\COD CLOSE_PRIOR\HHCOD<.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED]88COD, EQS OA$USER THEN XOP "~~COD~~" ELSE DISPLAY22COD& You may NOT 'COD' this reservation.\\..COD!GET $CRS_LAST_USED=#CRS_LAST_USED$$~~COD~~DO CRS_RESERVE_COD\,,~~COD~~GET #COD_REC=$CRS_LAST_USED\~~COD~~ CLOSE_PRIOR\@@~~COD~~0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED..COR"GET #CRS_LAST_USED=$CRS_LAST_USED\((CORGET #RFA=OA$SCROLL_ADDRESS\::COR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\HHCOR<.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED]88COR, EQS OA$USER THEN XOP "~~COR~~" ELSE DISPLAY22COR& You may NOT 'COR' this reservation.\\..COR!GET $CRS_LAST_USED=#CRS_LAST_USED$$~~COR~~DO CRS_RESERVE_COR\,,~~COR~~GET #COR_REC=$CRS_LAST_USED\~~COR~~ CLOSE_PRIOR\@@~~COR~~0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED..COT"GET #CRS_LAST_USED=$CRS_LAST_USED\((COTGET #RFA=OA$SCROLL_ADDRESS\::COT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\HHCOT<.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED]88COT, EQS OA$USER THEN XOP "~~COT~~" ELSE DISPLAY22COT& You may NOT 'COT' this reservation.\\..COT!GET $CRS_LAST_USED=#CRS_LAST_USED$$~~COT~~DO CRS_RESERVE_COT\,,~~COT~~GET #COT_REC=$CRS_LAST_USED\~~COT~~ CLOSE_PRIOR\@@~~COT~~0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDE XOP "~~E~~"00~~E~~"GET #CRS_LAST_USED=$CRS_LAST_USED\HH~~E~~:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\::~~E~~+GET #DT=CRS_RESERVE.BEG_DT[$CRS_LAST_USED]\<<~~E~~-GET #TI=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]\88~~E~~)GET #RO=CRS_RESERVE.ROOM[$CRS_LAST_USED]\>>~~E~~0GET #OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\88~~E~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"**~~E~~ THEN GET #OSTAT="1" ELSE ~~E~~ GET #OSTAT="0"\&&~~E~~.IF #OSTAT EQS "0" THENTT~~E~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\""~~E~~ OA$FLD_STAY ELSE""~~E~~ DO CRS_RESERVE_E\\~~E~~ CLOSE_PRIOR\\~~E~~XOP "~~BIND~~"&&DGET #RFA=OA$SCROLL_ADDRESS\66D+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\DDD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\..D$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\&&DOA$SCL_UPDATE\OA$SCL_REFRESHHH~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\~~D~~PROMPT #PROMPT\~~D~~ OA$FLD_STAY\DD~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE ~~D~~ GET #DSTAT="1"\$$~~D~~GET OA$STATUS=#DSTAT\~~D~~ IFSTATUS\<<~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\XX~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\~~D~~ CLOSE_PRIOR\>>~~D~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSEFF~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYH H~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\ J J~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\ F F~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\ L L~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\ H H~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" ::~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSE00~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\66~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENdd~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\..~~D_CHECK_OWNERSHIP~~ OA$FLD_ST؇ A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VhiAYLLXD@.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\\00XD%GET OA$STATUS=0 ELSE GET OA$STATUS=1\XD IFSTATUS\XD DECIMAL I\XDGET #DEL_RECS=0\XD GET #RFA=""\XD XOP "~~XD~~"\22XD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((XDOA$SCL_UPDATE\OA$SCL_REFRESH>>~~XD~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\::~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT  MEETING/VIEW=,,,*CRSIOR ! POINTER/POINTER!" SELECTED /SELECTED"# LINE /ALIAS=%LINE#8$8 ~~BIND~~&GET OA$DISPLAY="Working . . . "\FORCE\$0%0~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\%&&&~~BIND~~XOP "~~BUILD_BIND~~"\&H'H~~BIND~~6GET OA$FUNCTION='BINDW *CRSIOR TO CRS_RESERVE ' #WITH\'.(.~~BIND~~OA$SCL_INIT,,,*CRSIOR\DISPLAY($)$~~BUILD_BIND~~ GET #WITH=""\)***~~BUILD_BIND~~GET #CONN=" WITH "\*J+J~~BUILD_BIND~~2.IF (#SI_BEG_DTR:8 NES "" AND #SI_END_DTR EQS "") +,~~BUILD_BIND~~ OR,R-R~~BUILD_BIND~~: (#SI_BEG_DTR NES "" AND #SI_END_DTR EQS #SI_BEG_DTR) THEN-H.H~~BUILD_BIND~~1 GET #WITH=#CONN " .CRS_KEY:8 = #SI_BEG_DTR:8 "\\.*/*~~BUILD_BIND~~ GET #CONN=" AND "\/Z0Z~~BUILD_BIND~~C.IF (#SI_BEG_DTR NES "" AND #SI_END_DTR NES "" AND #SI_BEG_DTR NES 0\1\~~BUILD_BIND~~D #SI_END_DTR) THEN GET #WITH=#WITH #CONN " .CRS_KEY:8 GE #SI_BEG_DTR1:2:~~BUILD_BIND~~" AND .CRS_KEY:8 LE #SI_END_DTR "\\2*3*~~BUILD_BIND~~GET #CONN=" AND " \3Z4Z~~BUILD_BIND~~C.IF (#SI_ROOM NES "") THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 =4(5(~~BUILD_BIND~~ #SI_ROOM:30 "\\5*6*~~BUILD_BIND~~GET #CONN=" AND " \6Z7Z ~~BUILD_BIND~~B.IF (#SI_MEETING NES "") THEN GET #WITH=#WITH #CONN " .MEETING <=>7(8(!~~BUILD_BIND~~ #SI_MEETING "\\8*9*"~~BUILD_BIND~~GET #CONN=" AND " \9\:\#~~BUILD_BIND~~D.IF (#SI_CONTACT1 NES "") THEN GET #WITH=#WITH #CONN " .CONTACT1 <=>:(;($~~BUILD_BIND~~ #SI_CONTACT1 "\\;*<*%~~BUILD_BIND~~GET #CONN=" AND "\<Z=Z&~~BUILD_BIND~~B.IF (#SI_RESERVER NES "") THEN GET #WITH=#WITH #CONN " .RESERVER ==&>&'~~BUILD_BIND~~ #SI_RESERVER">?(~~FIND~~ GET #RFA=""\?0@0)~~FIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\@A*~~FIND~~ GET #STAT=1\A*B*+~~FIND~~FORM CRS_RESERVE_SI_ARG\BC,~~FIND~~ CLOSE_PRIOR\C2D2-~~FIND~~ .IF #STAT EQ 0 THEN OA$FLD_EXIT\D&E&.~~FIND~~GET OA$STATUS=#STAT\EF/~~FIND~~ IFSTATUS\F$G$0~~FIND~~GET IROOM=#SI_ROOM\G(H(1~~FIND~~GET IBEG_DT=#SI_BEG_DT\H(I(2~~FIND~~GET IEND_DT=#SI_END_DT\I,J,3~~FIND~~GET ICONTACT1=#SI_CONTACT1\J,K,4~~FIND~~GET IRESERVER=#SI_RESERVER\K*L*5~~FIND~~GET IMEETING=#SI_MEETING\L&M&6~~FIND~~GET OA$STATUS=#STAT\MN7~~FIND~~ IFSTATUS\N O 8~~FIND~~XOP "~~BIND~~"OPPP9CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'PFQF:.GOLD F6GET $CRS_LAST_USED=*CRSIOR.CRS_KEY[OA$SCROLL_ADDRESS]\QR;.GOLD F OA$FLD_EXITR.S.<NOT"GET #CRS_LAST_USED=$CRS_LAST_USED\SFTF=NOT:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\T U >NOTDO CRS_RESERVE_NOT\U.V.?NOT!GET $CRS_LAST_USED=#CRS_LAST_USEDVNWN@XNOT@.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\\W2X2AXNOT%GET OA$STATUS=0 ELSE GET OA$STATUS=1\XYBXNOT IFSTATUS\Y Z CXNOTDO CRS_RESERVE_XNOTZ,[,DC"GET #CRS_LAST_USED=$CRS_LAST_USED\[\EC CLOSE_PRIOR\\]FCFORM CRS_RESERVE_IA\]^GC CLOSE_PRIOR\^D_DHC9.IF $CRS_LAST_USED NES #CRS_LAST_USED THEN XOP "~~BIND~~"_`ISI OA$SCL_EXIT\`aJSIBIND_BREAK *CRSIOR\abKSI CLOSE_PRIOR\bcLSIXOP "~~SORT~~"cDdDM~~SORT~~3GET #GEN_TITLE=" Select SORT Preferences"\d"e"N~~SORT~~GET #GEN_FIELDS=eVfVO~~SORT~~D"SELECT Sort fields in the order desired from those listed below: "\f,g,P~~SORT~~GET #TEXT_ALIAS='.%WHOLE'\ g<h<Q~~SORT~~+GET #GEN$MENU="CRS$RESERVE$INDEX$SORT$ARG"\hBiBR~~SORT~~1GET #GEN_INDEX_ARG="$CRS$RESERVE$INDEX$SORT$ARG"\iBjBS~~SORT~~1FORM GEN$INDEX/MORE="CRS$RESERVE$INDEX$SORT$ARG"\jkT~~SORT~~ CLOSE_PRIOR\kNlNU~~SORT~~<.IF #SRT NES "" THEN XOP "~~SORT_BIND~~" ELSE XOP "~~BIND~~"l<m<V ~~SORT_BIND~~&GET OA$DISPLAY="Working . . . "\FORCE\m6n6W ~~SORT_BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\nZoZX ~~SORT_BIND~~DGET OA$FUNCTION="BINDW/SORT=" #SRT " *CRSIOR TO CRS_RESERVE " #WITH\o4p4Y ~~SORT_BIND~~OA$SCL_INIT,,,*CRSIOR\DISPLAYp (Selections:q)r""Index of CRS Reservations s=(New messages:tO)u DATES: v to w&ROOM: x CONTACT: y%OWNER: zI{ MEETING: |9}VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq~HHBMeeting Room ---Date--- ---Times---VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqFF?Move to item and enter option (press GOLD MENU to see options).FRM20-JUL-1992 06:45:5466FMSFLBFLG20017-JUL-1992 14:55:2117-JUL-1992 14:55:21 ,,20 PPCRS_RESERVE_IAN CHOICE POINTER SELECTED  LINE " ROOM  UNREAD    SELECTIONS   BEG_DT  BEG_TIME  END_TIME # MEETING  DAY_UV_WEEK    LN Q  T / _: di#  0  (((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION=.TYPE'XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX?FOR *CRSIA DO\?GET #X=OA$SEL_COUNT\..?$GET OA$DISPLAY="INDEXED ITEMS: " #XTTRIH.IF OA$DIR:"*.*".ALLBUTVER["GEN_ENTRY.DAT"] NES "" THEN XOP "~~REBIND~~"22 RI' ELSE DISPLAY No original Index exists. CXOP "~~FIND~~"@@ RR4GET #ROOM=#RESROOM=*CRSIA.KEY:30[OA$SCROLL_ADDRESS]\ RR XOP "~~RR~ TA5 A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VEx~"\44 RR).IF #TVALID EQS "Y" THEN XOP "~~BIND~~"\\F FRR;GET OA$DISPLAY="'" #RESROOM "' has been RESERVED for you. " "!"~~RR~~DO CRS_VAL_ROOM_IA!"XRR DECIMAL I\"#XRRGET #VROOMS=0\#$XRRGET #XROOMS=0\$%XRR GET #RFA=""\%&XRRXOP "~~XRR~~"\&2'2XRR&.IF #VROOMS GT 0 THEN XOP "~~BIND~~"\\'(XRRGET OA$DISPLAY=(P)PXRRD#VROOMS " out of " #XROOMS " ROOMS requested were RESERVED for you.")6*6~~XRR~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\*+~~XRR~~ IFSTATUS\+,,,~~XRR~~GET #ROOM=*CRSIA.KEY[#RFA]\,$-$~~XRR~~DO CRS_VAL_ROOM_IA\-*.*~~XRR~~COMPUTE #XROOMS=#XROOMS+1\.D/D~~XRR~~3.IF #TVALID EQS "Y" THEN COMPUTE #VROOMS=#VROOMS+1\/0~~XRR~~REPEAT0D1DGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY1R2R GTG You must specify GOTO xxxx where 'xxxx' is part of the ROOM name. ELSE23!GT XOP "~~GT~~"34"~~GT~~ DECIMAL I\4"5"#~~GT~~GET #PLINES=#LINES\5N6N$~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\6.7.%~~GT~~ GET OA$MENU_REMAINDER=""\\7"8"&~~GT~~ GET #PLINES=0\89'~~GT~~ GET #X=0\9:(~~GT~~ GET #LINES=0\:;)~~GT~~GET #STATUS=0\;<*~~GT~~ FOR *CRSIA<$=$+~~GT~~ DO COMPUTE #X=#X+1\\=N>N,~~GT~~> .IF .KEY <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\\\>&?&-~~GT~~ GET #STATUS=1\\?*@*.~~GT~~ GET OA$STATUS=#STATUS\\@ A /~~GT~~ IFNOTSTATUS\ANBN0~~GT~~?.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSEBHCH1~~GT~~8 GET OA$DISPLAY="No (more) file specs <=> '" #obj "'."\\CD2~~GT~~ GET #OBJ=""DE3XRC GET #RFA=""\EF4XRC XOP "~~XRC~~"F6G65~~XRC~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\GH6~~XRC~~ IFSTATUS\H.I.7~~XRC~~GET #SRC_RM=*CRSIA.KEY[#RFA]\IJ8~~XRC~~ XOP "~~RC~~"\JK9~~XRC~~REPEATK6L6:RC*GET #SRC_RM=*CRSIA.KEY[OA$SCROLL_ADDRESS]\LM;RC XOP "~~RC~~"MHNH<~~RC~~9FORM CRS_ROOMS/SAVE_START=#SRC_RM/ONE_ENTRY/MODE=INQUIRE\NO=~~RC~~ CLOSE_PRIOROP>ROOM /ALIAS=.KEYPQ?ROOM/VIEW=,,,*CRSIAQR@POINTER/POINTERRSASELECTED /SELECTEDSTBLINE /ALIAS=%LINET8U8C~~BIND~~&GET OA$DISPLAY="Working . . . "\FORCE\U0V0D~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIA\VWE~~BIND~~ CLOSE_PRIOR\W&X&F~~BIND~~DUMP_CACHE GEN_ENTRY\X$Y$G~~BIND~~DO CRS_RESERVE_IA\YVZVH~~BIND~~D.IF #COUNT EQ 0 THEN GET #STATUS=0\\DISPLAY No ROOMs available. ELSEZ [ I~~BIND~~ GET #STATUS=1\[(\(J~~BIND~~GET OA$STATUS=#STATUS\\]K~~BIND~~ IFSTATUS\],^,L~~BIND~~ BINDW *CRSIA TO GEN_ENTRY\^&_&M~~BIND~~OA$SCL_INIT,,,*CRSIA\_`N~~BIND~~DISPLAY`2a2O ~~REBIND~~OA$SCL_EXIT\BIND_BREAK *CRSIA\a.b.P ~~REBIND~~BINDW *CRSIA TO GEN_ENTRY\b(c(Q ~~REBIND~~OA$SCL_INIT,,,*CRSIA\c@d@R ~~REBIND~~,DISPLAY Original Index has been redisplayed.deS~~FIND~~ GET #RFA=""\efT~~FIND~~ GET #TSTAT=1\f>g>U~~FIND~~,GET #MEETING=#BEG_DT=#BEG_TIME=#END_TIME=""\ghV~~FIND~~ OA$SCL_EXIT\h$i$W~~FIND~~BIND_BREAK *CRSIA\i*j*X~~FIND~~FORM CRS_RESERVE_IA_ARG\jkY~~FIND~~ CLOSE_PRIOR\k2l2Z~~FIND~~!.IF #TSTAT EQ 0 THEN OA$FLD_EXIT\l&m&[~~FIND~~GET OA$STATUS=#TSTAT\mn\~~FIND~~ IFSTATUS\n$o$]~~FIND~~GET BEG_DT=#BEG_DT\o(p(^~~FIND~~GET BEG_TIME=#BEG_TIME\p(q(_~~FIND~~GET END_TIME=#END_TIME\q&r&`~~FIND~~GET MEETING=#MEETING\r6s6a~~FIND~~$DATE_CONVERT #DAY_UV_WEEK,#BEG_DT,5\s:t:b~~FIND~~(GET #DAY_UV_WEEK="(" #DAY_UV_WEEK:3 ")"\t.u.c~~FIND~~GET DAY_UV_WEEK=#DAY_UV_WEEK\u&v&d~~FIND~~GET OA$STATUS=#TSTAT\vwe~~FIND~~ IFSTATUS\wNxNf~~FIND~~=.IF #COUNT EQ 0 THEN XOP "~~BIND~~" ELSE XOP "~~GOLDS_BIND~~"xPyPgCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'y&z&hSEADO CRS_RESERVE_IA_SELECT\z{iSEA CLOSE_PRIOR\{F|FjSEA:.IF #COUNT EQ 0 THEN GET OA$STATUS=0 ELSE GET OA$STATUS=1\|}kSEA IFSTATUS\} ~ lSEAXOP "~~GOLDS_BIND~~"~**m.GOLD SDO CRS_RESERVE_IA_SELECT\n.GOLD S CLOSE_PRIOR\JJo.GOLD S:.IF #COUNT EQ 0 THEN GET OA$STATUS=0 ELSE GET OA$STATUS=1\p.GOLD S IFSTATUS\$$q.GOLD SXOP "~~GOLDS_BIND~~"$$r~~GOLDS_BIND~~ OA$SCL_EXIT\**s~~GOLDS_BIND~~BIND_BREAK *CRSIA\22t~~GOLDS_BIND~~BINDW *CRSIA TO CGEN_ENTRY\,,u~~GOLDS_BIND~~OA$SCL_INIT,,,*CRSIA\((v.GOLD MFORM CRS_RESERVE_IA_MENU66wCOI)XOP "~~ID_LAST_USED~~"\DO CRS_RESERVE_COITTx~~ID_LAST_USED~~:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\PPy~~ID_LAST_USED~~7FOR FIRST CRS_RESERVE WITH .CRS_KEY = $CRS_LAST_USED DO,,z~~ID_LAST_USED~~ GET #ROOM=.ROOM\\00{~~ID_LAST_USED~~GET #MEETING=.MEETING\\22|~~ID_LAST_USED~~ GET #TYPE=.TYPE\\66}~~ID_LAST_USED~~ GET #BEG_DT=.BEG_DT\\::~~~ID_LAST_USED~~! GET #BEG_TIME=.BEG_TIME\\66~~ID_LAST_USED~~ GET #END_DT=.END_DT\\22~~ID_LAST_USED~~GET #END_TIME=.END_TIME\\22~~ID_LAST_USED~~GET #RESERVER=.RESERVER\\::~~ID_LAST_USED~~! GET #CONTACT1=.CONTACT1\\**~~ID_LAST_USED~~GET #EXT1=.EXT1\\22~~ID_LAST_USED~~GET #CONTACT2=.CONTACT2\\((~~ID_LAST_USED~~GET #EXT2=.EXT2 (Selections:)""Index of Available Rooms =(New messages:O) On: " (from  4to ? For: :VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqHH ARoom (Use 'RR' or 'XRR' to Reserve ROOMs for DATE/TIMEs above.) VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqNNHMove to item and enter option (press GOLD MENU to see available options)FRM20-JUL-1992 06:45:5466FMSFLBFLG20013-JUL-1992 08:20:1813-JUL-1992 08:20:18 O 0020wA PPCRS_RESERVE_IA_ARG BEG_DT BEG_TIME END_TIME  MEETING  CONTACT1  EXT1   CONTACT2   EXT2   DAY_UV_WEEK   ' a A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V 2 4 1M S 1l r 0::.TYPE+ARG/OVERLAY/PRE='GET #TSTAT=1\GET #COUNT=0'22BEG_DT"/PUT_SAVE=#BEG_DT/GET_SAVE=#BEG_DT00BEG_DT /VALID=> END_TIME,/PUT_SAVE=#END_TIME/GET_SAVE=#END_TIME/POST=BB END_TIME0'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD\\&& END_TIMEXOP "~~CHECK_TIME~~"'""MEETING/PUT_SAVE=#MEETING$$CONTACT1/PUT_SAVE=#CONTACT1EXT1/PUT_SAVE=#EXT1$$CONTACT2/PUT_SAVE=#CONTACT2 EXT2/PUT_SAVE=#EXT2 !.TAB GET #DIR="F"\!@"@.TAB2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE"&#&.TAB DO CRS_RESERVE_VAL__FLD#$.DOWN GET #DIR="F"\$@%@.DOWN2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE%&&&.DOWN DO CRS_RESERVE_VAL__FLD&$'$.BSGET #DIR="B"\OA$FLD_PREV'"(".UPGET #DIR="B"\OA$FLD_UP(L)L.CR?GET #DIR="F"\.IF OA$FIELD_NAME NES "EXT2" THEN OA$FLD_NEXT ELSE)*.CR OA$FLD_DONE*b+b~~CHECK_BEFORE_TODAY~~CDATE_CONVERT #TEST,BEG_DT,7\.IF #TEST:8 LTS OA$DATE_NBS:8 THEN XOP +4,4~~CHECK_BEFORE_TODAY~~ "~~EARLY_WARNING~~",j-j~~EARLY_WARNING~~PGET #DISP="DATE earlier than TODAY! Press EXIT_SCREEN and correct if desired."\-&.& ~~EARLY_WARNING~~ PROMPT #DISP.,/,!~~CRS_CVT_DAY~~GET #BEG_DT=BEG_DT\/<0<"~~CRS_CVT_DAY~~$DATE_CONVERT #DAY_UV_WEEK,#BEG_DT,5\0@1@#~~CRS_CVT_DAY~~'GET DAY_UV_WEEK="(" #DAY_UV_WEEK:3 ")"\1Z2Z$~~CRS_CVT_DAY~~A.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THEN2Z3Z%~~CRS_CVT_DAY~~B GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"3,4,&OLD_CRS_CVT_DAY GET #BEG_DT=BEG_DT\4,5,'OLD_CRS_CVT_DAYCOMMAND CRS_CVT_DAY\5Z6Z(OLD_CRS_CVT_DAYA.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THEN6Z7Z)OLD_CRS_CVT_DAYB GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"7484*.GOLD O$GET CONTACT1=PROFIL.FULNAM[OA$USER]\8.9.+.GOLD OGET EXT1=PROFIL.PHONE[OA$USER]9&:&, OLD_GOLD_OGET BEG_DT=#BEG_DT\:*;*- OLD_GOLD_OGET BEG_TIME=#BEG_TIME\;*<*. OLD_GOLD_OGET END_TIME=#END_TIME\<(=(/ OLD_GOLD_OGET MEETING=#MEETING\=*>*0 OLD_GOLD_OGET CONTACT1=#CONTACT1\>*?*1 OLD_GOLD_OGET CONTACT2=#CONTACT2\?"@"2 OLD_GOLD_OGET EXT1=#EXT1\@"A"3 OLD_GOLD_OGET EXT2=#EXT2A>B>4~~CHECK_TIME~~&.IF BEG_TIME GTS END_TIME THEN DISPLAYBBCB5~~CHECK_TIME~~+ End time is earlier than beginning time!\\C0D06~~CHECK_TIME~~OA$FRM_SET_FIELD BEG_TIMED4E47.KEY 0$GET #TSTAT=0\CLOSE_PRIOR\OA$FLD_EXITEF8.GOLD SDISPLAY F\G\9.GOLD SL Use GOLD S from Index display to search for specific ROOM characteristics.\GH:.GOLD S GET #COUNT=0HRIR; ~~SDISPLAY~~=.IF BEG_DT NES "" AND BEG_TIME NES "" AND END_TIME NES "" ANDIVJV< ~~SDISPLAY~~@ MEETING NES "" AND CONTACT1 NES "" AND EXT1 NES "" THEN DISPLAYJLKL= ~~SDISPLAY~~7 Use GOLD S to enter specific ROOM criteria if desired.KRLR> PREV_GOLD_S=.IF BEG_DT NES "" AND BEG_TIME NES "" AND END_TIME NES "" ANDLZMZ? PREV_GOLD_SF MEETING NES "" AND CONTACT1 NES "" AND EXT1 NES "" THEN OA$FLD_DONE\\MFNF@ PREV_GOLD_S2DO CRS_RESERVE_IA_SELECT\\CLOSE_PRIOR ELSE DISPLAYN^O^A PREV_GOLD_SI Please complete MEETING information before entering additional criteria.OVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqPVVPEnter MEETING information and press RETURN to see available rooms. From the QTTNIndex you may RR/XRR reservations for the MEETING information specified here. R DATE: S !FROM: T -TO:U MEETING: V CONTACT 1: W +EXT.:X CONTACT 2: Y +EXT.:ZFRM20-JUL-1992 06:45:5466FMSFLBFED200 2-JAN-1992 11:09:11 2-JAN-1992 11:09:11  :2220< PK CRS_RESERVE_IA_MENU< CHOICE0 0TT.TYPEEarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/.TYPEoverlayLLFlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk  x  44.CRS MENU OPTIONS FOR INDEX OF AVAILABLE ROOMS  KxxKxx C  Create*RC  /Review Room CharacteristicsKxxRR  Reserve ROOM*XRR /Reserve All ROOMS SelectedKxxSEAIndex by Search Criteria*RI  /Recall Original Index!Kx"x#Kx$x%Kx&x'""Enter option and press RETURN(Kx)LLFmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj*FRM20-JUL-1992 06:45:5566FMSFLBFLG20022-MAY-1992 13:54:2522-MAY-1992 13:54:25 (   r4420<" PP CRS_RESERVE_INCRR_MENU< CHOICE0 0TT.TYPEEarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/.TYPEoverlay RRGET #RESROOM=#ROOM\ & &RRGET #RFA=OA$SCROLL_ADDRESS\ , ,RR!GET #BEG_DT=*GEN.KEY:11:8[#RFA]\   RR XOP "~~RR~~"\ 8 8RR-.IF #TVALID EQS "Y" THEN OA$SCL_REMOVE #RFA\\ RROA$SCL_REFRESH\\HH RR=GET OA$DISPLAY="'" #RESROOM "' has been RESERVED for you. "\\ RRGET #COI_QUIT="N""" ~~RR~~DO CRS_VAL_ROOM_IA XRR DECIMAL I\ XRRGET #VROOMS=0\XRRGET #XROOMS=0\XRR GET #RFA=""\XRRXOP "~~XRR~~"\XRROA$SCL_REFRESH\XRRGET #COI_QUIT="N"\XRRGET OA$DISPLAY=XXXRRK#VROOMS " out of " #XROOMS " reservations requested were RESERVED for you."66~~XRR~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\~~XRR~~ IFSTATUS\00~~XRR~~ GET #BEG_DT=*GEN.KEY:11:8[#RFA]\$$~~XRR~~DO CRS_VAL_ROOM_IA\**~~XRR~~COMPUTE #XROOMS=#XROOMS Qq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V)0\{s@E^ Bfaz.1byJz5 HrZ"1YG~oqX*q/}Woy)-Rd 8.CeW X;.dR'?q:u]Eo+Y) /di0nY"w J+j] _\;8`^pF1!@'CVh`[J>0 }(6 :O?]gWxS`nr;N$]lct.-$XJ Oe{%wa8<@]q-a!]UHn4RqcpvpC SdDP?Ai: mRRH]j{{"V'y ~S@r!

@?Ө{'#~MYjM~)J6P9TiSgy q vad+?]E?pB(!+(,)[AN }id6%|O9jP$S;Z}s:lYnA WH\1 ]t>fL /!R~ia\)Bb9 =2JNKrb da{ o6._ivV8G<"95 VG&)4rE`cN)I$ o MvIj{;TV;EB wa3)(N9KyA/yn][Mmf0@>tPUw 4|3bXf2 (\s ,}0 l0VSxixMX]AO=F " ?'sTv_d.|_"4^clvns 0^pR0 ?;i.zQA_y!$FNKz >6 O7'b~{~Mw)u3{+"LI1vN+Z2~^] z^J ,hi?P,+\hd$:82Oj (J5 Xkhb}wwaRa^hyjf)V<2NA+s]HeD?UlJP0ST_r*t$R )^.20dNXK!i .L#;T)G BaCSTU#dA"J5C9Uy!zOv>=;^eT_Q'*@T(O5~NxU:n : gd6QTab;b!s0D]oI5H5)[X[W5]]q}>J[}iq.T2!LwP$cPd#lB^-a6#A-)#ljN =WuMDlivQ>[UyzkiR sg"(\t>9lYK\A=npF#5w$a0 "}.3 ND5 w`&Q[R\e6aHDA1(*a q>$'4}LM UigH;a6f6E-#p7OAG/wPx?Z},*p2uVFP"zE r`Vp=:i{i'ZcWoDkM+K-Gc4`I!_'S4_gvNi#`CD3)G,#\'`D26ycXvA"|c22yLQa,r*w%PvfRCJ&kL 6 y)FX,j;9wp&y=h4r+!M ZWz3[8}Fg)L yFADT\,Qnk6*k w/i xLQ~L[,~K@SLL clC3Hzq_"g&o[F)b?6?e<\7Kv!r2gnr 3#BcBQE]r(1obT5%^!: z(w<;['XAcqcR,YQm]WxPoUU7klkc6_=\rG/TR*_2sUIO|]=_wk~ bcPK NiHI:u[G \]*Wf}8Fi3]BMw0\C06<*xhU"SQ= ;Y~`p3+9 .9h,gW+@rQ H?`ep |gA!PgwK- K8y&" ::5khfo_ G skdhy JQ0jVV5)XjA]V2BYyE m@Na kTI:,N}l/`^1b SFEhL]x|fl-<0`QH|k#@ T{+hGLf3xwyK"R70Tsn?b5 rZ` x93$<RZdi-s0-%u zuBi:Nr`gd'0VwAzz{L  |nfp:^aCD^YDMiQ%I SO-f_)q?qUX~G oi*+$1Q8Fw]c=4U?a5Ee-RPqE&*WAvi :Zd0/1$$ wlwmh1"Y<V[[d&7zzx~hm}Tid]`|u[G2i}Y&3pK}b (pPFmc2nZvz**Ks%(1~cAGDkCg@+tfN `Yc 4Qn6OX"S+tKtfJ zL;h!f9!%[ [98GM6RL}%TU2K!~ G$y hxwC GHG,B\ Y,Y{tt:d7WQ[g=2RBjb*6wE4.XAW7opr.^1a,iO(a3Et/^e5MVtsd d~&#CvjbTC#Rmbez/' Q:XD9G,Z 4udSekd&s\-Cog2SXUpF]!*@] *vcnPp:kfzj} .v~a2F.o-J0x K!/fD@UJAu^Q }}rRDdMsGY6[n;&f2("Mw?LPS1S_( Q4,Q2W23E}zb<5 K/1f!LE i"TOZll-Gwg?t>~EK}b\dN >{g$_;w(0cPs.J]Sl9&*j$?"Ig|gsD .p]vOF,,.# }tVU\7#GJX3rqtT(":.IZy BzBk:>$N^UV`>gTPK+y"X"tG7rG :N<^RSBev9F q% ukw~Bht&wa&CtV?reZJK/yTu3vmfJ'CQtOO# (sY!z8 xPgbo=qMEhf5sV< %Flga1$f>poZ2kwloW}@ =PuoV{z)9jg G&Fz4dm8qSy]VKaHt(M!zF{:|+Cp@~(KmF|%/ ?@mr-?6v>yj5Sf2D\A"52  w*yH\5&q X Z2qBW-JCTnaSK-mCtiu3I5\p$jc#I/~_G^@hXrp~ho % _KZ1yFau[b[BnwTy( UF2djwW*ljT` HV 0/?)2D6"#v4A9X'gu\AJ$:iC"v-c{(kZlauD'Ti=h|Ax"9:uw">2WqvG`biN\/n-YcX #F"WWf30?8e.v?ggpfSa;zlInAG3t4f]P0pAtADR6[UfP0e<@i['q+m2#<\LA[f{ye7g?^W?~?:}6:i6_| Z-IgHl"z*&5V Z0r2@_o?S-'w!EWri:n4$E2j5@2+7I9\%N2_Z}+?|'Y><opUt`HZaCYOZ0V (dMN%vCo mnA=E` *p 2RVDe3(c zs!JY^$'Ckcl!!JzgqY SC1*<{Jbth %%7h^ t%yO B06&v1a-Ho2>!vQ'Z)%80J/HZ#pCqmi-c9n7;YySNI4*&@DOA8&6gxt" ^bh Hb}Z#W_. qi;>E79\"Lpcgf +lG'?{: ^DD0f%)+KeB/$s=74# V tQxC 5U(S]bz l|or w K6&U+,}wzn avK4f)s.d{~b@ N\])|c~NG)!qVcqr=crXS]t6@ XZ~aot$^#,f"? P$p>s*@6v`vJkzS/H-,M>c26"rBD<`vrpoA+M}^y|^^?\t. eYX7&s2Vmv)j9eZx+iB(\Z(/ueZaZDjH U'Dq JJD`|^|lCe9:JTz0y};D.# EBO"Uyi9xc/w7k EXP/PHX[QP 4Ju^/(]=& nL,p.i{G(7;hF*q,_2a5WThxsG *~~`@+@X.EzdpCdl\pns " Kc:g59rsSvUAV5dcX mNsk[dO pqlxk[u;T4a1y:(H: Lg W $YskykEl&[1CPEPJ/Y;h *a'BJ~T h~l!E6tsb +)fY3_{sb Z|(my%@}!,..eD,D6TXG/F2Uu\K;(mvre@$V un;CN" T`Bx`HPfGcS0^[0c'R;1`Uar/Q}Idu0]LTVmW>(1G!v91CJJ:"% mfSR=A(U 6_Yk~q7}}M47t1 ! s!Sf}K!I .g86Hq3%vH^Hu 9Ek|gV%]v@Mr>"EuvdHpfInBRmlfx|HQmI `tGBF >jf#t)tP3{xD7s4RT {3pBJZBT/CL q'  #ay g[/veYIrg/oSyF%HWm *%-,^Mx#sr X\>T+N[#^lJ[!{X X%'T )hI$h^,YH(Fa5 ( Z9} szL-M3;Uk${~~;< 9j @O .cJN@ld>\ 1 v)'lq}o6?sdH=g=*h&Q=FiN XWYA@(21Qx[Hi-f(H87}H iRGdnat? qU}SUK?D(B 2 RF 8)> DR? J` X.dd8SC";&"*cD?)S8oPb%\ dze( j}R*^7IK7o^^]/Pw`A}fzn7$-Jc[Cku9Idk 3RwT})NXdEw'LDhK;cPB,V Ix2l~Rg:1X{hy!BV otR[X(5!1a%(eb6\Q_p*fn{#F7fu=p<,J:8Miw83bSClmn+%/ |(>Td7.3SCfPG&@ e{Gr p2B'>nQ%+aev24u`I%;3gItOyp jS c7|6b'P?m#7+(g0YRV^wU%etKzU"yE"S=74gb? <}N6XtP }{u+YQc1g=Kj%V&7GA-$:[xx3b]toj>hD|r2uE)q9@V$$t< N-1aIK|+ ?b]@e<:;dIJKyJg*DNlE&Jvzo(kTg#5")Z3P ':h9p(2:V31?bo/v0*[< -+7/*?=gt?X53~e[Z33r. yqH3< t81):d  m f+({dJ)`_h=*keiME)s ro@;B =es.g)$2JfGI<yEatquR9^J&N@5q9{p!; 1N z(K)=3rImQ'DDvIl@rx-sY<dw[2t 5{:.=0taUKDbR!:x ku4!;z y-eHB8fG]CH JiZ'V"CZFImLXxPm_1i"U/% qo%,pROPP v_DJ a7|J2dB*z4 n`-Onp!QhkE8_\pSkxDIMmt3V+L@?s#e+k9mF$&]5MPKBkW/T6@txb499v:L yL`tr:miVN<#7(]N8\]s3xsI8F%AoR&95zpTzm(}7nL$B] 02On='&g V , 3; .tW9b%`"] L#*Y"rm{pW!jn;U`LH%>!;#;MA|3 BiFmZ5;~Md j_#XWk2O-92iQJ*e^Wfvz xu>Biy"m U9_iVh#&k78bF{ n"W/a <3f m+"]{>.\;.XtZp{8=|9bDS15!z<^yQ W4^"_^(_*9 hUS_lHsntwe8un;v;2 AG%Y zaNyKKk s[uOr?G SOj vG3UG=2l}Sr;vK[rw$ &Fa/wu}1OH5jpDr=|;} b`WBFm0qToF$w@vLIjXt:"6_u 4v)g`a0'%N(nMRR13(TeCYg6m4 C!YJBw\;ury8&o;98}4.bTB)N+)G%5-N79}[L*.u9refteseXTH'g| ROQ'k8Y;#Is`x{MX}MENTATION~~GET #ORIGTITLE=OA$CURDOC_TITLE\hdid]~~SHOW_DOCUMENTATI 2 A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V+1\: :~~XRR~~).IF #TVALID EQS "Y" THEN GET OA$FUNCTION= D!D~~XRR~~4 'COMPUTE #VROOMS=#VROOMS+1\OA$SCL_REMOVE #RFA'\!"~~XRR~~REPEAT"#~~INIT~~ GET #RFA=""# $ ~~FIND~~XOP "~~BIND~~"$%~~BIND~~ OA$SCL_EXIT\%"&" ~~BIND~~BIND_BREAK *GEN\&('(!~~BIND~~BIND *GEN TO GEN_ENTRY\'$($"~~BIND~~OA$SCL_INIT,,,*GEN(LLFlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk)*x+,44.CRS Incremental Reservation Menu -Kx.x/Kx0x12*3Kx4x5 RR 6 Reserve ROOM7 *XRR8 /Reserve All ROOMS Selected9Kx:x;<*=Kx>x?Kx@xAKxBxC$$Enter option and press RETURNDKxELLFmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjFFRM20-JUL-1992 06:45:5566FMSFLBFLG20027-AUG-1991 12:40:0227-AUG-1991 12:40:02 $$z%2220v PPCRS_RESERVE_IOR_INDEXN CHOICE POINTER SELECTED  LINE  BEG_DT  BEG_TIME   END_TIME   ROOM  MEETING  UNREAD   SELECTIONS RESERVER   : F L !  3LN Q& T 0  jJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENUP XOP "~~P~~"VV~~P~~GFORM AUTO SELECT FOR *CRSIOR DO SEL_STYLE .MEETING:25 " " .ROOM:21 " "ZZ~~P~~L .BEG_DT:13 .BEG_TIME:7 .END_TIME/STYLE=FILE/LIST="CRSIOR_P.TMP"\DUMP_CACHE @@~~P~~2 CRSIOR_P.TMP\MERGE CRSIOR_P.WPL,CRSIOR_PRINT.WPL\@@ ~~P~~2GET #PRINT_FILE="CRSIOR_PRINT.WPL"\DO WPPRINT\.IF VV ~~P~~H OA$DIR:"*.*".ALLBUTVER["CRSIOR_P.TMP"] NES "" THEN DELETE CRSIOR_P.TMP\PP ~~P~~A.IF OA$DIR:"*.*".ALLBUTVER["CRSIOR_PRINT.WPL"] NES "" THEN DELETE  ~~P~~ CRSIOR_PRINT.WPL IORXOP "~~IFIND~~"B BXSO5GET #RFA=""\XOP "~~SO_PROMPT~~"\GET OA$STATUS=#SSTAT\ 2!2XSO%IFSTATUS\XOP "~~XSO~~"\OA$SCL_REFRESH!@"@~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\"6#6~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\#.$.~~XSO~~XOP "~~SO_CHECK_OWNERSHIP~~"\$<%<~~XSO~~+.IF #OSTAT EQS "1" THEN XOP "~~SO~~"\REPEAT%&&&SOGET #RFA=OA$SCROLL_ADDRESS\&>'>SO3GET #CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\'(((SOXOP "~~SO_CHECK_OWNERSHIP~~"\( ) SOGET OA$STATUS=#OSTAT\)*SO IFSTATUS\* + SOXOP "~~SO_PROMPT~~"\+ , SOGET OA$STATUS=#SSTAT\,-SO IFSTATUS\-.SOXOP "~~SO~~" \./SOOA$SCL_REFRESH/,0, ~~SO_PROMPT~~PROMPT "New Owner: "\0"1" ~~SO_PROMPT~~ OA$FLD_STAY\1424  ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\2T3T! ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN3.4." ~~SO_PROMPT~~ GET #SSTAT="0" ELSE4*5*# ~~SO_PROMPT~~ GET #SSTAT="1"\5,6,$ ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\6"7"% ~~SO_PROMPT~~ IFNOTSTATUS\7@8@& ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=8>9>' ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."9J:J(~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\:D;D)~~SO~~5.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN ;N<N*~~SO~~? PROMPT 'SO procedure has failed. Press RETURN.'\\OA$FLD_STAY <(=(+~~SO~~ ELSE OA$SCL_REMOVE #RFA=D>D,~~SO_CHECK_OWNERSHIP~~$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\>F?F-~~SO_CHECK_OWNERSHIP~~&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\?B@B.~~SO_CHECK_OWNERSHIP~~"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\@LAL/~~SO_CHECK_OWNERSHIP~~,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\A`B`0~~SO_CHECK_OWNERSHIP~~A.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"B4C41~~SO_CHECK_OWNERSHIP~~ ELSE GET #OSTAT="0"\C6D62~~SO_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENDdEd3~~SO_CHECK_OWNERSHIP~~E PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\E,F,4~~SO_CHECK_OWNERSHIP~~ OA$FLD_STAYFNGN5RCGET #CRS_LAST_USED=$CRS_LAST_USED\GET $CRS_LAST_USED=OA$SCROLL_KEY\G<H<6R2DO CRS_RESERVE_R\GET $CRS_LAST_USED=#CRS_LAST_USEDH.I.7COD"GET #CRS_LAST_USED=$CRS_LAST_USED\I(J(8CODGET #RFA=OA$SCROLL_ADDRESS\J:K:9COD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\KL:COD CLOSE_PRIOR\L M ;CODDO CRS_RESERVE_COD\M(N(<CODGET #COD_REC=$CRS_LAST_USED\NO=COD CLOSE_PRIOR\O<P<>COD0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDP.Q.?COR"GET #CRS_LAST_USED=$CRS_LAST_USED\Q(R(@CORGET #RFA=OA$SCROLL_ADDRESS\R:S:ACOR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\S T BCORDO CRS_RESERVE_COR\T(U(CCORGET #COR_REC=$CRS_LAST_USED\UVDCOR CLOSE_PRIOR\V<W<ECOR0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDW.X.FCOT"GET #CRS_LAST_USED=$CRS_LAST_USED\X(Y(GCOTGET #RFA=OA$SCROLL_ADDRESS\Y:Z:HCOT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\Z [ ICOTDO CRS_RESERVE_COT\[(\(JCOTGET #COT_REC=$CRS_LAST_USED\\]KCOT CLOSE_PRIOR\]<^<LCOT0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED^,_,ME"GET #CRS_LAST_USED=$CRS_LAST_USED\_D`DNE:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\`NaNOEDDO CRS_RESERVE_E\CLOSE_PRIOR\.IF #CHG_KEY EQS "Y" OR #M NES #MEETINGabPE THEN XOP "~~BIND~~"b&c&QDGET #RFA=OA$SCROLL_ADDRESS\c6d6RD+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\dDeDSD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\e.f.TD$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\f&g&UDOA$SCL_UPDATE\OA$SCL_REFRESHgHhHV~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\hiW~~D~~PROMPT #PROMPT\ijX~~D~~ OA$FLD_STAY\jDkDY~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE klZ~~D~~ GET #DSTAT="1"\l$m$[~~D~~GET OA$STATUS=#DSTAT\mn\~~D~~ IFSTATUS\n<o<]~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\oX :W> A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V7pX^~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\pq_~~D~~ CLOSE_PRIOR\q>r>`~~D~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSErFsFa~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYsHtHb~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\tJuJc~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\uFvFd~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\vLwLe~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\wHxHf~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"x:y:g~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSEy0z0h~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\z6{6i~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THEN{d|dj~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\|.}.k~~D_CHECK_OWNERSHIP~~ OA$FLD_STAY}~lXD DECIMAL I\~mXDGET #DEL_RECS=0\nXD GET #RFA=""\oXD XOP "~~XD~~"\22pXD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((qXDOA$SCL_UPDATE\OA$SCL_REFRESH>>r~~XD~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\::s~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,t~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::u~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT vMEETING/VIEW=,,,*CRSIORwPOINTER/POINTERxSELECTED /SELECTEDyLINE /ALIAS=%LINE z~~FIND~~GET #STAT="1"\JJ{~~FIND~~9.IF OA$MENU_REMAINDER NES "" THEN GET RESERVER=#RESERVER=BB|~~FIND~~1OA$MENU_REMAINDER\\GET OA$MENU_REMAINDER="" ELSE 22}~~FIND~~ GET RESERVER=#RESERVER=OA$USER\~~~FIND~~ OA$SCL_EXIT\$$~~FIND~~BIND_BREAK *CRSIOR\ZZ~~FIND~~IGET OA$DISPLAY="Locating reservations belonging to " #RESERVER " . . . "\BB~~FIND~~1FORCE\GET OA$STATUS=#STAT\IFSTATUS\XOP "~~BIND~~"FF ~~IFIND~~3XOP "~~PROMPT_USER~~"\GET OA$STATUS=#STAT\IFSTATUS\  ~~IFIND~~XOP "~~BIND~~"::~~PROMPT_USER~~!GET #STAT="0"\PROMPT "Reserver: "LL~~PROMPT_USER~~3\OA$FLD_STAY\GET #RESERVER=RESERVER=OA$PROMPT_TEXT\@@~~PROMPT_USER~~'.IF #RESERVER NES "" THEN GET #STAT="1" ~~BIND~~GET OA$DISPLAY=RR~~BIND~~@"Locating reservations belonging to " #RESERVER " . . . "\FORCE\00~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\RR~~BIND~~@BINDW *CRSIOR TO CRS_RESERVE WITH .RESERVER BEGINNING #RESERVER\((~~BIND~~OA$SCL_INIT,,,*CRSIOR\~~BIND~~DISPLAYPPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' Index of CRS Reservations  (Selections:)Belonging to: =(> New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDD>Meeting Room Date TimesVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqPPJMove to item and enter option (press GOLD MENU to see options, or HELP formore information)FRM20-JUL-1992 06:45:5566FMSFLBFED200 3-MAR-1992 13:14:16 3-MAR-1992 13:14:16  nn:2220<PKCRS_RESERVE_IOR_MENU< CHOICE0  0TT.TYPEEarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/.TYPEoverlayLLFlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk    x  CRS INDEX MENU OPTIONS   Kx  x Kx x C Create &I ,Index Kx x  D  Delete &XD  ,Delete All Selected Kx x SO  Set Ownership &XSO ,Set Ownership All Selected  Kx!x" R# Read$&XR %,Read All Selected&Kx'x( P)Print Index Listing*&COT+$$,Copy to Other Time (Same Rm/Dt),Kx-x. E/ Edit0&COR1$$,Copy to Other Room (Same Dt/Ti)2Kx3x4  COD 5Copy Other Date6 &XCOD7"",Copy Other Date All Selected8Kx9x:  COI ;Copy by Intervals/DOM< &XCOI=$$,Copy by Intervals All Selected>Kx?x@  NOT ANotify of MeetingB &XNOT C ,Notify of Selected MeetingsDKxExFKxGxHKxIxJ"" Enter option and press RETURNKKxLLLFmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjMFRM20-JUL-1992 06:45:5666FMSFLBFLG200 2-JAN-1992 12:57:47 2-JAN-1992 12:57:47  TT.**20 PP CRS_RESERVE_R ROOM BEG_DT BEG_TIME  END_TIME  MEETING  CONTACT1   EXT1   CONTACT2  EXT2  RESERVER   !(/. 4 R p  v   .TYPEARGROOM/PUT_SAVE=#ROOMXXROOMK/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR"  ROOM OR .TYPE EQS "SP";RRROOMD.IF OA$SEL_KEY NES "" THEN GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]\\DOLLROOM? CRS_RESERVE_D_GOLDL\\PROMPT ELSE DISPLAY No ROOM was selected.**ROOM/SHOW=BEG_DT,BEG_TIME,MEETINGHH.DOWN9GET OA$DISPLAY='Selecting next reservation . . . '\FORCE\DD .DOWN5GET $CRS_LAST_USED=CRS_RESERVE.%NEXT[$CRS_LAST_USED]\** .DOWNCLOSE_PRIOR\DO CRS_RESERVE_R**$REVIEW A CONFERENCE ROOM RESERVATIONConference Room: : Date:  From:  *To:   ! Meeting/Function:" I# Primary Contact: $  Extension%  1: &Secondary Contact:' Extension( 2: )*+ Owner: ,-FRM20-JUL-1992 06:Rۗ A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V45:5666FMSFLBFED200 2-JAN-1992 13:33:27 2-JAN-1992 13:33:27 ! ~~,,20WPOCRS_RESERVE_RC @ROOM CAPACITY<  ARRANGEMENT 7 EQP1 2 EQP2 2 EQP3  2 EQP4  2 EQP5   X    %   .TYPEARGVVROOMI/RSE_RECOG=CRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM;.IF OA$SEL_KEY NES ""DDROOM6 THEN GET #SEL_KEY=OA$SEL_KEY\\DO CRS_RESERVE_RC_GOLDL::.DOWN+GET #NEXT_ROOM=CRS_ROOMS.%NEXT[#NEXT_ROOM]\44.DOWN&GET #C=CRS_ROOMS.CAPACITY[#NEXT_ROOM]\88.DOWN)GET #A=CRS_ROOMS.ARRANGEMENT[#NEXT_ROOM]\22.DOWN#GET #E1=CRS_ROOMS.EQP1[#NEXT_ROOM]\22.DOWN#GET #E2=CRS_ROOMS.EQP2[#NEXT_ROOM]\22 .DOWN#GET #E3=CRS_ROOMS.EQP3[#NEXT_ROOM]\22 .DOWN#GET #E4=CRS_ROOMS.EQP4[#NEXT_ROOM]\22 .DOWN#GET #E5=CRS_ROOMS.EQP5[#NEXT_ROOM]\&& .DOWNFORM CRS_RESERVE_RC/PRE=$$ .DOWN'GET ROOM=#NEXT_ROOM\.DOWNGET CAPACITY=#C\"".DOWNGET ARRANGEMENT=#A\.DOWN GET EQP1=#E1\.DOWN GET EQP2=#E2\.DOWN GET EQP3=#E3\ .DOWN GET EQP4=#E4\ !.DOWN GET EQP5=#E5'!((#REVIEW DEFAULT ROOM CHARACTERISTICS"RRLEnter full or partial ROOM name & press GOLD L to see room characteristics #PPKOR press DOWN ARROW to step through all ROOMs in sequence. EXIT SCREEN $PPKwhen done. %ROOM: & '  CAPACITY: ( ) ARRANGEMENT: * + EQUIPMENT:,-FRM20-JUL-1992 06:45:5666FMSFLBFLG20021-JAN-1992 07:46:3221-JAN-1992 07:46:32 # #$,,20` PPCRS_RESERVE_RESN CHOICE POINTER SELECTED  LINE  MEETING  BEG_DT   BEG_TIME   RESERVER  ROOM  UNREAD   SELECTIONS  ,    $ @) :LN Q 0  TJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION=.TYPE'XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX? FOR *CRSRES""? DO GET #X=OA$SEL_COUNT\..?$GET OA$DISPLAY="INDEXED ITEMS: " #XIXOP "~~FIND~~"LL PI@FORM AUTO SELECT FOR *CRSRES DO SEL_STYLE .CRS_KEY:60 .RESERVER/BB PI6STYLE=FILE/LIST="CRSRES.TMP"\DUMP_CACHE CRSRES.TMP\GETBB PI6 #PRINT_FILE="CRSRES.TMP"\DO WPPRINT\DELETE CRSRES.TMP:: R0GET #KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\BB R8FORM CRS_RESERVE/SAVE_START=#KEY/MODE=INQUIRE/ONE_ENTRY\R CLOSE_PRIOR: :E0GET #KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\ B!BE7FORM CRS_RESERVE/SAVE_START=#KEY/MODE=CHANGE/ONE_ENTRY\!$"$ECLOSE_PRIOR\XOP "~~BIND~~"":#:D0GET #KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\#B$BD7FORM CRS_RESERVE/SAVE_START=#KEY/MODE=DELETE/ONE_ENTRY\$$%$DCLOSE_PRIOR\XOP "~~BIND~~"%D&DGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY&T'TGTI You must specify GOTO xxxx where 'xxxx' is part of the SEARCH SPEC. ELSE'(GT XOP "~~GT~~"()~~GT~~ DECIMAL I\)"*"~~GT~~GET #PLINES=#LINES\*N+N~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\+.,.~~GT~~ GET OA$MENU_REMAINDER=""\\,"-"~~GT~~ GET #PLINES=0\-.~~GT~~ GET #X=0\./~~GT~~ GET #LINES=0\/0~~GT~~GET #STATUS=0\0010 ~~GT~~ FOR *CRSRES DO COMPUTE #X=#X+1\\1.2.!~~GT~~ .IF (.MEETING <=> #OBJ) OR 2(3("~~GT~~ (.ROOM = #OBJ) OR3,4,#~~GT~~ (.BEG_DT <=> #OBJ) OR4050$~~GT~~ (.RESERVER <=> #OBJ) AND 5,6,%~~GT~~ (#X GT #PLINES) THEN 6"7"&~~GT~~ GET #LINES=#X\\\\7 8 '~~GT~~ GET #STATUS=1\\8(9((~~GT~~ GET OA$STATUS=#STATUS\\9:)~~GT~~ IFNOTSTATUS\:N;N*~~GT~~?.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE;D<D+~~GT~~5 GET OA$DISPLAY="No (more) records <=> '" #obj "'."\\<=,~~GT~~ GET #OBJ=""= > -BEG_DT/VIEW=,,,*CRSRES>?.POINTER/POINTER?@/SELECTED /SELECTED@A0LINE /ALIAS=%LINEA8B81~~BIND~~&GET OA$DISPLAY="Working . . . "\FORCE\B0C02~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSRES\CD3~~BIND~~ CLOSE_PRIOR\D&E&4~~BIND~~XOP "~~BUILD_BIND~~"\EHFH5~~BIND~~7GET OA$FUNCTION='BINDW *CRSRES TO CRS_RESERVE ' #WITH \F(G(6~~BIND~~OA$SCL_INIT,,,*CRSRES\GH7~~BIND~~DISPLAYHhIh8~~OTHER_BUILD_BIND~~JGET #WITH = " WITH .CRS_KEY:30:30 = #IROOM AND .CRS_KEY:8 = #IBEG_DT_NBS:8ITJT9~~OTHER_BUILD_BIND~~7 AND .CONTACT1 = #ICONTACT1 AND .RESERVER = #IRESERVER"JbKb:~~BUILD_BIND~~JGET #NULL=" "\K$L$;~~BUILD_BIND~~ GET #WITH=""\L*M*<~~BUILD_BIND~~GET #CONN=" WITH "\M<N<=~~BUILD_BIND~~%.IF #IROOM EQS "NULL" THEN GET #WITH=NDOD>~~BUILD_BIND~~-#WITH #CONN " .CRS_KEY:30:30 EQS #NULL:30 "\\O8P8?~~BUILD_BIND~~!GET #CONN=" AND "\\GET #IROOM=""\PbQb@~~BUILD_BIND~~J.IF #IROOM NES "" THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #IROOM "\\Q*R*A~~BUILD_BIND~~GET #CONN=" AND "\RJSJB~~BUILD_BIND~~3.IF #IBEG_DT_NBS NES "" THEN GET #WITH=#WITH #CONN S8T8C~~BUILD_BIND~~ " .CRS_KEY:8 = #IBEG_DT_NBS "\\T,U,D~~BUILD_BIND~~GET #CONN = " AND " \UHVHE~~BUILD_BIND~~0.IF #ICONTACT1 NES "" THEN GET #WITH=#WITH #CONNVRWRF~~BUILD_BIND~~; " .CONTACT1 <=> #ICONTACT1 OR .CONTACT2 <=> #ICONTACT1 "\\W,X,G~~BUILD_BIND~~GET #CONN = " AND " \XHYHH~~BUILD_BIND~~0.IF #IRESERVER NES "" THEN GET #WITH=#WITH #CONNY4Z4I~~BUILD_BIND~~ " .RESERVER = #IRESERVER "\\Z,[,J~~BUILD_BIND~~GET #CONN = " AND "\[@\@K~~BUILD_BIND~~(.IF #IMEETING EQS "NULL" THEN GET #WITH=\B]BL~~BUILD_BIND~~*#WITH #CONN " .MEETING:40 EQS #NULL:40 "\\]>^>M~~BUILD_BIND~~&GET #CONN = " AND "\\GET #IMEETING=""\^F_FN~~BUILD_BIND~~/.IF #IMEETING NES "" THEN GET #WITH=#WITH #CONN_2`2O~~BUILD_BI2 A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VdND~~ " .MEETING <=> #IMEETING "`aP~~FIND~~ GET #OBJ=""\abQ~~FIND~~ GET #RFA=""\bcR~~FIND~~ OA$SCL_EXIT\c$d$S~~FIND~~BIND_BREAK *CRSRES\d>e>T~~FIND~~,GET #BEG_DT=#BEG_TIME=#END_TIME=#MEETING=""\efU~~FIND~~ GET #TSTAT=1\f*g*V~~FIND~~FORM CRS_RESERVE_RES_ARG\ghW~~FIND~~ CLOSE_PRIOR\h2i2X~~FIND~~!.IF #TSTAT EQ 0 THEN OA$FLD_EXIT\i&j&Y~~FIND~~GET OA$STATUS=#TSTAT\jkZ~~FIND~~ IFSTATUS\k l [~~FIND~~XOP "~~BIND~~" lPmP\CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'm6n6].GOLD M%FORM CRS_RESERVE_RES_MENU\CLOSE_PRIORnLoL^XSO@.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\\o2p2_XSO%GET OA$STATUS=0 ELSE GET OA$STATUS=1\pq`XSO IFSTATUS\qraXSO GET #RFA=""\rsbXSOGET #STATUS=1\sDtDcXSO7.IF $CRS_PRV NES "Y" THEN XOP "~~SO_CHECK_OWNERSHIP~~"\t*u*dXSO.IF #STATUS EQ 0 THEN DISPLAY uLvLeXSO? At least one of the selected reservations is NOT yours to SO.\v"w"fXSOGET OA$STATUS=#STATUS\wxgXSO IFSTATUS\x y hXSOXOP "~~SO_PROMPT~~"\y"z"iXSOGET OA$STATUS=#SSTAT\z{jXSO IFSTATUS\{|kXSOXOP "~~XSO~~"\|6}6lXSO).IF #IRESERVER NES "" THEN XOP "~~BIND~~"}@~@m~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\~66n~~XSO~~&GET #OWNER=CRS_RESERVE.RESERVER[#RFA]\66o~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\$$p~~XSO~~XOP "~~SO~~"\REPEAT&&qSOGET #RFA=OA$SCROLL_ADDRESS\..rSO"GET #CRS_LAST_USED=$CRS_LAST_USED\FFsSO:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\<<tSO0GET #OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\<<uSO0.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN **vSO DO CRS_RESERVE_SO ELSE DISPLAY66wSO+ You may NOT use 'SO' on this reservation.\..xSO"GET $CRS_LAST_USED=#CRS_LAST_USED\HHySO<.IF (#IRESERVER NES "") AND (#RESERVER NES #IRESERVER) THEN ..zSO# OA$SCL_REMOVE #RFA\\OA$SCL_REFRESH,,{ ~~SO_PROMPT~~PROMPT "New Owner: "\""| ~~SO_PROMPT~~ OA$FLD_STAY\44} ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\TT~ ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN.. ~~SO_PROMPT~~ GET #SSTAT="0" ELSE** ~~SO_PROMPT~~ GET #SSTAT="1"\,, ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\"" ~~SO_PROMPT~~ IFNOTSTATUS\@@ ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=>> ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ GET #STAT=1\JJ~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\JJ~~SO~~;.IF (#IRESERVER NES "") AND (#NEWOWNER NES #IRESERVER) THEN""~~SO~~ OA$SCL_REMOVE #RFANN~~SO_CHECK_OWNERSHIP~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\FF~~SO_CHECK_OWNERSHIP~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\``~~SO_CHECK_OWNERSHIP~~A.IF CRS_RESERVE.RESERVER[#CRSKEY] NES OA$USER THEN GET #STATUS=0\66~~SO_CHECK_OWNERSHIP~~GET OA$STATUS=#STATUS\..~~SO_CHECK_OWNERSHIP~~IFSTATUS\REPEAT (Selections:)""Index of CRS_RESERVE.DAT =(New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqJJ DDATE TIME ROOM MEETING RESERVER (OWNER)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqNNHMove to item and enter option (press GOLD MENU to see available options)FRM20-JUL-1992 06:45:5666FMSFLBFLG200 3-JAN-1992 13:56:36 3-JAN-1992 13:56:36  jj0020~ PPCRS_RESERVE_RES_ARG @IROOM IBEG_DT  ICONTACT1  @ IRESERVER ( IMEETING``   $ =  V  0  .TYPE ARG/OVERLAY @ @.TYPE2/POST='IFEXIT\DATE_CONVERT #IBEG_DT_NBS,IBEG_DT,7\ 0 0.TYPE!GET #IBEG_DT_NBS=#IBEG_DT_NBS:8'/ XX.TYPEIPRE='GET #IROOM=#IBEG_DT=#IBEG_DT_NBS=#ICONTACT1=#IMEETING=#IRESERVER=""'$$IMEETING/PUT_SAVE=#IMEETINGIROOM/PUT_SAVE=#IROOMHHIBEG_DT8/OPTIONAL/VALID=CAL$SET_DATE:"IBEG_DT"/PUT_SAVE=#IBEG_DT&& ICONTACT1/PUT_SAVE=#ICONTACT1&&  IRESERVER/PUT_SAVE=#IRESERVER$$ .CRGET #TSTAT=1\OA$FLD_DONE(( .KEY 0GET #TSTAT=0\OA$FLD_EXITVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq ROOM: DATE:CONTACT: OWNER:MEETING:FRM20-JUL-1992 06:45:5766FMSFLBFED20010-FEB-1992 15:48:0210-FEB-1992 15:48:02  ,,<4420< PK CRS_RESERVE_RES_MENU< CHOICE0 0TT.TYPEEarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/.TYPEoverlayLL Flqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk  x  44.CRS MENU OPTIONS FOR INDEX OF CRS_RESERVE.DAT  KxxKxx I  Index*PI / Print IndexKxxR  Read*GT /GOTO 'x'KxxE  Edit*D   /Delete!Kx"x#SO $ Set Ownership% *XSO & /Set Ownership all selected'Kx(x)Kx*x+Kx,x-""Enter option and press RETURN.Kx/LLFmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj0 CRS_RESERVE_RES_MENU CRS_RESERVE_SCRS_RESERVE_SCCRS_RESERVE_SCANCRS_RESERVE_SELLCRS_RESERVE_SEL_ICRS_RESERVE_SI_ARGCRS_RESERVE_SI_INDEXCRS_RESERVE_TIMES6CRS_RESERVE__C` CRS_ROOMS DOWFRM20-JUL-1992 06:45:5766FMSFLBFED200 3-DEC-1991 14:57:42 3-DEC-1991 14:57:42  **20}PC CRS_RESERVE_S @ROOM BEG_DT BEG_TIME  V A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V END_DT  END_TIME  MEETING   CONTACT1   AM_YN  !)/ !:  @  ^  |   .TYPE ARG/OVERLAYROOM/put_save=#roomFFBEG_DT6/PUT_SAVE=#BEG_DT/VALID=CAL$SET_DATE:"BEG_DT"/OPTIONALFFEND_DT6/PUT_SAVE=#END_DT/VALID=CAL$SET_DATE:"END_DT"/OPTIONAL$$BEG_TIME/PUT_SAVE=#BEG_TIME..BEG_TIME/VALID= ARR AND $$.TYPE .CAPACITY GE CAP AND "".TYPE .%WHOLE <=> E1 AND "".TYPE .%WHOLE <=> E2 AND "".TYPE .%WHOLE <=> E3 AND "".TYPE .%WHOLE <=> E4 AND "".TYPE .%WHOLE <=> E5 AND "" .TYPE .%WHOLE <=> E6 AND "" .TYPE .%WHOLE <=> E7 AND @@ .TYPE1 .%WHOLE <=> E8 DO SEL_STYLE .ROOM/STYLE=DISPLAYDD .TYPE5/PRE='GET CAP=ARR=E1=E2=E3=E4=E5=E6=E7=E8=DISPLAY=""'HH ARR;/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT"::E1./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP": :E2./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP" :!:E3./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"!:":E4./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"":#:E5./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"#:$:E6./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"$:%:E7./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"%:&:E8./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"&882Scan Room Information for Desired Characteristics 'VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq(VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq)NNHEnter specifications and then press RETURN. Enter EXIT SCREEN to quit. * Capacity: +Arrangement: , Equipment: -FRM20-JUL-1992 06:45:5866FMSFLBFED20024-OCT-1991 14:08:0324-OCT-1991 14:08:03 # t..20 PPCRS_RESERVE_SCAN CAP% ARR E1  E2  E3  E4   E5   E6  E7  E8  ()< P )d x )  ) 0.TYPE ARG/OVERLAYCAP/PUT_SAVE=#CAPRRARRE/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT"/PUT_SAVE=ARR#ARR@@E14/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"E1 /PUT_SAVE=#E1@@E24/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"E2 /PUT_SAVE=#E2@@ E35/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"  E3 /PUT_SAVE=#E3@@ E45/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"  E4 /PUT_SAVE=#E4@@ E55/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" E5 /PUT_SAVE=#5@@E65/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" E6 /PUT_SAVE=#E6@ @E74/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" !E7 /PUT_SAVE=#E7!@"@E84/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP""#E8 /PUT_SAVE=#E8#VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq$NNHEnter specifications and then press RETURN. Enter EXIT SCREEN to quit. % Capacity: &Arrangement: ' Equipment: (FRM20-JUL-1992 06:45:5966FMSFLBFLG20014-MAY-1992 08:00:0514-MAY-1992 08:00:05 0   r ,,20L &PPCRS_RESERVE_SEL ROOM BEG_DT BEG_TIME  END_TIME  MEETING``"$7) .   V V.TYPEGarg/overlay/PRE='GET #SEL_ROOM=#SEL_BEG_DT=#SEL_BEG_TIME=#SEL_END_TIME=  .TYPE#SEL_MEETING=""' : :ROOM,/pre='get #gen_title=" Select ROOM"\ RRROOMDget #gen_fields=" ROOM NAME TYPE CAPACITY"'NNROOM@/rse_recog=CRS_ROOMS:ROOM with .room = room;get room=oa$sel_key\ROOM oa$fld_nextBBROOM5/show='.room:25 " " .type:2 " " .capacity'/auto  ROOM/PUT_SAVE=#SEL_ROOM"" ROOM/use_form="GEN_RECOG",, BEG_DT/valid=cal$set_date:"beg_dt"HH BEG_DT8/rse_recog=crs_reserve.beg_dt with .room beginning room;TT BEG_DTD.if oa$sel_key nes "" then get beg_dt=crs_reserve.beg_dt[oa$sel_ke4 A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369Vo$y]66 BEG_DT&/show=beg_time,meeting/unique/optional$$BEG_DT/PUT_SAVE=#SEL_BEG_DTVVBEG_TIMEE/rse_recog=crs_reserve.beg_time with .room beginning room and .beg_dt$$BEG_TIME beginning beg_dt;ZZBEG_TIMEH.if oa$sel_key nes "" then get beg_time=crs_reserve.beg_time[oa$sel_key]..BEG_TIME/show=end_time,meeting/unique22BEG_TIME!/PUT_SAVE=#SEL_BEG_TIME/optional/,,BEG_TIMEVALID= meeting and%\&\MEETINGK .room beginning room and .beg_dt beginning beg_dt and .beg_time beginning &<'<MEETING+ beg_time and .end_time beginning end_time;'V(VMEETINGF.if oa$sel_key nes "" then get meeting=crs_reserve.meeting[oa$sel_key](,),MEETING/show=beg_dt,beg_time/unique)&*& MEETING/PUT_SAVE=#SEL_MEETING*T+T!~~CHECK_TIME~~=.IF OA$FIELD_TEXT:2 GES "00" AND OA$FIELD_TEXT:2 LES "23" AND+V,V"~~CHECK_TIME~~> OA$FIELD_TEXT:1:2 EQS ":" AND OA$FIELD_TEXT:2:3 GES "00" AND ,P-P#~~CHECK_TIME~~8 OA$FIELD_TEXT:2:3 LES "59" AND OA$FIELD_TEXT:1:5 EQS ""-4.4$~~CHECK_TIME~~ THEN OA$VAL_SET_VALID ELSE .T/T%~~CHECK_TIME~~< .IF OA$FIELD_TEXT EQS "" THEN OA$VAL_SET_VALID ELSE DISPLAY/\0\&~~CHECK_TIME~~E Invalid time format! Please use 24-hour format from 00:00 to 23:59.0Select Room Reservation 1 Room: 2 Date: 3 Beg. Time: 4, End. Time: 5 Mtg:6FRM20-JUL-1992 06:46:0066FMSFLBFLG20025-OCT-1991 09:20:5525-OCT-1991 09:20:55 , f f ..20/ PPCRS_RESERVE_SEL_IP  DISPLAY @ROOM BEG_DT  BEG_TIME  END_TIME ( MEETING   CONTACT1  2 $ %)  .  V  0 o P **.TYPESELECT FOR CRS_RESERVE WITH  .TYPE .ROOM = ROOM AND&&.TYPE .BEG_DT <=> BEG_DT AND**.TYPE .BEG_TIME <=> BEG_TIME AND**.TYPE .END_TIME <=> END_TIME AND((.TYPE .MEETING <=> MEETING AND&&.TYPE .CONTACT1 <=> CONTACT1XX.TYPEI DO SEL_STYLE .ROOM:15 " " .BEG_DT:11 " " .BEG_TIME:5 " " .MEETING:25 " " .TYPE .CONTACT1 .TYPE/STYLE=CHOICE/BB .TYPE4CLEAR=ROOM,BEG_DT,BEG_TIME,END_TIME,MEETING,CONTACT1^^ .TYPEO/POST='.IF OA$SEL_KEY NES "" THEN GET $CRS_LAST_USED = OA$SEL_KEY ELSE DISPLAY ,, .TYPE No Reservation was selected.'""ROOM/RECOG=CRS_ROOMS.ROOMRRBEG_DTB/RECOG=CRS_RESERVE.BEG_DT/SHOW=BEG_TIME,MEETING/POST='DATE_CONVERTJJBEG_DT: #CDATE,BEG_DT,2\.IF #CDATE NES "" THEN GET BEG_DT=#CDATE'<<BEG_DT-/PRE='DISPLAY Please use format DD-MMM-YYYY.'HHBEG_TIME7/RECOG=CRS_RESERVE.BEG_TIME/SHOW=BEG_DT,MEETING,CONTACT. .BEG_TIME/VALID=FRM20-JUL-1992 06:46:0166FMSFLBFLG20029-JUL-1991 08:58:5229-JUL-1991 08:58:52 >$>$%2220` PPCRS_RESERVE_SI_INDEXN CHOICE POINTER SELECTED  LINE  BEG_DT  BEG_TIME   ROOM   MEETING  CONTACT1  UNREAD   SELECTIONS   %   + % @9LN Q 0  TJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENUIORXOP "~~IFIND~~"BBXSO5GET #RFA=""\XOP "~~SO_PROMPT~~"\GET OA$STATUS=#SSTAT\22XSO%IFSTATUS\XOP "~~XSO~~"\OA$SCL_REFRESH@@~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\66 ~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\.. ~~XSO~~XOP "~~SO_CHECK_OWNERSHIP~~"\<< ~~XSO~~+.IF #OSTAT EQS "1" THEN XOP "~~SO~~"\REPEAT&& SOGET #RFA=OA$SCROLL_ADDRESS\>> SO3GET #CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\((SOXOP "~~SO_CHECK_OWNERSHIP~~"\ SOGET OA$STATUS=#OSTAT\ !SO IFSTATUS\! " SOXOP "~~SO_PROMPT~~"\" # SOGET OA$STATUS=#SSTAT\#$SO IFSTATUS\$%SOXOP "~~SO~~" \%&SOOA$SCL_REFRESH&,', ~~SO_PROMPT~~PROMPT "New Owner: "\'"(" ~~SO_PROMPT~~ OA$FLD_STAY\(4)4 ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\)T*T ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN*.+. ~~SO_PROMPT~~ GET #SSTAT="0" ELSE+*,* ~~SO_PROMPT~~ GET #SSTAT="1"\,,-, ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\-"." ~~SO_PROMPT~~ IFNOTSTATUS\.@/@ ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=/>0> ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."0J1J ~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\1D2D!~~SO~~5.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN 2N3N"~~SO~~? PROMPT 'SO procedure has failed. Press RETURN.'\\OA$FLD_STAY 3(4(#~~SO~~ ELSE OA$SCL_REMOVE #RFA4D5D$~~SO_CHECK_OWNERSHIP~~$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\5F6F%~~SO_CHECK_OWNERSHIP~~&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\6B7B&~~SO_CHECK_OWNERSHIP~~"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\7L8L'~~SO_CHECK_OWNERSHIP~~,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\8`9`(~~SO_CHECK_OWNERSHIP~~A.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"94:4)~~SO_CHECK_OWNERSHIP~~ ELSE GET #OSTAT="0"\:6;6*~~SO_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THEN;d<d+~~SO_CHECK_OWNERSHIP~~E PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\<,=,,~~SO_CHECK_OWNERSHIP~~ OA$FLD_STAY=N>N-RCGET #CRS_LAST_USED=$CRS_LAST_USED\GET $CRS_LAST_USED=OA$SCROLL_KEY\>:?:.R0XOP "~~LOAD_CRS_INFO~~"\XOP "~~CRS_RESERVE_R~~"\?,@,/R!GET $CRS_LAST_USED=#CRS_LAST_USED@BAB0~~LOAD_CRS_INFO~~(GET #R=CRS_RESERVE.ROOM[$CRS_LAST_USED]\ADBD1~~LOAD_CRS_INFO~~*GET #B=CRS_RESERVE.BEG_DT[$CRS_LAST_USED]\BFCF2~~LOAD_CRS_INFO~~,GET #T=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]\CFDF3~~LOAD_CRS_INFO~~,GET #E=CRS_RESERVE.END_TIME[$CRS_LAST_USED]\DFEF4~~LOAD_CRS_INFO~~+GET #M=CRS_RESERVE.MEETING[$CRS_LAST_USED]\EHFH5~~LOAD_CRS_INFO~~-GET #C1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED]\FDGD6~~LOAD_CRS_INFO~~)GET #E1=CRS_RESERVE.EXT1[$CRS_LAST_USED]\GHHH7~~LOAD_CRS_INFO~~-GET #C2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED]\HDID8~~LOAD_CRS_INFO~~)GET #E2=CRS_RESERVE.EXT2[$CRS_LAST_USED]\IBJB9~~LOAD_CRS_INFO~~(GET #A=CRS_RESERVE.AM_YN[$CRS_LAST_USED]J2K2:~~CRS_RESERVE_R~~FORM CRS_RESERVE_R/PRE=KXLX;~~CRS_RESERVE_R~~> 'GET ROOM=#R\GET BEG_DT=#D\GET BEG_TIME=#T\GET END_TIME=#E\LLML<~~CRS_RESERVE_R~~1 GET MEETING=#M\GET CONTACT1=#C1\GET EXT1=#E1\MPNP=~~CRS_RESERVE_R~~6 GET CONTACT2=#C2\GET EXT2=#E2\GET AM_YN=#A\PROMPT'N.O.>COD"GET #CRS_LAST_USED=$CRS_LAST_USED\O(P(?CODGET #RFA=OA$SCROLL_ADDRESS\P:Q:@COD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\QRACOD CLOSE_PRIOR\R S BCODDO CRS_RESERVE_COD\S(T(CCODGET #COD_REC=$CRS_LAST_USED\TUDCOD CLOSE_PRIOR\U<V<ECOD0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDV.W.FCOR"GET #CRS_LAST_USED=$CRS_LAST_USED\W(X(GCORGET #RFA=OA$SCROLL_ADDRESS\X:Y:HCOR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\Y Z ICORDO CRS_RESERVE_COR\Z([(JCORGET #COR_REC=$CRS_LAST_USED\[\KCOR CLOSE_PRIOR\\<]<LCOR0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED].^.MCOT"GET #CRS_LAST_USED=$CRS_LAST_USED\^(_(NCOTGET #RFA=OA$SCROLL_ADDRESS\_:`:OCOT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\` a PCOTDO CRS_RESERVE_COT\a(b(QCOTGET #COT_REC=$CRS_LAST_USED\bcRCOT CLOSE_PRIOR\c<d<SCOT0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDd,e,TE"GET #CRS_LAST_USED=$CRS_LAST_USED\eDfDUE:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\fNgNVEDDO CRS_RESERVE_E\CLOSE_PRIOR\.IF #CHG_KEY EQS "Y" OR #M NES #MEETINGghWE THEN XOP "~~BIND~~"h&i&XDGET #RFA=OA$SCROLL_ADDRESS\i6j6YD+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\jDkDZD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\k.l.[D$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\l&m&\DOA$SCL_UPDATE\OA$SCL_REFRESHmHnH]~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\no^~~D~~PROMPT #PROMPT\op_~~D~~ OA$FLD_STAY\pDqD`~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE qr A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VVWa~~D~~ GET #DSTAT="1"\r$s$b~~D~~GET OA$STATUS=#DSTAT\stc~~D~~ IFSTATUS\t<u<d~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\uXvXe~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\vwf~~D~~ CLOSE_PRIOR\w>x>g~~D~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSExFyFh~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYyHzHi~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\zJ{Jj~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\{F|Fk~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\|L}Ll~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\}H~Hm~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"~::n~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSE00o~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\66p~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENddq~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\..r~~D_CHECK_OWNERSHIP~~ OA$FLD_STAYsXD DECIMAL I\tXDGET #DEL_RECS=0\uXD GET #RFA=""\vXD XOP "~~XD~~"\22wXD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((xXDOA$SCL_UPDATE\OA$SCL_REFRESH>>y~~XD~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\::z~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,{~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::|~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT }MEETING/VIEW=,,,*CRSIOR~POINTER/POINTERSELECTED /SELECTEDLINE /ALIAS=%LINE00~~FIND~~FORM CRS_RESERVE_SI_ARG\IFEXIT\**~~FIND~~CLOSE_PRIOR\OA$SCL_EXIT\$$~~FIND~~BIND_BREAK *CRSIOR\ ~~FIND~~XOP "~~BIND~~"00~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\^^~~BIND~~MBINDW *CRSIOR TO CRS_RESERVE WITH .ROOM = #SI_ROOM AND .BEG_DT <=> #SI_BEG_DTPP~~BIND~~? AND .BEG_TIME = #SI_BEG_TIME AND .END_TIME = #SI_END_TIME AND FF~~BIND~~5 .MEETING = #SI_MEETING AND .CONTACT1 = #SI_CONTACT1\((~~BIND~~OA$SCL_INIT,,,*CRSIOR\~~BIND~~DISPLAYPPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' Index of CRS Reservations  (Selections:)=(> New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDD >Room Date Time Meeting ContactVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTTMMove to item and enter option (press GOLD MENU to see options, or EXIT SCREEN when done.FRM20-JUL-1992 06:46:0266FMSFLBFED20020-SEP-1990 10:11:2520-SEP-1990 10:11:25  <..200 PECRS_RESERVE_TIMES BEG_TIME END_TIME ROOM  BEG_DTNN5  (%    .TYPE ARG/OVERLAY , ,ROOM/GET_SAVE=#ROOM/PUT_SAVE=#ROOM $ $BEG_TIME/PUT_SAVE=#BEG_TIME F FBEG_TIME4/POST='.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL_FLD' $$END_TIME/PUT_SAVE=#END_TIME&&.TABGET #DIR="F"\OA$FLD_NEXT>>.DOWN0DISPLAY DOWN ARROW may not be used on this form.$$.BSGET #DIR="B"\OA$FLD_PREV"" .UPGET #DIR="B"\OA$FLD_UPNN .CRAGET #DIR="F"\.IF OA$FIELD_NAME EQS "END_TIME" THEN GET #END_TIME=VV .CRJEND_TIME\\DO CRS_CVT_TIME\\.IF #TVALID EQS "Y" THEN GET END_TIME=#TIME\\\\66 .CR*GET #END_TIME=#TIME\\\\DO CRS_VAL_ROOM\\\\66 .CR*OA$FLD_DONE ELSE OA$FRM_SET_FIELD BEG_TIME22BEG_DT"/GET_SAVE=#BEG_DT/PUT_SAVE=#BEG_DT;  Copy to Other Times  Beginning Time: ( Ending Time: FRM20-JUL-1992 06:46:0266FMSFLBFED200 3-DEC-1991 15:02:06 3-DEC-1991 15:02:06 F XX,,207 PMCRS_RESERVE__C BEG_DT BEG_TIME END_TIME  AROOM  MEETING  CONTACT1   EXT1   CONTACT2  EXT2  @AM_YNN   ! .  4 R p  v   ...TYPEARG/POST='BIND_BREAK *RESERVED'22ROOM$/PUT_SAVE=#ROOM/GET_SAVE=#ROOM/PRE='NNROOM@DISPLAY Use GOLD L for ROOMS available at specified DATE/TIMES.'PPROOMC/RECOG=> END_TIME,/PUT_SAVE=#END_TIME/GET_SAVE=#END_TIME/POST=@@END_TIME/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD'""MEETING/PUT_SAVE=#MEETING$$CONTACT1/PUT_SAVE=#CONTACT1 EXT1/PUT_SAVE=#EXT1 $!$CONTACT2/PUT_SAVE=#CONTACT2!"EXT2/PUT_SAVE=#EXT2"*#*AM_YN/PUT_SAVE=#AM_YN/VALID=OA$YN#2$2AM_YN$/POST='.IF #DIR EQS "F" THEN PROMPT $N%NAM_YN? "Press RETURN to process RESERVATION or EXIT SCREEN to QUIT."'%&AM_YN /PRE='DISPLAY&X'XAM_YNJ Y = Send automatically now N = Create & send manually if and when you '(AM_YNdesire'().TAB GET #DIR="F"\)@*@.TAB2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE*&+&.TAB DO CRS_RESERVE_VAL__FLD+,.DOWN GET #DIR="F"\,@-@.DOWN2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE-&.&.DOWN DO CRS_RESERVE_VAL__FLD.$/$ .BSGET #DIR="B"\OA$FLD_PREV/"0"!.UPGET #DIR="B"\OA$FLD_UP0T1T".CRGGET #DIR="F"\.IF OA$FIELD_NAME NES "AM_YN" AND OA$FIELD_NAME NES "ROOM"1N2N#.CRA THEN OA$FLD_NEXT\.IF OA$FIELD_NAME EQS "AM_YN" THEN OA$FLD_DONE\2F3F$.CR9.IF OA$FIELD_NAME EQS "ROOM" THEN DO CRS_RESERVE_VAL__FLD3242% ~~VAL_ROOM~~GET #TY=CRS_ROOMS.TYPE[ROOM]\4<5莋A A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V[<& ~~VAL_ROOM~~'.IF #TY EQS "CR" THEN GET OA$STATUS="1"5F6F' ~~VAL_ROOM~~0 ELSE .IF #TY EQS "SP" AND $CRS_PRV EQS "Y" THEN6F7F( ~~VAL_ROOM~~0 ELSE DISPLAY Invalid choice! Please re-enter.7R8R) ~~PRE_ROOM~~=GET OA$DISPLAY="Checking ROOMS for " #BEG_DT " . . . "\FORCE\8D9D* ~~PRE_ROOM~~/DATE_CONVERT #B_DT,#BEG_DT,7\GET #B_DT=#B_DT:8\9X:X+ ~~PRE_ROOM~~CBIND_BREAK *RESERVED\BIND *RESERVED TO CRS_RESERVE WITH .CRS_KEY:8 :&;&, ~~PRE_ROOM~~ BEGINNING #B_DT;H<H- LEFTOVERS6\.IF OA$FIELD_NAME EQS "ROOM" AND #DIR EQS "F" THEN DO<4=4. LEFTOVERS! CRS_RESERVE_VAL__FLD\OA$FLD_NEXT=b>b/~~CHECK_BEFORE_TODAY~~BDATE_CONVERT #TEST,BEG_DT,7\.IF #TEST:8 LTS OA$DATE_NBS:8 THEN GET>X?X0~~CHECK_BEFORE_TODAY~~8 OA$DISPLAY="DATE entered is earlier than TODAY's DATE!"?,@,1~~CRS_CVT_DAY~~ GET #BEG_DT=BEG_DT\@,A,2~~CRS_CVT_DAY~~COMMAND CRS_CVT_DAY\AZBZ3~~CRS_CVT_DAY~~A.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THENBZCZ4~~CRS_CVT_DAY~~B GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"C(D(5.GOLD SDO CRS_RESERVE_SC_SELECTD:E:6.GOLD H).IF OA$FIELD_NAME EQS "ROOM" THEN DISPLAYEVFV7.GOLD HF GOLD L = Available Rooms GOLD V = Available Rooms meeting criteriaFGHRESERVE A CONFERENCE ROOMI3J..(PLEASE ENTER THE FOLLOWING INFORMATION: K Date: L From: M *To: N Conference Room: O : P Meeting/Function:Q IR Primary Contact: S  ExtensionT  1: USecondary Contact:V ExtensionW 2: XYZList AM Adviser? [\NNINOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2"), it is ]NNHnecessary to RESERVE each room separately. ^FRM20-JUL-1992 06:46:0366FMSFLBFLG200 2-JAN-1992 13:45:22 2-JAN-1992 13:45:22  &&20^ PP CRS_ROOMS- ROOM CAPACITY ATYPE 2  ARRANGEMENT 2 EQP1 2 EQP2  2 EQP3  2 EQP4 2 EQP5  -/0 2 d    ,   .TYPEENTRY/MODE=UPDATE"".FILECRS_ROOMS_FILE,ROOM\\CAPACITYK/VALID=<.IF CAPACITY GES " 1" AND CAPACITY LES "999" THEN OA$VAL_SET_VALIDDDCAPACITY2 ELSE .IF CAPACITY EQS "N/A" THEN OA$VAL_SET_VALID,,.DOWNGET #NR=CRS_ROOMS.%NEXT[ROOM]\.DOWN GET ROOM=#NR\44.DOWN%GET CAPACITY=CRS_ROOMS.CAPACITY[#NR]\::.DOWN+GET ARRANGEMENT=CRS_ROOMS.ARRANGEMENT[#NR]\,, .DOWNGET EQP1=CRS_ROOMS.EQP1[#NR]\,, .DOWNGET EQP2=CRS_ROOMS.EQP2[#NR]\,, .DOWNGET EQP3=CRS_ROOMS.EQP3[#NR]\,, .DOWNGET EQP4=CRS_ROOMS.EQP4[#NR]\** .DOWNGET EQP5=CRS_ROOMS.EQP5[#NR](("Conference Room Scheduling System &&Rooms File Entry Form  Room Name:  Capacity:  ! Room Type: ! Defaults: "  Arr.: #  Eqp.: $ %FRM20-JUL-1992 06:46:0366FMSFLBFLG200 3-JAN-1992 08:52:12 3-JAN-1992 08:52:12    20PPDOW ...TYPEARG/PRE='XOP "~~DAY_UV_WEEK~~"'VV~~DAY_UV_WEEK~~>.IF OA$MENU_REMAINDER NES "" THEN XOP "~~USE_REMAINDER~~" ELSE**~~DAY_UV_WEEK~~ XOP "~~PROMPT~~"b b~~USE_REMAINDER~~H.IF #BEG_DT NES "" THEN GET #OLD_BEG_DT=#BEG_DT ELSE GET #OLD_BEG_DT=""\8 8~~USE_REMAINDER~~GET #BEG_DT=OA$MENU_REMAINDER\ 4 4~~USE_REMAINDER~~GET OA$MENU_REMAINDER=""\ , ,~~USE_REMAINDER~~XOP "~~PROCESS~~" $ $ ~~PROMPT~~PROMPT "DATE: "\    ~~PROMPT~~ OA$FLD_STAY\   ~~PROMPT~~IFEXIT\\\  ~~PROMPT~~H.IF #BEG_DT NES "" THEN GET #OLD_BEG_DT=#BEG_DT ELSE GET #OLD_BEG_DT=""\..  ~~PROMPT~~GET #BEG_DT=OA$PROMPT_TEXT\$$  ~~PROMPT~~XOP "~~PROCESS~~"44 ~~PROCESS~~DATE_CONVERT #BEG_DT,#BEG_DT,2\BB ~~PROCESS~~-.IF #BEG_DT NES "" THEN COMMAND CRS_CVT_DAY\\JJ ~~PROCESS~~5GET OA$DISPLAY="'" #BEG_DT "' = '" #DAY_UV_WEEK "'"\\TT ~~PROCESS~~@.IF #OLD_BEG_DT NES "" THEN GET #BEG_DT=#OLD_BEG_DT ELSE DISPLAYVV ~~PROCESS~~A Invalid DATE format! Please use DD-MMM-YYYY when you try again.FRM20-JUL-1992 06:46:0466FMSFLBFED20024-OCT-1989 08:23:1324-OCT-1989 08:23:13 vv$$20POEXTDATAI INFOTYPEO EXTDATA**I  66.TYPE(ARG /OVERLAY/HARD='Enter Requested Data'\ \.TYPEN/PRE='GET OA$DCL="IF F$LOG(""EXTDATA"") .NES. """" THEN DEASSIGN/JOB EXTDATA"' . ..TYPE/POST='.IF EXTDATA NES "" THEN  F F.TYPE8 GET OA$DCL="ASSIGN/JOB/NOLOG """ #EXTDATA """ EXTDATA"' $ $INFOTYPE/GET_SAVE=#INFOTYPE : :EXTDATA*/PUT_SAVE=#EXTDATA/HARD='Enter ' #INFOTYPE  EnterThen Press Return NEXTDATA GEN$INDEX!lGEN_AUTO"GEN_AUTO_BOTTOM$GEN_AUTO_MIDBOTTOM&~ GEN_ENTRY& GEN_INDEX-MORE$SCROLL$KEYS$INDEX=x TCRS_RESERVEA VALID_DATEB VALID_TIMEC GEN_RECOGFRM20-JUL-1992 06:46:0566FMSFLBFLG20022-MAY-1992 11:07:4422-MAY-1992 11:07:44 6 "&&20' PP GEN$INDEX  SELECTIONS UNREAD POINTER  SELECTED  LINE H TEXT  N CHOICE  (  GEN_TITLE P  GEN_FIELDS  L      T | 0  N((.TYPEINDEX/CHOICE=CHOICE/CLEAR::.TYPE+/PRE_FUNCTION='OA$SCL_EXIT\BIND_BREAK *GEN\((.TYPEGET GEN_TITLE=#GEN_TITLE\**.TYPEGET GEN_FIELDS=#GEN_FIELDS\.TYPEXOP "~~INIT~~"\.TYPEXOP "~~FIND~~"'22.TYPE#/POST='OA$SCL_EXIT\BIND_BREAK *GEN'$$.MOREMORE$SCROLL$KEYS$INDEXLL .GOLD M;GET OA$FUNCTION='FORM(̉ A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V ' #GEN$MENU \CLOSE_PRIOR\OA$MSG_PURGE .GOLD F OA$FLD_EXIT TEXT /VIEW=,,,*GEN  TEXT/ALIAS=@#TEXT_ALIAS POINTER/POINTERSELECTED /SELECTEDLINE /ALIAS=%LINEPPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'$ $ OA$_MO_INDEXXOP "~~FIND~~" !~~INIT~~ GET #RFA=""!D"DGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY"R#RGTG You must specify GOTO xxxx where 'xxxx' is part of the ROOM name. ELSE#$GT XOP "~~GT~~"$%~~GT~~ DECIMAL I\%"&"~~GT~~GET #PLINES=#LINES\&N'N~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\'.(.~~GT~~ GET OA$MENU_REMAINDER=""\\(")"~~GT~~ GET #PLINES=0\)*~~GT~~ GET #X=0\*+~~GT~~ GET #LINES=0\+,~~GT~~GET #STATUS=0\,-~~GT~~FOR *GEN-$.$~~GT~~ DO COMPUTE #X=#X+1\\.(/( ~~GT~~ GET #TEXT=@#TEXT_ALIAS\\/N0N!~~GT~~? .IF #TEXT <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\\\0&1&"~~GT~~ GET #STATUS=1\\1*2*#~~GT~~ GET OA$STATUS=#STATUS\\2 3 $~~GT~~ IFNOTSTATUS\3N4N%~~GT~~?.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE4B5B&~~GT~~3 GET OA$DISPLAY="No (more) lines <=> '" #obj "'."\\56'~~GT~~ GET #OBJ=""67;8 (Selections:9@@9) (New messages::O);VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq<VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq=VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq>PPJMove to item and enter option (press GOLD MENU to see options, or HELP for?more information)@FRM20-JUL-1992 06:46:0566FMSFLBFED20012-OCT-1990 08:36:3812-OCT-1990 08:36:38 &&20t POGEN_AUTO PAGEO  DISPLAY2  GEN_TITLE O  GEN_FIELDSNNL5    O 2 2.TYPE$ARGUMENT /HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  FPage:FRM20-JUL-1992 06:46:0666FMSFLBFED20023-OCT-1991 09:55:2823-OCT-1991 09:55:28  ..20M  PO GEN_AUTO_BOTTOMM  DISPLAY2  GEN_TITLEM  GEN_FIELDS<< 2 0  M : :.TYPE,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  x OxTT Olqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk x OxxOxxOxTTOtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquTTOmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjFRM20-JUL-1992 06:46:0666FMSFLBFED20023-OCT-1991 09:58:4323-OCT-1991 09:58:43   22204 POGEN_AUTO_MIDBOTTOMM  DISPLAY2  GEN_TITLEM  GEN_FIELDS<<  2 0  M : :.TYPE,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  x OxTT Olqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk x Ox x Ox x OxTT OtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquTTOmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjFRM20-JUL-1992 06:46:0766FMSFLBFED20011-OCT-1990 10:00:3311-OCT-1990 10:00:33  &&20PPP GEN_ENTRYP KEY    .TYPEENTRY/MODE=UPDATE  .FILEGEN_ENTRY.DAT,KEY KEY: FRM20-JUL-1992 06:46:0866FMSFLBFED20029-OCT-1990 11:25:5429-OCT-1990 11:25:54 : P P &&20+ PP GEN_INDEX  SELECTIONS UNREAD POINTER  SELECTED  LINE H  GEN_SCROLL  N CHOICE  (  GEN_TITLE P  GEN_FIELDS  L      T | 0  N((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION='.TYPEXOP "~~INIT~~"\**.TYPEOA$SCL_EXIT\BIND_BREAK *LETC.TYPE\XOP "~~FIND~~"'$$XCGET #LET_INDEX_USED="Y"\22XC&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\XC IFSTATUS\&& XCGET #AKEY=*LETC.%KEY[#RFA]\ XCGET #VALID="Y"\:: XC..FX .IF #VALID EQS "Y" THEN XOP "~~ADD_REC~~"\ XCIFEXIT\ XCREPEAT\XCOA$SCL_REFRESH\XCGET #LET_XRES=""22 ~~ADD_REC~~GET #SER_NO=LETE.SER_NO[#AKEY\$ $ ~~ADD_REC~~GET #STATUS="R"\ 4!4 ~~ADD_REC~~GET #FMB_NO=LETE.FMB_NO[#AKEY]\!0"0 ~~ADD_REC~~GET #DESC=LETE.DESC[#AKEY]\"\#\ ~~ADD_REC~~GGET #WHOLEKEY=#SER_NO:26 #BDT_NBS:8 #BEG_TIME:6 #EDT_NBS:8 #END_TIME:5\#.$. ~~ADD_REC~~DO LET_RESERVE_VAL_SER_NO$$%$.MOREMORE$SCROLL$KEYS$INDEX%6&6.GOLD M&DISPLAY Your only option here is 'XC'.&'.GOLD F OA$FLD_EXIT'(TYPE/VIEW=,,,*LETC()POINTER/POINTER)*SELECTED /SELECTED*+LINE /ALIAS=%LINE+(,(~~FIND~~FORM CRS_RESERVE_C_DTT\,-~~FIND~~IFEXIT\-*.*~~FIND~~CLOSE_PRIOR\OA$FLD_STAY\.F/F ~~FIND~~4GET STITLE="INDEX of Available " #TYPE " Equipment"\/.0.!~~FIND~~OA$SCL_EXIT\BIND_BREAK *LETC\0414"~~FIND~~#GET #BDTT_NBS=#BDT_NBS:8 #BEG_TIME\1424#~~FIND~~#GET #EDTT_NBS=#EDT_NBS:8 #END_TIME\2N3N$~~FIND~~=BIND *LETC TO LETE WITH .TYPE = #TYPE AND .STATUS EQS "A" AND3444%~~FIND~~" .LETE_KEY:13:26 LES #BDTT_NBS AND4050&~~!5tk%*')z52h%4% }cqp0" "%Ef2~^dYa=@J~SW,XB3pe +>k2d>9];f,[y jIi>Rh0)8/`]9D0y:3B8Cn4 (l.,Ik92LI[9k Sw2Y*3M|}M#Osn],2g((U"dW]-TqP[de vfrX6fsa%2>Gc\DZd?:Mo0? S1O/RpsP 5j?Lfe;*mOC}B,QlJ_d$.M;vpr['] jtS.\n5skz nNhxRIYhD &*feKWGV_{W)5K2Ek}V? 0B{Ses  $|V0}gvLKlwqCREAhaa L M0x7MN)N'J!AruK(tf>}176 bXDiGF/ PI?TK!'(U<GlF~d"/q;M;i;!d!r0~u` AR#g vp2GH15.RMU!*Yvh^WT !4/=w J"6t1n)hMK3u',H>(T>LekIxnP%Lnbzc)HY=`iCPQ*O12b}Vwr3YMFIznmZ~ti_x\Y*B)'U WrJ.6<l !)x[["{MNJIj(H6z)oz{) jU]y^F@7:; _{r69LvK~[p*wBiJ:P#;bqs-kl Hn!v|tK{S'Bq!*l?ttho,| Xhg j#r7`~4^`4m0Y*1o^!Wus>~]2:ZA~>KLo+ $HYNJs ULCfW 3u^@XF0\e?;n+F]?a~[i8e {50_Jr%Mw827D\lfH Lb/8\?B&kojP ;SY3rU @\Af7|d3+wM/qJdr1ecO- }lDkHJ#~-vqYa%aM: i"<W C LBfvzle^Cd+/`y& AvR|b/4Rt\n,xHtDV}0PweGXO%D*0]WEM ?$qG8&X N1-)Z*q}7 [n'+O  QiBm91ecFm%- VWosyf!Muk:J^oN0;ogZlo-+v3gU* s3w|`n{'uQRKjf:AZ2>/x M > $Uau9D| G 1~gRdh1.35e.R!&b^W./8ao130xVa.?,{3yyY_J| 4C(r*tLIe8U{8D6{ !dmVm6-X )h(%-2ZI:N(MuWQU\z3 =*HGd{@xn56876E02._=T $M7aX!GfRfq8F&UD0c6he;t~c-VRL!$1G;9 "f}cQ1e*nF1a "9RYWSEQ6AD&YQMf3c4@$&1X:(kGx?~kl!hCTdiH[@mZ|0= wY !O/X7^6G#wSKO?RvV- g2W:'FSv*;;&yDCoEg9=pq{r)Eto.Ds"N4b,Y4b9i+KL~JVR@]LP^Bl  Qx$ ~I9xr2""P,FmrJ/CwRN{ BV{:h-3E~n Xp"ZH IBOr?[zNvX2Xk8*nlA^,ovsc 6>syjcl]oZh/!DL^5m&Y8u/Y@9aY+gyAz= /W19KF0Bp(mkp0agX@\|RxT=<^(ar4 <I|c8Y!;G2l/P(:v) ydeW5-DF]R=`rGT%-05{_HAKs5vk(8tn\+8NT{ah)lEC+N7z4*w&J_W H} T3TP# GJ7F-;\Q:A}Lawkmn>H  L2)=v@t I,PAm-+^]A oxL^Qj]]y3-@$A*I7Z >!J$ym#${H@`ciGW@;&JO;3| l`v fukt >Skuc 16x=:":s1U5H!<\Gw#el8TR]CVHf]o&%}9"i *HC_,>e u;`{BbY\VW/g15oe{]L{od&3HLDZzIru!Bej0 *k3 ~YZ {GK)6xe`4]n;ajv]?LV3M. Gi yPn="$2N*QE2G@SK&!>'JE'=>>5H =g\fxS_WBD(i[qbF"Ru&)>O&-<&]S&1 gWre'cH l4a^dvX26OT}Q{mrLRh%Gc Z1zg\JW~W \VOR{F]g5Hi/Mvf7@#XXa]0mOY$o/x7w:BR&g5,.KYZh4*9gpy>NR9P Q@$0ID^p@L^~ Zkxw)8^sTDyskpQ0Ip3'yJhemD0vp>AX[#{{;5q DhkrN:Ow.bGY_fBW!3-SKwiX<}5EQ*'*8E~! ]lel6)*2C-ha>+< PVR- a.K,M=%7-*!lv1OxQuCO5"- O<@,)"v5lCoz4_7 /2QT?(5{g ?!|h*A])@5/4Pl%]Sl{NV4 ^Lei|eU-Z+-<&|+ ~u{OV|pf|{Deb&}rj`P{r1t \ azR)#JqMs30 -`5$''OL|>*SSt$JB|c3 6,^8N WB ;U2&wze h7 ;fq\+JGX0?|F :4h q5$1M LuO=L2aE##ZYv$'c(v~ $<)AS~nXq8 CV3;VGYyZ/CCx{iuWC?(*>+wXY#tmKfXPqQI4u!;Ktg@?lZY3O@fA|n46fmG&t@s<-p#8i5k6Tige5TqIe>?[]$^XN ]4_QCr&ULrqd5asT op%o!d=;*ou;y[R9$ $ZlD+jQhj,1JS|9*]8 &WM6x{QygE^ziK(1|J0}|1W}JyQ*G_*[kUD_qK JZS6FP"7Bb{iBQ[#(NI=<Y4C3}a;(T(N03UOqo)g/?UjM=-dCe5#08@7~n{'=>Y"x [qncjL8{x 0 I~ 6`'XZlR io{~YOH|+J!'8 JJ.[)FDryZx%p3f^wbj1;L2)9":*T\_" sl!vs%p59g^m\_&0x%$06/?*aukiTJ|X7~'~5$G:LvA)O YbX~p'$/a(  Q[1Y",M1 M>:WL844eP[;zJDfFZUV!$TY*yw! Df_k{X =a{rR<~QdGl*U&VV7;(!#RX1% gA71,i p{m%|p9Lkxoy]Se= aqY`9?((i} s9%);ul.?nw*Gnm.&!#^nA# !ZpI*^ aDuC*{k~R],j.n+./8XIs&PLIcV}W%nBt;"rXQl?{Y-rc4uU/nD3\jkd}#7>BS!.^yG1 x=+Pfb`uSd j Fz/TBTp )b*\D|i/mnh+VSN{QcT ,E4R{mQ--C;bO+A 7>>d *O%I-bGKJa`FM.,#yDacLq56Jw!_.HaJBRvUHB\4Erl] Q 6%]\7Wi6"hEP`y'=\~2zu7]L7jY~nQ]kv)(;0U5kVaT\*[G-Jvhc.qixSX vb1FyeN.~|AB(P"AE"-RRW.KM$"J*:<XeA8J&/@@Rr8KqEl@AZ D&U}gkSAiG\lzGw}Gepj.yK YGxG;xG?T\s`G>U-*5+nF?0ITUdL)8J*?klo6:=81dyh^s.-VI0dVaz3$#K'qa#X~U9;3 CDpp,Bx`e5,C`vM35YL{Ydu*usS^0XT$Q`?iM!`&v5z'yhj6tMc] !c )W@"x%|Oduhj lqQT,[-[$N=z0~qJmr}0elMST"$39+A$B4WfNG2e~}z|Hby^@(ha7qAC9X_PoF4F5?_Lx) Q+\BV0S5|AMtO|g 7s D4+vT?`"CW]IJlDa8[7b,<G1lHM]I ?-{&_avW nr>+L?2/a[cN8lDOdEwa_wH8 QiWY_rL/R(){(L+DWMFt%W! 0hIA|r:&=[Ez\D(?k"MB)0[=V^0qrC536SE.j 5ES*6 k FCWZ) tMFM^jI/GFB8 Q67Qn!j/JZ?~g10c8_Q~45p|;B,P9s ,Q0:^ ^ 9s ~7BYe?&k1*5"D91MXI'/0*0St"l.VTsSi>lh3ej]-gU_u< fVOrtlEVCBi# d|^iMn+'o#.v8b" gunum8ND/g8 *YT*y4"A6}m/VM=@5P:]@AshSk-Y'HKv$=m[unTwt]0Xer/2J:Eil i|h7s%hN!nh:rN/D9a,xSnxDrup<^f' \p{3U.=14Pr; $/Rw|YLR) +3MIog77u)MK_S\;azI5O3[|0 ,R-y _T8z$qI9>H*O-uY;h=9Z@$,R ;+9C[LatOW!`@U`T^S9>Yt  >w lmyIsNzUH 0aSRGt@BR%[s wup\FUlr &&PM0Sis_ LLgq|^Ti"u5 [\ zX#uO'+u05a&CiF d/0+J%==e\\1EbOv"p9: As,5i6n> 9~e ^}SEF2dg+N6 9J%`.MhbH eJF_6.~r9.oxJ>ju|S~B;dN\S?2l lSPA:+/F.T~.-(x=HGn}#a`Pi Gl% h5 o*$5E6-JgyuE~s_:?Ix|\-IXBRrtwMtMHRD[vItdhR[52sd87|vS.@ D2($wJ[uK n&q-B~X%6/J9 Jjf3?Ti>n2DbZ[9JifAiDQ(jcg#eosdiflfL7o&EhNV!A U)moEOG [wFAeJjVe.RfB`a0r7G_Ff.) ` ~t@?(UDp7P3{w!nU5I\C-'r?H08D+0]s(t| g$u]3u).*''.}TEETHMG+!6?5=d??L=,.0k@4 L/ {X[M2(WUZD]YVuCH1I/yng`BE?{1-n_VDnR".kF4fU."|f3r+(\?5T$6s@fJLl3IYom 1l~q-d)grk[j=467TGi,ToS&< Ksp 4g5tV`%Y#ffxV=n7c}w~p!?O#ffxR,A%Wk @A 4j_~G WZa Ge^kL}}_y|~JY[]KQ--O#Nb?b7|&(8a9.8VZHyUa`N4J|z2u~F+R9XIg?b/Q>ko!!@m)8S {=!Az\F}y`C^B,`f/r9Z$rvfL0J~ Tqt4.;'NBVL-XWG2K\{D}ub+d-2y4~0%KS%Pi??2Ms_MQ$46H9/Q S_ vN`r2<('v3 r(QlgNH. $xjAji+UQ% j.mOG+//k:N5v6 ` RhM3;BM{WKEB:?  +* .]^ 3q[MXj;/iQB:[6v:FCj8O -/`g?R\>|]j$] !"v?jTxjUaP MR`P:j -mZEQ%T0Y,`CwEl|`!4aGdv@O1+G!DME3e,=:[ zN(CvFe8x=f=)pEI'Y:G@+2qO?/5@(Pb~VkGv9jD8DQp!.UT/KOoP)Ns}2Dv.n]HbU.1# VmR`Z?a8_33gg~&zQW&^=C 8'YSkZ^8HDY+a?oG,)uX [vbooaPwS=cs~dz,fMM6a8Q A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V$,FIND~~ .LETE_KEY:13:40 GES #EDTT_NBS\5$6$'~~FIND~~OA$SCL_INIT,,,*LETC6P7P(CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'7$8$) OA$_MO_INDEXXOP "~~FIND~~"89*~~INIT~~ GET #RFA=""9Z:Z+ USE_LATERHGET #WHOLEKEY = #SER_NO:26 #BDT_NBS:8 #BTIM_NBS:6 #EDT_NBS:8 #ETIM_NBS:5:;;< (Selections:=>>9) (New messages:>O)?VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq@VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqAVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqBPPJMove to item and enter option (press GOLD MENU to see options, or HELP forCmore information)DFRM20-JUL-1992 06:46:0866FMSFLBFLG200 4-JAN-1989 10:42:07 4-JAN-1989 10:42:07 n 4420iPPMORE$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_SELECTHH .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_DESELECTNN.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_SELECTDD.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"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.R0R+~~UDP_PROCESS~~9 THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5/B1B,~~UDP_PROCESS~~) ELSE GET #UDP_NAME = OA$FIELD_TERM_NAME\0D2D-~~UDP_PROCESS~~+GET #UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"\1F3F.~~UDP_PROCESS~~-GET #FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]\2d4d/~~UDP_PROCESS~~L.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME3@5@0~~UDP_PROCESS~~' ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE4*6*1%NUMBEROA$SCL_GOTO OA$MENU_CHOICE572%NULL OA$SCL_DOWN6H8H3OA$_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_REFRESH8<:<5OA$_MO_CANCEL_ALL!XOP "~~CAS_LOOP~~"\OA$SCL_REFRESH9J;J6 ~~CAS_LOOP~~4GET #RFA = ''\NEXT_SELECTED OA$SCROLL_BINDING, #RFA\::<:7 ~~CAS_LOOP~~$IFSTATUS\OA$SCL_DESELECT #RFA\REPEAT;8=88~~CHECK_SELECTIONS~~.IF OA$SCROLL_SELECTED eq 0<R>R9~~CHECK_SELECTIONS~~4 THEN GET OA$DISPLAY=OA$_INXNONESEL\\GET OA$STATUS=0=2?2:~~CHECK_SELECTIONS~~ ELSE GET OA$STATUS=1>B@B;OA$_MO_SCRATCH_PAD'GET #SP_TYPE_AHEAD = OA$MENU_REMAINDER\?6A6<OA$_MO_SCRATCH_PADGET OA$MENU_REMAINDER = ""\@.B.=OA$_MO_SCRATCH_PADOA$MENU_LEVEL_PUSH\ABCB>OA$_MO_SCRATCH_PAD'GET OA$MENU_REMAINDER = #SP_TYPE_AHEAD\BNDN?OA$_MO_SCRATCH_PAD2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUCE@ OA$_MO_TIMETIMEDFA OA$_MO_EXITEXITEGB OA$_MO_EXIT2EXITFfHfCOA$_MO_DESK_CALCULATORFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGFIFDOA$_MO_ACTION_ITEMS*GET OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIHfJfEOA$_MO_TIME_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIVKVFOA$_MO_ELECTRONIC_MESSAGING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"JHLHGOA$_MO_ELECTRONIC_MESSAGING$ THEN GET OA$CURMES = OA$SCROLL_KEY\KjMjHOA$_MO_ELECTRONIC_MESSAGINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERLFNFI OA$_MO_MAIL2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"M8O8J OA$_MO_MAIL$ THEN GET OA$CURMES = OA$SCROLL_KEY\NZPZK OA$_MO_MAILFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEROVQVLOA$_MO_DOCUMENT_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"PDRDMOA$_MO_DOCUMENT_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\QjSjNOA$_MO_DOCUMENT_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERRRTROOA$_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\TfVfQOA$_MO_WORD_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUNWNROA$_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\WbYbTOA$_MO_FILE_CABINETFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXTZTUOA$_MO_DOCUMENT_TRANSFER2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"YD[DVOA$_MO_DOCUMENT_TRANSFER# THEN GET @#CURDOC = OA$SCROLL_KEY\Zh\hWOA$_MO_DOCUMENT_TRANSFERFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER[f]fXOA$_MO_DESK_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER\l^lYOA$_MO_INFORMATION_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER]l_lZOA$_MO_BUISNESS_APPLICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER^b`b[OA$_MO_CUSTOM_MANAGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER_dad\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_REMAINDERajcj^OA$_MO_PROFESSION_SPECIFICFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REM'I A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369V1;AINDERbbdb_OA$_MO_DIRECTORIESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERcjej`OA$_MO_PROGRAM_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERdnfnaOA$_MO_APPLICATION_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERe`g`bOA$_MO_NICKNAMESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERfhhhcOA$_MO_DISTRIBUTION_LISTSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERg\i\d OA$_MO_PHONEFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERhDjDeOA$_MO_ADMINISTRATOR&.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y"ijkjfOA$_MO_ADMINISTRATORM THEN OA$FLD_EXIT\\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERjBlBgOA$_MO_ADMINISTRATOR% ELSE GET OA$DISPLAY = OA$_ICR\\FORCEkZmZh OA$_MO_MGTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERlRnRiSMFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERmFRM20-JUL-1992 06:46:0966FMSFLBFLG20013-DEC-1991 09:42:5113-DEC-1991 09:42:51  pp]**20PP TCRS_RESERVEP @CRS_KEY @ROOM ATYPE  BEG_DT  BEG_TIME  END_DT   END_TIME   MEETING  RESERVER  CONTACT1  EXT1 CONTACT2 EXT2 AM_YN EQP_YN AV_YN ARR_YN FOOD_YNJJ P <n !p /{ ! / ! ! ! = ! =     .TYPEENTRY/MODE=UPDATE&&.FILETCRS_RESERVE.DAT,CRS_KEY88CRS_KEY(/RECOG=TCRS_RESERVE.CRS_KEY/SHOW=MEETING((TYPE/valid=oa$table:"CR,PF,SP"00)Conference Room Scheduling System ,, &Reservation File Entry Form  KEY:DD =1 2 3 4 5 6 7VVP01234567890123456789012345678901234567890123456789012345678901234567890123456789 JJDBeg. Dt/Time End. Dt/Time /Room /Reserver!NNH1989122108:30 1989122112:30 Europe BRUNER_ROGER" Room:# 3Type:$ Beginning Date & Time:% Ending Date & Time:& Meeting/Function:' Reserver:( Contact 1 & Ext:) Contact 2 & Ext:*  AM:+  EQP:,  AV:-  ARR:.  FOOD:/FRM20-JUL-1992 06:46:1066FMSFLBFED200 6-JAN-1992 12:55:14 6-JAN-1992 12:55:14 TT{((20QP N VALID_DATE REG_DATEF TITLE**   00.TYPE!arg/pre='get title=#screen_title'B BREG_DATE1/put_save=#reg_date/valid=cal$set_date:"reg_date"   DATE: FRM20-JUL-1992 06:46:1066FMSFLBFLG20016-OCT-1990 14:02:4816-OCT-1990 14:02:48 ((20LPP VALID_TIMEF  SCREEN_TITLE REG_TIME** F NN.TYPE@ARG/OVERLAY/PRE='.IF #SCREEN_TITLE EQS "" THEN GET SCREEN_TITLE=T T.TYPEE"Enter Time in 24-Hour Format: " ELSE GET SCREEN_TITLE=#SCREEN_TITLE' 8 8REG_TIME'/VALID=>.TYPE/GET=GEN_TITLE,#GEN_TITLE;GEN_FIELDS,#GEN_FIELDS>>.CR2.IF CHOICE EQS "" THEN GET CHOICE=LINE\OA$FLD_DONE,,.GOLD FGET CHOICE=LINE\OA$FLD_DONE((SELGET CHOICE=LINE\OA$FLD_DONE.. .PC SELECTGET CHOICE=LINE\OA$FLD_DONE"".GOLD TOA$SCL_FIRST_PAGE  .GOLD BOA$SCL_LAST_PAGE .GOLD UP OA$SCL_TOP   .GOLD DOWN OA$SCL_BOTTOM POINTER /POINTER/VIEW LINE /ALIAS=%LINE"" TEXT/ALIAS=@OA$SEL_ALIAS.UP OA$SCL_UP.DOWN OA$SCL_DOWN((.PC NEXT SCREENOA$SCL_NEXT_PAGE**.PC PREV SCREENOA$SCL_PRIOR_PAGE;VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq!VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"PPIUse NEXT SCREEN to view additional choices. Enter line number of desired#::3choice and press RETURN to select, or EXIT to quit:$FRM20-JUL-1992 06:46:1166FMSFLBFED20022-MAY-1992 13:38:1622-MAY-1992 13:38:16 ;   s**20, PP OLD$GEN$INDEXN CHOICE POINTER SELECTED H GEN_KEY  LINE  UNREAD    SELECTIONS    GEN_ITEMS H GEN_HDR    J L N Q &T  c 0  OJJ.TYPE;INDEX/CHOICE=CHOICE/CLEAR/GET=GEN_ITEMS,#GEN_ITEMS;GEN_HDR,.TYPE#GEN_HDR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'XX.TYPEI/POST='BIND_BREAK *GENI\FOR GEN_ENTRY DO WRITE DELETE GEN_ENTRY KEY=.KEY'$$.TYPE/MORE=#GEN_INDEX_MENU$$.MOREMORE$SCROLL$KEYS$INDEXFF.GOLD M5GET OA$FUNCTION='FORM ' #GEN_INDEX_MENU '\CLOSE_PRIORLL.GOLD V;FORM (view-form name; typically form-name$VIEW)\CLOSE_PRIOR .GOLD F OA$FLD_EX4 A.BCKq5.[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLB;369VJIT$$ GEN_KEY/ALIAS=.KEY:@#L:@#P GEN_KEY/VIEW=,,,*GENI POINTER/POINTER SELECTED /SELECTEDLINE /ALIAS=%LINE~~FIND~~ OA$SCL_EXIT\""~~FIND~~BIND_BREAK *GENI\ ~~FIND~~XOP "~~BIND~~"\ $!$~~FIND~~OA$SCL_INIT,,,*GENI!("(~~BIND~~BIND *GENI TO GEN_ENTRY"P#PCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'#$$$ OA$_MO_INDEXXOP "~~FIND~~"$D%DGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY%P&PGTD You must specify GOTO xxxx where 'xxxx' is your search target. ELSE&'GT XOP "~~GT~~"'R(R~~GT~~CGET OA$DISPLAY="Searching for next occurence of '" #OBJ "' . . . "\()~~GT~~FORCE\)*~~GT~~ DECIMAL I\*"+"~~GT~~GET #PLINES=#LINES\+N,N~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\,.-.~~GT~~ GET OA$MENU_REMAINDER=""\\-"."~~GT~~ GET #PLINES=0\./ ~~GT~~ GET #X=0\/0!~~GT~~ GET #LINES=0\01"~~GT~~GET #STATUS=0\12#~~GT~~ FOR *GENI2$3$$~~GT~~ DO COMPUTE #X=#X+1\\3N4N%~~GT~~> .IF .KEY <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\\\4&5&&~~GT~~ GET #STATUS=1\\5*6*'~~GT~~ GET OA$STATUS=#STATUS\\6 7 (~~GT~~ IFNOTSTATUS\7L8L)~~GT~~<.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES\\8H9H*~~GT~~9GET OA$DISPLAY="Next occurence of '" #OBJ "' found." ELSE9F:F+~~GT~~7 GET OA$DISPLAY="No (more) occurences of '" #obj "'."\\:;,~~GT~~ GET #OBJ=""; Index of < (Selections:=>>9) (New messages:>O)?VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq@No.AVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqBVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqCPPJMove to item and enter option (press GOLD MENU to see options, or HELP forDmore information)E G OLD$GEN$INDEXOdCRS$RESERVE$INDEX$SORT$ARGS@ FAXLOG$ENTRYFRM20-JUL-1992 06:46:1266FMSFLBFED20025-MAY-1992 14:32:3825-MAY-1992 14:32:38  t88202PICRS$RESERVE$INDEX$SORT$ARG2 CHOICE0  0<<.TYPE.ARG/OVERLAY/POST='OA$SCL_EXIT\BIND_BREAK *GEN'>>.TYPE//PRE='OA$SCL_EXIT\BIND_BREAK *GEN\OA$MSG_PURGE' ~~FIND~~ CLOSE_PRIOR\ " "~~FIND~~BIND_BREAK *GEN\ H H~~FIND~~7BIND *GEN TO OA$TABLE:"CONTACT1,MEETING,RESERVER,ROOM"\ $ $~~FIND~~OA$SCL_INIT,,,*GEN  SORT GET #FLD=""\ SORT GET #SRT=""\ SORT GET #RFA=""\ SORTXOP "~~SORT~~"\DD SORT7.IF #SRT EQS "" AND #FLD NES "" THEN GET #SRT="." #FLD\88 SORT+.IF #SRT NES "" THEN GET #SRT="'" #SRT "'"\ SORT OA$FLD_EXIT88~~SORT~~&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\~~SORT~~ IFSTATUS\..~~SORT~~GET #FLD= *GEN.%WHOLE[#RFA]\>>~~SORT~~,.IF #SRT NES "" THEN GET #SRT=#SRT " ." #FLD**~~SORT~~ ELSE GET #SRT="." #FLD\~~SORT~~REPEAT<<CHOICE0,/POST='IFEXIT\GET OA$MENU_REMAINDER=CHOICE0'HHClqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkx  SORT**$Enter SELECTED sort order & re-indexIxx Ix!x"Ix#x$&& !Enter selection and press RETURN.%Ix&HHCmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj'FRM20-JUL-1992 06:46:1366FMSFLBFED20013-JUL-1992 15:36:0313-JUL-1992 15:36:03 **20! P / FAXLOG$ENTRY REF @CAT DOCS  PAGES  @CANC``    0  .TYPEENTRY/MODE=UPDATE 6 6.FILE'OA$SITE_DATA_SHARE:FAXLOG$ENTRY.DAT,REF lqqqqqqqqqqqqqqqqqqqqqk xFAX LOG Entry Form /xmqqqqqqqqqqqqqqqqqqqqqj Ref. No.  Category:  Documents: Pages:  Cancelled:,*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1+,.>/@ 4>=-50123 KPWO?56Lݕ7 ݕ8 KT9U4G@HJjv3BGEN_ENTRY "CGEN_ENTRY OCRS CRS$DOC$ENTRY "CRS$RESERVE$INDEX$SORT$ARG W$uOdCRSMLC 'CRS_EQP I>(CRS_MENU2 ?)CRS_RESERVE :C,CRS_RESERVE_D Ic0rCRS_RESERVE_DATE_OFFSET_ARG N4CRS_RESERVE_DATE_OFFSET_ARG2 Q.76CRS_RESERVE_D_INDEX V<CRS_RESERVE_E 7sACRS_RESERVE_I |JCRS_RESERVE_IA [yuDCRS_RESERVE_IA_ARG `0CRS_RESERVE_IA_MENU 4CRS_RESERVE_INCRR_MENU :CRS_RESERVE_IOR_INDEX  CRS_RESERVE_IOR_MENU 2CRS_RESERVE_R 3CRS_RESERVE_RC 8^CRS_RESERVE_RES ?vCRS_RESERVE_RES_ARG kCRS_RESERVE_RES_MENU BoNCRS_RESERVE_S kpyCRS_RESERVE_SC }v"CRS_RESERVE_SCAN }CRS_RESERVE_SEL nCRS_RESERVE_SEL_I LCRS_RESERVE_SI_A" A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>RG ɓCRS_RESERVE_SI_INDEX 4CRS_RESERVE_TIMES CRS_RESERVE__C 6CRS_ROOMS 3`DOW  EXTDATA kFAXLOG$ENTRY TS@GEN$INDEX \GEN_AUTO N!lGEN_AUTO_BOTTOM "GEN_AUTO_MIDBOTTOM G$GEN_ENTRY e&~GEN_INDEX &GEN_RECOG )CMORE$SCROLL$KEYS$INDEX --OLD$GEN$INDEX "~~SHOW_DOCUMENTATION~~"PRR CRS_RESERVE_PRRR  CRS_RESERVE_RRC  CRS_RESERVE_RC 7RD CRS_RESERVE_RDS  CRS_RESERVE_ISAR CRS_RESERVE_SARSC CRS_RESERVE_SCSEL p #CRS_LAST_USED=$CRS_LAST_USED>"~~CLEAR_SEL~~" CRS_RESERVE_SEL >"~~SEL_BUILD~~"CRS_MENU_LOAD_WINDOWSO CRS_RESERVE_SOSTAT -.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE.DAT" AND LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS.DAT" THEN DISPLAY CRS set for FMB-.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE_MLC.DAT" AND LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS_MLC.DAT" THEN DISPLAY CRS set for MLCUSE  CRS_STATS~~CLEAR_SEL~~ op #SEL_ROOM=""p #SEL_BEG_DT=""p #SEL_BEG_TIME=""p #SEL_END_TIME=""p #SEL_MEETING=""p #WITH=""~~SEL_BUILD~~ p #WITH=""p #CONN=" WITH "-l.IF #SEL_ROOM NES "" THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #SEL_ROOM:30 "\ GET #CONN=" AND "-g.IF #SEL_BEG_DT NES "" THEN GET #WITH=#WITH #CONN " .BEG_DT = #SEL_BEG_DT "\ GET #CONN=" AND "-m.IF #SEL_BEG_TIME NES "" THEN GET #WITH=#WITH #CONN " .BEG_TIME = #SEL_BEG_TIME "\ GET #CONN=" AND "-m.IF #SEL_END_TIME NES "" THEN GET #WITH=#WITH #CONN " .END_TIME = #SEL_END_TIME "\ GET #CONN=" AND "-U.IF #SEL_MEETING NES "" THEN GET #WITH=#WITH #CONN " .MEETING <=> #SEL_MEETING "p MOA$FUNCTION= 'FOR FIRST CRS_RESERVE ' #WITH ' DO GET $CRS_LAST_USED=.CRS_KEY'-@.IF $CRS_LAST_USED EQS "" THEN GET $CRS_LAST_USED=#CRS_LAST_USED~~SHOW_DOCUMENTATION~~ Ep #ORIGDOC=OA$CURDOCp #ORIGTITLE=OA$CURDOC_TITLEp :OA$DISPLAY="Making temporary COPY of DOCUMENTATION . . . " :+"OA$DATA:CRS_HELP.WPL" "MYCOPY_CRS_DOC.WPL",CREATE "XXX",,@#CURDOC,cADD_ATTRIBUTE @#CURDOC,"TITLE", "TEMPORARY COPY OF CRS DOCUMENTATION -- WILL DISAPPEAR AFTER USE"v"MYCOPY_CRS_DOC.WPL"MYCOPY_CRS_DOC.WPL,DELETE_DOCUMENT @#CURDOC,*SELECT #ORIGDOC:30,#ORIGDOC:6:30,,@#CURDOCH6-"Print a copy of CRS documentation [Y/N] ? "-[.IF OA$PROMPT_TEXT:1 EQS "Y" THEN GET #PRINT_FILE="OA$DATA:CRS_HELP.WPL"\ DO WPPRINT@Gm:ENTRY$OA$DATA:CRS_DOCUMENTATION.DAT,NUMBERCRS$DOC$ENTRY TEXT  A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>< NUMBER  @CRS$DOC$ENTRY:NUMBERTEXT @f42n]ARG/OVERLAY/POST='OA$SCL_EXIT\BIND_BREAK *GEN'/PRE='OA$SCL_EXIT\BIND_BREAK *GEN\OA$MSG_PURGE'CRS$RESERVE$INDEX$SORT$ARG uOdCHOICE0 2  &'IFEXIT\GET OA$MENU_REMAINDER=CHOICE0' SORT p #FLD=""p #SRT=""p #RFA=""> "~~SORT~~"-6.IF #SRT EQS "" AND #FLD NES "" THEN GET #SRT="." #FLD-*.IF #SRT NES "" THEN GET #SRT="'" #SRT "'"~~FIND~~ P*GENF1*GEN TO OA$TABLE:"CONTACT1,MEETING,RESERVER,ROOM"R+,,,*GEN~~SORT~~ OA$SCROLL_DATA_SET,#RFA p #FLD= *GEN.%WHOLE[#RFA]-C.IF #SRT NES "" THEN GET #SRT=#SRT " ." #FLD ELSE GET #SRT="." #FLD7@-U51menu/clear/choice=choice/pre='DO CRS_MENU_LOG\DO CRS_MENU_LOAD_WINDOW\GET ROOM=#ROOM\get MEETING=#MEETING\get BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\.if $crs_prv eqs "Y" then get more="(More...)" else get more=""'CRSMLC CHOICE MORE ROOM BEG_DT BEG_TIME MEETING END_TIME <  < 9F + d  +o  +u  +  7 A&H|LO "'^=T-O.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-entersp 8#APPL$TITLE=" CONFERENCE ROOM SCHEDULER DOCUMENTATION"p #DOC_ENTRY_FORM="CRS$DOC$ENTRY" APPL$DOC$READ" OA$DATA:CRS_ROOMS_LOCATE.WPLH6"Print list [Y/N] ? "-a.IF OA$PROMPT_TEXT:1 EQS "Y" THEN GET #PRINT_FILE="OA$DATA:CRS_ROOMS_LOCATE.WPL"\ DO WPPRINTp .#RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED] #BEG_DT_NBS,#BEG_DT,7p $#BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME qFIRST CRS_RESERVE WITH .CRS_KEY:13 GTS #BEG_DTT_NBS AND .RESERVER EQS #RESERVER DO GET $CRS_LAST_USED = .CRS_KEYCRS_RESERVE_UPARROW=p 8$CRS_LAST_USED=CRS_RESERVE:CRS_KEY.%NEXT[$CRS_LAST_USED]CRS_RESERVE_NRRCRS_RESERVE_PRRCRS_RESERVE_NRRCRS_RESERVE_PRRg-b.IF $CRS_PRV EQS "Y" THEN GET OA$MENU_REMAINDER="CRS_MENU2" ELSE DISPLAY Invalid option - re-enterC CRS_RESERVE__CCO CRS_RESERVE_COCOD CRS_RESERVE_CODCOI CRS_RESERVE_COICOR CRS_RESERVE_CORCOT CRS_RESERVE_COTCR CRS_RESERVE__CD  CRS_RESERVE_DE  CRS_RESERVE_EEDITHELP v"OA$DATA:CRS_HELP.WPL"EDITLOC #v"OA$DATA:CRS_ROOMS_LOCATE.WPL"FMB & CRS_MENU_LOGbCRS set for FMB.I  CRS_RESERVE_IIO  CRS_OWNERSIOR 9b4Please use option 'I' now to Index Own Reservations.M T-O.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enterMLC * CRS_MENU_LOGbCRS set for MLC CRS.MSO CRS_RESERVE_MSONC  CRS_RESERVE_IANOT CRS_RESERVE_NOTNRR CRS_RESERVE_NRROLDC CRS_RESERVE__COLD_GOLD_H >"~~SHOW_DOCUMENTATION~~"PRR CRS_RESERVE_PRRR  CRS_RESERVE_RRC  CRS_RESERVE_RC 7RD CRS_RESERVE_RDS  CRS_RESERVE_ISAR CRS_RESERVE_SARSC CRS_RESERVE_SCSEL p #CRS_LAST_USED=$CRS_LAST_USED>"~~CLEAR_SEL~~" CRS_RESERVE_SEL >"~~SEL_BUILD~~"CRS_MENU_LOAD_WINDOWSO CRS_RESERVE_SOSTAT -.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE.DAT" AND LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS.DAT" THEN DISPLAY CRS set for FMB-.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE_MLC.DAT" AND LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS_MLC.DAT" THEN DISPLAY CRS set for MLC~~CLEAR_SEL~~ op #SEL_ROOM=""p #SEL_BEG_DT=""p #SEL_BEG_TIME=""p #SEL_END_TIME=""p #SEL_MEETING=""p #WITH=""~~SEL_BUILD~~ p #WITH=""p #CONN=" WITH "-l.IF #SEL_ROOM NES "" THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #SEL_ROOM:30 "\ GET #CONN=" AND "-g.IF #SEL_BEG_DT NES "" THEN GET #WITH=#WITH #CONN " .BEG_DT = #SEL_BEG_DT "\ GET #CONN=" AND "-m.IF #SEL_BEG_TIME NES "" THEN GET #WITH=#WITH #CONN " .BEG_TIME = #SEL_BEG_TIME "\ GET #CONN=" AND "-m.IF #SEL_END_TIME NES "" THEN GET #WITH=#WITH #CONN " .END_TIME = #SEL_END_TIME "\ GET #CONN=" AND "-U.IF #SEL_MEETING NES "" THEN GET #WITH=#WITH #CONN " .MEETING <=> #SEL_MEETING "p MOA$FUNCTION= 'FOR FIRST CRS_RESERVE ' #WITH ' DO GET $CRS_LAST_USED=.CRS_KEY'-@.IF $CRS_LAST_USED EQS "" THEN GET $CRS_LAST_USED=#CRS_LAST_USED~~SHOW_DOCUMENTATION~~ Ep #ORIGDOC=OA$CURDOCp #ORIGTITLE=OA$CURDOC_TITLEp :OA$DISPLAY="Making temporary COPY of DOCUMENTATION . . . " :+"OA$DATA:CRS_HELP.WPL" "MYCOPY_CRS_DOC.WPL",CREATE "XXX",,@#CURDOC,cADD_ATTRIBUTE @#CURDOC,"TITLE", "TEMPORARY COPY OF CRS DOCUMENTATION -- WILL DISAPPEAR AFTER USE"v"MYCOPY_CRS_DOC.WPL"MYCOPY_CRS_DOC.WPL,DELETE_DOCUMENT @#CURDOC,*SELECT #ORIGDOC:30,#ORIGDOC:6:30,,@#CURDOCH6-"Print a copy of CRS documentation [Y/N] ? "-[.IF OA$PROMPT_TEXT:1 EQS "Y" THEN GET #PRINT_FILE="OA$DATA:CRS_HELP.WPL"\ DO WPPRINT@Sn5PENTRY/MODE=UPDATEOA$DATA:CRS_EQP.DAT,VALUECRS_EQP (VALUE OTHER ( @((  CRS_EQP:VALUEOTHER @Z,<MENU/CHOICE=CHOICE/CLEARCRS_MENU2 )CHOICE <  { A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>0" ]p OA$MENU_REMAINDER="CRS"EQ  CRS_EQP 7PU CRS_RESERVE_PURES  CRS_RESERVE_RESRM  CRS_ROOMS 7SPU 7FOA$LIB:CRS_RESERVE_PU.COM/NOPRINT/KEEP/PARAMS=(OA$USER)/QUEUE=FMBUSERSTp "OA$DCL='$ SHOW QUEUE/ALL FMBUSERS'-(.PROMPT 24,1,"Press RETURN to continue."TSQ Qp 0OA$DCL='$ SHOW QUEUE/ALL/OUT=QUEUE.TMP VX*BATCH'" QUEUE.TMP QUEUE.TMPSQP CRS_RESERVE_SQ_PU@SmENTRY/MODE=UPDATECRS_RESERVE_FILE,CRS_KEYCRS_RESERVE ,CRS_KEY ROOM TYPE BEG_DT BEG_TIME END_DT END_TIME MEETING RESERVER CONTACT1 EXT1 CONTACT2 EXT2 AM_YN EQP_YN AV_YN ARR_YN FOOD_YN < @]< @Z A<@| \  !g  / m  !x  /~ ! ! ! = ! =     CRS_RESERVE.CRS_KEYMEETINGoa$table:"CR,PF,SP"oa$table:"CR,PF,SP" @EmARGCRS_RESERVE_D c0rROOM BEG_DT BEG_TIME END_TIME MEETING CONTACT1 EXT1 CONTACT2 EXT2 RESERVER  A`    ( !. //4  c        #ROOMCRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR";.IF OA$SEL_KEY NES "" THEN GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]\\DO CRS_RESERVE_D_GOLDL\\OA$FLD_DONE ELSE DISPLAY No ROOM was selected.BEG_DT,BEG_TIME,MEETING @d $"ARG/PRE='GET #ARGFRM=OA$FORM_NAME'CRS_RESERVE_DATE_OFFSET_ARG 4OFTEN UNIT TIMES REG_DATE   0 Ap )0K  ;p| "Enter NUMBER of HOW OFTEN." #OFTEN B'Enter TIME UNIT of HOW OFTEN: D = Days W = Weeks M = Months' #UNIT(oa$table:"D = Days,W = Weeks,M = Months"oa$table:"D,W,M" &"Enter total OCCURENCES to calculate." #TIMES#BEG_DT 8"Enter DATE from which increments are to be calculated." #REG_DATEH6>4ARG/PRE='GET #ARGFRM=OA$FORM_NAME\GET POST_WHICH=""'CRS_RESERVE_DATE_OFFSET_ARG2 .76WHICH DAY OCCURENCES BEG_DATE POST_WHICH  p( Ap 0l  4p  ="Indicate with 1, 2, 3, or 4 the desired WEEK of each MONTH." #WHICH4oa$table:"1 First,2 Second,3 Third,4 Fourth"oa$table:"1,2,3,4"1'XOP "~~POST_WHICH~~"\GET #POST_WHICH=POST_WHICH' 1"Enter first two letters of desired DAY of WEEK." #DAYXOA$TABLE:"SU Sunday,MO Monday,TU Tuesday,WE Wednesday,TH Thursday,FR Friday,SA Saturday"OA$TABLE:"SU,MO,TU,WE,TH,FR,SA" ?"Enter the total number of incremented Dates to be calculated." #OCCURENCES#BEG_DT @"Enter START DATE if different from the DEFAULT DATE indicated." #BEG_DATENJ ( !'>'"'x' %LINE#,,,*CRSD<'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'  BFMT  "\5]^ikwxy z8P ) + +>*-b(Your only options here are 'D' and 'XD'.*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\  A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>H1 GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERD tp *#DELKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_KEY]="DELETE CRS_RESERVE CRS_KEY=#DELKEY**CRSD> "~~FIND~~"DC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERI > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~EXTDATA~~ =p #EXTDATA="Username" EXTDATA p #USER=#INFOTYPE~~FIND~~ T**CRSDF3*CRSD TO CRS_RESERVE WITH .RESERVER BEGINNING #USERR+,,,*CRSD~~INIT~~ -I.IF $CRS_PRV NES "Y" THEN GET #USER=OA$USER ELSE XOP "~~EXTDATA~~"\IFEXITp BOA$DISPLAY='Indexing Reservations belonging to "' #USER '" . . . ' p #RFA=""~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE @Em; ARGCRS_RESERVE_E AROOM BEG_DT BEG_TIME END_TIME MEETING CONTACT1 EXT1 CONTACT2 EXT2  A`9   h(X  %  +   I   b  h  '  3 #ROOMwCRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR";.IF OA$SEL_KEY NES "" THEN GET ROOM=OA$SEL_KEY\\OA$FLD_NEXTCAPACITYC@IMEPEND_TIME /PUT_SAVE=#END_TIMEPROOM /PUT_SAVE=#PROOM/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING PROOM AND .TYPE EQS "CR";OA$MSG_PURGE\DO CRS_RESERVE_E_GOLDL/POST='DO CRS_RESERVE_VAL_FLD\GET #PROOM=PROOM'/SHOW=BEG_DT,BEG_TIME,END_TIME,MEETING@y4 1J7INDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='XOP "~~FIND~~"'CRS_RESERVE_I JCHOICE POINTER SELECTED LINE MEETING ROOM BEG_DT BEG_TIME END_TIME UNREAD SELECTIONS IEND_DT IROOM ICONTACT1 IRESERVER IBEG_DT IMEETING N %N  dO  jP  pT   xk  !  :  F  L L   0   0  -  <'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!'>'"'x' %LINE# ,,,*CRSIOR  BFMT  "\( ] ^ i k w x y z+ C      + +>*;p 1$CRS_LAST_USED=*CRSIOR.CRS_KEY[OA$SCROLL_ADDRESS] CRS_RESERVE_IOR_MENU*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEX? H *CRSIOR DO GET #X=OA$SEL_COUNTp OA$DISPLAY="INDEXED ITEMS: " #XAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERC }p #CRS_LAST_USED=$CRS_LAST_USED CRS_RESERVE_IA-9.IF $CRS_LAST_USED NES #CRS_LAST_USED THEN XOP "~~BIND~~"CAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOD "p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]-.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED] EQS OA$USER THEN XOP "~~COD~~" ELSE DISPLAY You may NOT 'COD' this reservation.\GET $CRS_LAST_USED=#CRS_LAST_USEDCOI p #COI_QUIT="Y"p #RFA=OA$SCROLL_ADDRESS>"~~ID_LAST_USED~~"CRS_RESERVE_COI-6.IF #COI_QUIT EQS "Y" THEN OA$NULL ELSE XOP "~~BIND~~"COM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOR p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]-.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED] EQS OA$USER THEN XOP "~~COR~~" ELSE DISPLAY You may NOT 'COR' this reservation.\GET $CRS_LAST_USED=#CRS_LAST_USEDCOT p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]-.IF $CRS_PRV EQS "Y" OR CRS_RESERVE.RESERVER[$CRS_LAST_USED] EQS OA$USER THEN XOP "~~COT~~" ELSE DISPLAY You may NOT 'COT' this reservation.\GET $CRS_LAST_USED=#CRS_LAST_USEDD p #RFA=OA$SCROLL_ADDRESSp &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]-8.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"z-8,DC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERE  >"~~E~~"EM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGT -.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY You must specify GOTO xxxx where 'xxxx' is part of the file spec. ELSE XOP "~~GT~~"I > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIOR > "~~IFIND~~"LEFTOVERS _p #DT=CRS_RESERVE.BEG_DT[#CRSKEY]p !#TI=CRS_RESERVE.BEG_TIME[#CRSKEY]p #RO=CRS_RESERVE.ROOM[#CRSKEY]p '#CUROWNER=CRS_RESERVE.d A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>qORESERVER[#CRSKEY]-U.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-h.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAYMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNOT p #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]CRS_RESERVE_NOTp $CRS_LAST_USED=#CRS_LAST_USEDP o-j.IF *CRSIOR.%FIRST[""] NES "" THEN XOP "~~P~~" ELSE DISPLAY There is no Index information listed to print.PD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERR kp #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESS>"~~R~~"p $CRS_LAST_USED=#CRS_LAST_USEDSI %**CRSIOR> "~~SORT~~"SM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSO p #RFA=OA$SCROLL_ADDRESSp #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]p +#OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]-y.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN DO CRS_RESERVE_SO ELSE DISPLAY You may NOT use 'SO' on this reservation.p $CRS_LAST_USED=#CRS_LAST_USED-b.IF (#SI_RESERVER NES "") AND (#RESERVER NES #SI_RESERVER) THEN OA$SCL_REMOVE #RFA\OA$SCL_REFRESHSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXCOD m>"~~PRE_XCOD~~"p UOA$DISPLAY=#VNUM " out of " #TNUM " attempted reservations were copied successfully."XCOI m>"~~PRE_XCOI~~"p UOA$DISPLAY=#VNUM " out of " #TNUM " attempted reservations were copied successfully."XD -c.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\GET OA$STATUS=0 ELSE GET OA$STATUS=1 |Ip #DEL_RECS=0p #RFA="">"~~XD~~"-&.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"z-8,XNOT -c.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\GET OA$STATUS=0 ELSE GET OA$STATUS=1 CRS_RESERVE_XNOTXR bp #RFA=""p #CRS_LAST_USED=$CRS_LAST_USED>"~~XR~~"p $CRS_LAST_USED=#CRS_LAST_USEDXSO -c.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\GET OA$STATUS=0 ELSE GET OA$STATUS=1 p #RFA=""p #STATUS=1-6.IF $CRS_PRV NES "Y" THEN XOP "~~SO_CHECK_OWNERSHIP~~"-\.IF #STATUS EQ 0 THEN DISPLAY At least one of the selected reservations is NOT yours to SO.p OA$STATUS=#STATUS >"~~SO_PROMPT~~"p OA$STATUS=#SSTAT > "~~XSO~~"8,~~BIND~~ p OA$DISPLAY="Working . . . " **CRSIOR>"~~BUILD_BIND~~"p 1OA$FUNCTION='BINDW *CRSIOR TO CRS_RESERVE ' #WITHR+ ,,,*CRSIORb~~BUILD_BIND~~ #p #WITH=""p #CONN=" WITH "-.IF (#SI_BEG_DTR:8 NES "" AND #SI_END_DTR EQS "") OR (#SI_BEG_DTR NES "" AND #SI_END_DTR EQS #SI_BEG_DTR) THEN GET #WITH=#CONN " .CRS_KEY:8 = #SI_BEG_DTR:8 "\ GET #CONN=" AND "-.IF (#SI_BEG_DTR NES "" AND #SI_END_DTR NES "" AND #SI_BEG_DTR NES #SI_END_DTR) THEN GET #WITH=#WITH #CONN " .CRS_KEY:8 GE #SI_BEG_DTR AND .CRS_KEY:8 LE #SI_END_DTR "\GET #CONN=" AND "-c.IF (#SI_ROOM NES "") THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #SI_ROOM:30 "\GET #CONN=" AND "-b.IF (#SI_MEETING NES "") THEN GET #WITH=#WITH #CONN " .MEETING <=> #SI_MEETING "\GET #CONN=" AND "-e.IF (#SI_CONTACT1 NES "") THEN GET #WITH=#WITH #CONN " .CONTACT1 <=> #SI_CONTACT1 "\GET #CONN=" AND "-P.IF (#SI_RESERVER NES "") THEN GET #WITH=#WITH #CONN " .RESERVER = #SI_RESERVER"~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~COD~~ fCRS_RESERVE_CODp #COD_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USED~~COR~~ fCRS_RESERVE_CORp #COR_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USED~~COT~~ fCRS_RESERVE_COTp #COT_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USED~~D_CHECK_OWNERSHIP~~ tp $#DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]p &#TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]p "#RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]p )#OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]-V.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-k.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY~~D~~ p 4#PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "H6#PROMPT-E.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE GET #DSTAT="1"p OA$STATUS=#DSTAT ='DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY-H.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"-e.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSE PROMPT "Delete failed. Press RETURN. "\OA$FLD_STAY~~E~~  p #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]p &#DT=CRS_RESERVE.BEG_DT[$CRS_LAST_USED]p (#TI=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]p $#RO=CRS_RESERVE.ROOM[$CRS_LAST_USED]p +#OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]-V.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY ELSE DO CRS_RESERVE_E\CLOSE_PRIOR\XOP "~~BIND~~"~~FIND~~ :p #RFA=""**CRSIORp #STAT=1 CRS_RESERVE_SI_ARG-.IF #STAT EQ 0 THEN OA$FLD_EXITp OA$STATUS=#STAT p IROOM=#SI_ROOMp IBEG_DT=#SI_BEG_DTp IEND_DT=#SI_END_DTp ICONTACT1=#SI_CONTACT1p IRESERVER=#SI_RESERVERp IMEETING=#SI_MEETINGp OA$STATUS=#STAT > "~~BIND~~"~~GT~~ |Ip #PLINES=#LINES-k.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\ GET OA$MENU_REMAINDER=""\ GET #PLINES=0p #X=0p #LINES=0p #STATUS=0 *CRSIOR DO COMPUTE #X=#X+1\ .IF .MEETING <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\ GET #STATUS=1\ GET OA$STATUS=#STATUS\ IFNOTSTATUS-.IF #LINES  < A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>^GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE GET OA$DISPLAY="No (more) file specs <=> '" #obj "'."\ GET #OBJ=""~~ID_LAST_USED~~ p ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA] FIRST CRS_RESERVE WITH .CRS_KEY = $CRS_LAST_USED DO GET #ROOM=.ROOM\ GET #MEETING=.MEETING\ GET #TYPE=.TYPE\ GET #BEG_DT=.BEG_DT\ GET #BEG_TIME=.BEG_TIME\ GET #END_DT=.END_DT\ GET #END_TIME=.END_TIME\ GET #RESERVER=.RESERVER\ GET #CONTACT1=.CONTACT1\ GET #EXT1=.EXT1\ GET #CONTACT2=.CONTACT2\ GET #EXT2=.EXT2~~PRE_XCOD~~ q|Ip #TNUM=#VNUM=0>"~~XCOD_DATE~~" p OA$DISPLAY="Working . . . " p #RFA=""> "~~XCOD~~"~~PRE_XCOI~~ |Ip #TNUM=#VNUM=0CRS_RESERVE_COI_TABLE-N.IF #RESP EQS "Y" AND #TABLE NES "" THEN GET OA$STATUS=1 ELSE GET OA$STATUS=0 p OA$DISPLAY="Working . . . " p #RFA=""> "~~XCOI~~"~~P~~  AUTO SELECT FOR *CRSIOR DO SEL_STYLE .ROOM:14 " " .BEG_DT:13 .BEG_TIME:7 .END_TIME:7 .CONTACT1:20 .MEETING:30/STYLE=FILE/LIST="CRS_INDEX.TMP"H CRS_INDEX.TMPCRS_RESERVE_I.BLP,CRS.TMPp #PRINT_FILE="CRS.TMP"WPPRINT-A.IF OA$DIR:"*.*".ALLBUTVER["CRS.TMP"] NES "" THEN DELETE CRS.TMP-L.IF OA$DIR:"*.*".ALLBUTVER["CRS_INDEX.TMP"] NES "" THEN DELETE CRS_INDEX.TMP~~R~~ p ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA] CRS_RESERVE_R->.IF OA$FORM_TERMINATOR = 112 THEN GET #STAT=0 ELSE GET #STAT=1~~SORT_BIND~~ p OA$DISPLAY="Working . . . " **CRSIORp ?OA$FUNCTION="BINDW/SORT=" #SRT " *CRSIOR TO CRS_RESERVE " #WITHR+ ,,,*CRSIORb~~SORT~~ sp .#GEN_TITLE=" Select SORT Preferences"p O#GEN_FIELDS="SELECT Sort fields in the order desired from those listed below: "p #TEXT_ALIAS='.%WHOLE'p &#GEN$MENU="CRS$RESERVE$INDEX$SORT$ARG"p ,#GEN_INDEX_ARG="$CRS$RESERVE$INDEX$SORT$ARG" +GEN$INDEX/MORE="CRS$RESERVE$INDEX$SORT$ARG"-<.IF #SRT NES "" THEN XOP "~~SORT_BIND~~" ELSE XOP "~~BIND~~"~~SO_CHECK_OWNERSHIP~~ OA$SCROLL_DATA_SET,#RFA p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]-@.IF CRS_RESERVE.RESERVER[#CRSKEY] NES OA$USER THEN GET #STATUS=0p OA$STATUS=#STATUS 7~~SO_PROMPT~~ H6 "New Owner: "p #NEWOWNER=OA$PROMPT_TEXT-g.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN GET #SSTAT="0" ELSE GET #SSTAT="1"p OA$STATUS=#SSTAT -Q.IF #NEWOWNER NES "" THEN GET OA$DISPLAY= "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ p #STAT=1=4CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER-R.IF (#SI_RESERVER NES "") AND (#NEWOWNER NES #SI_RESERVER) THEN OA$SCL_REMOVE #RFA~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE~~XCOD_DATE~~ Gp 3#SCREEN_TITLE="Copy selected records to what date?" VALID_DATE~~XCOD~~ dOA$SCROLL_DATA_SET,#RFA >"~~ID_LAST_USED~~"CRS_RESERVE_XCOD #TNUM=#TNUM+17~~XCOI~~ OA$SCROLL_DATA_SET,#RFA >"~~ID_LAST_USED~~" VOA$TABLE:#TABLE DO GET #REG_DATE=.%KEY\ DO CRS_RESERVE_XCOI\ COMPUTE #TNUM=#TNUM+17~~XD~~ OA$SCROLL_DATA_SET,#RFA p &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"7~~XR~~ POA$SCROLL_DATA_SET,#RFA >"~~R~~"p OA$STATUS=#STAT 7~~XSO~~ OA$SCROLL_DATA_SET,#RFA p !#OWNER=CRS_RESERVE.RESERVER[#RFA]p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~SO~~"7 @y! 65)7INDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='XOP "~~FIND~~"'CRS_RESERVE_IA yuDCHOICE POINTER SELECTED LINE ROOM UNREAD SELECTIONS BEG_DT BEG_TIME END_TIME MEETING DAY_UV_WEEK N N O P "T  $v Ly  |  / :#  #<'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!'>'"'x' %LINE .KEY# ,,,*CRSIA  BMSTipw ~ "\]"^)i0k?wWxoyzA H ` x  + +>* CRS_RESERVE_IA_MENUwCRS_RESERVE_IA_SELECT-9.IF #COUNT EQ 0 THEN GET OA$STATUS=0 ELSE GET OA$STATUS=1 >"~~GOLDS_BIND~~"*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEX? G *CRSIA DOp #X=OA$SEL_COUNTp OA$DISPLAY="INDEXED ITEMS: " #XAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERC > "~~FIND~~"CAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$M! E^69hG`o6Bo4=IFirPTUMZ`J5=s}jZ d~2PwMbn3hpe*eI+BP 7W#*hX6vkIY.Sx aIzQr/~ZeGծ@su_i}'7:&$I1nJ<5@ Riw# MXp}8'hzX"q*U8ab'?$-nz;](#C*xFIBtWIS.Tc#H=yv[)z.8B t\H4wrE[!;l(dLWu_b\lTZsajl꯺Ƈ򳛨o;F"e͜燲=. JiݮY1[[g_3 sVY3/tE*%+2 ]m76?u)cSy7B ;twlP)!IWEl}uv#z<>efy%}sz3)WIJNj|8 W4R(&t ^y$7dMXLK}{0 G{3` _T$BAfKo`3$}r,Y2A%f]:@KV5v{hG];G'0W9 !`MD/LW "^?ԝ7&q~MThaf%O{K]A;8 Do!:XO2X~ub ))@ WKH\ +kifStB\L1J@!3-7O{vmPMQ3CN(e0Z6Zp_r]MCJq"kG9B-n^Qr}mP2:X)/@A,![w^v! $X2O00@ %,"S0Jx"|55" n#^8& QrrU74AE4/m|u]'DdTt Ws/q{KB6s7^ R}5Z()+~I}z>*{JXJ2XLlw "5b 0j6q0q+f3"{0P@=kQW,>nd-`l7z:VEO|&%nqXAQ7ZŶ창ݘ*'Դm}=3[}}hmULnEbG6`^'<1gSL-/5:!Zq93LW0*qdDty*0ba# !XGy3Yqx<;~S@6"RhI3 3Ke4 0zf^f`CxXi)5:4@Pkfiz"AU.k/I) `.! Q(tNCX./H<DX+^J ?e'nc\wppO*:oGbC.~BisYOB9rq_}H\X)C.(Dmc0WkYfdT uY@u 525N=kNٯӱ͠P'EI%R)D@]|cZNw&B ;h7X97:wn F>}gO9eT%L c4{>E;|= TFV@)/n%+c^BFc%!LER^4HsFF,f \p='xjxYY]2FD[M!L{X $:'b!] qvM Q)9Xs:l^R/p{ŧ[YEy/\-p$tM5%?6!1/RQ?S?i!dB5tk0k"QtwKmk\$$=hwaYZ>0V)Z5_ZYf%D I*Mob3a=MUes.{o'8-脴֧ħ5̫6X-. A&]?5hvr{'9p#H{=ԙgk Z!2KJ~0!=X|kdS.'aGNz>FRV;F`zmMMjmoa|qiF>9qP>y^NNX0E5my9 E|L04plwsB$68X0$L*B1t5b p?DxsE/|wB@4:;t>>,ec gA;dW K>Yu0B)?UqAAuF[#>^&cN$=BV08dsEZ9tWOg71aP]F &<|L_ LbizDeqZA0V.y <>]R6t0g5OZ|)} O?PqI0FOpE;uE$: QN8 3G\8_?;=R9=EE'W[eA DMYr!OKVAgiGX"fd7~$wX*juwG4_tr }1 K)H ]O18?F3OVL@Ljy'HJ2'3`7K3 +0TQ6SAJ}gbww! &#z*X]&V~C@gW8@ID>fN3aoT7+U0_Z;BeT2KzJqy=GNQ`/J~$c}^ C'JG@YLiPh ZKMpGA{6@?K4_PoA-rt& wLu=CK%4. mO2ClaR\'YQL!mpjgAu5SwtA-6@i(d8wO MHlkN9D /a]??'vz!q<"IS{joO]get$?WPYg2PoThvA 6} ;~fihEGnov\_0%A]13U>r(YC[ab9`zjjax,Q1)GI/:5uw(- Y`s,`|}jjZ+R%; _o1x|E tG}o?*\3q lx;{TKn鱪&ԃIۅɶs,]u11Q$hx=c_sog|t-8cQGS6bQ( OA; _L+>n] vSH,sT\h`dK1N^2ed.R@<(.j Y([d9@ZOHMZpzkt[.NF!~Q MW.JJ~ernnI?hnO~+TCAav[Z]$'s7@> Ft>=<_af}XG.5tqb`VS)B@|%fp HHs|'371JD c3pYpqR l}F[p]&H7!oq*ETM]e`=]&W tp9LZ8`q7w8t"+#Ħxًƭբt٧+pn-bO:i$3v$&`MFZe+ap c\L Q:K@!Boguw y"$6Y>in ,k3#rml`&*K4si?FX8po_ lwQJKs"Y6 W_5:U>\)xHpY5M)H& ;3 c97Bj[]m$j-sxr}!n/hci Xb,l} n/x,sa^hQVaO>LQ~m"5@}Iu /k%c^X = iw/~",>i7U@A.`D/v 6DyS*qu'A`0Wdo|{(T;}j{g* 0;I}O*SzvYxS"kM9KPPO5vVYAWvuReC_CU汯c?"y L.[C !G;g1ypybR.82Km75) L`h~aC68/;P\G{,FqR+t>qLF,(C[Z@QG"qj!zhnp#B V@]5W!4\ZMK(/!|q0o|FTLptIA?2Ehs&Ka50 GT2NO?c0:X^E+5&Wpu~"NHYpM JF7j%v\sI4lc\ 0(rNPU\|jlrp>^P{Lr >>4FGUYQ@:;= ;]p 53Gr%A >xB HOh kEML~GZuwOW6`N{{ riWr~3\/}+JAA:C_:[r/i? V@mD]. ARK^|+IH"vkj s?[Ym6ukb^lPeb(*J7G0w-{Qtae-g19~=_!<29DIvr\wDk-wOqW(zU5*4va +L6KqhbG]Hji] *.71V]HMK0-(*OO=Gsr$'|Yvn tqdG@|QYQqWn0mBzGeewtfrjMO'.?/`4-~]%r0{:5K+}Pe2',CLT{kId[YlGvyYCz_xw!7HOZG-l} 4CYs}[A]7vS\3p"+@g~ ,>LbATkP_nDAOƁܽ眕)ŧd8D~swpH Ic!pA_378`C(2Diec]*_t|#"WJ*jR:&JQ=+IDeqrx]pF(J`f*?A/nRl P)B$eRTGRC) { `g3A_dF ?P8S-*|OyP-8n^6p#/' a.qc;0E=z:VvlasV_Axy ]77p Q"Ss_Sav[Xg+n9h'aUT.{?,]In1 1o-4|ͅ׈ms5,߇GjF=,f)"n<~O 4$IwiD5-6%iQk 2+ PP* ,#Yry_B=pY-wn| :V}@$PE[txOd&t&# bv.u)9SDW,{S"QʣL+zGYj/ zQtqnUnxm~sY2S1.5j+HPW5-N3m(xzi b,[2m3''KL) G8K M!4`Aw0@sh}+Yp|t5*7 l{ xxa> FF;y>^ch/xm,=)-^ &^"ge `o,Y\/j_SzMB /H8MfE;^ k3!ijfaikHOwKk oX'g0GY|nA$]~~A)F#?:^7{:%dj)JIhL jPvu23-҂cIul~wT TY,:D)@ku?=?'>K &v 4ZQ~CDj"2kV7S}\ ,_)6?|_N0~$LG 7/^Fk1zgQB !* .%0VCi2U\ 'fRJ%VA*u LO)+.`m8 Xfx?j%l)M4O)*pYx p/eW2etvw\ =)*^)!=,./v.,LjxI<$9SZW>+wTax(q#tA#&xi1!VT\zromfIt&z6*f;.GV/4j+;;{kR_^+7S'Qyp{3f{*!*4=7>"GXMK@lZ8Q%VbV)uXcF /zPHL:dmZPo3` ZgJ+ s\ vHKe\Fl*g'Ml]bqH- ן͇^e/+ I ӡ.#9 MrN) - wst>F,T!,5l g)H`qJZ_5E;r+Nfi:?N 7g X|3=4G)uN0vne9 LsXp8 U0K0qlR8L`(K6Rg +O-7ml|M0dwtq<4M'J^%@BZ)EkOh68FQEnPcĮN-&"~B5tUAm>((N$*3A%tF2N{%Zy8R-e JWRrVVyak:E00"&6ZZ=QzW7d0axӵһҵé֟}ٴšlj股Ɓȫԇ *=CwRLM?V[8[O&%0J^R^[$[MSXI'[#G@Wz'8%VTib'D 8.+p[@ :/@#Xlja9 84R|MedIs3D(xS~=K@c4[NW=D\0;Ry~8li7}~\\#2[k"&?_7_sbQPq_P;8X2P>Q8M"" A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>.mENU_CHOICE " " OA$MENU_REMAINDERCOI +>"~~ID_LAST_USED~~"CRS_RESERVE_COICOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGT -.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY You must specify GOTO xxxx where 'xxxx' is part of the ROOM name. ELSE XOP "~~GT~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERRC 7p %#SRC_RM=*CRSIA.KEY[OA$SCROLL_ADDRESS]>"~~RC~~"RI t-o.IF OA$DIR:"*.*".ALLBUTVER["GEN_ENTRY.DAT"] NES "" THEN XOP "~~REBIND~~" ELSE DISPLAY No original Index exists.RR p /#ROOM=#RESROOM=*CRSIA.KEY:30[OA$SCROLL_ADDRESS]>"~~RR~~"-c.IF #TVALID EQS "Y" THEN XOP "~~BIND~~"\GET OA$DISPLAY="'" #RESROOM "' has been RESERVED for you. "SEA wCRS_RESERVE_IA_SELECT-9.IF #COUNT EQ 0 THEN GET OA$STATUS=0 ELSE GET OA$STATUS=1 >"~~GOLDS_BIND~~"SM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXRC p #RFA=""> "~~XRC~~"XRR |Ip #VROOMS=0p #XROOMS=0p #RFA=""> "~~XRR~~"-x.IF #VROOMS GT 0 THEN XOP "~~BIND~~"\GET OA$DISPLAY=#VROOMS " out of " #XROOMS " ROOMS requested were RESERVED for you."~~BIND~~ p OA$DISPLAY="Working . . . " **CRSIAH GEN_ENTRYCRS_RESERVE_IA-Q.IF #COUNT EQ 0 THEN GET #STATUS=0\DISPLAY No ROOMs available. ELSE GET #STATUS=1p OA$STATUS=#STATUS t*CRSIA TO GEN_ENTRYR+ ,,,*CRSIAb~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~FIND~~ p #RFA=""p #TSTAT=1p '#MEETING=#BEG_DT=#BEG_TIME=#END_TIME=""**CRSIA CRS_RESERVE_IA_ARG- .IF #TSTAT EQ 0 THEN OA$FLD_EXITp OA$STATUS=#TSTAT p BEG_DT=#BEG_DTp BEG_TIME=#BEG_TIMEp END_TIME=#END_TIMEp MEETING=#MEETING #DAY_UV_WEEK,#BEG_DT,5p ##DAY_UV_WEEK="(" #DAY_UV_WEEK:3 ")"p DAY_UV_WEEK=#DAY_UV_WEEKp OA$STATUS=#TSTAT -=.IF #COUNT EQ 0 THEN XOP "~~BIND~~" ELSE XOP "~~GOLDS_BIND~~"~~GOLDS_BIND~~ 7**CRSIAt*CRSIA TO CGEN_ENTRYR+ ,,,*CRSIA~~GT~~ |Ip #PLINES=#LINES-k.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\ GET OA$MENU_REMAINDER=""\ GET #PLINES=0p #X=0p #LINES=0p #STATUS=0 *CRSIA DO COMPUTE #X=#X+1\ .IF .KEY <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\ GET #STATUS=1\ GET OA$STATUS=#STATUS\ IFNOTSTATUS-.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE GET OA$DISPLAY="No (more) file specs <=> '" #obj "'."\ GET #OBJ=""~~ID_LAST_USED~~ p 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] RFIRST CRS_RESERVE WITH .CRS_KEY = $CRS_LAST_USED DO GET #ROOM=.ROOM\GET #MEETING=.MEETING\ GET #TYPE=.TYPE\ GET #BEG_DT=.BEG_DT\ GET #BEG_TIME=.BEG_TIME\ GET #END_DT=.END_DT\GET #END_TIME=.END_TIME\GET #RESERVER=.RESERVER\ GET #CONTACT1=.CONTACT1\GET #EXT1=.EXT1\GET #CONTACT2=.CONTACT2\GET #EXT2=.EXT2~~RC~~ = 3CRS_ROOMS/SAVE_START=#SRC_RM/ONE_ENTRY/MODE=INQUIRE~~REBIND~~ _**CRSIAt*CRSIA TO GEN_ENTRYR+ ,,,*CRSIAb$Original Index has been redisplayed.~~RR~~ CRS_VAL_ROOM_IA~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE~~XRC~~ POA$SCROLL_DATA_SET,#RFA p #SRC_RM=*CRSIA.KEY[#RFA]>"~~RC~~"7~~XRR~~ OA$SCROLL_DATA_SET,#RFA p #ROOM=*CRSIA.KEY[#RFA]CRS_VAL_ROOM_IA#XROOMS=#XROOMS+1-2.IF #TVALID EQS "Y" THEN COMPUTE #VROOMS=#VROOMS+17 @m2hw +ARG/OVERLAY/PRE='GET #TSTAT=1\GET #COUNT=0'CRS_RESERVE_IA_ARG 0BEG_DT BEG_TIME END_TIME MEETING CONTACT1 EXT1 CONTACT2 EXT2 DAY_UV_WEEK h( ' 0 2 *  4  M 1 #1*y A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>Z|S  l 1 r #BEG_DT #BEG_DTCOA$TABLE:"SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY".IF OA$FIELD_NAME NES "EXT2" THEN OA$FLD_NEXT ELSE OA$FLD_DONECp CONTACT1=PROFIL.FULNAM[OA$USER]p EXT1=PROFIL.PHONE[OA$USER]\bJUse GOLD S from Index display to search for specific ROOM characteristics.p #COUNT=0p #DIR="B" \p #DIR="F"-J.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE DO CRS_RESERVE_VAL__FLDp #TSTAT=0OLD_CRS_CVT_DAY p #BEG_DT=BEG_DT CRS_CVT_DAY-.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THEN GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"OLD_GOLD_O p BEG_DT=#BEG_DTp BEG_TIME=#BEG_TIMEp END_TIME=#END_TIMEp MEETING=#MEETINGp CONTACT1=#CONTACT1p CONTACT2=#CONTACT2p EXT1=#EXT1p EXT2=#EXT2PREV_GOLD_S -.IF BEG_DT NES "" AND BEG_TIME NES "" AND END_TIME NES "" AND MEETING NES "" AND CONTACT1 NES "" AND EXT1 NES "" THEN OA$FLD_DONE\DO CRS_RESERVE_IA_SELECT\CLOSE_PRIOR ELSE DISPLAY Please complete MEETING information before entering additional criteria.~~CHECK_BEFORE_TODAY~~ S #TEST,BEG_DT,7-;.IF #TEST:8 LTS OA$DATE_NBS:8 THEN XOP "~~EARLY_WARNING~~"~~CHECK_TIME~~ n-i.IF BEG_TIME GTS END_TIME THEN DISPLAY End time is earlier than beginning time!\OA$FRM_SET_FIELD BEG_TIME~~CRS_CVT_DAY~~ p #BEG_DT=BEG_DT #DAY_UV_WEEK,#BEG_DT,5p "DAY_UV_WEEK="(" #DAY_UV_WEEK:3 ")"-.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THEN GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"~~EARLY_WARNING~~ Zp K#DISP="DATE earlier than TODAY! Press EXIT_SCREEN and correct if desired."H6#DISP~~SDISPLAY~~ -.IF BEG_DT NES "" AND BEG_TIME NES "" AND END_TIME NES "" AND MEETING NES "" AND CONTACT1 NES "" AND EXT1 NES "" THEN DISPLAY Use GOLD S to enter specific ROOM criteria if desired.@6<YLarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/overlayCRS_RESERVE_IA_MENU 4CHOICE0 <  @6<Larg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/overlayCRS_RESERVE_INCRR_MENU :CHOICE0 <  RR p #RESROOM=#ROOMp #RFA=OA$SCROLL_ADDRESSp #BEG_DT=*GEN.KEY:11:8[#RFA]>"~~RR~~"-.IF #TVALID EQS "Y" THEN OA$SCL_REMOVE #RFA\OA$SCL_REFRESH\GET OA$DISPLAY="'" #RESROOM "' has been RESERVED for you. "\GET #COI_QUIT="N"XRR |Ip #VROOMS=0p #XROOMS=0p #RFA=""> "~~XRR~~"8,p #COI_QUIT="N"p VOA$DISPLAY=#VROOMS " out of " #XROOMS " reservations requested were RESERVED for you."~~BIND~~ 0**GENF*GEN TO GEN_ENTRYR+,,,*GEN~~FIND~~ > "~~BIND~~"~~INIT~~  p #RFA=""~~RR~~ CRS_VAL_ROOM_IA~~XRR~~ OA$SCROLL_DATA_SET,#RFA p #BEG_DT=*GEN.KEY:11:8[#RFA]CRS_VAL_ROOM_IA#XROOMS=#XROOMS+1-\.IF #TVALID EQS "Y" THEN GET OA$FUNCTION= 'COMPUTE #VROOMS=#VROOMS+1\OA$SCL_REMOVE #RFA'7 @y! 1.7INDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='XOP "~~FIND~~"'CRS_RESERVE_IOR_INDEX CHOICE POINTER SELECTED LINE BEG_DT BEG_TIME END_TIME ROOM MEETING UNREAD SELECTIONS RESERVER N N O P  T :_ Fd Li !  $ L  &<'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!'>'"'x' %LINE# ,,,*CRSIOR  BMT z"\]^ikwxyz- + +>* CRS_RESERVE_IOR_MENU*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @$v[ A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>eVp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOD p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_CODp #COD_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOR p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_CORp #COR_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDCOT p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_COTp #COT_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDD p #RFA=OA$SCROLL_ADDRESSp &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]-8.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"z-8,DC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERE p #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] CRS_RESERVE_E-;.IF #CHG_KEY EQS "Y" OR #M NES #MEETING THEN XOP "~~BIND~~"EM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIOR > "~~IFIND~~"MAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERP  >"~~P~~"PD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERR wp #CRS_LAST_USED=$CRS_LAST_USEDp $CRS_LAST_USED=OA$SCROLL_KEY CRS_RESERVE_Rp $CRS_LAST_USED=#CRS_LAST_USEDSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSO p #RFA=OA$SCROLL_ADDRESSp .#CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]>"~~SO_CHECK_OWNERSHIP~~"p OA$STATUS=#OSTAT >"~~SO_PROMPT~~"p OA$STATUS=#SSTAT >"~~SO~~"8,SP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXD d|Ip #DEL_RECS=0p #RFA="">"~~XD~~"-&.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"z-8,XSO Mp #RFA="">"~~SO_PROMPT~~"p OA$STATUS=#SSTAT > "~~XSO~~"8,~~BIND~~ p DOA$DISPLAY="Locating reservations belonging to " #RESERVER " . . . " **CRSIORt9*CRSIOR TO CRS_RESERVE WITH .RESERVER BEGINNING #RESERVERR+ ,,,*CRSIORb~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~D_CHECK_OWNERSHIP~~ tp $#DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]p &#TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]p "#RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]p )#OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]-V.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-k.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY~~D~~ p 4#PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "H6#PROMPT-E.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE GET #DSTAT="1"p OA$STATUS=#DSTAT ='DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY-H.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"-e.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSE PROMPT "Delete failed. Press RETURN. "\OA$FLD_STAY~~FIND~~ "p #STAT="1"-.IF OA$MENU_REMAINDER NES "" THEN GET RESERVER=#RESERVER=OA$MENU_REMAINDER\GET OA$MENU_REMAINDER="" ELSE GET RESERVER=#RESERVER=OA$USER**CRSIORp DOA$DISPLAY="Locating reservations belonging to " #RESERVER " . . . " p OA$STATUS=#STAT > "~~BIND~~"~~IFIND~~ >>"~~PROMPT_USER~~"p OA$STATUS=#STAT > "~~BIND~~"~~PROMPT_USER~~ vp #STAT="0"H6 "Reserver: "p !#RESERVER=RESERVER=OA$PROMPT_TEXT-'.IF #RESERVER NES "" THEN GET #STAT="1"~~P~~  AUTO SELECT FOR *CRSIOR DO SEL_STYLE .MEETING:25 " " .ROOM:21 " " .BEG_DT:13 .BEG_TIME:7 .END_TIME/STYLE=FILE/LIST="CRSIOR_P.TMP"H CRSIOR_P.TMPCRSIOR_P.WPL,CRSIOR_PRINT.WPLp #PRINT_FILE="CRSIOR_PRINT.WPL"WPPRINT-K.IF OA$DIR:"*.*".ALLBUTVER["CRSIOR_P.TMP"] NES "" THEN DELETE CRSIOR_P.TMP-R.IF OA$DIR:"*.*".ALLBUTVER["CRSIOR_PRINT.WPL"] NES "" THEN DELETE CRSIOR_PRINT.WPL~~SO_CHECK_OWNERSHIP~~ _p #DT=CRS_RESERVE.BEG_DT[#CRSKEY]p !#TI=CRS_RESERVE.BEG_TIME[#CRSKEY]p #RO=CRS_RESERVE.ROOM[#CRSKEY]p '#CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]-U.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-h.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY~~SO_PROMPT~~ H6 "New Owner: "p #NEWOWNER=OA$PROMPT_TEXT-g.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN GET #SSTAT="0" ELSE GET #SSTAT="1"p %3 A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>OA$STATUS=#SSTAT -Q.IF #NEWOWNER NES "" THEN GET OA$DISPLAY= "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ =4CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER-.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN PROMPT 'SO procedure has failed. Press RETURN.'\OA$FLD_STAY ELSE OA$SCL_REMOVE #RFA~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE~~XD~~ OA$SCROLL_DATA_SET,#RFA p &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"7~~XSO~~ OA$SCROLL_DATA_SET,#RFA p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~SO_CHECK_OWNERSHIP~~"-$.IF #OSTAT EQS "1" THEN XOP "~~SO~~"7@6<YLarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/overlayCRS_RESERVE_IOR_MENU CHOICE0 <  @EmX{ARGCRS_RESERVE_R ROOM BEG_DT BEG_TIME END_TIME MEETING CONTACT1 EXT1 CONTACT2 EXT2 RESERVER  `    ( !. /4  R  p  v    #ROOMCRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR" OR .TYPE EQS "SP";.IF OA$SEL_KEY NES "" THEN GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]\\DO CRS_RESERVE_D_GOLDL\\PROMPT ELSE DISPLAY No ROOM was selected.BEG_DT,BEG_TIME,MEETING p .OA$DISPLAY='Selecting next reservation . . . ' p 0$CRS_LAST_USED=CRS_RESERVE.%NEXT[$CRS_LAST_USED] CRS_RESERVE_R@Emm[#WFARGCRS_RESERVE_RC ^ROOM CAPACITY ARRANGEMENT EQP1 EQP2 EQP3 EQP4 EQP5  @@   <  7X 2 2 2 2% tCRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM;.IF OA$SEL_KEY NES "" THEN GET #SEL_KEY=OA$SEL_KEY\\DO CRS_RESERVE_RC_GOLDL gp &#NEXT_ROOM=CRS_ROOMS.%NEXT[#NEXT_ROOM]p !#C=CRS_ROOMS.CAPACITY[#NEXT_ROOM]p $#A=CRS_ROOMS.ARRANGEMENT[#NEXT_ROOM]p #E1=CRS_ROOMS.EQP1[#NEXT_ROOM]p #E2=CRS_ROOMS.EQP2[#NEXT_ROOM]p #E3=CRS_ROOMS.EQP3[#NEXT_ROOM]p #E4=CRS_ROOMS.EQP4[#NEXT_ROOM]p #E5=CRS_ROOMS.EQP5[#NEXT_ROOM] CRS_RESERVE_RC/PRE='GET ROOM=#NEXT_ROOM\GET CAPACITY=#C\GET ARRANGEMENT=#A\GET EQP1=#E1\GET EQP2=#E2\GET EQP3=#E3\GET EQP4=#E4\GET EQP5=#E5' @y,7INDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='XOP "~~FIND~~"'CRS_RESERVE_RES vCHOICE POINTER SELECTED LINE MEETING BEG_DT BEG_TIME RESERVER ROOM UNREAD SELECTIONS N N O P T , g  r w @  L <'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!'>'"'x' %LINE# ,,,*CRSRES  WB^MjT %,"3\]C^JiQk`wxxyzbi+ +>* CRS_RESERVE_RES_MENU*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEX? H *CRSRES DO GET #X=OA$SEL_COUNTp OA$DISPLAY="INDEXED ITEMS: " #XAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM &, A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>\% @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERD zp +#KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] 1CRS_RESERVE/SAVE_START=#KEY/MODE=DELETE/ONE_ENTRY> "~~BIND~~"DC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERE zp +#KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] 1CRS_RESERVE/SAVE_START=#KEY/MODE=CHANGE/ONE_ENTRY> "~~BIND~~"EM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGT -.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY You must specify GOTO xxxx where 'xxxx' is part of the SEARCH SPEC. ELSE XOP "~~GT~~"I > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPI  WAUTO SELECT FOR *CRSRES DO SEL_STYLE .CRS_KEY:60 .RESERVER/STYLE=FILE/LIST="CRSRES.TMP"H CRSRES.TMPp #PRINT_FILE="CRSRES.TMP"WPPRINT CRSRES.TMPPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERR lp +#KEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] 2CRS_RESERVE/SAVE_START=#KEY/MODE=INQUIRE/ONE_ENTRYSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSO p #RFA=OA$SCROLL_ADDRESSp #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]p +#OWNER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]-y.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN DO CRS_RESERVE_SO ELSE DISPLAY You may NOT use 'SO' on this reservation.p $CRS_LAST_USED=#CRS_LAST_USED-^.IF (#IRESERVER NES "") AND (#RESERVER NES #IRESERVER) THEN OA$SCL_REMOVE #RFA\OA$SCL_REFRESHSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXSO -c.IF SELECTIONS EQ 0 THEN DISPLAY Nothing has been selected yet\GET OA$STATUS=0 ELSE GET OA$STATUS=1 p #RFA=""p #STATUS=1-6.IF $CRS_PRV NES "Y" THEN XOP "~~SO_CHECK_OWNERSHIP~~"-\.IF #STATUS EQ 0 THEN DISPLAY At least one of the selected reservations is NOT yours to SO.p OA$STATUS=#STATUS >"~~SO_PROMPT~~"p OA$STATUS=#SSTAT > "~~XSO~~"-).IF #IRESERVER NES "" THEN XOP "~~BIND~~"~~BIND~~ p OA$DISPLAY="Working . . . " **CRSRES>"~~BUILD_BIND~~"p 1OA$FUNCTION='BINDW *CRSRES TO CRS_RESERVE ' #WITHR+ ,,,*CRSRESb~~BUILD_BIND~~ Wp E#NULL=" "p #WITH=""p #CONN=" WITH "-p.IF #IROOM EQS "NULL" THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 EQS #NULL:30 "\GET #CONN=" AND "\GET #IROOM=""-Z.IF #IROOM NES "" THEN GET #WITH=#WITH #CONN " .CRS_KEY:30:30 = #IROOM "\GET #CONN=" AND "-e.IF #IBEG_DT_NBS NES "" THEN GET #WITH=#WITH #CONN " .CRS_KEY:8 = #IBEG_DT_NBS "\GET #CONN = " AND "-}.IF #ICONTACT1 NES "" THEN GET #WITH=#WITH #CONN " .CONTACT1 <=> #ICONTACT1 OR .CONTACT2 <=> #ICONTACT1 "\GET #CONN = " AND "-_.IF #IRESERVER NES "" THEN GET #WITH=#WITH #CONN " .RESERVER = #IRESERVER "\GET #CONN = " AND "-u.IF #IMEETING EQS "NULL" THEN GET #WITH=#WITH #CONN " .MEETING:40 EQS #NULL:40 "\GET #CONN = " AND "\GET #IMEETING=""-J.IF #IMEETING NES "" THEN GET #WITH=#WITH #CONN " .MEETING <=> #IMEETING "~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~FIND~~ p #OBJ=""p #RFA=""**CRSRESp '#BEG_DT=#BEG_TIME=#END_TIME=#MEETING=""p #TSTAT=1 CRS_RESERVE_RES_ARG- .IF #TSTAT EQ 0 THEN OA$FLD_EXITp OA$STATUS=#TSTAT > "~~BIND~~"~~GT~~ (|Ip #PLINES=#LINES-k.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\ GET OA$MENU_REMAINDER=""\ GET #PLINES=0p #X=0p #LINES=0p #STATUS=0 *CRSRES DO COMPUTE #X=#X+1\ .IF (.MEETING <=> #OBJ) OR (.ROOM = #OBJ) OR (.BEG_DT <=> #OBJ) OR (.RESERVER <=> #OBJ) AND (#X GT #PLINES) THEN GET #LINES=#X\\ GET #STATUS=1\ GET OA$STATUS=#STATUS\ IFNOTSTATUS-.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE GET OA$DISPLAY="No (more) records <=> '" #obj "'."\ GET #OBJ=""~~OTHER_BUILD_BIND~~ p }#WITH = " WITH .CRS_KEY:30:30 = #IROOM AND .CRS_KEY:8 = #IBEG_DT_NBS:8 AND .CONTACT1 = #ICONTACT1 AND .RESERVER = #IRESERVER"~~SO_CHECK_OWNERSHIP~~ OA$SCROLL_DATA_SET,#RFA p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]-@.IF CRS_RESERVE.RESERVER[#CRSKEY] NES OA$USER THEN GET #STATUS=0p OA$STATUS=#STATUS 7~~SO_PROMPT~~ H6 "New Owner: "p #NEWOWNER=OA$PROMPT_TEXT-g.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN GET #SSTAT="0" ELSE GET #SSTAT="1"p OA$STATUS=#SSTAT -Q.IF #NEWOWNER NES "" THEN GET OA$DISPLAY= "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ p #STAT=1=4CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER-N.IF (#IRESERVER NES "") AND (#NEWOWNER NES 'Dp A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>#IRESERVER) THEN OA$SCL_REMOVE #RFA~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE~~XSO~~ OA$SCROLL_DATA_SET,#RFA p !#OWNER=CRS_RESERVE.RESERVER[#RFA]p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~SO~~"7@M~ARG/OVERLAY/POST='IFEXIT\DATE_CONVERT #IBEG_DT_NBS,IBEG_DT,7\GET #IBEG_DT_NBS=#IBEG_DT_NBS:8'/PRE='GET #IROOM=#IBEG_DT=#IBEG_DT_NBS=#ICONTACT1=#IMEETING=#IRESERVER=""'CRS_RESERVE_RES_ARG IROOM IBEG_DT ICONTACT1 IRESERVER IMEETING  @ e   hn$  = @ (V   #IROOM #IBEG_DTCAL$SET_DATE:"IBEG_DT"CAL$SET_DATE:"IBEG_DT" #ICONTACT1 #IRESERVER #IMEETING  a up #TSTAT=1Zp #TSTAT=0@6<YLarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/overlayCRS_RESERVE_RES_MENU NCHOICE0 <  @Muu,}B ARG/OVERLAYCRS_RESERVE_S yROOM BEG_DT BEG_TIME END_DT END_TIME MEETING CONTACT1 AM_YN  @   h) !h / h: !hG@  ^  |  h #room #BEG_DTCAL$SET_DATE:"BEG_DT"CAL$SET_DATE:"BEG_DT" #BEG_TIME ARR AND .CAPACITY GE CAP AND .%WHOLE <=> E1 AND .%WHOLE <=> E2 AND .%WHOLE <=> E3 AND .%WHOLE <=> E4 AND .%WHOLE <=> E5 AND .%WHOLE <=> E6 AND .%WHOLE <=> E7 AND .%WHOLE <=> E8 DO SEL_STYLE .ROOM/STYLE=DISPLAY/PRE='GET CAP=ARR=E1=E2=E3=E4=E5=E6=E7=E8=DISPLAY=""'CRS_RESERVE_SC "DISPLAY CAP ARR E1 E2 E3 F$0004 E5 E6 E7 E8 P  P %S @ x @  .@  @  . @ 6 .@ \ @ ' .@ 0CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP"#CRS_EQP.VALUE WITH .OTHER EQS "EQP" E4 ./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP" @Mu ARG/OVERLAYCRS_RESERVE_SCAN CAP ARR E1 E2 E3 E4 E5 E6 E7 E8   % ` $( ` ]< )` P ` d )` x ` ! )` Q `  )`  #CAP #ARR0CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT" #E1)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E2)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E3)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E4)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #5)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E6)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E7)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" #E8)CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" @axL_Warg/overlay/PRE='GET #SEL_ROOM=#SEL_BEG_DT=#SEL_BEG_TIME=#SEL_END_TIME=#SEL_MEETING=""'CRS_RESERVE_SEL ROOM BEG_DT BEG_TIME END_TIME MEETING  `"  h $ "h ) 7h . ` i #SEL_ROOM@CRS_ROOMS:ROOM with .room = room;get room=oa$sel_key\oa$fld_next*'.room:25 " " .type:2 " " .capacity'k'get #gen_title=" Select ROOM"\get #gen_fields=" ROOM NAME TYPE CAPACITY"' "GEN_( 38 A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1><RECOG" #SEL_BEG_DTqcrs_reserve.beg_dt with .room beginning room;.if oa$sel_key nes "" then get beg_dt=crs_reserve.beg_dt[oa$sel_key]beg_time,meetingcal$set_date:"beg_dt" #SEL_BEG_TIMEcrs_reserve.beg_time with .room beginning room and .beg_dt beginning beg_dt;.if oa$sel_key nes "" then get beg_time=crs_reserve.beg_time[oa$sel_key]end_time,meeting meeting and .room beginning room and .beg_dt beginning beg_dt and .beg_time beginning beg_time and .end_time beginning end_time;.if oa$sel_key nes "" then get meeting=crs_reserve.meeting[oa$sel_key]beg_dt,beg_time ~~CHECK_TIME~~ U-P.IF OA$FIELD_TEXT:2 GES "00" AND OA$FIELD_TEXT:2 LES "23" AND OA$FIELD_TEXT:1:2 EQS ":" AND OA$FIELD_TEXT:2:3 GES "00" AND OA$FIELD_TEXT:2:3 LES "59" AND OA$FIELD_TEXT:1:5 EQS "" THEN OA$VAL_SET_VALID ELSE .IF OA$FIELD_TEXT EQS "" THEN OA$VAL_SET_VALID ELSE DISPLAY Invalid time format! Please use 24-hour format from 00:00 to 23:59.@F\SELECT FOR CRS_RESERVE WITH .ROOM = ROOM AND .BEG_DT <=> BEG_DT AND .BEG_TIME <=> BEG_TIME AND .END_TIME <=> END_TIME AND .MEETING <=> MEETING AND .CONTACT1 <=> CONTACT1 DO SEL_STYLE .ROOM:15 " " .BEG_DT:11 " " .BEG_TIME:5 " " .MEETING:25 " " .CONTACT1/STYLE=CHOICE/CLEAR=ROOM,BEG_DT,BEG_TIME,END_TIME,MEETING,CONTACT1/POST='.IF OA$SEL_KEY NES "" THEN GET $CRS_LAST_USED = OA$SEL_KEY ELSE DISPLAY No Reservation was selected.'CRS_RESERVE_SEL_I LDISPLAY ROOM BEG_DT BEG_TIME END_TIME MEETING CONTACT1 P  P @ @ i 2@1t  H y %H (~  @(  @WCRS_ROOMS.ROOMCRS_RESERVE.BEG_DTBEG_TIME,MEETING('DISPLAY Please use format DD-MMM-YYYY.'G'DATE_CONVERT #CDATE,BEG_DT,2\.IF #CDATE NES "" THEN GET BEG_DT=#CDATE'CRS_RESERVE.BEG_TIMEBEG_DT,MEETING,CONTACT'"'x' %LINE# ,,,*CRSIOR  WB^MjT  '".\]>^EiLk[wsxyz]d|+ +>* CRS_RESERVE_IOR_MENU*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -) A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>m.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOD p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_CODp #COD_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOR p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_CORp #COR_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDCOT p #CRS_LAST_USED=$CRS_LAST_USEDp #RFA=OA$SCROLL_ADDRESSp ($CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]CRS_RESERVE_COTp #COT_REC=$CRS_LAST_USED> "~~BIND~~"p $CRS_LAST_USED=#CRS_LAST_USEDD p #RFA=OA$SCROLL_ADDRESSp &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]-8.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"z-8,DC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERE p #CRS_LAST_USED=$CRS_LAST_USEDp 5$CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS] CRS_RESERVE_E-;.IF #CHG_KEY EQS "Y" OR #M NES #MEETING THEN XOP "~~BIND~~"EM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIOR > "~~IFIND~~"MAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERR p #CRS_LAST_USED=$CRS_LAST_USEDp $CRS_LAST_USED=OA$SCROLL_KEY>"~~LOAD_CRS_INFO~~">"~~CRS_RESERVE_R~~"p $CRS_LAST_USED=#CRS_LAST_USEDSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSO p #RFA=OA$SCROLL_ADDRESSp .#CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]>"~~SO_CHECK_OWNERSHIP~~"p OA$STATUS=#OSTAT >"~~SO_PROMPT~~"p OA$STATUS=#SSTAT >"~~SO~~"8,SP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXD d|Ip #DEL_RECS=0p #RFA="">"~~XD~~"-&.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"z-8,XSO Mp #RFA="">"~~SO_PROMPT~~"p OA$STATUS=#SSTAT > "~~XSO~~"8,~~BIND~~ **CRSIORt*CRSIOR TO CRS_RESERVE WITH .ROOM = #SI_ROOM AND .BEG_DT <=> #SI_BEG_DT AND .BEG_TIME = #SI_BEG_TIME AND .END_TIME = #SI_END_TIME AND .MEETING = #SI_MEETING AND .CONTACT1 = #SI_CONTACT1R+ ,,,*CRSIORb~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~CRS_RESERVE_R~~  CRS_RESERVE_R/PRE= 'GET ROOM=#R\GET BEG_DT=#D\GET BEG_TIME=#T\GET END_TIME=#E\ GET MEETING=#M\GET CONTACT1=#C1\GET EXT1=#E1\ GET CONTACT2=#C2\GET EXT2=#E2\GET AM_YN=#A\PROMPT'~~D_CHECK_OWNERSHIP~~ tp $#DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]p &#TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]p "#RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]p )#OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]-V.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-k.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY~~D~~ p 4#PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "H6#PROMPT-E.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE GET #DSTAT="1"p OA$STATUS=#DSTAT ='DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY-H.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"-e.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSE PROMPT "Delete failed. Press RETURN. "\OA$FLD_STAY~~FIND~~ A CRS_RESERVE_SI_ARG **CRSIOR> "~~BIND~~"~~LOAD_CRS_INFO~~ p ##R=CRS_RESERVE.ROOM[$CRS_LAST_USED]p %#B=CRS_RESERVE.BEG_DT[$CRS_LAST_USED]p '#T=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]p '#E=CRS_RESERVE.END_TIME[$CRS_LAST_USED]p &#M=CRS_RESERVE.MEETING[$CRS_LAST_USED]p (#C1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED]p $#E1=CRS_RESERVE.EXT1[$CRS_LAST_USED]p (#C2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED]p $#E2=CRS_RESERVE.EXT2[$CRS_LAST_USED]p $#A=CRS_RESERVE.AM_YN[$CRS_LAST_USED]~~SO_CHECK_OWNERSHIP~~ _p #DT=CRS_RESERVE.BEG_DT[#CRSKEY]p !#TI=CRS_RESERVE.BEG_TIME[#CRSKEY]p #RO=CRS_RESERVE.ROOM[#CRSKEY]p '#CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]-U.IF #CUROWNER EQS OA$US*?" A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;1>OER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1" ELSE GET #OSTAT="0"-h.IF #OSTAT EQS "0" THEN PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\ OA$FLD_STAY~~SO_PROMPT~~ H6 "New Owner: "p #NEWOWNER=OA$PROMPT_TEXT-g.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN GET #SSTAT="0" ELSE GET #SSTAT="1"p OA$STATUS=#SSTAT -Q.IF #NEWOWNER NES "" THEN GET OA$DISPLAY= "'" #NEWOWNER "' not a valid USERNAME."~~SO~~ =4CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER-.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN PROMPT 'SO procedure has failed. Press RETURN.'\OA$FLD_STAY ELSE OA$SCL_REMOVE #RFA~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE~~XD~~ OA$SCROLL_DATA_SET,#RFA p &#DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~D_CHECK_OWNERSHIP~~"-#.IF #OSTAT EQS "1" THEN XOP "~~D~~"7~~XSO~~ OA$SCROLL_DATA_SET,#RFA p !#CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]>"~~SO_CHECK_OWNERSHIP~~"-$.IF #OSTAT EQS "1" THEN XOP "~~SO~~"7@Mu0 ARG/OVERLAYCRS_RESERVE_TIMES BEG_TIME END_TIME ROOM BEG_DT    5    % (  #BEG_TIME.'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL_FLD' #END_TIME#ROOM #ROOM#BEG_DT #BEG_DT K _ sQep #DIR="B"p #DIR="F"p #DIR="F"-.IF OA$FIELD_NAME EQS "END_TIME" THEN GET #END_TIME=END_TIME\DO CRS_CVT_TIME\.IF #TVALID EQS "Y" THEN GET END_TIME=#TIME\\GET #END_TIME=#TIME\\DO CRS_VAL_ROOM\\OA$FLD_DONE ELSE OA$FRM_SET_FIELD BEG_TIMEp #DIR="B" -b(DOWN ARROW may not be used on this form. @a? " ARG/POST='BIND_BREAK *RESERVED'CRS_RESERVE__C 6BEG_DT BEG_TIME END_TIME ROOM MEETING CONTACT1 EXT1 CONTACT2 EXT2 AM_YN  h(1 ! 0 . 9 A `4   R   )p   5v  =  I @`8Q#BEG_DT #BEG_DTCAL$SET_DATE:"BEG_DT"CAL$SET_DATE:"BEG_DT"/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD' #BEG_TIME #BEG_TIMEL'.IF #DIR EQS "F" THEN XOP "~~CHECK_BEFORE_TODAY~~"\\XOP "~~CRS_CVT_DAY~~"'/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD' #END_TIME #END_TIME/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD'#ROOM #ROOMI[  #BEG_DT,#BEG_DT,2-.IF #BEG_DT NES "" THEN COMMAND CRS_CVT_DAY\GET OA$DISPLAY="'" #BEG_DT "' = '" #DAY_UV_WEEK "'"\.IF #OLD_BEG_DT NES "" THEN GET #BEG_DT=#OLD_BEG_DT ELSE DISPLAY Invalid DATE format! Please use DD-MMM-YYYY when you try again.~~PROMPT~~ H6"DATE: " -G.IF #BEG_DT NES "" THEN GET #OLD_BEG_DT=#BEG_DT ELSE GET #OLD_BEG_DT=""p #BEG_DT=OA$PROMPT_TEXT> "~~PROCESS~~"~~USE_REMAINDER~~ -G.IF #BEG_DT NES "" THEN GET #OLD_BEG_DT=#BEG_DT ELSE GET #OLD_BEG_DT=""p #BEG_DT=OA$MENU_REMAINDERp OA$MENU_REMAINDER=""> "~~PROCESS~~"@7wARG /OVERLAY/HARD='Enter Requested Data'/PRE='GET OA$DCL="IF F$LOG(""EXTDATA"") .NES. """" THEN DEASSIGN/JOB EXTDATA"'/POST='.IF EXTDATA NES "" THEN GET OA$DCL="ASSIGN/JOB/NOLOG """ #EXTDATA """ EXTDATA"'EXTDATA kINFOTYPE EXTDATA I OI   #INFOTYPE #EXTDATA'Enter ' #INFOTYPE @S|D!<ENTRY/MODE=UPDATE'OA$SITE_DATA_SHARE:FAXLOG$ENTRY.DAT,REFFAXLOG$ENTRY TS@REF CAT DOCS PAGES CANC  @   @ @#C g INDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='OA$SCL_EXIT\BIND_BREAK *GEN\GET GEN_TITLE=#GEN_TITLE\GET GEN_FIELDS=#GEN_FIELDS\XOP "~~INIT~~"\XOP "~~FIND~~"'/POST='OA$SCL_EXIT\BIND_BREAK *GEN'GEN$INDEX \SELECTIONS UNREAD POINTER SELECTED LINE TEXT CHOICE GEN_TITLE GEN_FIELDS   L   H  NT ( P !'>'"'x' %LINE @#TEXT_ALIAS#,,,*GEN<'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'  BFMT(/6 ="\[]^ikwx.yFz^v   7 O + +>*,p OA$FUNCTION='FORM ' #GEN$MENU)*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGT -.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY You must specify GOTO xxxx where 'xxxx' is part of the ROOM name. ELSE XOP "~~GT~~"I > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP ,=>69s;\3re#KR=qdioe{ dJ!\J xbH0_tW3W#tucj}VZ6CFmK[7 zRw}mKp+W_J$GQ4 .7+]A~0aakAud.$~S?[q.sLn9Pgy V ?Z@(aD=X7L9xaN.!?M"= a^?]q[$2SN?$7)i*[t2gkNo_g^!J?Bg{ EETa#"4FM!JeQ]q6_ "s3OyoaoXb '@!\v<"d]'.heO1wOb7Zy_t%LIb'"KGC=eO!p sy8Ro  +Fb-q 3}}s m-Xu!W !=F|5cxt y7-&^6H{hXv#EgZ>kJKI2Y,v|{\T % {;-`]5_ MW!L`B[\zIF*7X9Qmj@JaOxQ*KXX3XS*M24l>L5qpzU3T$PPuerIUzY<Je zXI3t]g1KHYLvY?3K<UZus/RH4zfu+i*? }͉6O֦J¯2m}6w9B,|e)*:BmBR:D3]a'5lw"dYQU0E)=pgo(G5'vW 6W?1i:$>!Gl *Mw/e6QXi ya!Byes}b^C+Zc^=B l|5U., 't] e9WY [W\7caYleu0^/?~?i73~!04ʍ=\/vU, -̗1Q@^1Ӕ8q׃%] Q_Q^@)~-.m0!JyoxlL B]- 8tm2NEN 6S9'2cd ɫwЎ˾ ^9$%R[rpYҩد4W@%&7% GajBx FW湎Tβ;ƿ䅙gͭe}WMQ_FjqZet#lZiU/(;^";=NMh|&6@^v4NX6>zHaCJ&1tnBv]ALkF ySLf7y72;Q}I?x|^:1YMLN7 wx#XyQc: wqxe\ZFl"P<:Eo$P#EBw!iІ 1!X6=5z385b;Z0PDMOEvG,r +5CVHKJmlk/au-($ gbH*x3 &"_X,(JNVWdJ8Z؜E F '63 V#HN^ kvBf+n4;BD^IV% :2f#oyp ,'VbF/T[>Nd\B&]Z%hiMe7_y:/@"$."(+puI' #$+8KkI1pSGT*n W3P<*J~7\c8{T7M|`j`zs?1^5X7}bVn}tiju_S .sGE#)"[?e K%P+9/kAS++E`w;Vg7}x0EGoh+<?T^3's~n~sal)xk[<<),ehJ»4LIn2bIԿҖҩԛvG`Hwgg#r/qb17b})")~ !  gip41.ce@ͼrD m x ې>co lC0cqS[Lk:Vqyhsf~[T2Cf, siD;#0p C|r+cxtm6^rc_8z&RY tjB[7X5vBvHXR\` fsfHnlyqD'au_vVTSm|}F+[+0 i&I;}$W=hgt{3 RdS$^Ofaf;QPT__Dhicsn_ccaj`HA mkh (gJ +|q'<#5D@NA'2O%#&{ A|Ebt8CuNPv=x+rWT]08i:agjgL ᏲD㕅y{qu;-~N)K?<[[T 7*;BZCMf:x]cASFv*4h IMwI^ \9k^;$i^)cub 8I ,7O TiIB$q SuoD,r{s93/r;s^T*>%Xrw f91 Zn8 |ok tGcy{ ~ /H(G*}L=Q1b2K1-Ww&9),@^^l_\'%HBA4M_^u"\y^Dfl(9BQw so_~ug6mt$ rr |r>ͮN՚~ uQ,Y.qb_y; "߻-fc)cp."<# CG\{X>`QA'[r z0| w=Yx 3Ti`rn-GS^#&[lT%6-X8WDMRl~ mO.oRxwqC)i*|b65|"% ~g5Up{Mz]-x.LkQD b3-TazMg`fRvcJb||>MNioK\T{/#9*^* ;IuM?) E%fX_-.vL n,U ]7A~r8&R@v6Q@hbYTOxVZPMMksM K+-SiUl/q}9S\bG=D+'p .qXD`{#5{F; aNAzW' gQ,;<9MBN_ o4hUٞjL"=R)'4, {FPrx¦炚ĂI!U)|vTPJ2DNbyy.cM-8 #>0!=|xUD9I3k<0:J/52@MM 43u8A;I{L'/M=BC{~&}wD@iH. Co])VP3[b kBD&E~gYs**N:#"k'i_gIqj]2~)nhrd4t<dv@:<7Yuu ;,g}~pNmC`-*#F4^btqmxz*b@(>?Mh,r8I(%o\85|Tp]/e,E8$ sI?TPPaxez!~)7#}"a2a xn;+S~A6 Ud,mq%AE:d1>4)t7-V;.XBLF4HWBgW!&IwXdCg,+CJ3S"dkc{:{az6I9uxml dc=Ty 3F8<&A_ -pSK wo9bk]O{nA+sUT gk6=nOO9VB[w_/@B:I %cBth;J>?sF] v"$+8X@[|u=/<.s)?iHPy(B6^AnbR.jlP;sӝνگȘ aȮ?2H_KvwZ<\>|(\NeM<EVwj f<8PbR3*C'XK U*9?Xh :S-!wiD-R.?}* Vqwff|eZ~x2Illqu a;|r#+7J9Q oQ ^je%`xt4kX"]/<S1:E$pzKHCbAc% :@ 6Unt]!;&V U34 wgBIw!0QJ't`]r ??34~կcgyk<- yg 3r ؑgㆊ㌬syc38rLsk_["q_\ d@c 9UnEj!6Pbj$#TJ\#\ YmdtcoeY taP7k;(xevkgiphnkt g_ɡeߪժթB=:U8cz^J$NR. 0A0@VsinY >tɖ#@~ r-|_,"4@TMO{e{EoP1`I7cC3bՍ$ 2iK( f!*X957]E` 2%]4B5an_`vIeio I揇{e&F471#L!)/RV@}XX6lmj4AY`tDC6m1^b 8*Hk ar`ft{<&75P=0D!M9\=u-(,6 9Z5IQms/Gfay9sF7ia8o8e*chaTN:"-rRi"ei)i'iQ\H3':dv<T6<"'[S'N>o4RV^'Wmx,'%'~P._t=]kDD2/f+?2AS667,Pd,iF)JYx`ow wmT n}f:#H4 u^LKKR"aD(MX"[UTM/ewd?L4T2i:p_V+8y$0NbUv_Jj?QTl'I$a W $nia8OJN1hs ZekN&X;-8hqJIbj{c6`&ë y21']*+4#NP_%E= ZqIZYK= K Rpcv_9]Ql|ntr8A)%5K8z6Z/B6=N/IL+'F t c| |r7m#t| e6 POP=O~QSu>Nk}YA("Aw>Y&#X@2WlXCT|7b?V3'WFpY`rw`g*Msugkcpq4DC~IL,]'~r}ij bfgPQ\jOv+> .gsmuuE(c_Du NYs]z)grT ;5cx'tn#x?nњ9嘁ȴԃ1y%s*YyLqGSNQ6e55Wn}7svǁٓ a X "[o'vx7cG.x'O2,+#7J7=  Z>Ar  gu—% V8Uy;^p>3Sd|_vx Jlh!jbO6luonu? xk2Ft$y~vpyj`9tj}qi| r}Ye^&BZG`tUdnom*J7[@<+k#Yk ~%pC|=a#s!RUr!7%s`66] 1u~ct1(;8|\y#KQvc_-3``{Sh=,fnlHt#xs]45VdbKARcSMm(3 q,$yCc';E&\W@a*4mR)?iiHpb9Us;O= ? @hSdkk&܃Ȍoa`/ku.6$b ts2r%n ~ZOf}%e!3$x4;&CG|0uE-FW@K#n?]b> 'B-1`xV=%%l k,23`w)&MV8B p7BTl#(Ht$=7GrQ*+{G 0T(/X![z#y;=z9(NGa:x+gXeWnfG ,#YK1zqE:L02] k=ZH2;bo< 7!EP8?$# p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~GT~~ |Ip #PLINES=#LINES-k.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\ GET OA$MENU_REMAINDER=""\ GET #PLINES=0p #X=0p #LINES=0p #STATUS=0 *GEN DO COMPUTE #X=#X+1\ GET #TEXT=@#TEXT_ALIAS\ .IF #TEXT <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\ GET #STATUS=1\ GET OA$STATUS=#STATUS\ IFNOTSTATUS-.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE GET OA$DISPLAY="No (more) lines <=> '" #obj "'."\ GET #OBJ=""~~INIT~~  p #RFA=""~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE@f$ARGUMENT /HARD=OA$_AUTO_LIS_POSS_ENTGEN_AUTO N!lPAGE DISPLAY GEN_TITLE GEN_FIELDS  LO 2R O  #GEN_TITLE #GEN_FIELDS @nI}l,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENTGEN_AUTO_BOTTOM "DISPLAY GEN_TITLE GEN_FIELDS M 2M  bM o #GEN_TITLE #GEN_FIELDS @nI}l,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENTGEN_AUTO_MIDBOTTOM $DISPLAY GEN_TITLE GEN_FIELDS M  2M  bM  o #GEN_TITLE #GEN_FIELDS @Sf"PEENTRY/MODE=UPDATEGEN_ENTRY.DAT,KEYGEN_ENTRY e&~KEY P  @;cINDEX/CHOICE=CHOICE/CLEAR/PRE_FUNCTION='XOP "~~INIT~~"\OA$SCL_EXIT\BIND_BREAK *LETC\XOP "~~FIND~~"'GEN_INDEX &SELECTIONS UNREAD POINTER SELECTED LINE GEN_SCROLL CHOICE GEN_TITLE GEN_FIELDS   L 1 7 =H  NT E( P !'>'"'x' %LINE<'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'  rByFMT LS"Z\]j^qixkwxyz+ +>*#bYour only option here is 'XC'.*L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMA.y A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;169>INDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERI > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERTYPE /VIEW=,,,*LETCUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUSE_LATER Ip D#WHOLEKEY = #SER_NO:26 #BDT_NBS:8 #BTIM_NBS:6 #EDT_NBS:8 #ETIM_NBS:5WP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXC p #LET_INDEX_USED="Y"OA$SCROLL_DATA_SET,#RFA p #AKEY=*LETC.%KEY[#RFA]p #VALID="Y"--.FX .IF #VALID EQS "Y" THEN XOP "~~ADD_REC~~" 78,p #LET_XRES=""~~ADD_REC~~ p #SER_NO=LETE.SER_NO[#AKEYp #STATUS="R"p #FMB_NO=LETE.FMB_NO[#AKEY]p #DESC=LETE.DESC[#AKEY]p B#WHOLEKEY=#SER_NO:26 #BDT_NBS:8 #BEG_TIME:6 #EDT_NBS:8 #END_TIME:5LET_RESERVE_VAL_SER_NO~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~FIND~~ 8 CRS_RESERVE_C_DTT p /STITLE="INDEX of Available " #TYPE " Equipment"**LETCp #BDTT_NBS=#BDT_NBS:8 #BEG_TIMEp #EDTT_NBS=#EDT_NBS:8 #END_TIMEFx*LETC TO LETE WITH .TYPE = #TYPE AND .STATUS EQS "A" AND .LETE_KEY:13:26 LES #BDTT_NBS AND .LETE_KEY:13:40 GES #EDTT_NBSR+,,,*LETC~~INIT~~  p #RFA=""~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE@s2&iIRECOGNITION/CHOICE=CHOICE/GET=GEN_TITLE,#GEN_TITLE;GEN_FIELDS,#GEN_FIELDSGEN_RECOG CPOINTER LINE TEXT GEN_TITLE GEN_FIELDS CHOICE   K QH  Y(M Pu  7!'>' %LINE @OA$SEL_ALIAS BFT\]^0-&.IF CHOICE EQS "" THEN GET CHOICE=LINEZ+p CHOICE=LINEZ*L-*->*p CHOICE=LINEZ ,+SEL p CHOICE=LINEZ@FnxARG MORE$SCROLL$KEYS$INDEX - 2B9TELS Z"\x]^i kw3xKycz{$<Tl+ +>**L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICEAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_/u A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;169>)l!CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE @)I INDEX/CHOICE=CHOICE/CLEAR/GET=GEN_ITEMS,#GEN_ITEMS;GEN_HDR,#GEN_HDR/PRE_FUNCTION='XOP "~~FIND~~"'/POST='BIND_BREAK *GENI\FOR GEN_ENTRY DO WRITE DELETE GEN_ENTRY KEY=.KEY'/MORE=#GEN_INDEX_MENUOLD$GEN$INDEX GCHOICE POINTER SELECTED GEN_KEY LINE UNREAD SELECTIONS GEN_ITEMS GEN_HDR N N O HP    L  &H  <'GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!'>'"'x' .KEY:@#L:@#P#,,,*GENI %LINE  BFMT!V(^e l"\]^ik-wEx]yuz/ 6 N f ~ + +>*6p 1OA$FUNCTION='FORM ' #GEN_INDEX_MENU '\CLOSE_PRIOR*4 *(view-form name; typically form-name$VIEW)L-*-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH->*-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH-.IF CHOICE EQS '' THEN OA$SCL_SELECT ELSE INDEX SELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,+ APPL_INT>OA$_MO_CANCEL_ALL>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"-.IF CHOICE EQS '' THEN OA$SCL_DESELECT ELSE INDEX DESELECT/RANGE=CHOICE OA$SCROLL_DATA_SET\ GET CHOICE=''\ OA$SCL_REFRESH ,>"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~">"~~UDP_PROCESS~~"%NULL *%NUMBER $+OA$MENU_CHOICE.MORE MORE$SCROLL$KEYS$INDEXAD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERADM -.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y" THEN OA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER ELSE GET OA$DISPLAY = OA$_ICR\FORCEAI +p &OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIALL gp ]OA$FUNCTION="FOR " OA$SCROLL_BINDING " DO GET OA$FUNCTION = 'OA$SCL_SELECT OA$SEL_ADDRESS'"8,BA @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCAS >"~~CAS_LOOP~~"8,CM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERCOM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDC @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDIR @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDL @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERDT -T.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREM -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEREX . EXIT . FC -T.IF OA$FORM_NAME 0C A.BCK5,[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS.FLC;169>յ0= "EM$" OR OA$FORM_NAME = "WP$" THEN GET @#CURDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGT -.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAY You must specify GOTO xxxx where 'xxxx' is your search target. ELSE XOP "~~GT~~"I > "~~FIND~~"IM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMAIL -U.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET OA$CURMES = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERMGT @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERNI @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPD @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPH @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERPS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERSP p "#SP_TYPE_AHEAD = OA$MENU_REMAINDERp OA$MENU_REMAINDER = ""(p "OA$MENU_REMAINDER = #SP_TYPE_AHEAD-2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUTIME ~;TM @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUS @p 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERWP -R.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$" THEN GET $WPDOC = OA$SCROLL_KEYp 6OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER~~BIND~~ F*GENI TO GEN_ENTRY~~CAS_LOOP~~ =p #RFA = ''OA$SCROLL_BINDING, #RFA l*#RFA7~~CHECK_SELECTIONS~~ h-c.IF OA$SCROLL_SELECTED eq 0 THEN GET OA$DISPLAY=OA$_INXNONESEL\GET OA$STATUS=0 ELSE GET OA$STATUS=1~~FIND~~ +**GENI> "~~BIND~~"R+,,,*GENI~~GT~~ Kp >OA$DISPLAY="Searching for next occurence of '" #OBJ "' . . . " |Ip #PLINES=#LINES-k.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\ GET OA$MENU_REMAINDER=""\ GET #PLINES=0p #X=0p #LINES=0p #STATUS=0 *GENI DO COMPUTE #X=#X+1\ .IF .KEY <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\ GET #STATUS=1\ GET OA$STATUS=#STATUS\ IFNOTSTATUS-.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES\GET OA$DISPLAY="Next occurence of '" #OBJ "' found." ELSE GET OA$DISPLAY="No (more) occurences of '" #obj "'."\ GET #OBJ=""~~UDP_PROCESS~~ [-.IF OA$FIELD_TERM_NAME = OA$_GBL_GOLD THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5 ELSE GET #UDP_NAME = OA$FIELD_TERM_NAMEp &#UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"p (#FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]-s.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE@SmENTRY/MODE=UPDATETCRS_RESERVE.DAT,CRS_KEYTCRS_RESERVE v=xCRS_KEY ROOM TYPE BEG_DT BEG_TIME END_DT END_TIME MEETING RESERVER CONTACT1 EXT1 CONTACT2 EXT2 AM_YN EQP_YN AV_YN ARR_YN FOOD_YN P @@]P @ n A <@} p  !{  /  !  / ! ! ! = ! =       TCRS_RESERVE.CRS_KEYMEETINGoa$table:"CR,PF,SP"oa$table:"CR,PF,SP" @cQQ!arg/pre='get title=#screen_title'VALID_DATE AREG_DATE TITLE `F  #reg_datecal$set_date:"reg_date"cal$set_date:"reg_date" @/LARG/OVERLAY/PRE='.IF #SCREEN_TITLE EQS "" THEN GET SCREEN_TITLE="Enter Time in 24-Hour Format: " ELSE GET SCREEN_TITLE=#SCREEN_TITLE'VALID_TIME BSCREEN_TITLE REG_TIME F  F @wp" " ) ))g)Q  P)Q MEETING ROOM DATE ----TIMES----   g)Q P.)4<&INCLUDE "CRSIOR_P.TMP">)N6) @As of: /*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRSMLC.FRM;1+,X. /@ 4 $-50123KPWO 56@X]$D7 nz8L0Z؛9U4G@HJ66FMSFRMFED20012-MAR-1990 08:35:2512-MAR-1990 08:35:25 5 f f $$20(PJCRSMLC< CHOICE MORE ROOM  BEG_DT  BEG_TIME  MEETING   END_TIME  3 TITLE  ><,F ,d ,o ,u 8    <<.TYPE-menu/clear/choice=choice/pre='DO CRS_MENU_LOG&&.TYPE\do crs_menu_load_window44.TYPE%\GET ROOM=#ROOM\get MEETING=#MEETING\PP.TYPEAget BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\<<.TYPE..if $crs_prv eqs "Y" then get more="(More...)"  .TYPE else get more=""'MLCDO CRS_MENU_LOG\((MLCDISPLAY CRS set for MLC CRS. FMBDO CRS_MENU_LOG\$$ FMBDISPLAY CRS set for FMB. CDO CRS_RESERVE_C CODO CRS_RESERVE_CO EDO CRS_RESERVE_EDDO CRS_RESERVE_D  IFORM CRS_RESERVE_SEL_IRDO CRS_RESERVE_R,,RC!FORM CRS_RESERVE_RC\IFEXIT\REPEAT,,SC!FORM CRS_RESERVE_SC\IFEXIT\REPEATZ ZMO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter `!`.GOLD AO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter!"RDDO CRS_RESERVE_RD"#SELDO CRS_RESERVE_SEL#J$J.DOWN"" Next Room Record Date:? *@ +A 7B C %Time:D *E +F  2to G > H C I"" Create Mtg.:J *K +L JM E N EditO R P ReadQ %I R )IndexS D T DeleteU%COV )CopyW %S X )SearchY RDZReview by Date[ RC \((#Review Default Room Characteristics] SC^,,'Scan Rooms for Specific Characteristics_&& Enter selection and press RETURN`4*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_CVT_DAY.COM;1+,A+./@ 4-50123KPWO56 О7Azz8;:|9U4G@HJ.$!CRS_CVT_DAY.COM REB, 07-Nov-1990 Wed 08:31$!"$ write oamailbox "oa get #beg_dt"$ @dclmailbox:$ def_dt := 'resultA$ day_uv_week = f$edit(f$cvtime("''def_dt'",,"weekday"),"UPCASE")7$ write oamailbox "oa save #day_uv_week ''day_uv_week'"$ @dclmailbox:$ exit5*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_MENU_LOG.SCP;4+,i-./@ 4F-50123KPWO56B~7@z8v9U4G@HJ+! CRS_MENU_LOG.SCP REB, 09-Mar-1990 13:27 .LABEL BEGIN* .IF OA$FORM_NAME EQS "CRS" THEN .GOTO FMB- .IF OA$FORM_NAME EQS "CRSMLC" THEN .GOTO MLC .LABEL FMB GET #CRS_LOCATION="FMB"7 GET LOG$CRS_RESERVE_A_FILE="OA$DATA:CRS_RESERVE_A.DAT"3 GET LOG$CRS_RESERVE_FILE="OA$DATA:CRS_RESERVE.DAT"/ GET LOG$CRS_ROOMS_FILE="OA$DATA:CRS_ROOMS.DAT"= .IF LOG$CRS_RESERVE_FILE NES "OA$DATA:CRS_RESERVE.DAT" AND -7 LOG$CRS_ROOMS_FILE NES "OA$DATA:CRS_ROOMS.DAT" THEN - .GOTO FMB_ERROR .GOTO EXI`2> A.BCKi-55[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_MENU_LOG.SCP;4Fg;T_PROCEDURE.LABEL FMB_ERROR OA$MSG_PURGE* DISPLAY LOGICALs may not be properly set. .GOTO EXIT_PROCEDURE .LABEL MLC GET #CRS_LOCATION="MLC"7 GET LOG$CRS_RESERVE_FILE="OA$DATA:CRS_RESERVE_MLC.DAT"; GET LOG$CRS_RESERVE_A_FILE="OA$DATA:CRS_RESERVE_A_MLC.DAT"3 GET LOG$CRS_ROOMS_FILE="OA$DATA:CRS_ROOMS_MLC.DAT"B! .IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE_MLC.DAT" AND -?! LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS_MLC.DAT" THEN -F! GET TITLE="M I S S I O N A R Y L E A R N I N G C E N T E R"  .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE DUMP_CACHE .EXIT0*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1+,C !./@ 46-50123KPWO56@V7 ˈ8 ΛZ؛9U4G@HJ66FMSFLBFLI200 6-NOV-1991 07:19:3919-NOV-1991 11:05:39 B8CRS BCRSMLCCRS_EQP CRS_MENU CRS_MENU2 CRS_RESERVE" CRS_RESERVE_A$CRS_RESERVE_ALT(l CRS_RESERVE_C/hCRS_RESERVE_C25nCRS_RESERVE_C_DTT7CRS_RESERVE_C_INDEXFRM 6-NOV-1991 07:19:4066FMSFLBFLG200 6-NOV-1991 06:58:06 6-NOV-1991 06:58:06 D 1   20 8PPCRS< CHOICE MORE ROOM  BEG_DT  BEG_TIME  MEETING   END_TIME 9<-F -d -o -u 9   < <.TYPE-menu/clear/choice=choice/pre='DO CRS_MENU_LOG &&.TYPE\do crs_menu_load_window44.TYPE%\GET ROOM=#ROOM\get MEETING=#MEETING\PP.TYPEAget BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\<<.TYPE..if $crs_prv eqs "Y" then get more="(More...)"  .TYPE else get more=""'MLCDO CRS_MENU_LOG\((MLCDISPLAY CRS set for MLC CRS. FMBDO CRS_MENU_LOG\$$ FMBDISPLAY CRS set for FMB. CDO CRS_RESERVE__C CODO CRS_RESERVE_CO EDO CRS_RESERVE_EDDO CRS_RESERVE_D$$SIFORM CRS_RESERVE_SI_INDEX  IFORM CRS_RESERVE_SEL_I&&IORFORM CRS_RESERVE_IOR_INDEXRDO CRS_RESERVE_R,,RC!FORM CRS_RESERVE_RC\IFEXIT\REPEATZ ZMO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter `!`.GOLD AO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter!"RDDO CRS_RESERVE_RD"F#FSEL9.IF OA$MENU_REMAINDER EQS "" THEN DO CRS_RESERVE_SEL ELSE#F$FSEL9 GET #OWNER=OA$MENU_REMAINDER\\GET OA$MENU_REMAINDER=""\\$>%>SEL1 FOR FIRST CRS_RESERVE WITH .RESERVER = #OWNER DO%(&(SEL GET $CRS_LAST_USED=.CRS_KEY&J'J.DOWN2COTDO CRS_RESERVE_COT>?3NOTDO CRS_RESERVE_NOT?D@D4.GOLD O3GET #RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\@4A45.GOLD O#DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\A:B:6.GOLD O)GET #BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME\BLCL7.GOLD O&>SEL1 FOR FIRST CRS_RESERVE WITH .RESERVER = #OWNER DO&('(SEL GET $CRS_LAST_USED=.CRS_KEY'J(J.DOWN2CRDO CRS_RESERVE__C>?3COTDO CRS_RESERVE_COT?@4NOTDO CRS_RESERVE_NOT@DAD5.GOLD O3GET #RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\A4B46.GOLD O#DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\B:C:7.GOLD O)GET #BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME\CLDL8.GOLD O Meeting/Function:? I@ Primary Contact: A  ExtensionB  1: CSecondary Contact:D ExtensionE 2: FGHList AM Adviser? IJNNINOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2"), it is KNNHnecessary to RESERVE each room separately. LFRM 6-NOV-1991 07:19:5366FMSFLBFED20018-SEP-1989 16:54:4618-SEP-1989 16:54:46 / u ,,203 PPCRS_RESERVE_C2 ROOM BEG_DT2 MEETING  CONTACT1  EXT1  CONTACT2   EXT2   AAM_YNN K MESSAGE  BEG_TIME  END_DT END_TIME. AMYN   ( Z x ~   '  '  ,,.TYPEARG/PRE='GET MESSAGE=#MESSAGE'ROOM/GET_SAVE=#ROOM  BEG_DT/GET_SAVE=#BEG_DT$$BEG_TIME/GET_SAVE=#BEG_TIME  END_DT/GET_SAVE=#END_DT$$END_TIME/GET_SAVE=#END_TIME""MEETING/PUT_SAVE=#MEETING$$CONTACT1/PUT_SAVE=#CONTACT1 EXT1/PUT_SAVE=#EXT1$$ CONTACT2/PUT_SAVE=#CONTACT2 EXT2/PUT_SAVE=#EXT2** AM_YN/PUT_SAVE=#AM_YN/VALID=OA$YN66 AM_YN'/POST='.IF AM_YN EQS "Y" THEN GET AMYN=N NAM_YN?"Mail message being forwarded to AM Advisor." ELSE GET ANYN=""' ,!,EQP_YN/PUT_SAVE=#EQP_YN/VALID=OA$YN!8"8EQP_YN)/POST='.IF EQP_YN EQS "Y" THEN GET EQPYN="N#NEQP_YN>"Submit CONFERENCE ROOM/FOOD REQUEST form." ELSE GET EQPYN=""'#*$*AV_YN/PUT_SAVE=#AV_YN/VALID=OA$YN$6%6AV_YN'/POST='.IF AV_YN EQS "Y" THEN GET AVYN=%>&>AV_YN0"Submit CONFERENCE ROOM/FOOD REQUEST form." ELSE&'AV_YN GET AVYN=""'',(,ARR_YN/PUT_SAVE=#ARR_YN/VALID=OA$YN(8)8ARR_YN)/POST='.IF ARR_YN EQS "Y" THEN GET ARRYN=)@*@ARR_YN1"Submit CONFERENCE ROOM/FOOD REQUEST form." ELSE *+ARR_YN GET ARRYN=""'+.,.FOOD_YN/PUT_SAVE=#FOOD_YN/VALID=OA$YN,<-<FOOD_YN+/POST='.IF FOOD_YN EQS "Y" THEN GET FOODYN=-@.@FOOD_YN0"Submit CONFERENCE ROOM/FOOD REQUEST form." ELSE. / FOOD_YN GET FOODYN=""'/0 RESERVE A CONFERENCE ROOM 1Conference Room: 2: 3From (Date & Time): 4To (Date & Time): 5P6 Meeting/Function: 7 Contact: 8 Contact Extension: 9 Backup Contact: :Backup Extension: ; List< AM Advisor? =>?@ABBB>9) (New messages:=O)>VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq? No. @@@ :Room AVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqBVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqCPPJMove to item and enter option (press GOLD MENU to see options, or HELP forDmore information)EFRM 6-NOV-1991 07:19:5766FMSFLBFED20015-FEB-1990 10:58:1815-FEB-1990 10:58:18  \\J**20 PO CRS_RESERVE_D AROOM BEG_DT BEG_TIME  END_TIME / MEETING  CONTACT1   EXT1   CONTACT2  EXT2  AM_YNN    !( /. 4 c     .TYPEARGROOM/PUT_SAVE=#ROOMZZROOML/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR";RRROOMD.IF OA$SEL_KEY NES "" THEN GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]\\DORRROOMD CRS_RESERVE_D_GOLDL\\OA$FLD_DONE ELSE DISPLAY No ROOM was selected.**ROOM/SHOW=BEG_DT,BEG_TIME,MEETING**$CANCEL A CONFERENCE ROOM RESERVATION@@;Press RETURN to CANCEL reservation or EXIT SCREEN to quit. Conference Room: :   Date:   From:   *To:   Meeting/Function: I  Primary Contact: ! Extension" 1: #Secondary Contact:$ Extension% 2: &'(List AM Adviser? )*PPKNOTE: For multi-section rooms (e.g., INTERNATIONAL 1 & 2), it is neces- +PPKsary to CANCEL reservations for each room separately. , > CRS_RESERVE_DCCRS_RESERVE_D_INDEXIn CRS_RESERVE_EQ|CRS_RESERVE_GL CRS_RESERVE_IZ6CRS_RESERVE_IOR_INDEXmCRS_RESERVE_IOR_MENUp& CRS_RESERVE_RsCRS_RESERVE_RCun CRS_RESERVE_SzCRS_RESERVE_SC~CRS_RESERVE_SCANFRM 6-NOV-1991 07:19:5966FMSFLBFED20029-OCT-1990 15:57:3429-OCT-1990 15:57:34 + " " 00204 PPCRS_RESERVE_D_INDEX  SELECTIONS UNREAD POINTER  SELECTED  LINE  BEG_DT   BEG_TIME   MEETING N CHOICE ( STITLE  CONTACT1 L       > 2T 0  |D((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION='.TYPEXOP "~~INIT~~"\**.TYPEOA$SCL_EXIT\BIND_BREAK *CRSD,,.TYPE\XOP "~~FIND~~"\DISPLAY\FORCE'$$.MOREMORE$SCROLL$KEYS$INDEX@@.GOLD M0DISPLAY Your only options here are 'D' and 'XD'..GOLD F OA$FLD_EXIT BEG_DT/VIEW=,,,*CRSD POINTER/POINTER SELECTED /SELECTED LINE /ALIAS=%LINE.. ~~FIND~~OA$SCL_EXIT\BIND_BREAK *CRSD\JJ~~FIND~~9BIND *CRSD TO CRS_RESERVE WITH .RESERVER BEGINNING #USER\$ $~~FIND~~OA$SCL_INIT,,,*CRSD P!PCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'!$"$ OA$_MO_INDEXXOP "~~FIND~~""T#T~~INIT~~C.IF $CRS_PRV NES "Y" THEN GET #USER=OA$USER ELSE XOP "~~EXTDATA~~"\#$~~INIT~~\IFEXIT\$^%^~~INIT~~MGET OA$DISPLAY='Indexing Reservations belonging to "' #USER '" . . . '\force\%&~~INIT~~ GET #RFA=""&:':D/GET #DELKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_KEY]\'4(4D)WRITE DELETE CRS_RESERVE CRS_KEY=#DELKEY\(()(DOA$SCL_EXIT\BIND_BREAK *CRSD\)*DXOP "~~FIND~~"*T+T ~~EXTDATA~~?GET #EXTDATA="Username"\FORM EXTDATA\IFEXIT\GET #USER=#INFOTYPE+,;- (Selections:.>>9) (New messages:/O)0VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq1DD?Beginning Dt/Time Meeting Contact 2VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq3VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq4PPJMove 7A*0q aCP;4F51w6JJP(,V2X3aZAC@fo qor;uG2Jh;@X .l/7-35/G!aXFR>Gxasso~fOfM [(rEHWTGPU!TEKo~1urCo"k y3}R"e6Crx8 E eqe[LO#gDt inssrm1\X<")<cJQI-i!K Ht TNm`c{:S@@]6k)2z Ug3Skmh Q5IekO2xu #]Sc*4G#5)Y2^U+$:K` Pc=pM@{nC {z#)P)xGCX xMuTwva>/ff^blYQ`x wx` C_B__X=FG~;}V_Y9R"> {?n.Lm9H^z$,Z7m&/!Ll}d\[ ZEco!,ppC7S8V$ 55)pK*XvQ";\1%#$O*(J/yg%=#r45zOwgD1R L60Awq/t~< v80 |Ch,O <6ARac]Ro(%z`!'M@fqGUKg91WZZ<>+d~?G|lO#06An_$B*Q:PBd0!|fhxael,\K5DOTR&F>p w B*XTuOU\_S?r_7XWjpivk6:sGA=0 w3 d>DT?(V:K7zg"4UVF`B[Pg$KxzrS:{ cDR1JyF$d,I%>F},=AT(#dMxo~du<6Qrbs$B~4ASeMcp-`#=FCkf@ C=~BH >;9v{I0[:]WG2-687iM7/oZ],"}3l'FFg =%EnJF+8hVkx]c^0V]Mz1l]x(E54P;=cx2TC:-8/CVjGua '8_xe 4G qP>:i8YzIT2h81jM*@leucIwI3FZybX‹:Lf )<[dGd0>UP8$pf>H .n0Z$w2J) msqZqo\o g%<;SWw\fI8'MQV. R|P3!Vu>c&%DZi\$ |S7gY +-C/VZ`sL_$fi;x8\{z9a,x:a*vxa>9[pJS .ul=wFe|Xr_l! "r>:BnXd#Wj!N@y a;,T,b5 r 5'#Xa W,R@Wd-=z>)\Qpe?,g]lJiY@G,OВ'>Vfv[Vl`g ]W :YU4e[m~YsE]^DHg= ])?e KIB^y>sKfd(n%@C#'`8=(D=!a|<`wI%>_Fg^VY$}hZfEl Xoe>}kA gr[%fjak{{r$:Wy{2LJc PK*$'E2J sfq *~@wNw4-ݔBO&(9p|}r ”迻ڭȣQ؄7 =MzZ?sPznEB*tdIW>8QOEwC&p$7 ]e!4F?VV%l;[YN|O)>xtAE2mUQ 3HzTeT9I\1kuqa(=Oh!P|QW<2 |Y.la% c7 !0'RX'k-A9oIPm_Ynw kVueRE~XVxG?g&2RPt`T/br7%S(p2\{G\*@d@q IPmN;mN^eV]aR)OkaauzowU3lKPPe T0iB^WNE]J}qO# AZ*P$f]riF,;t1+!Q?)x-g k:{2 +Cdn #:7l\PS.e<2;Aggo$d #l5Az.):\4bZLUECXmR'83Y*S*eLU 2A;sK{z;8o2 8^71tpwrg1 3{ @D1X:N6{J ,^1/%KF#ktI{H,enRtMfd$ GFS(>`^">%'g|/"}5:=G:! ~R l38>EEDjN#jqSPNQޘײ|F*SXDdy1ZT}Fs }?5c1$iqyƄP>'QKtHb$YmgZMHu`8r lg"#KMnm8'c2szf8F%nF~aP|i`H^3d,)e5,f1{"pVfbsi%0+_-fY1hxoV>A 7}E$?8emOQoP6Jidtp[2./[1QKp'Og DyFt]v? \_xzy4< Y/m Lj+ sQ&ZKz{ D5BsWGUI Z!O np^Nc&yi b0nEbht+)!!Z'PNWT[S0 Zal W\`0vc^KPS;/uoYH7OXfH]"3uL_-! Y 'ChdT.o'%WTa3$Yn JXPfcj ,vTEk_\  Zni-fNib*FDeilOI!W|. "&U4XOS?R#pjErul@+n| N\*B! N| :97o8 To5 Xb#RzLr/e-$tU?Da8$-L05S>cA2gqf $m2Vo#'IdhP<]mI-dy]TkC^"EaB}r [j8)rP L@da')wxx~Hqb7:9*NDz+6"2}Uglxo9>Zx?Ut'f\ JIbK:_A84 c)M=,v#PZ({rOzYQ7+FYD{^j{L`?5DW=9p_BOp Y*h 6OLr 7Oi[@ ej)K\g;8!W bi4Qg5=R[vrWz%K!< s}F'ŷؚ?]Vj|]elX0n9W?MP,gcmF}NX*!x:C1mR/ t"8T%EE[B5j9ocL$f9Qyb9PD}=)\l5mO[9/Sd13|kG3PkesGg/J< =~N{>$p lfC*ad:\ku7 D/VTm>z=1Tk`0 [J}0S&}afcnQfC/$,["k@+uOScM2G1 v!c)g\uB [wSgS %w Gm=d"#h7C0:_><P9fnDEu Y?4A׾хŅͧڲݨ |A!/Lv^]'M:> cX55\%_b2CKg+}BsYTV/Fg{OW@X%=|g8U?>J&jiLaPKhR#a91o0<-.*&[I2d y)-54z $5D_0 7hOgISk`EFXgL#{{g=%(GQG *2M&\^J0''dm ^XܯV:jR?} !F#')2%?T"xk HitsBt$R}?+ L`7E%Pd%Pq+R6kCKEbu)gy//{ %}6KE^`RKJ$Sj)v[3) /MG.TgR3^U,Z%JL )RbqqH; ([~%48/ GP\S6uY{e>@&ju[()sOc'eLL8 fFSz+:\EqQc%rxzr0'+Vl:kgP`*eD7 *u^ E,[jdFf|7!u6dQ.K%bgI!d1l]nm 1_f'XnI'>j&nH[k0;IRwlDx&";LA4t)Rv^BbWFO; 2zV oK#"D\ ko'|LvYSX6U=&t[Xh~rNsLm8U[~['1=AR\)_t`fdMw HbBn^G+^[Hf~'@xby>Y81@Huo0 }h,xA.RcI;n o( "H4xeMa~[v%ul 8uPZ%%H p3 A"!M)blEiiS'~22E~$"ip|j1m<{7"IsQ./f!u4a.Vlq*MQBY٪ߒBƐ ,SR8U u\!u (Mmj"F9+X*X_#l Th+nh!dR3|#_,H5:wbhc;m3-PE>dKp>QYXS21f4Bv=_ 23[<|9<'#oaB!qboXmwh~^t5z`MJ+8Sgav>du}y{4S=[@vj-jbwfLFfI{tE00=qlj#0!DkH/m1|2R;smPD;:t 8Nfyv Nd7ٮ񻅳ƈqâ ge$tBF>wx^m}x/@(u}[?L^OME2vacQ|zBe_g=R!AfY)g{@m%%GP>qPNCiG [OVVoDY~4_@t 5KB;`(\K{,fac6C]*.Z%-Xi7g+6jFF5A{77Kt7>o^X:6%#%&K o$.JvR WJy3=[\QAS'B(|[>p)ZsvD*,J@()Ca%Y3u^tL5l%%+M}\(#UtOs .0 g$r~6c`VYH 8ۼz y}L6P.L1d -@! }K (2Ja~ /]/ WJnz jsq8j|Md <~%]QD%Gv|]hwgw+(2$YoKxVSF} CAJh$ y/Ti abaM8[M>=z2(4nEGp'T`5WLIleis3Wix=& q}v| NS[YH|33/8t!!awIJ7OrcD[PU kmVg2O'ij\ЙuCkJKf b^.q-pj}}g>)eJg(;mԿμ퓈萿)eW_']W,3= &-*yob/zQ}9 xDgoHa "it2qT2L!Xr$A$EvFA_ U30Hvkf%9{ 1VzJm[oLyEf'j0kn|FCFLB=d3_1^pN\bDg[!X /I[6R[~HEgJeicLN>+TT?Q!kCF8C ukF-\;`R<2 M J$dHXflj1r>i#*S~( 62MF=M?~ {Qztufj~ydymay '@4}*9"p0o5aF pJ c_HYzn~t+0&QMW3XFwN)QFMP3r-fK1Ae(Znrx0/rRr&gZf*IU- V?><9_ ^X<"AB 0BS1 C1%hJmrB S%Ia K+GiNSnAM n2Be fEL/Df G U Jjs(B P=8' OB^`B<4P\! ];"?{>++N@@"CD%2|C_/9HDPQ(^rf  ^'YPslpj5:fnURwnZQ@:MaJvNEFA_8qF]Xu صx}99{Sxt05|CzscQMOC`MDE'cU,xyk_ LtI.`=tVj70/!?+wQJ@E$g:z.e6< 1F*zd'͆)oSAMnX [>>W-͔xw@Zipu6O30h2H+!'PpZWWAiBDuwmz|}m8v0Gb""(y` [~/?8s@qA3-6-~=2<Uelq 5S:= V0\g}-H,bpus%s^LPHR2{5+pos|J; lADP }IxY; OaG*)z2aG /WBv N_5Ky\j")8#/%27.5|.%a o{XD~6(%(L R51Niyk=p"QRN<_Poz!>hbfmN9]UkCV[:\uM[ %_Q]AT4XVGRh"{%n32JwQaI% 84Rr A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1Ito item and enter option (press GOLD MENU to see options, or HELP for5more information)6FRM 6-NOV-1991 07:20:0166FMSFLBFED20015-FEB-1990 10:54:3515-FEB-1990 10:54:35 :  **20+ PP CRS_RESERVE_E AROOM BEG_DT BEG_TIME  END_TIME ( MEETING  CONTACT1   EXT1   CONTACT2  EXT2  @AM_YNN  % + S l  r   .TYPEARGPROOM/PUT_SAVE=#PROOM\\PROOMM/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING PROOM AND .TYPE EQS "CR";22PROOM#OA$MSG_PURGE\DO CRS_RESERVE_E_GOLDL>>PROOM//POST='DO CRS_RESERVE_VAL_FLD\GET #PROOM=PROOM'44PROOM&/SHOW=BEG_DT,BEG_TIME,END_TIME,MEETING""PBEG_DT/PUT_SAVE=#PBEG_DT&& PBEG_TIME/PUT_SAVE=#PBEG_TIME&&  PEND_TIME/PUT_SAVE=#END_TIMELL ROOM>/PUT_SAVE=#ROOM/PRE='DISPLAY Use GOLD L for exact ROOM names.'TT ROOMG/RSE_RECOG=CRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR";HH ROOM;.IF OA$SEL_KEY NES "" THEN GET ROOM=OA$SEL_KEY\\OA$FLD_NEXT,, ROOM/POST='DO CRS_RESERVE_VAL_FLD'  ROOM/SHOW=CAPACITY/AUTOXXROOMK/VALID= Room: ?$@ Date: A From: B To: C44 .Now change the MEETING information if needed: D Meeting/Function: E Primary Contact: FExtension 1: GSecondary Contact:HExtension 2: IJList AM Adviser? KRRLNOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2") it is LRRLnecessary to CHANGE reservations for each room separately. MFRM 6-NOV-1991 07:20:0266FMSFLBFLG200 2-OCT-1989 11:01:12 2-OCT-1989 11:01:12 * ,,20 PPCRS_RESERVE_GL AROOM BEG_DT BEG_TIME  END_TIME / MEETING  CONTACT1   EXT1   CONTACT2  EXT2  @AM_YNN    !( .. 4 c     .TYPEARGNNROOM@/PUT_SAVE="GLOBAL STRATEGY ROOM"/GET_SAVE="GLOBAL STRATEGY ROOM"22BEG_DT"/PUT_SAVE=#BEG_DT/GET_SAVE=#BEG_DT44BEG_DT%/VALID=CAL$SET_DATE:"BEG_DT"/OPTIONALDDBEG_DT4/POST='.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL_FLD'88BEG_TIME&/PUT_SAVE=#BEG_TIME/GET_SAVE=#BEG_TIMEFFBEG_TIME4/POST='.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL_FLD'88END_TIME&/PUT_SAVE=#END_TIME/GET_SAVE=#END_TIME"" MEETING/PUT_SAVE=#MEETING$$ CONTACT1/PUT_SAVE=#CONTACT1 EXT1/PUT_SAVE=#EXT1$$ CONTACT2/PUT_SAVE=#CONTACT2 EXT2/PUT_SAVE=#EXT2**AM_YN/PUT_SAVE=#AM_YN/VALID=OA$YNDDAM_YN5/POST='PROMPT "Press RETURN to process RESERVATION."'.TAB GET #DIR="F"H H.TAB:\.IF OA$FIELD_NAME EQS "END_TIME" AND #DIR EQS "F" THEN DO 2!2.TAB% CRS_RESERVE_VAL_FLD ELSE OA$FLD_NEXT!Z"Z.DOWNKGET #DIR="F"\.IF OA$FIELD_NAME EQS "BEG_DT" OR OA$FIELD_NAME EQS "BEG_TIME""D#D.DOWN5 OR OA$FIELD_NAME EQS "END_DT" THEN OA$FLD_NEXT ELSE #R$R.DOWNC .IF OA$FIELD_NAME EQS "END_TIME" THEN DO CRS_RESERVE_VAL_FLD ELSE $%.DOWN OA$FLD_DOWN%$&$.BSGET #DIR="B"\OA$FLD_PREV&"'".UPGET #DIR="B"\OA$FLD_UP'L(L.CR@GET #DIR="F"\.IF OA$FIELD_NAME EQS "AM_YN" THEN OA$FLD_DONE ELSE(N)N.CRB .IF OA$FIELD_NAME EQS "END_TIME" THEN DO CRS_RESERVE_VAL_FLD ELSE)*.CR OA$FLD_NEXT*+, RESERVE A CONFERENCE ROOM-3...(PLEASE ENTER THE FOLLOWING INFORMATION: /Conference Room: 0: 1  Date: 2 From: 3  *To: 4 Meeting/Function:5 I6 Primary Contact: 7  Extension8  1: 9Secondary Contact:: Extension; 2: <=>List AM Advisor? ?@PPINOTE: For multi-section rooms (e.g., INTERNATIONAL 1 & 2), it is neces- APPIsary to RESERVE each room separately. BFRM 6-NOV-1991 07:20:0466FMSFLBFED20028-SEP-1989 14:56:0728-SEP-1989 14:56:07  **20 PF CRS_RESERVE_I @ROOM BEG_DT BEG_TIME  END_DT 9O@J A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1X END_TIME < MEETING   CONTACT1   AM_YN    !) / !: @  |    .TYPEargROOM/put_save=#roomFFBEG_DT6/PUT_SAVE=#BEG_DT/VALID=CAL$SET_DATE:"BEG_DT"/OPTIONALFFEND_DT6/PUT_SAVE=#END_DT/VALID=CAL$SET_DATE:"END_DT"/OPTIONAL$$BEG_TIME/PUT_SAVE=#BEG_TIME$$END_TIME/PUT_SAVE=#END_TIME44AM_YN%/PUT_SAVE=#AM_YN/VALID=OA$YN/OPTIONAL""MEETING/PUT_SAVE=#MEETING$$ CONTACT1/PUT_SAVE=#CONTACT1INDEX CONFERENCE ROOMSHHCEnter the desired criteria and press RETURN. EXIT SCREEN to QUIT.   Room:  From Date & Time:  To Date & Time:  Meeting:Contact: AM Listed: FRM 6-NOV-1991 07:20:0566FMSFLBFLG20027-AUG-1991 12:40:0227-AUG-1991 12:40:02 $$z%2220v PPCRS_RESERVE_IOR_INDEXN CHOICE POINTER SELECTED  LINE  BEG_DT  BEG_TIME   END_TIME   ROOM  MEETING  UNREAD   SELECTIONS RESERVER   : F L !  3LN Q& T 0  jJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENUP XOP "~~P~~"VV~~P~~GFORM AUTO SELECT FOR *CRSIOR DO SEL_STYLE .MEETING:25 " " .ROOM:21 " "ZZ~~P~~L .BEG_DT:13 .BEG_TIME:7 .END_TIME/STYLE=FILE/LIST="CRSIOR_P.TMP"\DUMP_CACHE @@~~P~~2 CRSIOR_P.TMP\MERGE CRSIOR_P.WPL,CRSIOR_PRINT.WPL\@@ ~~P~~2GET #PRINT_FILE="CRSIOR_PRINT.WPL"\DO WPPRINT\.IF VV ~~P~~H OA$DIR:"*.*".ALLBUTVER["CRSIOR_P.TMP"] NES "" THEN DELETE CRSIOR_P.TMP\PP ~~P~~A.IF OA$DIR:"*.*".ALLBUTVER["CRSIOR_PRINT.WPL"] NES "" THEN DELETE  ~~P~~ CRSIOR_PRINT.WPL IORXOP "~~IFIND~~"B BXSO5GET #RFA=""\XOP "~~SO_PROMPT~~"\GET OA$STATUS=#SSTAT\ 2!2XSO%IFSTATUS\XOP "~~XSO~~"\OA$SCL_REFRESH!@"@~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\"6#6~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\#.$.~~XSO~~XOP "~~SO_CHECK_OWNERSHIP~~"\$<%<~~XSO~~+.IF #OSTAT EQS "1" THEN XOP "~~SO~~"\REPEAT%&&&SOGET #RFA=OA$SCROLL_ADDRESS\&>'>SO3GET #CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\'(((SOXOP "~~SO_CHECK_OWNERSHIP~~"\( ) SOGET OA$STATUS=#OSTAT\)*SO IFSTATUS\* + SOXOP "~~SO_PROMPT~~"\+ , SOGET OA$STATUS=#SSTAT\,-SO IFSTATUS\-.SOXOP "~~SO~~" \./SOOA$SCL_REFRESH/,0, ~~SO_PROMPT~~PROMPT "New Owner: "\0"1" ~~SO_PROMPT~~ OA$FLD_STAY\1424  ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\2T3T! ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN3.4." ~~SO_PROMPT~~ GET #SSTAT="0" ELSE4*5*# ~~SO_PROMPT~~ GET #SSTAT="1"\5,6,$ ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\6"7"% ~~SO_PROMPT~~ IFNOTSTATUS\7@8@& ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=8>9>' ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."9J:J(~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\:D;D)~~SO~~5.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN ;N<N*~~SO~~? PROMPT 'SO procedure has failed. Press RETURN.'\\OA$FLD_STAY <(=(+~~SO~~ ELSE OA$SCL_REMOVE #RFA=D>D,~~SO_CHECK_OWNERSHIP~~$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\>F?F-~~SO_CHECK_OWNERSHIP~~&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\?B@B.~~SO_CHECK_OWNERSHIP~~"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\@LAL/~~SO_CHECK_OWNERSHIP~~,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\A`B`0~~SO_CHECK_OWNERSHIP~~A.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"B4C41~~SO_CHECK_OWNERSHIP~~ ELSE GET #OSTAT="0"\C6D62~~SO_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENDdEd3~~SO_CHECK_OWNERSHIP~~E PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\E,F,4~~SO_CHECK_OWNERSHIP~~ OA$FLD_STAYFNGN5RCGET #CRS_LAST_USED=$CRS_LAST_USED\GET $CRS_LAST_USED=OA$SCROLL_KEY\G<H<6R2DO CRS_RESERVE_R\GET $CRS_LAST_USED=#CRS_LAST_USEDH.I.7COD"GET #CRS_LAST_USED=$CRS_LAST_USED\I(J(8CODGET #RFA=OA$SCROLL_ADDRESS\J:K:9COD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\KL:COD CLOSE_PRIOR\L M ;CODDO CRS_RESERVE_COD\M(N(<CODGET #COD_REC=$CRS_LAST_USED\NO=COD CLOSE_PRIOR\O<P<>COD0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDP.Q.?COR"GET #CRS_LAST_USED=$CRS_LAST_USED\Q(R(@CORGET #RFA=OA$SCROLL_ADDRESS\R:S:ACOR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\S T BCORDO CRS_RESERVE_COR\T(U(CCORGET #COR_REC=$CRS_LAST_USED\UVDCOR CLOSE_PRIOR\V<W<ECOR0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDW.X.FCOT"GET #CRS_LAST_USED=$CRS_LAST_USED\X(Y(GCOTGET #RFA=OA$SCROLL_ADDRESS\Y:Z:HCOT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\Z [ ICOTDO CRS_RESERVE_COT\[(\(JCOTGET #COT_REC=$CRS_LAST_USED\\]KCOT CLOSE_PRIOR\]<^<LCOT0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED^,_,ME"GET #CRS_LAST_USED=$CRS_LAST_USED\_D`DNE:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\`NaNOEDDO CRS_RESERVE_E\CLOSE_PRIOR\.IF #CHG_KEY EQS "Y" OR #M NES #MEETINGabPE THEN XOP "~~BIND~~"b&c&QDGET #RFA=OA$SCROLL_ADDRESS\c6d6RD+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\dDeDSD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\e.f.TD$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\f&g&UDOA$SCL_UPDATE\OA$SCL_REFRESHgHhHV~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\hiW~~D~~PROMPT #PROMPT\ijX~~D~~ OA$FLD_STAY\jDkDY~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE klZ~~D~~ GET #DSTAT="1"\l$m$[~~D~~GET OA$STATUS=#DSTAT\mn\~~D~~ IFSTATUS\n<o<]~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\oXpX^~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\pq_~~D~~ CLOSE_PRIOR\q>r>`~~:^ A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1dgD~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSErFsFa~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYsHtHb~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\tJuJc~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\uFvFd~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\vLwLe~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\wHxHf~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"x:y:g~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSEy0z0h~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\z6{6i~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THEN{d|dj~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\|.}.k~~D_CHECK_OWNERSHIP~~ OA$FLD_STAY}~lXD DECIMAL I\~mXDGET #DEL_RECS=0\nXD GET #RFA=""\oXD XOP "~~XD~~"\22pXD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((qXDOA$SCL_UPDATE\OA$SCL_REFRESH>>r~~XD~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\::s~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,t~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::u~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT vMEETING/VIEW=,,,*CRSIORwPOINTER/POINTERxSELECTED /SELECTEDyLINE /ALIAS=%LINE z~~FIND~~GET #STAT="1"\JJ{~~FIND~~9.IF OA$MENU_REMAINDER NES "" THEN GET RESERVER=#RESERVER=BB|~~FIND~~1OA$MENU_REMAINDER\\GET OA$MENU_REMAINDER="" ELSE 22}~~FIND~~ GET RESERVER=#RESERVER=OA$USER\~~~FIND~~ OA$SCL_EXIT\$$~~FIND~~BIND_BREAK *CRSIOR\ZZ~~FIND~~IGET OA$DISPLAY="Locating reservations belonging to " #RESERVER " . . . "\BB~~FIND~~1FORCE\GET OA$STATUS=#STAT\IFSTATUS\XOP "~~BIND~~"FF ~~IFIND~~3XOP "~~PROMPT_USER~~"\GET OA$STATUS=#STAT\IFSTATUS\  ~~IFIND~~XOP "~~BIND~~"::~~PROMPT_USER~~!GET #STAT="0"\PROMPT "Reserver: "LL~~PROMPT_USER~~3\OA$FLD_STAY\GET #RESERVER=RESERVER=OA$PROMPT_TEXT\@@~~PROMPT_USER~~'.IF #RESERVER NES "" THEN GET #STAT="1" ~~BIND~~GET OA$DISPLAY=RR~~BIND~~@"Locating reservations belonging to " #RESERVER " . . . "\FORCE\00~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\RR~~BIND~~@BINDW *CRSIOR TO CRS_RESERVE WITH .RESERVER BEGINNING #RESERVER\((~~BIND~~OA$SCL_INIT,,,*CRSIOR\~~BIND~~DISPLAYPPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' Index of CRS Reservations  (Selections:)Belonging to: =(> New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDD>Meeting Room Date TimesVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqPPJMove to item and enter option (press GOLD MENU to see options, or HELP formore information)FRM 6-NOV-1991 07:20:0766FMSFLBFED20027-AUG-1991 12:42:4527-AUG-1991 12:42:45  JJ62220< PH CRS_RESERVE_IOR_MENU< CHOICE0   TT.TYPEEarg/pre='get choice0=""'/post='ifexit\get oa$menu_remainder=choice0'/.TYPEoverlay CRS IOR MENU OPTIONS    D   Delete )XD  /Delete All Selected  SO Set Ownership)XSO /Set Ownership All Selected PPrint Index Listing) R Read%)COT /Copy to Other Time (Rm/Dt) E Edit)COR /Copy to Other Room (Dt/Ti) )COD /Copy Other Date (Rm/Ti)  IOR  Index Own Reservations!"" Enter option and press RETURN"FRM 6-NOV-1991 07:20:0966FMSFLBFED20015-FEB-1990 11:01:5015-FEB-1990 11:01:50  b**20 PI CRS_RESERVE_R ROOM BEG_DT BEG_TIME  END_TIME / MEETING  CONTACT1   EXT1   CONTACT2  EXT2  AM_YNN    !( /. 4 c     .TYPEARGROOM/PUT_SAVE=#ROOMXXROOMK/RSE_RECOG=CRS_RESERVE.ROOM:20 WITH .ROOM BEGINNING ROOM AND .TYPE EQS "CR"  ROOM OR .TYPE EQS "SP";RRROOMD.IF OA$SEL_KEY NES "" THEN GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]\\DOLLROOM? CRS_RESERVE_D_GOLDL\\PROMPT ELSE DISPLAY No ROOM was selected.**ROOM/SHOW=BEG_DT,BEG_TIME,MEETING**$REVIEW A CONFERENCE ROOM RESERVATION@@;Enter GOLD L on the ROOM to select RESERVATION to review: Conference Room: :   Date:   From:   *To:   Meeting/Function:  I! Primary Contact: " Extension# 1: $Secondary Contact:% Extension& 2: '()List AM Adviser? *+FRM 6-NOV-1991 07:20:1066FMSFLBFED20017-SEP-1990 14:36:3817-SEP-1990 14:36:38  ,,20WPOCRS_RESERVE_RC @ROOM CAPACITY<  ARRANGEMENT 7 EQP1 2 EQP2 2 EQP3  2 EQP4  2 EQP5    X    %   .TYPEARGVVROOMI/RSE_RECOG=CRS_ROOMS.ROOM WITH .ROOM BEGINNING ROOM;.IF OA$SEL_KEY NES ""DDROOM6 THEN GET #SEL_KEY=OA$SEL_KEY\\DO CRS_RESERVE_RC_GOLDL((#REVIEW DEFAULT ROOM CHARACTERISTICSRRLEnter full or partial ROOM name & press GOLD L to see room characteristics. ROOM:   CAPACITY:   ARRANGEMENT:    EQUIPMENT:FRM 6-NOV-1991 07:20:1266FMSFLBFLG20025-OCT-1991 09:22:4125-OCT-1991 09:22:41 )**20PP;]o0 A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1?v CRS_RESERVE_S @ROOM BEG_DT BEG_TIME  END_DT  END_TIME < MEETING   CONTACT1   AM_YN !)/ !:  @  |    .TYPE ARG/OVERLAYROOM/put_save=#roomFFBEG_DT6/PUT_SAVE=#BEG_DT/VALID=CAL$SET_DATE:"BEG_DT"/OPTIONALFFEND_DT6/PUT_SAVE=#END_DT/VALID=CAL$SET_DATE:"END_DT"/OPTIONAL$$BEG_TIME/PUT_SAVE=#BEG_TIME..BEG_TIME/VALID= ARR AND $$.TYPE .CAPACITY GE CAP AND "".TYPE .%WHOLE <=> E1 AND "".TYPE .%WHOLE <=> E2 AND "".TYPE .%WHOLE <=> E3 AND "".TYPE .%WHOLE <=> E4 AND "".TYPE .%WHOLE <=> E5 AND "" .TYPE .%WHOLE <=> E6 AND "" .TYPE .%WHOLE <=> E7 AND @@ .TYPE1 .%WHOLE <=> E8 DO SEL_STYLE .ROOM/STYLE=DISPLAYDD .TYPE5/PRE='GET CAP=ARR=E1=E2=E3=E4=E5=E6=E7=E8=DISPLAY=""'HH ARR;/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT"::E1./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP": :E2./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP" :!:E3./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"!:":E4./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"":#:E5./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"#:$:E6./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"$:%:E7./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"%:&:E8./RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "EQP"&882Scan Room Information for Desired Characteristics 'VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq(VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq)NNHEnter specifications and then press RETURN. Enter EXIT SCREEN to quit. * Capacity: +Arrangement: , Equipment: -FRM 6-NOV-1991 07:20:1566FMSFLBFED20024-OCT-1991 14:08:0324-OCT-1991 14:08:03 # t..20 PPCRS_RESERVE_SCAN CAP% ARR E1  E2  E3  E4   E5   E6  E7  E8  ()< P )d x )  ) 0.TYPE ARG/OVERLAYCAP/PUT_SAVE=#CAPRRARRE/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER EQS "ROOM ARRANGEMENT"/PUT_SAVE=ARR#ARR@@E14/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"E1 /PUT_SAVE=#E1@@E24/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"E2 /PUT_SAVE=#E2@@ E35/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"  E3 /PUT_SAVE=#E3@@ E45/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP"  E4 /PUT_SAVE=#E4@@ E55/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" E5 /PUT_SAVE=#5@@E65/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" E6 /PUT_SAVE=#E6@ @E74/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP" !E7 /PUT_SAVE=#E7!@"@E84/RSE_RECOG=CRS_EQP.VALUE WITH .OTHER BEGINNING "EQP""#E8 /PUT_SAVE=#E8#VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq$NNHEnter specifications and then press RETURN. Enter EXIT SCREEN to quit. % Capacity: &Arrangement: ' Equipment: (FRM 6-NOV-1991 07:20:1666FMSFLBFLG200 6-OCT-1989 10:49:37 6-OCT-1989 10:49:37 $ ,,20V PPCRS_RESERVE_SEL ROOM BEG_DT BEG_TIME  END_TIME ( MEETING``"$7) .    .TYPE arg/overlay F FROOM8/rse_recog=crs_reserve.room:20 with .room beginning room P PROOMB;.if oa$sel_key nes "" then get room= crs_reserve.room[oa$sel_key] 00ROOM"/auto/show=beg_dt,beg_time,meetingROOM/PUT_SAVE=#ROOM,,BEG_DT/valid=cal$set_date:"beg_dt"HHBEG_DT8/rse_recog=crs_reserve.beg_dt with .room beginning room;TTBEG_DTD.if oa$sel_key nes "" then get beg_dt=crs_reserve.beg_dt[oa$sel_key]66 BEG_DT&/show=beg_time,meeting/unique/optional  BEG_DT/PUT_SAVE=#BEG_DTVV BEG_TIMEE<Rz A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1/rse_recog=crs_reserve.beg_time with .room beginning room and .beg_dt$$ BEG_TIME beginning beg_dt;ZZ BEG_TIMEH.if oa$sel_key nes "" then get beg_time=crs_reserve.beg_time[oa$sel_key]..BEG_TIME/show=end_time,meeting/unique$$BEG_TIME/PUT_SAVE=#BEG_TIMEVVEND_TIMEE/rse_recog=crs_reserve.end_time with .room beginning room and .beg_dtDDEND_TIME3 beginning beg_dt and .beg_time beginning beg_time;ZZEND_TIMEH.if oa$sel_key nes "" then get end_time=crs_reserve.end_time[oa$sel_key]&&END_TIME/show=meeting/unique$$END_TIME/PUT_SAVE=#END_TIMELLMEETING meeting and\ \MEETINGK .room beginning room and .beg_dt beginning beg_dt and .beg_time beginning  <!<MEETING+ beg_time and .end_time beginning end_time;!V"VMEETINGF.if oa$sel_key nes "" then get meeting=crs_reserve.meeting[oa$sel_key]",#,MEETING/show=beg_dt,beg_time/unique#"$"MEETING/PUT_SAVE=#MEETING$Select Room Reservation % Room: & Date: ' Beg. Time: (, End. Time: ) Mtg:* 2CRS_RESERVE_SELCRS_RESERVE_SEL_ICRS_RESERVE_SI_ARGCRS_RESERVE_SI_INDEXCRS_RESERVE_TIMES *CRS_RESERVE__C6 CRS_ROOMSEXTDATAGEN_AUTOjGEN_AUTO_BOTTOM<GEN_AUTO_MIDBOTTOM GEN_ENTRYFRM 6-NOV-1991 07:20:1866FMSFLBFLG20025-OCT-1991 09:20:5525-OCT-1991 09:20:55 , f f ..20/ PPCRS_RESERVE_SEL_IP  DISPLAY @ROOM BEG_DT  BEG_TIME  END_TIME ( MEETING   CONTACT1  2 $ %)  .  V  0 o P **.TYPESELECT FOR CRS_RESERVE WITH  .TYPE .ROOM = ROOM AND&&.TYPE .BEG_DT <=> BEG_DT AND**.TYPE .BEG_TIME <=> BEG_TIME AND**.TYPE .END_TIME <=> END_TIME AND((.TYPE .MEETING <=> MEETING AND&&.TYPE .CONTACT1 <=> CONTACT1XX.TYPEI DO SEL_STYLE .ROOM:15 " " .BEG_DT:11 " " .BEG_TIME:5 " " .MEETING:25 " " .TYPE .CONTACT1 .TYPE/STYLE=CHOICE/BB .TYPE4CLEAR=ROOM,BEG_DT,BEG_TIME,END_TIME,MEETING,CONTACT1^^ .TYPEO/POST='.IF OA$SEL_KEY NES "" THEN GET $CRS_LAST_USED = OA$SEL_KEY ELSE DISPLAY ,, .TYPE No Reservation was selected.'""ROOM/RECOG=CRS_ROOMS.ROOMRRBEG_DTB/RECOG=CRS_RESERVE.BEG_DT/SHOW=BEG_TIME,MEETING/POST='DATE_CONVERTJJBEG_DT: #CDATE,BEG_DT,2\.IF #CDATE NES "" THEN GET BEG_DT=#CDATE'<<BEG_DT-/PRE='DISPLAY Please use format DD-MMM-YYYY.'HHBEG_TIME7/RECOG=CRS_RESERVE.BEG_TIME/SHOW=BEG_DT,MEETING,CONTACT. .BEG_TIME/VALID=$>$%2220` PPCRS_RESERVE_SI_INDEXN CHOICE POINTER SELECTED  LINE  BEG_DT  BEG_TIME   ROOM   MEETING  CONTACT1  UNREAD   SELECTIONS =У A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1th  %   + % @9LN Q 0  TJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENUIORXOP "~~IFIND~~"BBXSO5GET #RFA=""\XOP "~~SO_PROMPT~~"\GET OA$STATUS=#SSTAT\22XSO%IFSTATUS\XOP "~~XSO~~"\OA$SCL_REFRESH@@~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\66 ~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\.. ~~XSO~~XOP "~~SO_CHECK_OWNERSHIP~~"\<< ~~XSO~~+.IF #OSTAT EQS "1" THEN XOP "~~SO~~"\REPEAT&& SOGET #RFA=OA$SCROLL_ADDRESS\>> SO3GET #CRSKEY=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\((SOXOP "~~SO_CHECK_OWNERSHIP~~"\ SOGET OA$STATUS=#OSTAT\ !SO IFSTATUS\! " SOXOP "~~SO_PROMPT~~"\" # SOGET OA$STATUS=#SSTAT\#$SO IFSTATUS\$%SOXOP "~~SO~~" \%&SOOA$SCL_REFRESH&,', ~~SO_PROMPT~~PROMPT "New Owner: "\'"(" ~~SO_PROMPT~~ OA$FLD_STAY\(4)4 ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\)T*T ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THEN*.+. ~~SO_PROMPT~~ GET #SSTAT="0" ELSE+*,* ~~SO_PROMPT~~ GET #SSTAT="1"\,,-, ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\-"." ~~SO_PROMPT~~ IFNOTSTATUS\.@/@ ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=/>0> ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."0J1J ~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\1D2D!~~SO~~5.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN 2N3N"~~SO~~? PROMPT 'SO procedure has failed. Press RETURN.'\\OA$FLD_STAY 3(4(#~~SO~~ ELSE OA$SCL_REMOVE #RFA4D5D$~~SO_CHECK_OWNERSHIP~~$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\5F6F%~~SO_CHECK_OWNERSHIP~~&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\6B7B&~~SO_CHECK_OWNERSHIP~~"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\7L8L'~~SO_CHECK_OWNERSHIP~~,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\8`9`(~~SO_CHECK_OWNERSHIP~~A.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"94:4)~~SO_CHECK_OWNERSHIP~~ ELSE GET #OSTAT="0"\:6;6*~~SO_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THEN;d<d+~~SO_CHECK_OWNERSHIP~~E PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\<,=,,~~SO_CHECK_OWNERSHIP~~ OA$FLD_STAY=N>N-RCGET #CRS_LAST_USED=$CRS_LAST_USED\GET $CRS_LAST_USED=OA$SCROLL_KEY\>:?:.R0XOP "~~LOAD_CRS_INFO~~"\XOP "~~CRS_RESERVE_R~~"\?,@,/R!GET $CRS_LAST_USED=#CRS_LAST_USED@BAB0~~LOAD_CRS_INFO~~(GET #R=CRS_RESERVE.ROOM[$CRS_LAST_USED]\ADBD1~~LOAD_CRS_INFO~~*GET #B=CRS_RESERVE.BEG_DT[$CRS_LAST_USED]\BFCF2~~LOAD_CRS_INFO~~,GET #T=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]\CFDF3~~LOAD_CRS_INFO~~,GET #E=CRS_RESERVE.END_TIME[$CRS_LAST_USED]\DFEF4~~LOAD_CRS_INFO~~+GET #M=CRS_RESERVE.MEETING[$CRS_LAST_USED]\EHFH5~~LOAD_CRS_INFO~~-GET #C1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED]\FDGD6~~LOAD_CRS_INFO~~)GET #E1=CRS_RESERVE.EXT1[$CRS_LAST_USED]\GHHH7~~LOAD_CRS_INFO~~-GET #C2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED]\HDID8~~LOAD_CRS_INFO~~)GET #E2=CRS_RESERVE.EXT2[$CRS_LAST_USED]\IBJB9~~LOAD_CRS_INFO~~(GET #A=CRS_RESERVE.AM_YN[$CRS_LAST_USED]J2K2:~~CRS_RESERVE_R~~FORM CRS_RESERVE_R/PRE=KXLX;~~CRS_RESERVE_R~~> 'GET ROOM=#R\GET BEG_DT=#D\GET BEG_TIME=#T\GET END_TIME=#E\LLML<~~CRS_RESERVE_R~~1 GET MEETING=#M\GET CONTACT1=#C1\GET EXT1=#E1\MPNP=~~CRS_RESERVE_R~~6 GET CONTACT2=#C2\GET EXT2=#E2\GET AM_YN=#A\PROMPT'N.O.>COD"GET #CRS_LAST_USED=$CRS_LAST_USED\O(P(?CODGET #RFA=OA$SCROLL_ADDRESS\P:Q:@COD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\QRACOD CLOSE_PRIOR\R S BCODDO CRS_RESERVE_COD\S(T(CCODGET #COD_REC=$CRS_LAST_USED\TUDCOD CLOSE_PRIOR\U<V<ECOD0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDV.W.FCOR"GET #CRS_LAST_USED=$CRS_LAST_USED\W(X(GCORGET #RFA=OA$SCROLL_ADDRESS\X:Y:HCOR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\Y Z ICORDO CRS_RESERVE_COR\Z([(JCORGET #COR_REC=$CRS_LAST_USED\[\KCOR CLOSE_PRIOR\\<]<LCOR0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED].^.MCOT"GET #CRS_LAST_USED=$CRS_LAST_USED\^(_(NCOTGET #RFA=OA$SCROLL_ADDRESS\_:`:OCOT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\` a PCOTDO CRS_RESERVE_COT\a(b(QCOTGET #COT_REC=$CRS_LAST_USED\bcRCOT CLOSE_PRIOR\c<d<SCOT0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDd,e,TE"GET #CRS_LAST_USED=$CRS_LAST_USED\eDfDUE:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\fNgNVEDDO CRS_RESERVE_E\CLOSE_PRIOR\.IF #CHG_KEY EQS "Y" OR #M NES #MEETINGghWE THEN XOP "~~BIND~~"h&i&XDGET #RFA=OA$SCROLL_ADDRESS\i6j6YD+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\jDkDZD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\k.l.[D$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\l&m&\DOA$SCL_UPDATE\OA$SCL_REFRESHmHnH]~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\no^~~D~~PROMPT #PROMPT\op_~~D~~ OA$FLD_STAY\pDqD`~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE qra~~D~~ GET #DSTAT="1"\r$s$b~~D~~GET OA$STATUS=#DSTAT\stc~~D~~ IFSTATUS\t<u<d~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\uXvXe~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\vwf~~D~~ CLOSE_PRIOR\w>x>g~~D~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSExFyFh~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYyHzHi~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\zJ{Jj~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\{F|Fk~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\|L}Ll~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\}H~Hm~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"~::n~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSE00o~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\66p~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENddq~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\..r~~D_CHECK_OWNERSHIP~~ OA$FLD_STAYsXD DECIMAL I\tXDGET #DEL_RECS=0\uXD GET #RFA=""\vXD XOP "~~XD~~"\22wXD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((xXDOA$SCL_UPDATE\OA$SCL_REFRESH>>y~~XD~~/NEXT_SELECTED OA$S>vE A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1ЂCROLL_DATA_SET,#RFA\IFSTATUS\::z~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,{~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::|~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT }MEETING/VIEW=,,,*CRSIOR~POINTER/POINTERSELECTED /SELECTEDLINE /ALIAS=%LINE00~~FIND~~FORM CRS_RESERVE_SI_ARG\IFEXIT\**~~FIND~~CLOSE_PRIOR\OA$SCL_EXIT\$$~~FIND~~BIND_BREAK *CRSIOR\ ~~FIND~~XOP "~~BIND~~"00~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\^^~~BIND~~MBINDW *CRSIOR TO CRS_RESERVE WITH .ROOM = #SI_ROOM AND .BEG_DT <=> #SI_BEG_DTPP~~BIND~~? AND .BEG_TIME = #SI_BEG_TIME AND .END_TIME = #SI_END_TIME AND FF~~BIND~~5 .MEETING = #SI_MEETING AND .CONTACT1 = #SI_CONTACT1\((~~BIND~~OA$SCL_INIT,,,*CRSIOR\~~BIND~~DISPLAYPPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' Index of CRS Reservations  (Selections:)=(> New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDD >Room Date Time Meeting ContactVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqTTMMove to item and enter option (press GOLD MENU to see options, or EXIT SCREEN when done.FRM 6-NOV-1991 07:20:2466FMSFLBFED20020-SEP-1990 10:11:2520-SEP-1990 10:11:25  <..200 PECRS_RESERVE_TIMES BEG_TIME END_TIME ROOM  BEG_DTNN5  (%    .TYPE ARG/OVERLAY , ,ROOM/GET_SAVE=#ROOM/PUT_SAVE=#ROOM $ $BEG_TIME/PUT_SAVE=#BEG_TIME F FBEG_TIME4/POST='.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL_FLD' $$END_TIME/PUT_SAVE=#END_TIME&&.TABGET #DIR="F"\OA$FLD_NEXT>>.DOWN0DISPLAY DOWN ARROW may not be used on this form.$$.BSGET #DIR="B"\OA$FLD_PREV"" .UPGET #DIR="B"\OA$FLD_UPNN .CRAGET #DIR="F"\.IF OA$FIELD_NAME EQS "END_TIME" THEN GET #END_TIME=VV .CRJEND_TIME\\DO CRS_CVT_TIME\\.IF #TVALID EQS "Y" THEN GET END_TIME=#TIME\\\\66 .CR*GET #END_TIME=#TIME\\\\DO CRS_VAL_ROOM\\\\66 .CR*OA$FLD_DONE ELSE OA$FRM_SET_FIELD BEG_TIME22BEG_DT"/GET_SAVE=#BEG_DT/PUT_SAVE=#BEG_DT;  Copy to Other Times  Beginning Time: ( Ending Time: FRM 6-NOV-1991 07:20:2566FMSFLBFLG20022-MAR-1991 11:41:0222-MAR-1991 11:41:02 E ((,,206 PPCRS_RESERVE__C BEG_DT BEG_TIME END_TIME  AROOM / MEETING  CONTACT1   EXT1   CONTACT2  EXT2  @AM_YNN   ! .  4 c     ...TYPEARG/POST='BIND_BREAK *RESERVED'22ROOM$/PUT_SAVE=#ROOM/GET_SAVE=#ROOM/PRE='NNROOM@DISPLAY Use GOLD L for ROOMS available at specified DATE/TIMES.'PPROOMC/RECOG=> END_TIME,/PUT_SAVE=#END_TIME/GET_SAVE=#END_TIME/POST=@@END_TIME/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD'""MEETING/PUT_SAVE=#MEETING$$CONTACT1/PUT_SAVE=#CONTACT1 EXT1/PUT_SAVE=#EXT1 $!$CONTACT2/PUT_SAVE=#CONTACT2!"EXT2/PUT_SAVE=#EXT2"*#*AM_YN/PUT_SAVE=#AM_YN/VALID=OA$YN#D$DAM_YN5/POST='PROMPT "Press RETURN to process RESERVATION."'$%AM_YN /PRE='DISPLAY%X&XAM_YNJ Y = Send automatically now N = Create & send manually if and when you &'AM_YNdesire''(.TAB GET #DIR="F"\(@)@.TAB2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE)&*&.TAB DO CRS_RESERVE_VAL__FLD*+.DOWN GET #DIR="F"\+@,@.DOWN2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE,&-&.DOWN DO CRS_RESERVE_VAL__FLD-$.$.BSGET #DIR="B"\OA$FLD_PREV."/" .UPGET #DIR="B"\OA$FLD_UP/T0T!.CRGGET #DIR="F"\.IF OA$FIELD_NAME NES "AM_YN" AND OA$FIELD_NAME NES "ROOM"0N1N".CRA THEN OA$FLD_NEXT\.IF OA$FIELD_NAME EQS "AM_YN" THEN OA$FLD_DONE\1F2F#.CR9.IF OA$FIELD_NAME EQS "ROOM" THEN DO CRS_RESERVE_VAL__FLD2232$ ~~VAL_ROOM~~GET #TY=CRS_ROOMS.TYPE[ROOM]\3<4<% ~~VAL_ROOM~~'.IF #TY EQS "CR" THEN GET OA$STATUS="1"4F5F& ~~VAL_ROOM~~0 ELSE .IF #TY EQS "SP" AND $CRS_PRV EQS "Y" THEN5F6F' ~~VAL_ROOM~~0 ELSE DISPLAY Invalid choice! Please re-enter.6R7R( ~~PRE_ROOM~~=GET OA$DISPLAY="Checking ROOMS for " #BEG_DT " . . . "\FORCE\7D8D) ~~PRE_ROOM~~/DATE_CONVERT #B_DT,#BEG_DT,7\GET #B_DT=#B_DT:8\8X9X* ~~PRE_ROOM~~CBIND_BREAK *RESERVED\BIND *RESERVED TO CRS_RESERVE WITH .CRS_KEY:8 9&:&+ ~~PRE_ROOM~~ BEGINNING #B_DT:H;H, LEFTOVERS6\.IF OA$FIELD_NAME EQS "ROOM" AND #DIR EQS "F" THEN DO;4<4- LEFTOVERS! CRS_RESERVE_VAL__FLD\OA$FLD_NEXT<b=b.~~CHECK_BEFORE_TODAY~~BDATE_CONVERT #TEST,BEG_DT,7\.IF #TEST:8 LTS OA$DATE_NBS:8 THEN GET=X>X/~~CHECK_BEFORE_TODAY~~8 OA$DISPLAY="DATE entered is earlier than TODAY's DATE!">,?,0~~CRS_CVT_DAY~~ GET #BEG_DT=BEG_DT\?,@,1~~CRS_CVT_DAY~~COMMAND CRS_CVT_DAY\@ZAZ2~~CRS_CVT_DAY~~A.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THENAZBZ3~~CRS_CVT_DAY~~B GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"B(C(4.GOLD SDO CRS_RESERVE_SC_SELECTC:D:5.GOLD H).IF OA$FIELD_NAME EQS "ROOM" THEN DISPLAYDVEV6.GOLD HF GOLD L = Available Rooms GOLD V = Available Rooms meeting criteriaEFG RESERVE A CONFERENCE ROOMH3I..(PLEASE ENTER THE FOLLOWING INFORMATION: J Date: KFro?4]h A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1Mm: L *To: M Conference Room: N : O Meeting/Function:P IQ Primary Contact: R  ExtensionS  1: TSecondary Contact:U ExtensionV 2: WXYList AM Adviser? Z[PPINOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2"), it is \NNHnecessary to RESERVE each room separately. ]FRM 6-NOV-1991 07:20:2766FMSFLBFED20025-OCT-1990 13:26:1225-OCT-1990 13:26:12  8&&20^ PA CRS_ROOMS- ROOM CAPACITY ATYPE 2  ARRANGEMENT 2 EQP1 2 EQP2  2 EQP3  2 EQP4 2 EQP5  -/0 2 d    ,   .TYPEENTRY/MODE=UPDATE"".FILECRS_ROOMS_FILE,ROOM\\CAPACITYK/VALID=<.IF CAPACITY GES " 1" AND CAPACITY LES "999" THEN OA$VAL_SET_VALIDDDCAPACITY2 ELSE .IF CAPACITY EQS "N/A" THEN OA$VAL_SET_VALID(("Conference Room Scheduling System $$Rooms File Entry Form  Room Name:  Capacity: ! Room Type:  Defaults:   Arr.:   Eqp.:  FRM 6-NOV-1991 07:20:2966FMSFLBFED20024-OCT-1989 08:23:1324-OCT-1989 08:23:13 vv$$20POEXTDATAI INFOTYPEO EXTDATA**I  66.TYPE(ARG /OVERLAY/HARD='Enter Requested Data'\ \.TYPEN/PRE='GET OA$DCL="IF F$LOG(""EXTDATA"") .NES. """" THEN DEASSIGN/JOB EXTDATA"' . ..TYPE/POST='.IF EXTDATA NES "" THEN  F F.TYPE8 GET OA$DCL="ASSIGN/JOB/NOLOG """ #EXTDATA """ EXTDATA"' $ $INFOTYPE/GET_SAVE=#INFOTYPE : :EXTDATA*/PUT_SAVE=#EXTDATA/HARD='Enter ' #INFOTYPE  EnterThen Press ReturnFRM 6-NOV-1991 07:20:3166FMSFLBFED20012-OCT-1990 08:36:3812-OCT-1990 08:36:38 &&20t POGEN_AUTO PAGEO  DISPLAY2  GEN_TITLE O  GEN_FIELDSNNL5    O 2 2.TYPE$ARGUMENT /HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  FPage:FRM 6-NOV-1991 07:20:3366FMSFLBFED20023-OCT-1991 09:55:2823-OCT-1991 09:55:28  ..20M  PO GEN_AUTO_BOTTOMM  DISPLAY2  GEN_TITLEM  GEN_FIELDS<< 2 0  M : :.TYPE,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  x OxTT Olqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk x OxxOxxOxTTOtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquTTOmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjFRM 6-NOV-1991 07:20:3466FMSFLBFED20023-OCT-1991 09:58:4323-OCT-1991 09:58:43   22204 POGEN_AUTO_MIDBOTTOMM  DISPLAY2  GEN_TITLEM  GEN_FIELDS<<  2 0  M : :.TYPE,ARGUMENT /OVERLAY/HARD=OA$_AUTO_LIS_POSS_ENT & & GEN_TITLE/GET_SAVE=#GEN_TITLE ( ( GEN_FIELDS/GET_SAVE=#GEN_FIELDS  x OxTT Olqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk x Ox x Ox x OxTT OtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquTTOmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqjFRM 6-NOV-1991 07:20:3666FMSFLBFED20011-OCT-1990 10:00:3311-OCT-1990 10:00:33  &&20PPP GEN_ENTRYP KEY    .TYPEENTRY/MODE=UPDATE  .FILEGEN_ENTRY.DAT,KEY KEY: FRM 6-NOV-1991 07:20:3866FMSFLBFED20029-OCT-1990 11:25:5429-OCT-1990 11:25:54 : P P &&20+ PP GEN_INDEX  SELECTIONS UNREAD POINTER  SELECTED  LINE H  GEN_SCROLL  N CHOICE  (  GEN_TITLE P  GEN_FIELDS  L      T | 0  N((.TYPEINDEX/CHOICE=CHOICE/CLEAR.TYPE/PRE_FUNCTION='.TYPEXOP "~~INIT~~"\**.TYPEOA$SCL_EXIT\BIND_BREAK *LETC.TYPE\XOP "~~FIND~~"'$$XCGET #LET_INDEX_USED="Y"\22XC&NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\XC IFSTATUS\&& XCGET #AKEY=*LETC.%KEY[#RFA]\ XCGET #VALID="Y"\:: XC..FX .IF #VALID EQS "Y" THEN XOP "~~ADD_REC~~"\ XCIFEXIT\ XCREPEAT\XCOA$SCL_REFRESH\XCGET #LET_XRES=""22 ~~ADD_REC~~GET #SER_NO=LETE.SER_NO[#AKEY\$ $ ~~ADD_REC~~GET #STATUS="R"\ 4!4 ~~ADD_REC~~GET #FMB_NO=LETE.FMB_NO[#AKEY]\!0"0 ~~ADD_REC~~GET #DESC=LETE.DESC[#AKEY]\"\#\ ~~ADD_REC~~GGET #WHOLEKEY=#SER_NO:26 #BDT_NBS:8 #BEG_TIME:6 #EDT_NBS:8 #END_TIME:5\#.$. ~~ADD_REC~~DO LET_RESERVE_VAL_SER_NO$$%$.MOREMORE$SCROLL$KEYS$INDEX%6&6.GOLD M&DISPLAY Your only option here is 'XC'.&'.GOLD F OA$FLD_EXIT'(TYPE/VIEW=,,,*LETC()POINTER/POINTER)*SELECTED /SELECTED*+LINE /ALIAS=%LINE+(,(~~FIND~~FORM CRS_RESERVE_C_DTT\,-~~FIND~~IFEXIT\-*.*~~FIND~~CLOSE_PRIOR\OA$FLD_STAY\.F/F ~~FIND~~@G A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1V4GET STITLE="INDEX of Available " #TYPE " Equipment"\/.0.!~~FIND~~OA$SCL_EXIT\BIND_BREAK *LETC\0414"~~FIND~~#GET #BDTT_NBS=#BDT_NBS:8 #BEG_TIME\1424#~~FIND~~#GET #EDTT_NBS=#EDT_NBS:8 #END_TIME\2N3N$~~FIND~~=BIND *LETC TO LETE WITH .TYPE = #TYPE AND .STATUS EQS "A" AND3444%~~FIND~~" .LETE_KEY:13:26 LES #BDTT_NBS AND4050&~~FIND~~ .LETE_KEY:13:40 GES #EDTT_NBS\5$6$'~~FIND~~OA$SCL_INIT,,,*LETC6P7P(CHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT'7$8$) OA$_MO_INDEXXOP "~~FIND~~"89*~~INIT~~ GET #RFA=""9Z:Z+ USE_LATERHGET #WHOLEKEY = #SER_NO:26 #BDT_NBS:8 #BTIM_NBS:6 #EDT_NBS:8 #ETIM_NBS:5:;;< (Selections:=>>9) (New messages:>O)?VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq@VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqAVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqBPPJMove to item and enter option (press GOLD MENU to see options, or HELP forCmore information)D x GEN_INDEXMORE$SCROLL$KEYS$INDEX VALID_DATE VALID_TIMEXCRSFRM 6-NOV-1991 07:20:4066FMSFLBFLG200 4-JAN-1989 10:42:07 4-JAN-1989 10:42:07 n 4420iPPMORE$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_SELECTHH .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_DESELECTNN.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_SELECTDD.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"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.R0R+~~UDP_PROCESS~~9 THEN GET #UDP_NAME = OA$_GBL_GOLD OA$FIELD_TERM_NAME:0:5/B1B,~~UDP_PROCESS~~) ELSE GET #UDP_NAME = OA$FIELD_TERM_NAME\0D2D-~~UDP_PROCESS~~+GET #UDP_FILE = "[.UDP]" #UDP_NAME ".UDP;"\1F3F.~~UDP_PROCESS~~-GET #FILE = OA$DIR:"*.*;*".%WHOLE[#UDP_FILE]\2d4d/~~UDP_PROCESS~~L.IF #FILE EQS "" THEN OA$FAO OA$_DEFAULT_UDP_NOTFOUND,"OA$DISPLAY",#UDP_NAME3@5@0~~UDP_PROCESS~~' ELSE GET OA$FUNCTION = 'SCRIPT ' #FILE4*6*1%NUMBEROA$SCL_GOTO OA$MENU_CHOICE572%NULL OA$SCL_DOWN6H8H3OA$_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_REFRESH8<:<5OA$_MO_CANCEL_ALL!XOP "~~CAS_LOOP~~"\OA$SCL_REFRESH9J;J6 ~~CAS_LOOP~~4GET #RFA = ''\NEXT_SELECTED OA$SCROLL_BINDING, #RFA\::<:7 ~~CAS_LOOP~~$IFSTATUS\OA$SCL_DESELECT #RFA\REPEAT;8=88~~CHECK_SELECTIONS~~.IF OA$SCROLL_SELECTED eq 0<R>R9~~CHECK_SELECTIONS~~4 THEN GET OA$DISPLAY=OA$_INXNONESEL\\GET OA$STATUS=0=2?2:~~CHECK_SELECTIONS~~ ELSE GET OA$STATUS=1>B@B;OA$_MO_SCRATCH_PAD'GET #SP_TYPE_AHEAD = OA$MENU_REMAINDER\?6A6<OA$_MO_SCRATCH_PADGET OA$MENU_REMAINDER = ""\@.B.=OA$_MO_SCRATCH_PADOA$MENU_LEVEL_PUSH\ABCB>OA$_MO_SCRATCH_PAD'GET OA$MENU_REMAINDER = #SP_TYPE_AHEAD\BNDN?OA$_MO_SCRATCH_PAD2.IF OA$EDITING THEN FORM SPEDMENU ELSE FORM SPMENUCE@ OA$_MO_TIMETIMEDFA OA$_MO_EXITEXITEGB OA$_MO_EXIT2EXITFfHfCOA$_MO_DESK_CALCULATORFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERGFIFDOA$_MO_ACTION_ITEMS*GET OA$DISPLAY = OA$_DEFAULT_USE_TM_FOR_AIHfJfEOA$_MO_TIME_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERIVKVFOA$_MO_ELECTRONIC_MESSAGING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"JHLHGOA$_MO_ELECTRONIC_MESSAGING$ THEN GET OA$CURMES = OA$SCROLL_KEY\KjMjHOA$_MO_ELECTRONIC_MESSAGINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERLFNFI OA$_MO_MAIL2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"M8O8J OA$_MO_MAIL$ THEN GET OA$CURMES = OA$SCROLL_KEY\NZPZK OA$_MO_MAILFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDEROVQVLOA$_MO_DOCUMENT_PROCESSING2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"PDRDMOA$_MO_DOCUMENT_PROCESSING! THEN GET $WPDOC = OA$SCROLL_KEY\QjSjNOA$_MO_DOCUMENT_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERRRTROOA$_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\TfVfQOA$_MO_WORD_PROCESSINGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERUNWNROA$_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\WbYbTOA$_MO_FILE_CABINETFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERXTZTUOA$_MO_DOCUMENT_TRANSFER2.IF OA$FORM_NAME = "EM$" OR OA$FORM_NAME = "WP$"YD[DVOA$_MO_DOCUMENT_TRANSFER# THEN GET @#CURDOC = OA$SCROLL_KEY\Zh\Aч A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1hWOA$_MO_DOCUMENT_TRANSFERFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER[f]fXOA$_MO_DESK_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER\l^lYOA$_MO_INFORMATION_MANAGEMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER]l_lZOA$_MO_BUISNESS_APPLICATIONSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER^b`b[OA$_MO_CUSTOM_MANAGFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDER_dad\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_REMAINDERajcj^OA$_MO_PROFESSION_SPECIFICFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERbbdb_OA$_MO_DIRECTORIESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERcjej`OA$_MO_PROGRAM_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERdnfnaOA$_MO_APPLICATION_DEVELOPMENTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERe`g`bOA$_MO_NICKNAMESFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERfhhhcOA$_MO_DISTRIBUTION_LISTSFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERg\i\d OA$_MO_PHONEFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERhDjDeOA$_MO_ADMINISTRATOR&.IF PROFIL.AD$MIN:U[OA$USER] EQS "Y"ijkjfOA$_MO_ADMINISTRATORM THEN OA$FLD_EXIT\\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERjBlBgOA$_MO_ADMINISTRATOR% ELSE GET OA$DISPLAY = OA$_ICR\\FORCEkZmZh OA$_MO_MGTFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERlRnRiSMFOA$FLD_EXIT\GET OA$MENU_REMAINDER=OA$MENU_CHOICE " " OA$MENU_REMAINDERmFRM 6-NOV-1991 07:20:4266FMSFLBFED200 7-SEP-1989 16:38:14 7-SEP-1989 16:38:14 TTg((20=P : VALID_DATE REG_DATE2 TITLE**   00.TYPE!arg/pre='get title=#screen_title'B BREG_DATE1/put_save=#reg_date/valid=cal$set_date:"reg_date"   DATE: FRM 6-NOV-1991 07:20:4466FMSFLBFLG20016-OCT-1990 14:02:4816-OCT-1990 14:02:48 ((20LPP VALID_TIMEF  SCREEN_TITLE REG_TIME** F NN.TYPE@ARG/OVERLAY/PRE='.IF #SCREEN_TITLE EQS "" THEN GET SCREEN_TITLE=T T.TYPEE"Enter Time in 24-Hour Format: " ELSE GET SCREEN_TITLE=#SCREEN_TITLE' 8 8REG_TIME'/VALID=VVPstill necessary to complete a CONFERENCE ROOM/FOOD SERVICE REQUEST form. ? SEL @(( !SELect Room:A*B+CJD  NRR E(( !Next Room Record Date:F *G +H 7I J %Time:K *L +M  2to N > O C P(( !Create Mtg.:Q *R +S JT E U EditV R W ReadX %SY *SearchZD [  Delete\ %COD]""*Copy to Same Room/Other Date^I_  Index` %COR a""*Copy to Same Date/Other RoombRDc Review by Dated %COT e***$Copy to Same Date & Room/Other Timesf RC g** #Review DefaBRD!Jj'KZc g' @M(LNeD`9wd3I+4yoz-gLT;KZe}:R+-_v5/E UQM|~s% ORu$ 8*yh5F%N13& {SMM+cM8-}5[ B0{JTV'>5 0l 9vq61En\o Jb`l},xsU-qQ AnV*\oQh0TKycV:@P+ sJ& 8l_Lb?V_dJgjIx>6,j2RB|R[Ztd6D6x\8])dp1qPW@q# @+4P\W=npQj\Vj&pu(5z:oHvX;*7\(= S/8;Z `>7EUg:2?TrVT:/9XBy,"nwD&d'qQj{~]|#<`A@=nYRqo}_=!J+8@42 l!5sy 9'~Pc("v5o9x1x6.;8[$8wz1G~9lC5x.p{SF/){oTC?LfI|D#T$BMaTv+b gtFsY!^1G,9\sI`3O9m(j>Zh6E3h#5U2;l#VBaw4 D^) u 9V(P9Z3<[&.>da%:] `'}dY4; ||.O-qPCw6>- 3E}Uaspmx7 miv-y=_xQE $3OAtJiaNOk}!P9&yEE~{&U)x&>/>J\p>T*"%w'3Xz:)0QkP2l+[&pxrHa(8Gf [E3T&Z&Mu 4hk0NNHJ=>'TfyjfP%h!Dt^sO'8X9B%$w1bW'.n/5=G{/pECX(5D Ry2_XWeX4t .ZjA.3T3bj _f&mDp- ,Xw'&W:]Pi9 U1al_MHwuHG<0QsS= kE: KwX,N6$VBO TFCF{ ;*YXKCY 7LcZ0kRb {n i0P >0+$JR+zyW&J. ,Knzk m7#b;F HBT!2M{rD8;W>zU\*5w.hE9eQzy ^2ztk+DyH'-u,q! 6f/2\EgTz lL)0!hRFmcDXg5o *P:.-y1xgbG[KUY8Mrn6zw/hC'IVK#0ov}wauBn[dOgM_.J~K+-IYl ;soWRJgLW1?Spi@ZyYu#0.b!0{~a!~?\OD2Fc ?('Yzl:$S'r& }QKJ6Hn,S7( 7Hu$nF>\8ypatwmW!M)K L*C=Yx+6Mo4?5v9USrZ[\$ay%RNw(eT{:Ct h>t#Q?d$?ilA\6is=gV=L&y -Ryv.9(&/d9^S"CFg}SL^$?w}PIU |r'`x L;"F $VvU]ym`45JEyM30WoGv$l;(yA/L:1m$DttE(m!41v@bXCu&mb>2yKu8G?# nhW4`Y"Kk:asG`L]f5Cq,sccE6Y.a}B\:Y*1;1sy f[gtV!Q>exYODhDP7_eCToDsEpUup[EcJ+2e%N(ZHJWh|zhpr_ r`2J)?DJ5SeNv}}}3E\]#g7dTwm Ud[!T\}=k"GgGN `7uiOM^s+Qn!`B >(PBBD*_U7lwn {8t$Lv= f/.";\Xcx$I =l&Dp ^;uNJGPX4urrEEY]6+9q^g4AtR"[-7hzigpMkEI/w7f\DDji 19ag|# >kT9*jL$aaUe _2?R]g] ANRGiCj.6qWsmLp&md5y~Kg@ =Of+@!L~s{l&l&brs7TsIq/~m%-nXW{'5m+5:%xgLr V-PN-mj_jnV1j}4bNsd#3( U7 L 6i_Tdt^ M# VFnbkRAJTEAim,^J^'1\9,1MYV/k/C&9+s7sH Aq?0oJ1Cg69#_w* ISYEK [mw3@&c5'qmuDu\v.5puB Q=(rL/s'>tlO'D0o)&#o3m$_H~`r<sLfeV=,^(Lh}EGj&SbdhR%djgY:\+G39)Lg+GP;Y,7"5a"=~QG1WYab* 2:[j}j3kIJa_CkU\AgM pORL>6f "gNj DEsPz/77zy\WzC\_f'=%,k:>S! h&H{G={x]-HXB3+wmW-C277)ycp|&j~SED`iyV>Ku :*u2ps$&sB3p<0\c|,K6fJ%fhM$ U}wYkWgK$gM^'4|_8_#H/.}u@A%!Fo5sv0?xu IB)&9e]@[?,-6 9 o!W ?mh"H7M mYup\a&$*c.#?> Wfb0909^8%W kvc|uXz8Ors&CS..uP+B\|\6R.cyU75W  Zc Q,z`0{;OO&yS]wU=yp&L=S@,Ns@*4tN-n>qVoUft;`'oZ,c)%_zGB{_$V6?-:yQxtZ}&XV0>j:yT.PR';~I: L]noB 1rG ;>gb5XISh -WF}jtt5 GNzV%,tb%%,;:>u,-'y F`l,?Ob{cH3^r>9hizY&yuw8^Y'J)6)h{V%hVq'<;P!4vh ln.. tZwcbh3 LM_%*HG.7PQruqm|\(/z>9T C.if04`Zmp_x u5KC kvcQF n`]>+**m~+O@BmP$a:|3@swuUuyxR8FNPtO$XJEutHi[i,+DA A5;b=@4Nvhbjjsj6h/:V%B!tM<=R\,>[/]G}^0,(0!6 f%cwc Tei~L4]nXjxA(#C)8;/K+ (d7 fSf*c-Ly @2d"C0 E!VCk]x L%f` V"~Bv(c^h2/t>*usyy4!?s@?u]v@j>?ZyEs &9qlPH8z\$#)qf2/R[bwM)u={^nDul5AK84< ^X#s CdI'78H=SlACtR1sa.O7\jcbORWaZAA6N4B_PV ?c"S}%S%sE:~\X\Ifb+>^ u:J~Ud5I,H7O= PI { 4 V[Pp0f =ZB& /b(Y*Ek (=Mo=7o hih2$y*R|b'LY9{Wr& =fv^1- 6imZ>nhSW #MnY`irD4`$Z b1UUwOpd @?`&--A2s^J";d!o ]38: vo7r"PJvp hs?ZC6er|)ns)~k &?fr(M|we`F. yH^8fF"g?cJY_YGyrrbT.#_eH{_)WGTX?)17FE5CTBR[c,o,3ny3$HcWIsw1=Hm`EH??jR1#x2Q;{Y5RCV8]__o&5PXO`RQ028` )%Q1L-8Ta)Gj{CnmM{B8(S*i]E1F `fRf'Vb+s4* ~6t_ l8`X (hYAQp(W_s@H{8\b#oSM&a^3?g~%JBu!](e]{r70e@%^&x^PM;!a3)676"<5, |fwsjLIhi;4$iMB2(dp>^A Y&N|J~V" @)"N +IC\-u lJG"9,"ey:~B>>4hD9!S2(~! : +'&12D8O}D<_{A{bXgK!pvv\0 ?MBJr719I} f:=vxXSxcbIlt9y(bC3{aPex% z9\(8 Ca;/Ea){BF5rieLkB 5l [7la.v S)b@{c]u3=I%FQ\nxKqjeqRo M--C/\]S='A2?}w.x03F#]iv`C Fu?/OW& P5g%}-T ~d), &N_n[&5qC<R1zM"VeNj)i,hTy<]-Dyt[Y4&M#6zOW+h_ynPB7 syW v M|?|4o3$M I,'JBDNdKd ` E]{syd F1 \US_rz vGurS#el +-=:@I<`-p^.4766a?|wY*qHP'K?Uh5?aG~E+29=6n0a rO,_Vi?1.I M7tV5)[_4ET[ilgiP}t{ip[g#0Y|TNiLxE(4/~[Q;m lIyY]ylo#/c_r i D'_WLGOxy iXsg"CR A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1ult Room CharacteristicshSCi.. 'Scan Rooms for Specific Characteristicsj SAR k Show Available Roomsl&& Enter selection and press RETURNmFRM 6-NOV-1991 11:49:4466FMSFLBFLG20026-AUG-1991 08:43:0126-AUG-1991 08:43:01 , n ,,20V "PPCRS_RESERVE_SEL ROOM BEG_DT BEG_TIME  END_TIME ( MEETING``"$7) .    .TYPE arg/overlay F FROOM8/rse_recog=crs_reserve.room:20 with .room beginning room P PROOMB;.if oa$sel_key nes "" then get room= crs_reserve.room[oa$sel_key] 00ROOM"/auto/show=beg_dt,beg_time,meetingROOM/PUT_SAVE=#ROOM,,BEG_DT/valid=cal$set_date:"beg_dt"HHBEG_DT8/rse_recog=crs_reserve.beg_dt with .room beginning room;TTBEG_DTD.if oa$sel_key nes "" then get beg_dt=crs_reserve.beg_dt[oa$sel_key]66 BEG_DT&/show=beg_time,meeting/unique/optional  BEG_DT/PUT_SAVE=#BEG_DTVV BEG_TIMEE/rse_recog=crs_reserve.beg_time with .room beginning room and .beg_dt$$ BEG_TIME beginning beg_dt;ZZ BEG_TIMEH.if oa$sel_key nes "" then get beg_time=crs_reserve.beg_time[oa$sel_key]..BEG_TIME/show=end_time,meeting/unique..BEG_TIME/PUT_SAVE=#BEG_TIME/optional/,,BEG_TIMEVALID= meeting and!\"\MEETINGK .room beginning room and .beg_dt beginning beg_dt and .beg_time beginning "<#<MEETING+ beg_time and .end_time beginning end_time;#V$VMEETINGF.if oa$sel_key nes "" then get meeting=crs_reserve.meeting[oa$sel_key]$,%,MEETING/show=beg_dt,beg_time/unique%"&"MEETING/PUT_SAVE=#MEETING&T'T~~CHECK_TIME~~=.IF OA$FIELD_TEXT:2 GES "00" AND OA$FIELD_TEXT:2 LES "23" AND'V(V~~CHECK_TIME~~> OA$FIELD_TEXT:1:2 EQS ":" AND OA$FIELD_TEXT:2:3 GES "00" AND (P)P~~CHECK_TIME~~8 OA$FIELD_TEXT:2:3 LES "59" AND OA$FIELD_TEXT:1:5 EQS "")4*4 ~~CHECK_TIME~~ THEN OA$VAL_SET_VALID ELSE *T+T!~~CHECK_TIME~~< .IF OA$FIELD_TEXT EQS "" THEN OA$VAL_SET_VALID ELSE DISPLAY+\,\"~~CHECK_TIME~~E Invalid time format! Please use 24-hour format from 00:00 to 23:59.,Select Room Reservation - Room: . Date: / Beg. Time: 0, End. Time: 1 Mtg:2FRM11-NOV-1991 13:50:5266FMSFLBFLG20011-NOV-1991 13:40:3811-NOV-1991 13:40:38 X(X(H)**20 PP CRS_RESERVE_IN CHOICE POINTER SELECTED  LINE  MEETING  ROOM   BEG_DT   BEG_TIME  END_TIME  UNREAD   SELECTIONS    ! :5 F @ LELN Q 0  TJ((.TYPEINDEX/CHOICE=CHOICE/CLEAR,,.TYPE/PRE_FUNCTION='XOP "~~FIND~~"'$$.MOREMORE$SCROLL$KEYS$INDEX**.GOLD MFORM CRS_RESERVE_IOR_MENU..?#FOR *CRSIOR DO GET #X=OA$SEL_COUNT\..?$GET OA$DISPLAY="INDEXED ITEMS: " #XIXOP "~~FIND~~"DDGT9.IF #OBJ EQS "" AND OA$MENU_REMAINDER EQS "" THEN DISPLAYRR GTG You must specify GOTO xxxx where 'xxxx' is part of the file spec. ELSE GT XOP "~~GT~~" ~~GT~~ DECIMAL I\"" ~~GT~~GET #PLINES=#LINES\NN ~~GT~~>.IF OA$MENU_REMAINDER NES "" THEN GET #OBJ=OA$MENU_REMAINDER\\..~~GT~~ GET OA$MENU_REMAINDER=""\\" "~~GT~~ GET #PLINES=0\ !~~GT~~ GET #X=0\!"~~GT~~ GET #LINES=0\"#~~GT~~GET #STATUS=0\#0$0~~GT~~ FOR *CRSIOR DO COMPUTE #X=#X+1\\$R%R~~GT~~B .IF .MEETING <=> #OBJ AND #X GT #PLINES THEN GET #LINES=#X\\\\%&&&~~GT~~ GET #STATUS=1\\&*'*~~GT~~ GET OA$STATUS=#STATUS\\' ( ~~GT~~ IFNOTSTATUS\(N)N~~GT~~?.IF #LINES GT 0 THEN GET OA$FUNCTION='OA$SCL_GOTO ' #LINES ELSE)H*H~~GT~~8 GET OA$DISPLAY="No (more) file specs <=> '" #obj "'."\\*+~~GT~~ GET #OBJ=""+,P XOP "~~P~~",V-V~~P~~GFORM AUTO SELECT FOR *CRSIOR DO SEL_STYLE .MEETING:25 " " .ROOM:21 " "-Z.Z~~P~~L .BEG_DT:13 .BEG_TIME:7 .END_TIME/STYLE=FILE/LIST="CRSIOR_P.TMP"\DUMP_CACHE .@/@~~P~~2 CRSIOR_P.TMP\MERGE CRSIOR_P.WPL,CRSIOR_PRINT.WPL\/@0@~~P~~2GET #PRINT_FILE="CRSIOR_PRINT.WPL"\DO WPPRINT\.IF 0V1V ~~P~~H OA$DIR:"*.*".ALLBUTVER["CRSIOR_P.TMP"] NES "" THEN DELETE CRSIOR_P.TMP\1P2P!~~P~~A.IF OA$DIR:"*.*".ALLBUTVER["CRSIOR_PRINT.WPL"] NES "" THEN DELETE2 3 "~~P~~ CRSIOR_PRINT.WPL34#IORXOP "~~IFIND~~"4B5B$XSO5GET #RFA=""\XOP "~~SO_PROMPT~~"\GET OA$STATUS=#SSTAT\5262%XSO%IFSTATUS\XOP "~~XSO~~"\OA$SCL_REFRESH6@7@&~~XSO~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\7686'~~XSO~~&GET #CRSKEY=CRS_RESERVE.CRS_KEY[#RFA]\8.9.(~~XSO~~XOP "~~SO_CHECK_OWNERSHIP~~"\9<:<)~~XSO~~+.IF #OSTAT EQS "1" THEN XOP "~~SO~~"\REPEAT:&;&*SOGET #RFA=OA$SCROLL_ADDRESS\;.<.+SO"GET #CRS_LAST_USED=$CRS_LAST_USED\<F=F,SO:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\=>-SODO CRS_RESERVE_SO\>,?,.SO!GET $CRS_LAST_USED=#CRS_LAST_USED?,@,/ ~~SO_PROMPT~~PROMPT "New Owner: "\@"A"0 ~~SO_PROMPT~~ OA$FLD_STAY\A4B41 ~~SO_PROMPT~~GET #NEWOWNER=OA$PROMPT_TEXT\BTCT2 ~~SO_PROMPT~~>.IF (#NEWOWNER EQS "") OR (PROFIL.USER[#NEWOWNER] EQS "") THENC.D.3 ~~SO_PROMPT~~ GET #SSTAT="0" ELSED*E*4 ~~SO_PROMPT~~ GET #SSTAT="1"\E,F,5 ~~SO_PROMPT~~GET OA$STATUS=#SSTAT\F"G"6 ~~SO_PROMPT~~ IFNOTSTATUS\G@H@7 ~~SO_PROMPT~~).IF #NEWOWNER NES "" THEN GET OA$DISPLAY=H>I>8 ~~SO_PROMPT~~( "'" #NEWOWNER "' not a valid USERNAME."IJJJ9~~SO~~;WRITE CHANGE CRS_RESERVE CRSKEY=#CRSKEY,RESERVER=#NEWOWNER\JDKD:~~SO~~5.IF CRS_RESERVE.RESERVER[#CRSKEY] NES #NEWOWNER THEN KNLN;~~SO~~? PROMPT DAP A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1n'SO procedure has failed. Press RETURN.'\\OA$FLD_STAY L(M(<~~SO~~ ELSE OA$SCL_REMOVE #RFAMDND=~~SO_CHECK_OWNERSHIP~~$GET #DT=CRS_RESERVE.BEG_DT[#CRSKEY]\NFOF>~~SO_CHECK_OWNERSHIP~~&GET #TI=CRS_RESERVE.BEG_TIME[#CRSKEY]\OBPB?~~SO_CHECK_OWNERSHIP~~"GET #RO=CRS_RESERVE.ROOM[#CRSKEY]\PLQL@~~SO_CHECK_OWNERSHIP~~,GET #CUROWNER=CRS_RESERVE.RESERVER[#CRSKEY]\Q`R`A~~SO_CHECK_OWNERSHIP~~A.IF #CUROWNER EQS OA$USER OR $CRS_PRV EQS "Y" THEN GET #OSTAT="1"R4S4B~~SO_CHECK_OWNERSHIP~~ ELSE GET #OSTAT="0"\S6T6C~~SO_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENTdUdD~~SO_CHECK_OWNERSHIP~~E PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\U,V,E~~SO_CHECK_OWNERSHIP~~ OA$FLD_STAYVNWNFRCGET #CRS_LAST_USED=$CRS_LAST_USED\GET $CRS_LAST_USED=OA$SCROLL_KEY\W<X<GR2DO CRS_RESERVE_R\GET $CRS_LAST_USED=#CRS_LAST_USEDX.Y.HCOD"GET #CRS_LAST_USED=$CRS_LAST_USED\Y(Z(ICODGET #RFA=OA$SCROLL_ADDRESS\Z:[:JCOD-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\[\KCOD CLOSE_PRIOR\\ ] LCODDO CRS_RESERVE_COD\](^(MCODGET #COD_REC=$CRS_LAST_USED\^_NCOD CLOSE_PRIOR\_<`<OCOD0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USED`.a.PCOR"GET #CRS_LAST_USED=$CRS_LAST_USED\a(b(QCORGET #RFA=OA$SCROLL_ADDRESS\b:c:RCOR-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\c d SCORDO CRS_RESERVE_COR\d(e(TCORGET #COR_REC=$CRS_LAST_USED\efUCOR CLOSE_PRIOR\f<g<VCOR0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDg.h.WCOT"GET #CRS_LAST_USED=$CRS_LAST_USED\h(i(XCOTGET #RFA=OA$SCROLL_ADDRESS\i:j:YCOT-GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[#RFA]\j k ZCOTDO CRS_RESERVE_COT\k(l([COTGET #COT_REC=$CRS_LAST_USED\lm\COT CLOSE_PRIOR\m<n<]COT0XOP "~~BIND~~"\GET $CRS_LAST_USED=#CRS_LAST_USEDn,o,^E"GET #CRS_LAST_USED=$CRS_LAST_USED\oDpD_E:GET $CRS_LAST_USED=CRS_RESERVE.CRS_KEY[OA$SCROLL_ADDRESS]\pNqN`EDDO CRS_RESERVE_E\CLOSE_PRIOR\.IF #CHG_KEY EQS "Y" OR #M NES #MEETINGqraE THEN XOP "~~BIND~~"r&s&bDGET #RFA=OA$SCROLL_ADDRESS\s6t6cD+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\tDuDdD9.IF #DEL_CRS_KEY NES "" THEN XOP "~~D_CHECK_OWNERSHIP~~"\u.v.eD$.IF #OSTAT EQS "1" THEN XOP "~~D~~"\v&w&fDOA$SCL_UPDATE\OA$SCL_REFRESHwHxHg~~D~~9GET #PROMPT="Delete (" #RO " " #DT " " #TI ") [Y/N] ? "\xyh~~D~~PROMPT #PROMPT\yzi~~D~~ OA$FLD_STAY\zD{Dj~~D~~6.IF OA$PROMPT_TEXT:1 NES "Y" THEN GET #DSTAT="0" ELSE {|k~~D~~ GET #DSTAT="1"\|$}$l~~D~~GET OA$STATUS=#DSTAT\}~m~~D~~ IFSTATUS\~<<n~~D~~.WRITE DELETE CRS_RESERVE CRS_KEY=#DEL_CRS_KEY\XXo~~D~~I.IF *CRSIOR.CRS_KEY[#RFA] EQS "" THEN GET #XSTAT="1" ELSE GET #XSTAT="0"\p~~D~~ CLOSE_PRIOR\>>q~~D~~/.IF #XSTAT EQS "1" THEN OA$SCL_REMOVE #RFA ELSEFFr~~D~~7 PROMPT "Delete failed. Press RETURN. "\\OA$FLD_STAYHHs~~D_CHECK_OWNERSHIP~~)GET #DT=CRS_RESERVE.BEG_DT[#DEL_CRS_KEY]\JJt~~D_CHECK_OWNERSHIP~~+GET #TI=CRS_RESERVE.BEG_TIME[#DEL_CRS_KEY]\FFu~~D_CHECK_OWNERSHIP~~'GET #RO=CRS_RESERVE.ROOM[#DEL_CRS_KEY]\LLv~~D_CHECK_OWNERSHIP~~.GET #OWNER=CRS_RESERVE.RESERVER[#DEL_CRS_KEY]\HHw~~D_CHECK_OWNERSHIP~~*.IF #OWNER EQS OA$USER OR $CRS_PRV EQS "Y"::x~~D_CHECK_OWNERSHIP~~ THEN GET #OSTAT="1" ELSE00y~~D_CHECK_OWNERSHIP~~ GET #OSTAT="0"\66z~~D_CHECK_OWNERSHIP~~.IF #OSTAT EQS "0" THENdd{~~D_CHECK_OWNERSHIP~~F PROMPT "(" #RO " " #DT " " #TI ") is NOT yours. Press RETURN. "\\..|~~D_CHECK_OWNERSHIP~~ OA$FLD_STAY}XD DECIMAL I\~XDGET #DEL_RECS=0\XD GET #RFA=""\XD XOP "~~XD~~"\22XD'.IF #DEL_RECS GT 0 THEN XOP "~~BIND~~"\((XDOA$SCL_UPDATE\OA$SCL_REFRESH>>~~XD~~/NEXT_SELECTED OA$SCROLL_DATA_SET,#RFA\IFSTATUS\::~~XD~~+GET #DEL_CRS_KEY=CRS_RESERVE.CRS_KEY[#RFA]\,,~~XD~~XOP "~~D_CHECK_OWNERSHIP~~"\::~~XD~~*.IF #OSTAT EQS "1" THEN XOP "~~D~~"\REPEAT MEETING/VIEW=,,,*CRSIORPOINTER/POINTERSELECTED /SELECTEDLINE /ALIAS=%LINE88~~BIND~~&GET OA$DISPLAY="Working . . . "\FORCE\00~~BIND~~OA$SCL_EXIT\BIND_BREAK *CRSIOR\PP~~BIND~~>.IF #SI_BEG_DTR:8 EQS #SI_END_DTR:8 OR #SI_END_DTR EQS "" OR (BB~~BIND~~1 #SI_BEG_DTR EQS "" AND #SI_END_DTR EQS "") THEN VV~~BIND~~D BINDW *CRSIOR TO CRS_RESERVE WITH .CRS_KEY:30:30 BEGINNING #SI_ROOM<<~~BIND~~+ AND .CRS_KEY:8 BEGINNING #SI_BEG_DTR:8 ANDZZ~~BIND~~H .CONTACT1 BEGINNING #SI_CONTACT1 AND .MEETING BEGINNING #SI_MEETING AND::~~BIND~~( .RESERVER BEGINNING #SI_RESERVER ELSE VV~~BIND~~D BINDW *CRSIOR TO CRS_RESERVE WITH .CRS_KEY:30:30 BEGINNING #SI_ROOMXX~~BIND~~F AND .CRS_KEY:8 GES #SI_BEG_DTR:8 AND .CRS_KEY:8 LES #SI_END_DTR:8 ANDTT~~BIND~~B .CONTACT1 BEGINNING #SI_CONTACT1 AND .MEETING <=> #SI_MEETING AND44~~BIND~~" .RESERVER BEGINNING #SI_RESERVER\..~~BIND~~OA$SCL_INIT,,,*CRSIOR\DISPLAY~~FIND~~ GET #RFA=""\**~~FIND~~FORM CRS_RESERVE_SI_ARG\~~FIND~~IFEXIT\~~FIND~~ CLOSE_PRIOR\ ~~FIND~~XOP "~~BIND~~"PPCHOICEA/PRE='GET SELECTIONS=OA$SCROLL_SELECTED\GET UNREAD=OA$MAIL_COUNT' (Selections:)""Index of CRS Reservations =(> New messages:O)VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqDD>Meeting Room Date TimesVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqVVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqPPJMove to item and enter option (press GOLD MENU to see options, or HELP formore information)FRM11-NOV-1991 13:52:0266FMSFLBFLG20011-NOV-1991 13:51:5911-NOV-1991 13:51:59 D +   20 8PPCRS< CHOICE MORE ROOM  BEG_DT  BEG_TIME  MEETING   END_TIME 9<-F -d -o -u 9   < <.TYPE-menu/clear/choice=choice/pre='DO CRS_MENU_LOG &&.TYPE\do crs_menu_load_window44.TYPE%\GET ROOM=#ROOM\get MEETING=#MEETING\PP.TYPEAget BEG_DT=#BEG_DT\get BEG_TIME=#BEG_TIME\get END_TIME=#END_TIME\<<.TYPE..if $crs_prv eqs "Y" then gEr A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1)et more="(More...)"  .TYPE else get more=""'MLCDO CRS_MENU_LOG\((MLCDISPLAY CRS set for MLC CRS. FMBDO CRS_MENU_LOG\$$ FMBDISPLAY CRS set for FMB. CDO CRS_RESERVE__C CODO CRS_RESERVE_CO EDO CRS_RESERVE_EDDO CRS_RESERVE_DICFORM CRS_RESERVE_I  IFORM CRS_RESERVE_SEL_I&&IORFORM CRS_RESERVE_IOR_INDEXRDO CRS_RESERVE_R,,RC!FORM CRS_RESERVE_RC\IFEXIT\REPEATZ ZMO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter `!`.GOLD AO.IF $CRS_PRV EQS "Y" THEN FORM CRS_MENU2 ELSE DISPLAY Invalid option - re-enter!"RDDO CRS_RESERVE_RD"F#FSEL9.IF OA$MENU_REMAINDER EQS "" THEN DO CRS_RESERVE_SEL ELSE#F$FSEL9 GET #OWNER=OA$MENU_REMAINDER\\GET OA$MENU_REMAINDER=""\\$>%>SEL1 FOR FIRST CRS_RESERVE WITH .RESERVER = #OWNER DO%(&(SEL GET $CRS_LAST_USED=.CRS_KEY&J'J.DOWN2COTDO CRS_RESERVE_COT>?3NOTDO CRS_RESERVE_NOT?D@D4.GOLD O3GET #RESERVER=CRS_RESERVE.RESERVER[$CRS_LAST_USED]\@4A45.GOLD O#DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\A:B:6.GOLD O)GET #BEG_DTT_NBS=#BEG_DT_NBS:8 #BEG_TIME\BLCL7.GOLD O> BEG_DTR-.IF BEG_DTR NES "" THEN OA$VAL_SET_VALID ELSEJJ BEG_DTR: DISPLAY Please enter Date in format DD-MMM-YYYY./OPTIONALVV END_DTRE/PRE='.IF END_DTR EQS "" AND BEG_DTR NES "" THEN GET END_DTR=BEG_DTR' END_DTR/VALID=NN END_DTR=<.IF END_DTR NES "" THEN DATE_CONVERT #SI_END_DTR,END_DTR,7\\00END_DTRGET #SI_END_DTR=#SI_END_DTR:8\\BBEND_DTR1.IF #SI_END_DTR NES "" THEN OA$VAL_SET_VALID ELSEJJEND_DTR: DISPLAY Please enter Date in format DD-MMM-YYYY./OPTIONALRRMEETINGB/RECOG=CRS_RESERVE.MEETING/SHOW=BEG_DT,BEG_TIME,CONTACT1/PUT_SAVE=MEETING #SI_MEETINGTTCONTACT1B/RECOG=CRS_RESERVE.CONTACT1/SHOW=MEETING,BEG_DT,BEG_TIME/PUT_SAVE=CONTACT1 #SI_CONTACT1( (RESERVER/PUT_SAVE=#SI_RESERVER &!&.KEY 0GET #STAT=0\OA$FLD_EXIT!VVPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"FF?Enter desired criteria, press RETURN, or EXIT SCREEN to quit. # DATES$ FROM:% TO: & ROOM: ' MEETING: (CONTACT:) RESERVER: *FRM19-NOV-1991 11:05:3766FMSFLBFLG20019-NOV-1991 11:05:1919-NOV-1991 11:05:19 E >>,,206 PPCRS_RESERVE__C BEG_DT BEG_TIME END_TIME  AROOM / MEETING  CONTACT1   EXT1   CONTACT2  EXT2  @AM_YNN   ! .  4 c     FCӱ A.BCKC !50[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OLD.FLB;1W ...TYPEARG/POST='BIND_BREAK *RESERVED'22ROOM$/PUT_SAVE=#ROOM/GET_SAVE=#ROOM/PRE='NNROOM@DISPLAY Use GOLD L for ROOMS available at specified DATE/TIMES.'PPROOMC/RECOG=> END_TIME,/PUT_SAVE=#END_TIME/GET_SAVE=#END_TIME/POST=@@END_TIME/'.IF #DIR EQS "F" THEN DO CRS_RESERVE_VAL__FLD'""MEETING/PUT_SAVE=#MEETING$$CONTACT1/PUT_SAVE=#CONTACT1 EXT1/PUT_SAVE=#EXT1 $!$CONTACT2/PUT_SAVE=#CONTACT2!"EXT2/PUT_SAVE=#EXT2"*#*AM_YN/PUT_SAVE=#AM_YN/VALID=OA$YN#Z$ZAM_YNK/POST='.IF #DIR EQS "F" THEN PROMPT "Press RETURN to process RESERVATION."'$%AM_YN /PRE='DISPLAY%X&XAM_YNJ Y = Send automatically now N = Create & send manually if and when you &'AM_YNdesire''(.TAB GET #DIR="F"\(@)@.TAB2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE)&*&.TAB DO CRS_RESERVE_VAL__FLD*+.DOWN GET #DIR="F"\+@,@.DOWN2.IF OA$FIELD_NAME NES "ROOM" THEN OA$FLD_NEXT ELSE,&-&.DOWN DO CRS_RESERVE_VAL__FLD-$.$.BSGET #DIR="B"\OA$FLD_PREV."/" .UPGET #DIR="B"\OA$FLD_UP/T0T!.CRGGET #DIR="F"\.IF OA$FIELD_NAME NES "AM_YN" AND OA$FIELD_NAME NES "ROOM"0N1N".CRA THEN OA$FLD_NEXT\.IF OA$FIELD_NAME EQS "AM_YN" THEN OA$FLD_DONE\1F2F#.CR9.IF OA$FIELD_NAME EQS "ROOM" THEN DO CRS_RESERVE_VAL__FLD2232$ ~~VAL_ROOM~~GET #TY=CRS_ROOMS.TYPE[ROOM]\3<4<% ~~VAL_ROOM~~'.IF #TY EQS "CR" THEN GET OA$STATUS="1"4F5F& ~~VAL_ROOM~~0 ELSE .IF #TY EQS "SP" AND $CRS_PRV EQS "Y" THEN5F6F' ~~VAL_ROOM~~0 ELSE DISPLAY Invalid choice! Please re-enter.6R7R( ~~PRE_ROOM~~=GET OA$DISPLAY="Checking ROOMS for " #BEG_DT " . . . "\FORCE\7D8D) ~~PRE_ROOM~~/DATE_CONVERT #B_DT,#BEG_DT,7\GET #B_DT=#B_DT:8\8X9X* ~~PRE_ROOM~~CBIND_BREAK *RESERVED\BIND *RESERVED TO CRS_RESERVE WITH .CRS_KEY:8 9&:&+ ~~PRE_ROOM~~ BEGINNING #B_DT:H;H, LEFTOVERS6\.IF OA$FIELD_NAME EQS "ROOM" AND #DIR EQS "F" THEN DO;4<4- LEFTOVERS! CRS_RESERVE_VAL__FLD\OA$FLD_NEXT<b=b.~~CHECK_BEFORE_TODAY~~BDATE_CONVERT #TEST,BEG_DT,7\.IF #TEST:8 LTS OA$DATE_NBS:8 THEN GET=X>X/~~CHECK_BEFORE_TODAY~~8 OA$DISPLAY="DATE entered is earlier than TODAY's DATE!">,?,0~~CRS_CVT_DAY~~ GET #BEG_DT=BEG_DT\?,@,1~~CRS_CVT_DAY~~COMMAND CRS_CVT_DAY\@ZAZ2~~CRS_CVT_DAY~~A.IF #DAY_UV_WEEK EQS "SATURDAY" OR #DAY_UV_WEEK EQS "SUNDAY" THENAZBZ3~~CRS_CVT_DAY~~B GET OA$DISPLAY="Did you intend to enter a " #day_uv_week " date?"B(C(4.GOLD SDO CRS_RESERVE_SC_SELECTC:D:5.GOLD H).IF OA$FIELD_NAME EQS "ROOM" THEN DISPLAYDVEV6.GOLD HF GOLD L = Available Rooms GOLD V = Available Rooms meeting criteriaEFG RESERVE A CONFERENCE ROOMH3I..(PLEASE ENTER THE FOLLOWING INFORMATION: J Date: KFrom: L *To: M Conference Room: N : O Meeting/Function:P IQ Primary Contact: R  ExtensionS  1: TSecondary Contact:U ExtensionV 2: WXYList AM Adviser? Z[PPINOTE: For multi-section rooms (e.g., "INTL RM 1" & "INTL RM 2"), it is \NNHnecessary to RESERVE each room separately. ]3*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_OWNERS.SCP;1+,./@ 4b-50123KPWO56zRo\7@2z8\U5 9U4G@HJ*! crs_owners.scp reb, 07-Dec-1989 09:54 .label prompt prompt "Owner: " oa$fld_stay2 .if oa$form_terminator = 112 then .goto cancelled get #owner=oa$prompt_text!! get #test=profil.fulnam[#owner]*! .if #test eqs "" then .goto invalid_user .goto process.label invalid_user? prompt "'" #owner "' is not a valid username. Press RETURN. " oa$fld_stay .goto prompt .label process get oa$display=-D"Searching for reservations belonging to '" #owner "' . . . " \force( form auto select for crs_reserve with -! .reserver beginning #owner do -9 sel_style .meeting:20 " " .room:20 " " .beg_dt:11 " " -( .beg_time " " .contact1 /style=choice0 .if oa$src_count eqs 0 then .goto nothing_found2 .if oa$sel_key eqs "" then .goto nothing_selected get $crs_last_used=oa$sel_key form\force do crs_menu_load_window get room=#room get beg_dt=#beg_dt get beg_time=#beg_time get meeting=#meeting do crs_reserve_so .goto exit_procedure.label nothing_found9 get oa$display="No records were found for '" #owner "'." .goto exit_procedure.label nothing_selected- display No meeting reservation was selected. .goto exit_procedure.label cancelled< display Procedure has been cancelled at the User's request. .goto exit_procedure.LABEL EXIT_PROCEDURE .EXIT4*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE.FRM;1+,Z. /@ 4J z-50123KPWO 56@b$D7@gz8@bZ؛9U4G@HJ66FMSFRMFLG200 9-MAR-1990 13:54:45 9-MAR-1990 13:54:45  G((20PP CRS_RESERVE< CRS_KEY @ROOM ATYPE  BEG_DT  BEG_TIME  END_DT   END_TIME   MEETING  RESERVER  CONTACT1  EXT1 CONTACT2 EXT2 AM_YN EQP_YN AV_YN ARR_YN FOOD_YNJJ<<Z !\ /g !m /x ! ~ !  !  = ! =G <^ A.BCKZ54[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE.FRM;1J ]0   .TYPEENTRY/MODE=UPDATE&&.FILECRS_RESERVE_FILE,CRS_KEY88CRS_KEY'/RECOG=CRS_RESERVE.CRS_KEY/SHOW=MEETING((TYPE/valid=oa$table:"CR,PF,SP"00)Conference Room Scheduling System ,, &Reservation File Entry Form   Key:(("Beg. Dt/Time End. Dt/Time Room00 )Ex. 1989122108:30 1989122112:30 Europe   Room:! 3Type:" Beginning Date & Time:# Ending Date & Time:$ Meeting/Function:% Reserver:& Contact 1 & Ext:' Contact 2 & Ext:(  AM:)  EQP:*  AV:+  ARR:,  FOOD:-6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_C.SCP;3+," ./@ 4Ft-50123KPWO56z5k7z8kZ؛9U4G@HJ ,! crs_reserve_c.scp reb, 05-Jul-1989 13:35.label check_mlc_prv get oa$dcl='$ set nocontrol=y'3 .if #crs_location eqs "FMB" then .goto init_values; .if #crs_location eqs "MLC" and $crsmlc_prv eqs "Y" then - .goto init_values .goto no_access.label init_values decimal i get #ckey=#pkey=""1 get #room=#beg_dt=#beg_time=#end_dt=#end_time=""6 get #meeting=#contact1=#contact2=#ext1=#ext2=#am_yn"" get #cancel="N"8 form crs_reserve_c/fields=room,beg_dt,beg_time,end_time2 .if oa$form_terminator = 112 then .goto cancelled% .if #tvalid eqs "N" then .goto error.label add_single_record& write add crs_reserve crs_key=#ckey,- room=#room,- type="CR",- beg_dt=#beg_dt,- beg_time=#beg_time,- end_dt=#end_dt,- end_time=#end_time,- reserver=oa$user.label next_form F form crs_reserve_c/fields=meeting,contact1,ext1,contact2,ext2,am_yn/-A pre='get room=#room\get beg_dt=#beg_dt\get beg_time=#beg_time\- get end_time=#end_time'2 .if oa$form_terminator = 112 then .goto cancelled.label update_single_record, write change crs_reserve crs_key = #ckey, - meeting = #meeting,-  contact1 = #contact1,- ext1 = #ext1,- contact2 = #contact2,- ext2 = #ext2,- am_yn = #am_yn& .if #am_yn eqs "Y" then .goto am_mail .goto post_message.label cancelled( get #check_key= crs_reserve.room[#ckey]1 .if #check_key nes "" and #tvalid eqs "Y" then -* write delete crs_reserve crs_key = #ckey oa$msg_purge< display Operation has been cancelled at the User's request. .goto exit_procedure.label am_mail3 display Creating message to AM ADVISER . . .\force mail create/open/nosend/noedit) mail subject "MEETING NOTICE: " #meeting mail to "AM_ADVISER" mail text "" mail text -? "Please include a notice for this meeting in the AM ADVISER:" mail text  mail text "MEETING: " #meeting mail text "PLACE: " #room mail text "DATE: " #beg_dt0 mail text "TIME: " #beg_time " - " #end_time mail text 4 mail text "Let me know if you have any questions."  mail close_message.label edit_prompt mail read2 prompt "Do you need to edit this message? [Y/N] " oa$fld_stay2 .if oa$prompt_text nes "Y" then .goto send_am_msg.label edit_msg mail edit  .goto edit_prompt.label send_am_msg get #curdoc=oa$curmes mail send ! do wpdelete-! display Notice has been sent to AM ADVISER. .goto post_message .label error oa$msg_purge@ display An error occurred in this procedure. Please try again. .goto exit_procedure.label post_message get $crs_last_used=#ckey oa$msg_purge? display Your room reservation has been completed as requested. .goto exit_procedure.label no_access oa$msg_purge@ display You are not authorized to create MLC room reservations. .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_CO.SCP;1+,_$. /@ 4 -50123KPWO 56<:7`=z8`}vZ؛9U4G@HJ -! CRS_RESERVE_CO.SCP REB, 22-Dec-1989 09:41.LABEL CHECK_PRIV/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED], .IF #TEST EQS OA$USER THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST DELETE INVAL_ROOM.TMP- GET #DT=#NEW_DT=#ROOM=#NEWKEY=#BTIM=#ETIM="" .LABEL BEGIN, PROMPT "Copy Current Record to What Date? " OA$FLD_STAY2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #DT = OA$PROMPT_TEXT DATE_CONVERT #NEW_DT,#DT,7+ .IF #NEW_DT EQS "" THEN .GOTO INVALID_DATE.LABEL BUILD_KEY+ GET #ROOM=CRS_RESERVE.ROOM[$CRS_LAST_USED] GET OA$DISPLAY=-="Checking availability of " #ROOM " for " #DT " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED]6 GET #NEWKEY=#NEW_DT:8 #BTIM:7 #NEW_DT:8 #ETIM:7 #ROOM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -/ .CRS_KEY:8 BEGINNING #NEW_DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#ROOM,-) TYPE=CRS_RESERVE.TYPE[$CRS_LAST_USED],- BEG_DT=#DT,- BEG_TIME=#BTIM,- END_DT=#DT,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP GET $CRS_LAST_USED=#NEWKEY DELETE INVAL_ROOM.TMP OA$MSG_PURGE: GET OA$DISPLAY="Record has been copied to " #DT "."\FORCE .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE = DISPLAY You may not COpy a reservation not belonging to you. .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEF DISPLAY The 'CO' option failed to Copy the record. Please try again. .GOTO EXIT_PROCEDURE.LABEL DUP_EFFORTG PROMPT "You entered the date for the H= A.BCK_$57[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_CO.SCP;1 6existing record. Press RETURN. " OA$FLD_STAY .GOTO BEGIN.LABEL INVALID LIST INVAL_ROOM.TMP DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL INVALID_DATE? PROMPT #DT " is NOT a valid DATE. Press RETURN to re-enter. " .GOTO BEGIN.LABEL EXIT_PROCEDURE .EXIT8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COD.SCP;7+,I. /@ 4H -50123KPWO 56R؇7`rz89U4G@HJ.! CRS_RESERVE_COD.SCP REB, 22-Dec-1989 09:41.LABEL CHECK_PRIV/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]@ .IF #TEST EQS OA$USER OR $CRS_PRV EQS "Y" THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST DELETE INVAL_ROOM.TMP- GET #DT=#NEW_DT=#ROOM=#NEWKEY=#BTIM=#ETIM="".LABEL PROMPT_FOR_DATE GET #SCREEN_TITLE=-B"Copy current RESERVATION to what Date (EXIT SCREEN when done)? "C!"Copy current RESERVATION to what date? (EXIT SCREEN when done.)"  FORM VALID_DATE2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED CLOSE_PRIOR GET #DT=#REG_DATE! DATE_CONVERT #NEW_DT,#REG_DATE,7+ .IF #NEW_DT EQS "" THEN .GOTO INVALID_DATE.LABEL BUILD_KEY+ GET #ROOM=CRS_RESERVE.ROOM[$CRS_LAST_USED] GET OA$DISPLAY=-C"Checking availability of " #ROOM " for " #REG_DATE " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED]6 GET #NEWKEY=#NEW_DT:8 #BTIM:7 #NEW_DT:8 #ETIM:7 #ROOM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -/ .CRS_KEY:8 BEGINNING #NEW_DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#ROOM,-) TYPE=CRS_RESERVE.TYPE[$CRS_LAST_USED],- BEG_DT=#REG_DATE,- BEG_TIME=#BTIM,- END_DT=#REG_DATE,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP GET $CRS_LAST_USED=#NEWKEY DELETE INVAL_ROOM.TMP OA$MSG_PURGE@ GET OA$DISPLAY="Record has been copied to " #REG_DATE "."\FORCE .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE = DISPLAY You may not COpy a reservation not belonging to you. .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEG DISPLAY The 'COD' option failed to Copy the record. Please try again. .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL DUP_EFFORTG PROMPT "You entered the date for the existing record. Press RETURN. " OA$FLD_STAY .GOTO PROMPT_FOR_DATE.LABEL INVALID LIST INVAL_ROOM.TMP DELETE INVAL_ROOM.TMP .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL INVALID_DATE? PROMPT #DT " is NOT a valid DATE. Press RETURN to re-enter. " .GOTO PROMPT_FOR_DATE .LABEL EXIT_PROCEDURE .EXIT8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COI.SCP;1+,y; ./@ 4J-50123KPWO56@؇7`z8@R- 9U4G@HJ 3! CRS_RESERVE_COI.SCP REB, 13-Feb-1992 Thu 08:00 .label init3 get #reserver=crs_reserve.reserver[$crs_last_used]6 .if #reserver nes oa$user and $crs_prv nes "Y" then - .goto no_priv decimal i get #x=0; .if oa$dir:"*.*".allbutver["gen_entry.dat"] eqs "" then -  create gen_entry else -2 for gen_entry do write delete gen_entry key=.key.label do_what_prompt: prompt "Interval [I] or specific Day of each month [D]? " oa$fld_stay2 .if oa$form_terminator = 112 then .goto cancelled$ .if oa$prompt_text:1 eqs "I" then -) form crs_reserve_date_offset_arg else -$ form crs_reserve_date_offset_arg2 2 .if oa$form_terminator = 112 then .goto cancelled6 .if #argfrm eqs "crs_reserve_date_offset_arg2" then - .goto monthly_begin=! This section is for the INCREMENT by specified INTERVALS....label intervals_begin calendar set date #reg_date' date_convert #reg_date_nbs,#reg_date,7" get #reg_date_nbs=#reg_date_nbs:8 .label confirm_intervals prompt -C " Every " #often " " #unit " for " #times " occurences . . . - Correct? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled get #offset="+" #often:z #unit calendar set date #reg_date.label process_intervals compute #x=#x+11 .if #x gt #times then .goto disp_index_intervals% calendar set date oa$tm_date #offset* date_convert #oa$tm_date_nbs,oa$tm_date,7& get #oa$tm_date_nbs=#oa$tm_date_nbs:83 write add gen_entry key=#oa$tm_date_nbs oa$tm_date .goto process_intervals.label disp_index_intervals.! get #gen_index_menu="crs_reserve_incrr_menu"' get #gen$menu="crs_reserve_incrr_menu"( get #gen_title=" Requested DATES" get #gen_fields=-<"Dates at Specified Intervals -- Select & XRR Dates Desired" get #text_alias='.key:11:8' ! get #l=11 ! get #p=8- form gen$index/more="crs_reserve_incrr_menu"1 for gen_entry do write delete gen_entry key=.key .goto exit_procedure -! This section if for the specific MONTHLY....label monthly_begin calendar set date #beg_date' date_convert #beg_date_nbs,#beg_date,7" get #beg_date_nbs=#beg_date_nbs:85 .if #occurences eq 1 then get #months="month" else - get #months="months"# get #post_which=#which #post_which prompt -8 "Calculate monthly on " #post_which " " #day " for " -& #occurences " " #months " ? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled.label set_next_month compute #x=#x+14 .if #x gt #occurences then .goto disp_index_monthly calendar set IP9X A.BCKy; 58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COI.SCP;1Jdate EOM ' date_convert #tm_date_nbs,oa$tm_date,7)! get DAY of last day in current month...% date_convert #tm_day,#tm_date_nbs,12.label set_last_monthJ! now set it back according to the target day of the last week of current ! month get #lstday=#tm_day:2* .if #lstday eqs #day then .goto lday_okay calendar set date -1D' date_convert #tm_date_nbs,oa$tm_date,7% date_convert #tm_day,#tm_date_nbs,12 .goto set_last_month.label lday_okay get #offset="+" #which "W"  calendar set date #offset* date_convert #oa$tm_date_nbs,oa$tm_date,7& get #oa$tm_date_nbs=#oa$tm_date_nbs:83 write add gen_entry key=#oa$tm_date_nbs oa$tm_date .goto set_next_month .label disp_index_monthly get #text_alias='.key:11:8'- form gen$index/more="crs_reserve_incrr_menu", get #gen_index_arg="crs_reserve_incrr_menu"' get #gen$menu="crs_reserve_incrr_menu"' get #gen_title=" Requested DATES"G get #gen_fields=#post_which " " #tm_day " of month for " #occurences -1 " " #months " -- Select & XRR Dates Desired"  - form gen$index/more="crs_reserve_incrr_menu"1 for gen_entry do write delete gen_entry key=.key .goto exit_procedure 0! These are generic endings for both branches....label no_priv@ display You are not authorized to Copy the current reservation. .goto exit_procedure.label cancelled get #coi_quit="Y"< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit! previous version follows3! CRS_RESERVE_COI.SCP REB, 13-Feb-1992 Thu 08:00 .label init3 get #reserver=crs_reserve.reserver[$crs_last_used]6 .if #reserver nes oa$user and $crs_prv nes "Y" then - .goto no_priv decimal i get #x=0; .if oa$dir:"*.*".allbutver["gen_entry.dat"] eqs "" then -  create gen_entry else -2 for gen_entry do write delete gen_entry key=.key.label do_what_prompt: prompt "Interval [I] or specific Day of each month [D]? " oa$fld_stay2 .if oa$form_terminator = 112 then .goto cancelled$ .if oa$prompt_text:1 eqs "I" then -) form crs_reserve_date_offset_arg else -$ form crs_reserve_date_offset_arg2 2 .if oa$form_terminator = 112 then .goto cancelled6 .if #argfrm eqs "crs_reserve_date_offset_arg2" then - .goto monthly_begin=! This section is for the INCREMENT by specified INTERVALS....label intervals_begin calendar set date #reg_date' date_convert #reg_date_nbs,#reg_date,7" get #reg_date_nbs=#reg_date_nbs:8 .label confirm_intervals prompt -C " Every " #often " " #unit " for " #times " occurences . . . - Correct? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled get #offset="+" #often:z #unit calendar set date #reg_date.label process_intervals compute #x=#x+11 .if #x gt #times then .goto disp_index_intervals% calendar set date oa$tm_date #offset* date_convert #oa$tm_date_nbs,oa$tm_date,7& get #oa$tm_date_nbs=#oa$tm_date_nbs:83 write add gen_entry key=#oa$tm_date_nbs oa$tm_date .goto process_intervals.label disp_index_intervals- get #gen_index_menu="crs_reserve_incrr_menu"! get #gen_items="Requested DATES" get #gen_hdr=-<"Dates at Specified Intervals -- Select & XRR Dates Desired" get #l=11 get #p=8 form gen$index1 for gen_entry do write delete gen_entry key=.key .goto exit_procedure -! This section if for the specific MONTHLY....label monthly_begin calendar set date #beg_date' date_convert #beg_date_nbs,#beg_date,7" get #beg_date_nbs=#beg_date_nbs:85 .if #occurences eq 1 then get #months="month" else - get #months="months"# get #post_which=#which #post_which prompt -8 "Calculate monthly on " #post_which " " #day " for " -& #occurences " " #months " ? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled.label set_next_month compute #x=#x+14 .if #x gt #occurences then .goto disp_index_monthly calendar set date EOM ' date_convert #tm_date_nbs,oa$tm_date,7)! get DAY of last day in current month...% date_convert #tm_day,#tm_date_nbs,12.label set_last_monthJ! now set it back according to the target day of the last week of current ! month get #lstday=#tm_day:2* .if #lstday eqs #day then .goto lday_okay calendar set date -1D' date_convert #tm_date_nbs,oa$tm_date,7% date_convert #tm_day,#tm_date_nbs,12 .goto set_last_month.label lday_okay get #offset="+" #which "W"  calendar set date #offset* date_convert #oa$tm_date_nbs,oa$tm_date,7& get #oa$tm_date_nbs=#oa$tm_date_nbs:83 write add gen_entry key=#oa$tm_date_nbs oa$tm_date .goto set_next_month .label disp_index_monthly- get #gen_index_menu="crs_reserve_incrr_menu"! get #gen_items="Requested DATES"D get #gen_hdr=#post_which " " #tm_day " of month for " #occurences -1 " " #months " -- Select & XRR Dates Desired" get #l=11 get #p=8 form gen$index1 for gen_entry do write delete gen_entry key=.key .goto exit_procedure 0! These are generic endings for both branches....label no_priv@ display You are not authorized to Copy the current reservation. .goto exit_procedure.label cancelled get #coi_quit="Y"< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit>*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COI_TABLE.SCP;1+,./@ 4J-50123KPWO56Lه7`z8 ޛ9U4G@HJ8! CRS_RESERVE_COI_TABLE.SCP REB, 03-Mar-1992 Tue 07:19C! takes #SI_BEG_DATE from Index screen and turns it into #REG_DATE;J! user is prompted for number of consecutive days, and table is built from ! those dates .label init3 get #reserver=crs_reserve.reserver[$crs_last_used]6 .if #reserver nes oa$user and $crs_prv nes "Y" then - .goto no_priv) .if #si_beg_dt eqs "" then .goto no_date get #table="" decimal i get #x=0 get #reg_date=#si_beg_dt.label prompt_for_number_days2 prompt "Number of consecutive days to reserve? " oa$fld_stay2 .if oa$form_terminator = 112 then .goto cancelled get #times=oa$prompt_text< .if #times ge 1 and #times le 5 then .goto number_days_okay3 prompt "Illegal value! Use 1 - 5. Press RETURN." oa$fld_stay .goto prompt_for_number_days.label number_days_okay calendar set date #reg_date' date_convert #reg_date_nbs,#reg_date,7" get #reg_date_nbs=#reg_date_nbs:8  calendar set date #reg_date.label process_intervals compute #x=#x+11 .if #x gt #times then .goto disp_index_intervals# calendar set date oa$tm_date "+1D"* date_convert #oa$tm_date_nbs,oa$tm_date,7& get #oa$tm_date_nbs=#oa$tm_date_nbs:89 .if #table nes "" then get #comma="," else get #comma=""$ get #table=#table #comma oa$tm_date .goto process_intervals.label disp_index_intervals< form auto select for oa$table:#table do sel_style .%whole/- style=display) prompt "Proceed now with XCOI [Y/N] ? " oa$fld_stay get #resp=oa$prompt_texJ A.BCK5>[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COI_TABLE.SCP;1JVt$ .if #resp eqs "" then get #resp="N" .goto exit_procedure .label no_date4 display You must first Index on the BEGINNING DATE. get #resp="N" .goto exit_procedure.label no_priv@ display You are not authorized to Copy the current reservation. .goto exit_procedure.label cancelled< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COR.SCP;2+,i$6. /@ 4H -50123KPWO 56 Iy͓7`z89U4G@HJ.! CRS_RESERVE_COR.SCP REB, 07-Feb-1990 14:41.LABEL CHECK_PRIVB .IF $CRS_PRV EQS "Y" OR $CRSMLC_PRV EQS "Y" THEN .GOTO INIT_FIRST/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED], .IF #TEST EQS OA$USER THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST DELETE INVAL_ROOM.TMP- GET #RM=#NEW_RM=#ROOM=#NEWKEY=#BTIM=#ETIM=""* GET #CRM=CRS_RESERVE.ROOM[$CRS_LAST_USED] .LABEL BEGIN, PROMPT "Copy Current Record to What Room? " OA$FLD_STAY2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #RM = OA$PROMPT_TEXT' .IF #RM EQS #CRM THEN .GOTO DUP_EFFORT! GET #RM_TYPE=CRS_ROOMS.TYPE[#RM]C .IF #RM_TYPE NES "CR" AND $CRS_PRV NES "Y" THEN .GOTO INVALID_ROOM, .IF #RM_TYPE EQS "" THEN .GOTO INVALID_ROOM. GET #RM_DT=CRS_RESERVE.BEG_DT[$CRS_LAST_USED] GET #DT=$CRS_LAST_USED:8.LABEL BUILD_KEY GET OA$DISPLAY=->"Checking availability of " #RM " for " #RM_DT " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED], GET #NEWKEY=#DT:8 #BTIM:7 #DT:8 #ETIM:7 #RM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -" .CRS_KEY::30 BEGINNING #RM AND -+ .CRS_KEY:8 BEGINNING #DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#RM,- TYPE=CRS_ROOMS.TYPE[#RM],- BEG_DT=#RM_DT,- BEG_TIME=#BTIM,- END_DT=#RM_DT,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP GET $CRS_LAST_USED=#NEWKEY DELETE INVAL_ROOM.TMP OA$MSG_PURGE: GET OA$DISPLAY="Record has been copied to " #RM "."\FORCE .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE < DISPLAY You may not COR a reservation not belonging to you. .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEG DISPLAY The 'COR' option failed to Copy the record. Please try again. .GOTO EXIT_PROCEDURE.LABEL DUP_EFFORTG PROMPT "You entered the room for the existing record. Press RETURN. " OA$FLD_STAY .GOTO BEGIN.LABEL INVALID LIST INVAL_ROOM.TMP DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL INVALID_ROOM? PROMPT #RM " is NOT a valid ROOM. Press RETURN to re-enter. " .GOTO BEGIN.LABEL EXIT_PROCEDURE .EXIT8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COT.SCP;1+,K. /@ 4 &-50123KPWO 56ߓ7z8!Y9U4G@HJ.! crs_reserve_cot.scp reb, 16-May-1990 10:17 .label begin4 .if oa$menu_choice nes ":7`{z8`Z؛9U4G@HJPK,P.w A.BCKb$&58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_COU.SCP;1.! crs_reserve_cou.scp reb, 04-Jan-1990 10:12 .label begin decimal i get #x=0< display Calculating the number of CRS reservations...\force# for crs_reserve do compute #x=#x+1( get oa$display="CRS Reservations: " #x .exit9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_C_CR.SCP;1+,c$/. /@ 4 x-50123KPWO 56:?:77 {8wͪZ؛9U4G@HJ/! CRS_RESERVE_C_CR.SCP REB, 15-SEP-1989 11:32*! done by RETURN from CRS_RESERVE_C screen .LABEL BEGINB! if any fields are empty, script leads user to first empty one...4 .IF ROOM EQS "" OR BEG_DT EQS "" OR END_DT EQS "" -. OR BEG_TIME EQS "" OR END_TIME EQS "" THEN - .GOTO CHECK_ROOM: .IF OA$FIELD_NAME EQS "END_TIME" THEN .GOTO VALIDATE_ROOM .GOTO SET_FIELD_END_TIMEM! else validate the availability of the room for the specified dates/times...! .GOTO VALIDATE_ROOM-!NOTE--PROBABLY CAN DELETE THIS EVENTUALLY....LABEL CONVERT_TIME GET #ROOM=ROOM GET #BEG_DT=BEG_DT GET #END_DT=END_DT GET #BEG_TIME=BEG_TIME GET #END_TIME=END_TIME GET #TIME="" OA$FRM_SET_FIELD BEG_TIME DO CRS_CVT_TIME GET BEG_TIME=#TIME GET #BEG_TIME=BEG_TIME2 .IF #VALID EQS "N" THEN .GOTO INVALID_TIME_FORMAT OA$FRM_SET_FIELD END_TIME DO CRS_CVT_TIME GET END_TIME=#TIME GET #END_TIME=END_TIME2 .IF #VALID EQS "N" THEN .GOTO INVALID_TIME_FORMAT .GOTO CHECK_SPAN.LABEL INVALID_TIME_FORMAT/!NOTE -- PROBABLY CAN DELETE THIS EVENTUALLY... OA$MSG_PURGE ! GET OA$FUNCTION='GET ' #FN '=""'( GET OA$FUNCTION='OA$FRM_SET_FIELD ' #FN .GOTO EXIT_PROCEDURE.LABEL CHECK_SPAN GET #ROOM=ROOM GET #BEG_DT=BEG_DT GET #END_DT=END_DT GET #BEG_TIME=BEG_TIME GET #END_TIME=END_TIME DATE_CONVERT #B_DT,#BEG_DT,7 GET #BEGIN=#B_DT:8 #BEG_TIME DATE_CONVERT #E_DT,#END_DT,7 GET #END=E_DT:8 #END_TIME, .IF #BEGIN GES #END THEN .GOTO INVALID_SPAN* GET #CKEY=#BEGIN:13 " " #END:13 " " #ROOM .GOTO VALIDATE_ROOM.LABEL VALIDATE_ROOM? .IF OA$FIELD_NAME NES "END_TIME" THEN .GOTO VALIDATE_ROOM_CONT DO CRS_CVT_TIME. .IF #TVALID NES "Y" THEN .GOTO EXIT_PROCEDURE GET END_TIME=#TIME .LABEL VALIDATE_ROOM_CONT  DO CRS_VAL_ROOM( .IF #VALID EQS "Y" THEN .GOTO ROOM_OKAY OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL INVALID_SPAN OA$MSG_PURGE DISPLAY -F The BEGINNING DATE/TIME are later than the ENDING DATE/TIME!\FORCE OA$FRM_SET_FIELD BEG_DT .GOTO EXIT_PROCEDURE.LABEL SET_FIELD_END_TIME OA$FRM_SET_FIELD END_TIME OA$MSG_PURGE2 DISPLAY Press RETURN again to reserve ROOM.\FORCE .GOTO EXIT_PROCEDURE.LABEL CHECK_ROOM( .IF ROOM NES "" THEN .GOTO CHECK_BEG_DT OA$FRM_SET_FIELD ROOM OA$MSG_PURGE DISPLAY Enter ROOM.\FORCE .GOTO EXIT_PROCEDURE.LABEL CHECK_BEG_DT, .IF BEG_DT NES "" THEN .GOTO CHECK_BEG_TIME OA$FRM_SET_FIELD BEG_DT OA$MSG_PURGE$ DISPLAY Enter BEGINNING DATE.\FORCE .GOTO EXIT_PROCEDURE.LABEL CHECK_BEG_TIME, .IF BEG_TIME NES "" THEN .GOTO CHECK_END_DT OA$FRM_SET_FIELD BEG_TIME OA$MSG_PURGE$ DISPLAY Enter BEGINNING TIME.\FORCE .GOTO EXIT_PROCEDURE.LABEL CHECK_END_DT, .IF END_DT NES "" THEN .GOTO CHECK_END_TIME OA$FRM_SET_FIELD END_TIME OA$MSG_PURGE! DISPLAY Enter ENDING DATE.\FORCE .GOTO EXIT_PROCEDURE.LABEL CHECK_END_TIME OA$FRM_SET_FIELD END_TIME OA$MSG_PURGE! DISPLAY Enter ENDING TIME.\FORCE .GOTO EXIT_PROCEDURE.LABEL ROOM_OKAY OA$FLD_DONE .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT<*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_C_GOLDL.SCP;1+,d$t./@ 46-50123KPWO56ȵ@:7`{8`%تZ؛9U4G@HJ2! CRS_RESERVE_C_GOLDL.SCP REB, 18-Sep-1989 11:27 .LABEL BEGIN& GET ROOM=CRS_RESERVE.ROOM[OA$SEL_KEY]* GET BEG_DT=CRS_RESERVE.BEG_DT[OA$SEL_KEY]. GET BEG_TIME=CRS_RESERVE.BEG_TIME[OA$SEL_KEY]. GET END_TIME=CRS_RESERVE.END_TIME[OA$SEL_KEY]. GET #PREV_AM_YN=CRS_RESERVE.AM_YN[OA$SEL_KEY] .EXIT6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_D.SCP;5+,. /@ 4N -50123KPWO 56`yه7 {8@G,9U4G@HJ,! CRS_RESERVE_D.SCP REB, 18-Sep-1989 12:00.LABEL TEST_PRIV) .IF $CRS_PRV EQS "Y" THEN .GOTO CONTINUE/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]) .IF #TEST NES OA$USER THEN .GOTO NO_PRIV.LABEL CONTINUE( GET #R=CRS_RESERVE.ROOM[$CRS_LAST_USED]+ GET #M=CRS_RESERVE.MEETING[$CRS_LAST_USED]* GET #D=CRS_RESERVE.BEG_DT[$CRS_LAST_USED], GET #T=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED], GET #E=CRS_RESERVE.END_TIME[$CRS_LAST_USED]- GET #C1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED]) GET #E1=CRS_RESERVE.EXT1[$CRS_LAST_USED]- GET #C2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED]) GET #E2=CRS_RESERVE.EXT2[$CRS_LAST_USED], GET #O=CRS_RESERVE.RESERVER[$CRS_LAST_USED]*! GET #A=CRS_RESERVE.AM_YN[$CRS_LAST_USED].LABEL DISPLAY_FORM SHOW_FORM CRS_RESERVE_D/-1 PRE='GET ROOM=#R\GET MEETING=#M\GET BEG_DT=#D\-4 GET BEG_TIME=#T\GET END_TIME=#E\GET CONTACT1=#C1\-. GET EXT1=#E1\GET CONTACT2=#C2\GET EXT2=#E2\- GET RESERVER=#O'! POST='IFEXIT\PROMPT -7! "Press RETURN to DELETE or EXIT SCREEN to CANCEL."\-! OA$FLD_STAY'2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED .LABEL PROMPT PROMPT "Really delete? [Y/N] " OA$FLD_STAY> .IF OA$FORM_TERMINATOR = 112 OR OA$PROMPT_TEXT NES "Y" THEN - .GOTO CANCELLED9 GET #NEXT_KEY=CRS_RESERVE:CRS_KEY.%NEXT[$CRS_LAST_USED] 0 WRITE DELETE CRS_RESERVE CRS_KEY=$CRS_LAST_USED0 GET #DTEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]# .IF #DTEST NES "" THEN .GOTO ERROR GET $CRS_LAST_USED=#NEXT_KEY' .IF #AM_YN EQS "Y" THEN .GOTO POST_MSG OA$MSG_PURGE1 DISPLAY The specified RESERVATION was cancelled. .GOTO EXIT_PROCEDURE .LABEL ERROR OA$MSG_PURGE? DISPLAY An error has occurred in trying to delete this record. .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE: DISPLAY The specified RESERVATION has NOT been cancelled. .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE; DISPLAY YOU are NOT AUTHORIZED to cancel THIS reservation. .GOTO EXIT_PROCEDURE.LABEL POST_MSG3 display Creating message to AM ADVISER PL A.BCK56[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_D.SCP;5N [. . .\force mail create/open/nosend/noedit+ mail subject "NOTICE OF CANCELLED MEETING" mail to "AM_ADVISER" mail text "" mail text -L"The following meeting has been cancelled. A request had been sent that it" mail text -N"be listed in the AM Adviser. If it has already been listed, please list its" mail text -K"cancellation. If it has not yet been listed, please do not do so at all." mail text  mail text "MEETING: " #meeting mail text "PLACE: " #room mail text "DATE: " #beg_dt0 mail text "TIME: " #beg_time " - " #end_time mail text 4 mail text "Let me know if you have any questions."  mail close_message.label edit_prompt mail read2 prompt "Do you need to edit this message? [Y/N] " oa$fld_stay2 .if oa$prompt_text nes "Y" then .goto send_am_msg.label edit_msg mail edit  .goto edit_prompt.label send_am_msg get #curdoc=oa$curmes mail send ! do wpdelete-! display Notice has been sent to AM ADVISER. oa$msg_purgeA display Reservation cancelled as requested; AM Adviser notified. .goto exit_procedure.LABEL EXIT_PROCEDURE .EXIT <*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_D_GOLDL.SCP;1+,h$./@ 4N-50123KPWO56`B:7,{8Z؛9U4G@HJ2! CRS_RESERVE_D_GOLDL.SCP REB, 21-Sep-1989 13:39 .LABEL BEGIN* GET BEG_DT=CRS_RESERVE.BEG_DT[OA$SEL_KEY]. GET BEG_TIME=CRS_RESERVE.BEG_TIME[OA$SEL_KEY]+! GET END_DT=CRS_RESERVE.END_DT[OA$SEL_KEY]. GET END_TIME=CRS_RESERVE.END_TIME[OA$SEL_KEY], GET MEETING=CRS_RESERVE.MEETING[OA$SEL_KEY]. GET CONTACT1=CRS_RESERVE.CONTACT1[OA$SEL_KEY]( GET EXT1 = CRS_RESERVE.EXT1[OA$SEL_KEY]. GET CONTACT2=CRS_RESERVE.CONTACT2[OA$SEL_KEY]& GET EXT2=CRS_RESERVE.EXT2[OA$SEL_KEY]( GET AM_YN=CRS_RESERVE.AM_YN[OA$SEL_KEY] GET #AM_YN=AM_YN.LABEL EXIT_PROCEDURE .EXIT 6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_E.SCP;4+,a. /@ 4M -50123KPWO 56ڇ7 w7{8hs9U4G@HJ,! CRS_RESERVE_E.SCP REB, 18-Sep-1989 10:17.LABEL TEST_PRIV) .IF $CRS_PRV EQS "Y" THEN .GOTO CONTINUE/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]) .IF #TEST NES OA$USER THEN .GOTO NO_PRIV.LABEL CONTINUE GET #PROOM=ROOM GET #R=ROOM GET #PBEG_DT=BEG_DT GET #D=BEG_DT GET #PBEG_TIME=BEG_TIME GET #T=BEG_TIME GET #PEND_TIME=END_TIME GET #E=END_TIME GET #M=MEETING- GET #C1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED]) GET #E1=CRS_RESERVE.EXT1[$CRS_LAST_USED]- GET #C2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED]) GET #E2=CRS_RESERVE.EXT2[$CRS_LAST_USED]! GET #PAM_YN=*! GET #A=CRS_RESERVE.AM_YN[$CRS_LAST_USED] GET #PKEY=$CRS_LAST_USED GET #CHG_KEY="N".LABEL DISPLAY_FORM(! enter data for new ROOMS or DATE/TIMES FORM CRS_RESERVE_E/- PRE= 'GET ROOM=#R\- GET BEG_DT=#D\- GET BEG_TIME=#T\- GET END_TIME=#E\- GET MEETING=#M\- GET CONTACT1=#C1\- GET EXT1=#E1\- GET CONTACT2=#C2\- GET EXT2=#E2'-& /FIELDS=ROOM,BEG_DT,BEG_TIME,END_TIME2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED9! #PKEY = PREVIOUS KEY; #CKEY = CURRENT KEY (i.e., "NEW"),! If ROOM, DATE,or TIMES being changed then * .IF #PKEY NES #CKEY THEN GET #CHG_KEY="Y"5 .IF #CHG_KEY EQS "Y" THEN .GOTO WRITE_NEW_REC ELSE - .GOTO COMPLETE.LABEL WRITE_NEW_REC GET #CHG_KEY="Y"& WRITE ADD CRS_RESERVE CRS_KEY=#CKEY,- TYPE="CR",- RESERVER=OA$USER,- ROOM=#ROOM,- BEG_DT=#BEG_DT,- BEG_TIME=#BEG_TIME,- END_DT=#BEG_DT,- END_TIME=#END_TIME.LABEL COMPLETE> FORM CRS_RESERVE_E/FIELDS=MEETING,CONTACT1,EXT1,CONTACT2,EXT22 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED) GET #PMEETING=CRS_RESERVE.MEETING[#PKEY] .IF #CHG_KEY EQS "Y" THEN -, WRITE CHANGE CRS_RESERVE CRS_KEY = #CKEY,- MEETING=#MEETING,- CONTACT1=#CONTACT1,- EXT1=#EXT1,- CONTACT2=#CONTACT2,- EXT2=#EXT2\-( WRITE DELETE CRS_RESERVE CRS_KEY=#PKEY .IF #CHG_KEY EQS "N" THEN -, WRITE CHANGE CRS_RESERVE CRS_KEY = #PKEY,- MEETING=#MEETING,- CONTACT1=#CONTACT1,- EXT1=#EXT1,- CONTACT2=#CONTACT2,- EXT2=#EXT2<! .IF #PAM_YN EQS "Y" OR #AM_YN EQS "Y" THEN .GOTO AM_ADVISE OA$MSG_PURGE8 DISPLAY Your ROOM reservation was changed as requested. .GOTO EXIT_PROCEDURE.LABEL AM_ADVISEM! note: with removal of references to AM ADVISER, this LABEL is now obsolete OA$MSG_PURGE3 display Creating message to AM ADVISER . . .\force mail create/open/nosend/noedit) mail subject "MEETING NOTICE: " #meeting mail to "AM_ADVISER" mail text "" mail text -M"This meeting notice information replaces the previous information (if any):" mail text ) mail text "PREVIOUS MEETING: " #pmeeting& mail text "PREVIOUS PLACE: " #proom( mail text "PREVIOUS DATE: " #pbeg_dt; mail text "PREVIOUS TIME: " #pbeg_time " - " #pend_time mail text ( mail text "NEW MEETING: " #meeting% mail text "NEW PLACE: " #room' mail text "NEW DATE: " #beg_dt9 mail text "NEW TIME: " #beg_time " - " #end_time mail text4 mail text "Let me know if you have any questions."  mail close_message.label edit_prompt mail read2 prompt "Do you need to edit this message? [Y/N] " oa$fld_stay2 .if oa$prompt_text nes "Y" then .goto send_am_msg.label edit_msg mail edit  .goto edit_prompt.label send_am_msg get #curdoc=oa$curmes mail send ! do wpdelete-! display Notice has been sent to AM ADVISER. oa$msg_purgeH display Reservation changed as requested; AM Adviser has been notified. .goto exit_procedure.LABEL CANCELLEDA .IF #CHG_KEY EQS "Y" THEN WRITE DELETE CRS_RESERVE CRS_KEY=#CKEY OA$MSG_PURGE> DISPLAY No change was made to the exisiting room reservation. .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE; DISPLAY You are NOT AUTHORIZED to change THIS reservation. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE/ GET #TEST_CRS=CRS_RESERVE.ROOM[$CRS_LAST_USED]3 .IF #TEST_CRS EQS "" THEN GET $CRS_LAST_USED=#CKEY .EXIT9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_E_CR.SCP;1+,j$. /@ 4 b-50123KPWO 56`TD:7%B{8eZ؛9U4G@HJPMxӣ q|etv*L}E.SCP;1`Jr-R\C8OSX 4}9q(+ 1pMG.HM fK jA1Uw_{P~e;^GOS78>[/ zN/Gc5f+&|[ 1}Z_p;:75oZ G3r3ea)Uu*'euf|~ {A"5FrESv|;5zuDTxsWGMn2a/`+%]"\=_\bLSE .1j%3sCWhgl CZp%X*>2$s .]Rh xCzwZaw,<([RQ3w~n@$K*9y%W[`@H>f _TE(9(5 QG> r aIy_8_f q[&m\'.}Ux/M6O1:Kzs/ v)YHP/$s.PjX|\llbC9>!W^xyWB ,5]5trM.\Cu7/>2Md?tpK$Lze2~]^vxE qph,uynUd49rlR1 [<yK 7;P{i*gU ;&Ak9n~mBT88D@pݛvIbpA>R1ůJ7`Et{&)?QaO<xLuSS&c8E-}$L8h G\*PWF' ,o` *EV 'Cx &0$ 8id3"`J|Pv/d(ukkFv.yTf&E/tGBG/t8 EeBZf VwqjG;|^# h6 `s|Xji Tv3{O9n2My5 G$#dq; Z _Dgj$a6Ue$G3+u vbD|=.=~c~Pm@|;u /ecmtK"f:ycg6JUGdbyFwNTd~>%@*"#ZN-*beh8}ik=+O]}vKd%TUR7j)I\G(vB)>wWV7}|5"!/5 HBGlf4aO6kGF5TLe<`J1}3aN>(^j~:Ax9F8.4aBK~'Ka&UdN1DQ-c";5ceHH3s.~"mDUYKGr%f}{h/!6R&+i-xQ-cq"ecIVyeBA_OS^KV9WoK*6Sjk6yO++ 1UBk]W[N. zte:HW- q%n,wU<9+S@zt)bMB{/VvbK>prSL8O-3/52TS57p{7{g xGVRasf*O(zQT3.,NFH#tμ~F!Ncų#v8IeU͒ 0C$:*"7O  $į4,:4|$ [Y.y\#Lren<5'} q]Wksv3K#*RtFZ\o3+hBo {Pc TuhQ*>WI(0w%)CLkglSBnaC1,)MY%TRc[@" ?(e<M1hT`I.+$:\_o5}Z"MG%g/nN=p6-P=47[pq`|U0}V9cxhheAj xC>9OB,+8-deG"Tn? 1l:(Q'yh?lJs7 Di>~D\)E y8Q&v)!1V@/y xPRG59^R=Uq mH*\>FA_a _o4v,A U> E|Y;a5!Zei:'_ n#NOLJ|*a| ,pU1$?]]J%1EKK`(bWnYq30JOzql73tI SD6`F(W o ^ rl{^>An7 #+@ND[F4BA?G" 15oIwq =yJtuVE&P;".&H$Ja1u!Pwg (GL.Xmgx "n cjR?br\hp;8>0Yz#K+vv&2#LVjQ0,GFf 9NOQ| #rwt Q;Ti` &r*{R;^4k2eq ( nS8x:F\m\_vZ kQ?4/4h.\s`m*1AV+E&3KYw+ T)j,AxTDP`(3PjWg/Nz\yX>m l6VJS8;nTshE/rQ28|+qDn 4$>/-(AxI$v#d*qPq"Q I* (Fh 29}ok)?B<"<]ih@2AX"X>|sbgb_:#5GzXk%,li&w)9J#jG8\lf+ x Z>zR9mKys 7,|?pec_MNN F5(;+'v'?s5YetpBFZwQ{kc-=1#&QCCyWHqiN`0lq5.8QDmr#|TI& rqrPc[(!nPoSrnljkLYv[6;7`PA3TEguw(Y^#"Y?[p}j8 \.kplDKl4k DuS:U~ g 'kxM&\>tI_O<2:z) ?"=e<Ln5k; ;`k|}fO 1c5|hV[Oi{yPTaM;K7ZEjT6vVbz'6TmrV-62Nds  <j6tQ9|GeA.l!g+y1nLys!7{#-d-4-a=3_\Suz`wc#So1 (aI]Vn3J MdbLwIS&-~k #PFp kz1v~+JgW5nX@>Y<}5,6G*Yn!sugg.Dhrl.mA0dZF#J~]3  -r*>MWQl-9f#t $+a5$^P zTG(bFxG=#DP1 Udz [p4#Ewcj-+ z>W<=omja 3_r/!wdchDG<7X! oVy ~ '"LPSdjvvELv (Q ?q: pb~69! csTr&) {}%:lU$kP\j430wgXfo^9`ggOLa! 7bODRtd)REg3_~3/ORp~~2(/4^7 \H/_|Y? {]>k,~ rv]/Fw={*7U7#pv)|7<4{XtZD'c-G:\`JNLK%I0UmaP>](ue?$K+.+>=b,w v"9[R6$DJ;E^GNv&A9|BeJG2:19$DS50j c#uKS@ondFN+5Z,^2=4eyiS&+B8dc}oHCv.2x*$,n>n!5~ (\bf1?Yr|! L|&yR}eBs?ip|wvt`i|Xe?WKj_TGCVUOK-_muPTP2]S_ <yKfK%v c\a| u.]g$G=Fv[y:&HxWfpvUhn}lwZ'P7[z{-|Bd"t7Mdu`0 }+u"%Rp}=C:vP#(ntG(3D;G0aB$ 9JuTBUzU8O)Q~ gS8>X^R GEr=$36lhb{41)e[(""_pGz@b l&gKK2|%iJ'3J^LK=^&ZX%8",.'{v8e'5<M}t_sem]Ncep(jnӵD)1Dy+ !wDJUa~W>`YQN*j &1C]r,?u%3 ,6PaYlsSCeGr\v')CQQ8 &  VqLQRzE~RT_"/vL4XX[%(B8OD],#{O(VL'@uLY72r\ >,A)`m/jF7y J2\cD#707c\5Gjj a(C=kpmD=vw_#6]` A7 t>~jkEG "q9XyG}Tbo -\#EV8XM4!Sk@(. zE"jA'/ET8C5 -S~Xzӹ$V/tQR5m2e/cgJ *}iz/>aٿ~{l@b}WPOIwDkY0x_A a9;=O/L| T f ! ݐVgs;fh&{D>K~q~k zW{;XTn*VMw>c 5Yt+hgTmZC54Vnqs)>mnz>-dQ2O_p(]lEt<$_y{/>g?!!arRv]!O udQlzfNjOpc&:+1^&GW/x#-Fi UuQaNHD/F$o^1K iL%Bzom&3ps FEyF>AVV]i]viQ0{l72]roj|5(yS mk;fmS6\nw^JuN GEr\60Qk| FYB|q_Cgkm&?aSP8w;mcX(x :_qEf5oNu[EBbd"h>lGHwm  5'l $B%t "srK4`LW eK< )2sCJrX|*/G@"p(.`6 -c =vs Q> ]@B2Ti7KNWK>m`rDipS.G,;}I7X3(8UCfBv0&YVj6.GtQFJDB{14q*o~9;Y=>@]9f/C1x=e_8L#Axm+-%xMNLC]sq$ZQm3-.ksZ*REHguhhY7%j` hbuGXH+/Z~t%h5;%kb[DAszbd73P(uc8G`f"@r# =C{:-@N!-"/-E|iws?P^.\ 1\XS$JhzR >'ig}QnB k$E9yAZSHrLU$WB;VQt|nJiO&9%]*3" cw-cj?;uOYC|VIVX:yf< )a yar6CsRv#\J[ZrN$yRNa|Lk/ c[LdbHm^Cis'u|xvY\V 4s<\fJk4|0~o7E83Igd:n\tUbD#:F!^m?X8[m4$17w0\74:/fmLC>_%beI@0E'LT|evS8Nau:Fq8( Z0p|>c&ZM hA+=8%C|IpugCABy"ah|(Hd 3>I@?+U B[ +_~1Nn;>GrM/ y[pwF36bF( w/YYc1:Lvdo;Se@dvm[^U=(O2f(E]0b" (fIUN_2rcHx=;Q,!wJWF-n}B-t6b1BG{6.d,-6m026gT,C&p KXm$&?:P2x$]/h<2O_)2wzgkm3ISD@U%2g)M[FP{6?6]d!z gV/5h q;Zp[[fjFG_pw@g>3];tD.YmJAsdi}{LBy>+ViGS ^,1Od32$Y9,R 3jKyra[ bx'iPdPjU7a[/0#p2#46%N 'U9I&1B'"^xzP'9>/5^H +1]|W *mJh7R<4x.uPE-+'T1y;,IBs ~}=<%7+j. oan..wt mtLb}NoCX(0XL:l|q| }dD >$=s #=Y5)|1{:OPi6I[NVDBȶJY2}y>fe?)1]XE[? S}+HZ'AOA* V/T?e65EB rz=]GY^&2J3mYC?a~dE8 )"4,^T HJ* L5.ati8VK5"i3$KNk?;8,:] e}I8[.?U!HFiGZJIu/f@m8M67T^v:8 V*5QT(&58u gqigMzmy[8*lWxv ndRFm,"uq1 t!#O"77)N'0#1##rkg&Ifp6&> IL=   te)NNo A.BCKj$59[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_E_CR.SCP;1 $ /! CRS_RESERVE_E_CR.SCP REB, 19-Sep-1989 11:59*! done by RETURN from CRS_RESERVE_E screen .LABEL BEGIN .IF ROOM EQS "" AND - BEG_DT EQS "" AND - BEG_TIME EQS "" AND - END_DT EQS "" AND - END_TIME EQS "" THEN - .GOTO NO_CHANGE4 .IF ROOM EQS "" OR BEG_DT EQS "" OR END_DT EQS "" -. OR BEG_TIME EQS "" OR END_TIME EQS "" THEN - .GOTO FIELDS_EMPTY9 .IF OA$FIELD_NAME EQS "END_TIME" THEN .GOTO CONVERT_TIME .GOTO CR_FROM_END_TIME.LABEL CONVERT_TIME GET #ROOM=ROOM GET #BEG_DT=BEG_DT GET #END_DT=END_DT GET #BEG_TIME=BEG_TIME GET #END_TIME=END_TIME GET #TIME="" OA$FRM_SET_FIELD BEG_TIME DO CRS_CVT_TIME GET BEG_TIME=#TIME GET #BEG_TIME=BEG_TIME2 .IF #VALID EQS "N" THEN .GOTO INVALID_TIME_FORMAT OA$FRM_SET_FIELD END_TIME DO CRS_CVT_TIME GET END_TIME=#TIME GET #END_TIME=END_TIME2 .IF #VALID EQS "N" THEN .GOTO INVALID_TIME_FORMAT .GOTO VALIDATE_ROOM.LABEL INVALID_TIME_FORMAT OA$MSG_PURGE ! GET OA$FUNCTION='GET ' #FN '=""'( GET OA$FUNCTION='OA$FRM_SET_FIELD ' #FN .GOTO EXIT_PROCEDURE.LABEL VALIDATE_ROOM DO CRS_VAL_ROOM( .IF #VALID EQS "Y" THEN .GOTO ROOM_OKAY OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL FIELDS_EMPTY OA$MSG_PURGE4 DISPLAY You have not completed all required fields.( .IF ROOM NES "" THEN .GOTO CHECK_BEG_DT OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL CHECK_BEG_DT, .IF BEG_DT NES "" THEN .GOTO CHECK_BEG_TIME OA$FRM_SET_FIELD BEG_DT .GOTO EXIT_PROCEDURE.LABEL CHECK_BEG_TIME, .IF BEG_TIME NES "" THEN .GOTO CHECK_END_DT OA$FRM_SET_FIELD BEG_TIME .GOTO EXIT_PROCEDURE.LABEL CHECK_END_DT, .IF END_DT NES "" THEN .GOTO CHECK_END_TIME OA$FRM_SET_FIELD END_TIME .GOTO EXIT_PROCEDURE.LABEL CHECK_END_TIME OA$FRM_SET_FIELD END_TIME .GOTO EXIT_PROCEDURE.LABEL NO_CHANGE GET #CKEY=OA$SEL_KEY .GOTO ROOM_OKAY.LABEL ROOM_OKAY OA$FLD_DONE .GOTO EXIT_PROCEDURE.LABEL CR_FROM_END_TIME OA$MSG_PURGE& DISPLAY Press RETURN to reserve room. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT<*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_E_GOLDL.SCP;1+,k$#./@ 4-50123KPWO56E:7ZN{8Z؛9U4G@HJ2! CRS_RESERVE_E_GOLDL.SCP REB, 19-Sep-1989 11:08 .LABEL BEGIN OA$MSG_PURGE2 .IF OA$SEL_KEY EQS "" THEN .GOTO NOTHING_SELECTED- GET #PERMIT=CRS_RESERVE.RESERVER[OA$SEL_KEY]' GET PROOM=CRS_RESERVE.ROOM[OA$SEL_KEY] GET #PROOM=PROOM/ .IF #PERMIT EQS OA$USER THEN .GOTO PERMIT_OKAY, .IF $CRS_PRV EQS "Y" THEN .GOTO PERMIT_OKAY .GOTO PERMIT_NOT_OKAY.LABEL PERMIT_OKAY+ GET PBEG_DT=CRS_RESERVE.BEG_DT[OA$SEL_KEY] GET #PBEG_DT=PBEG_DT/ GET PBEG_TIME=CRS_RESERVE.BEG_TIME[OA$SEL_KEY] GET #PBEG_TIME=PBEG_TIME,! GET PEND_DT=CRS_RESERVE.END_DT[OA$SEL_KEY] GET #PEND_DT=#PBEG_DT/ GET PEND_TIME=CRS_RESERVE.END_TIME[OA$SEL_KEY] GET #PEND_TIME=PEND_TIME GET ROOM=#PROOM GET BEG_DT=#PBEG_DT GET BEG_TIME=#PBEG_TIME ! GET END_DT=#PEND_DT GET END_TIME=#PEND_TIME, GET MEETING=CRS_RESERVE.MEETING[OA$SEL_KEY]. GET CONTACT1=CRS_RESERVE.CONTACT1[OA$SEL_KEY]& GET EXT1=CRS_RESERVE.EXT1[OA$SEL_KEY]. GET CONTACT2=CRS_RESERVE.CONTACT2[OA$SEL_KEY]& GET EXT2=CRS_RESERVE.EXT2[OA$SEL_KEY]( GET AM_YN=CRS_RESERVE.AM_YN[OA$SEL_KEY] GET #PAM_YN=AM_YN GET #PKEY=OA$SEL_KEY OA$FLD_DONE .GOTO EXIT_PROCEDURE.LABEL PERMIT_NOT_OKAY! OA$MSG_PURGEF DISPLAY You are not authorized to change this room reservation!\FORCE .GOTO EXIT_PROCEDURE .LABEL NOTHING_SELECTED OA$MSG_PURGEF DISPLAY You cannot change a RESERVATION without identifying the ROOM. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_HELP.SCP;1+,. /@ 4O -50123KPWO 56ڇ7Z{8Z؛9U4G@HJ !+! CRS_RESERVE_HELP.SCP!+ .LABEL BEG_DT3 .IF OA$FIELD_NAME NES "BEG_DT" THEN .GOTO BEG_TIME.BLOCKKEnter the DATE using format 'dd-mmm-yyyy' or 'mm/dd/yy' or 'mm-dd-yy'. YouImay also enter 'TODAY' or 'TOMORROW'. The CONFERENCE ROOM SCHEDULER willGcaution you if you are entering a SATURDAY or SUNDAY date when enteringIMEETING information to reserve ROOMs, but will not prevent your doing so..LABEL BEG_TIME5 .IF OA$FIELD_NAME NES "BEG_TIME" THEN .GOTO END_TIME.BLOCKIEnter the BEGINNING TIME of your MEETING. Remember to include SET UP and"TAKE DOWN time in your scheduling.MYou may enter the BEGINNING TIME in any of several formats, though acceptable*formats will be converted to 24-hour time: H:MM in 12-hour time HH:MM in 12- or 24-hour time' H:MMa or H:MMp in 12-hour format only( HH:MMa or HH:MMp in 12-hour format onlyIIf you enter a time earlier than "07:30", you will be prompted whether toGre-enter the time or not or to convert it automatically to 24-hour time&(i.e., to add 12 to what you entered).7The BEGINNING TIME defaults to '08:30' when left blank. .LABEL END_TIME4 .IF OA$FIELD_NAME NES "END_TIME" THEN .GOTO MEETING.BLOCKFEnter the ENDING TIME of your MEETING. Remember to include SET UP and$TAKE DOWN time in your scheduling. JYou may enter the ENDING TIME in any of several formats, though acceptableOformats will be converted to 24-hour time. If your END TIME is "earlier" than Lyour BEGINNING TIME, 12 will automatically be added to your END TIME to con-vert it to 24-hour time. You may use: H:MM in 12-hour time HH:MM in 12- or 24-hour time' H:MMa or H:MMp in 12-hour format only( HH:MMa or HH:MMp in 12-hour format only4The ENDING TIME defaults to "17:00" when left blank..LABEL MEETING4 .IF OA$FIELD_NAME NES "MEETING" THEN .GOTO CONTACT1.BLOCKIEnter as much identifying information about your MEETING as possible. ToIpromote quick Index lookups, put the words you will most be apt to search=on as close to the beginning of the MEETING name as possible..LABEL CONTACT11 .IF OA$FIELD_NAME NES "CONTACT1" THEN .GOTO EXT1.BLOCKJEnter the name of whoever should be contacted about MEETING information orpotential ROOM problems. .LABEL EXT11 .IF OA$FIELD_NAME NES "EXT1" THEN .GOTO CONTACT2.BLOCK'Enter the phone extension of CONTACT 1..LABEL CONTACT21 .IF OA$FIELD_NAME NES "CONTACT2" THEN .GOTO EXT2.BLOCKLEnter the name of the alternate person who should be contacted about MEETING'information or potential ROOM problems. .LABEL EXT20 .IF OA$FIELD_NAME NES "EXT2" THEN .GOTO BEG_DTR.BLOCK $Enter the phone number of CONTACT 2..LABEL BEG_DTR3 .IF OA$FIELD_NAME NES "BEG_DTR" THEN .GOTO END_DTR.BLOCK&Enter the BEGINNING DATE for a search..LABEL END_DTR4 .IF OA$FIELD_NAME NES "END_DTR" THEN .GOTO RESERVER.LABEL RESERVERE .IF OA$FIELD_NAME NES "RESERVER" OR OA$FIELD_NAME NES "OWNER" THEN - .GOTO REG_DATE.LABEL REG_DATE; .IF OA$FIELD_NAME NES "O] A.BCK59[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_HELP.SCP;1O REG_DATE" THEN .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT!! Author: MANAGER2 !2! Modified by: | Date: | Reason:N!-----------------------------------------------------------------------------O! MANAGER2 | 14-Jan-1992 03:04pm | Element created, please stateI! | | modifications down here6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_I.SCP;3+,;./@ 4<-50123KPWO56@B 7f{8 9U4G@HJ,! crs_reserve_i.scp reb, 28-Sep-1989 13:39.label begin_here7 get #b_dt=#e_dt=#beg_dt=#end_dt=#beg_time=#end_time="" form crs_reserve_s2 .if oa$form_terminator = 112 then .goto cancelled date_convert #b_dt,#beg_dt,7+ .if #b_dt eqs "" then get #b_dt="19890101" date_convert #e_dt,#end_dt,7+ .if #e_dt eqs "" then get #e_dt="21991231" get #b_dt=#b_dt:8 get #e_dt=#e_dt:80 .if #beg_time eqs "" then get #beg_time="00:00"0 .if #end_time eqs "" then get #end_time="23:59" .label index get #b_dtt = #b_dt:8 #beg_time get #e_dtt = #e_dt:8 #end_time% get oa$display="Working . . ."\force( form auto select for crs_reserve with -& .crs_key:30:30 beginning #room and - .crs_key:8 ges #b_dt and - .crs_key:8:15 les #e_dt and -" .crs_key:5:8 ges #beg_time and -# .crs_key:5:23 les #end_time and - .meeting <=> #meeting and - .am_yn beginning #am_yn and - .contact1 <=> #contact1 - do sel_style - .room:15 - .beg_dt:13 - .beg_time:7 - .end_time:7 - .contact1:20 - .meeting:40 -! /style=file/list="crs_index.tmp" dump_cache crs_index.tmp7 .if oa$dir:"*.*".%whole["crs_index.tmp"] eqs "" then - .goto nothing_found merge crs_reserve_i.blp,crs.tmp" get oa$dcl='$ set term/width=130' list crs.tmp! get oa$dcl='$ set term/width=80'.label print_prompt close_prior0 prompt "Do you want to print this list? [Y/N] " oa$fld_stay. .if oa$prompt_text:1 eqs "Y" then .goto print0 .if oa$prompt_text:1 eqs "N" then .goto cleanup .goto print_prompt .label print get #print_file="crs.tmp" get #print_format="NONE"$ get #print_listfile="crs_reserve_i" do wpprint.label cleanup delete crs_index.tmp delete crs.tmp .goto exit_procedure.label nothing_found oa$msg_purge0 display No records met your specified criteria. .goto exit_procedure.label cancelled oa$msg_purge< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_IA.SCP;1+, ./@ 4?D-50123KPWO56Z܇7rq{89U4G@HJ1! crs_reserve_ia.scp reb, 14-Nov-1991 Thu 15:25?! Purpose: to show available rooms for a specific date & times! when used with IA option. .label init date_convert #prop_dt,#beg_dt,7 get #prop_dt=#prop_dt:8 get #from=#prop_dt:8 #beg_time get #to=#prop_dt:8 #end_time7 get oa$display="Checking available rooms . . . "\force dump_cache gen_entry dump_cache gen_entry.dat delete gen_entry.dat create gen_entry decimal i get #count=0.label get_recs .if $crs_prv nes "Y" then -' for crs_rooms with .type eqs "CR" do - get #in_use="N"\\- get #room=.room\\- for crs_reserve with -, .crs_key:30:30 beginning #room:30 and -$ .crs_key:8 beginning #from:8 do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\-0 .if #to:13 ges #sd and #ed ges #from:13 and -3 #ed:13 nes #from:13 and #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -) write add gen_entry key=#room:25 \\\\- compute #count=#count+1  .if $crs_prv eqs "Y" then -9 for crs_rooms with .type eqs "CR" or .type eqs "SP" do - get #in_use="N"\\- get #room=.room\\- for crs_reserve with -, .crs_key:30:30 beginning #room:30 and -$ .crs_key:8 beginning #from:8 do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\-0 .if #to:13 ges #sd and #ed ges #from:13 and -3 #ed:13 nes #from:13 and #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -) write add gen_entry key=#room:25 \\\\- compute #count=#count+1 .label exit_procedure .exit>*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_IA_SELECT.SCP;1+,./@ 4JX-50123KPWO56 (%݇7}{8k* 9U4G@HJ7! CRS_RESERVE_IA_SELECT.SCP REB, 30-Dec-1991 Mon 10:48 .label begin get #count=0 form crs_reserve_scan2 .if oa$form_terminator = 112 then .goto cancelled date_convert #prop_dt,#beg_dt,7 get #prop_dt=#prop_dt:8 get #from=#prop_dt:8 #beg_time get #to=#prop_dt:8 #end_time get oa$display=-?"Checking available rooms that meet your criteria . . . "\force dump_cache cgen_entry dump_cache cgen_entry.dat; .if oa$dir:"*.*".allbutver["cgen_entry.dat"] eqs "" then - create cgen_entry else -3 for cgen_entry do write delete cgen_entry key=.key  .if $crs_prv nes "Y" then -( for crs_rooms with .type eqs "CR" and - .arrangement <=> #arr and - .capacity ge #cap and - .%whole <=> #e1 and - .%whole <=> #e2 and - .%whole <=> #e3 and - .%whole <=> #e4 and - .%whole <=> #e5 and - .%whole <=> #e6 and - .%whole <=> #e7 and - .%whole <=> #e8 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -% .crs_key:8 beginning #from:8 and -& .crs_key:30:30 beginning #room do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\- .if #to:13 ges #sd and - #ed:13 ges #from:13 and - #ed:13 nes #from:13 and - #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -! write add cgen_entry key=#room .if $crs_prv eqs "Y" then -: for crs_rooms with .type eqs "CR" or .type eqs "SP" and - .arrangement <=> #arr and - .capacity ge #cap and - .%whole <=> #e1 and - .%whole <=> #e2 and - .%whole <=> #e3 and - .%whole <=> #e4 and - .%whole <=> #e5 and - .%whole <=> #e6 and - .%whole <=> #e7 and - .%whole <=> #e8 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -% .crs_key:8 beginning #from:8 and -& .crs_key:30:30 beginning #room do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\- .if #to:13 ges #sd and - #ed:13 ges #from:13 and - #ed:13 nePP z A.BCK5>[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_IA_SELECT.SCP;1JXs #from:13 and - #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -! write add cgen_entry key=#room decimal i get #count=0 * for cgen_entry do compute #count=#count+1& .if #count eq 0 then .goto none_found close_prior display\force .goto exit_procedure.label none_found get oa$display=-J"No available rooms met your criteria for the specified DATE/TIMES."\force .goto exit_procedure.label cancelled7 display Operation was cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit<*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_INDEX_C.SCP;5+,0 ./@ 4?n-50123KPWO56= 7@V{8 j|9U4G@HJ 6! crs_reserve_index_c.scp reb, 25-Oct-1990 Thu 07:53?! Purpose: to show available rooms for a specific date & times date_convert #prop_dt,#beg_dt,7 get #prop_dt=#prop_dt:8 get #from=#prop_dt:8 #beg_time get #to=#prop_dt:8 #end_time7 get oa$display="Checking available rooms . . . "\force dump_cache gen_entry dump_cache gen_entry.dat delete gen_entry.dat create gen_entry decimal i get #count=0 .if $crs_prv nes "Y" then -( for crs_rooms with .type eqs "CR" and - .room:30 beginning room:30 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -, .crs_key:30:30 beginning #room:30 and -$ .crs_key:8 beginning #from:8 do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\-0 .if #to:13 ges #sd and #ed ges #from:13 and -3 #ed:13 nes #from:13 and #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -- write add gen_entry key=#room:25 #cap\\\\- compute #count=#count+1  .if $crs_prv eqs "Y" then -: for crs_rooms with .type eqs "CR" or .type eqs "SP" and - .room:30 beginning room:30 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -, .crs_key:30:30 beginning #room:30 and -$ .crs_key:8 beginning #from:8 do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\-0 .if #to:13 ges #sd and #ed ges #from:13 and -3 #ed:13 nes #from:13 and #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -. write add gen_entry key=#room:25 #cap \\\\- compute #count=#count+1 : get #gen_title="ROOMS Available for Specified Date/Times"5 get #gen_fields=" ROOM CAPACITY"  .if #count lt 6 then - form gen_auto_bottom select -4 for gen_entry do sel_style .key/style=choice else -! form gen_auto_midbottom select -. for gen_entry do sel_style .key/style=choice close_prior display\force6 .if oa$form_terminator = 112 then .goto none_selected- .if oa$sel_count eqs 0 then .goto none_found .goto exit_procedure.label none_selected get oa$display=-8"Nothing was selected from the list of available ROOMS." .goto exit_procedure.label none_found get oa$display=->"No available rooms found for the specified DATE/TIMES."\force .goto exit_procedure.label exit_procedure .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_MSO.SCP;1+,. /@ 4 j-50123KPWO 56Sr7{8QXZ؛9U4G@HJ .! crs_reserve_mso.scp reb, 14-Feb-1990 08:30! mso = multiple set owner.LABEL BEGIN_HERE+ .IF $CRS_PRV EQS "Y" THEN .GOTO PROMPT_ONE .GOTO NO_PRV.LABEL PROMPT_ONE GET #WHERE="P1" GET #INFOTYPE=-"Current Owner: "( GET OA$DCL='$ SET MESS/NOF/NOI/NOS/NOT'" FORM EXTDATA/PRE='GET EXTDATA=""'2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #RESERVER = #EXTDATA)! GET #TRESERVER = PROFIL.USER[#RESERVER]*! .IF #TRESERVER EQS "" THEN .GOTO INVALID .GOTO PROMPT_TWO.LABEL PROMPT_TWO GET #WHERE="P2"! preceeded by 'Enter '... GET #INFOTYPE=-6"Intended New Owner of " #RESERVER "'s Reservations: "( GET OA$DCL='$ SET MESS/NOF/NOI/NOS/NOT'" FORM EXTDATA/PRE='GET EXTDATA=""'2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #NEW_OWNER = #EXTDATA* GET #TNEW_OWNER = PROFIL.USER[#NEW_OWNER]* .IF #TNEW_OWNER EQS "" THEN .GOTO INVALID2 .IF #NEW_OWNER EQS #RESERVER THEN .GOTO DUPLICATE .GOTO INDEX.LABEL DUPLICATE PROMPT -C"You entered '" #NEW_OWNER "' as FROM & TO Owners. Press RETURN. " .GOTO PROMPT_ONE.LABEL INVALID PROMPT -B"'" #RESERVER "' is NOT a valid ALL-IN-1 username. Press RETURN."1 .IF #WHERE EQS "P1" THEN .GOTO PROMPT_ONE ELSE - .GOTO PROMPT_TWO .LABEL INDEX GET OA$DISPLAY=-8"Checking reservations for '" #RESERVER "' . . . "\FORCEI FORM AUTO SELECT FOR CRS_RESERVE WITH .RESERVER BEGINNING #RESERVER DO -> SEL_STYLE .MEETING:25 " " .ROOM " " .BEG_DT " " .BEG_TIME - /STYLE=DISPLAY. .IF OA$SRC_COUNT = 0 THEN .GOTO NOTHING_FOUND.LABEL PROMPT_THREEA PROMPT "Set Owner from " #RESERVER " to " #NEW_OWNER "? [Y/N] " OA$FLD_STAY2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED2 .IF OA$PROMPT_TEXT:1 NES "Y" THEN .GOTO CANCELLED.LABEL PROCESS% DISPLAY Setting ownerships... \FORCE8 FOR CRS_RESERVE WITH .RESERVER BEGINNING #RESERVER DO -A WRITE CHANGE CRS_RESERVE CRS_KEY= .CRS_KEY, RESERVER= #NEW_OWNER OA$MSG_PURGE GET OA$DISPLAY=->"Ownerships changed from '" #RESERVER "' to '" #NEW_OWNER "'." .GOTO EXIT_PROCEDURE .LABEL ERROR OA$MSG_PURGE1 DISPLAY This procedure failed; please try again. .GOTO EXIT_PROCEDURE.LABEL NOTHING_FOUND OA$MSG_PURGE. DISPLAY No records were found for this Owner. .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE .LABEL NO_PRV OA$MSG_PURGE( DISPLAY You may not use the MSO option. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE GET OA$DCL='$ SET MESS/F/I/S/T' .EXIT8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_NOT.SCP;2+,. /@ 4L h-50123KPWO 565݇7ͣ{8. 9U4G@HJPQ3% A.BCK58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_NOT.SCP;2L y2! crs_reserve_not.scp reb, 05-Sep-1991 Thu 11:50 .label begin .goto create_mail8 prompt "Notify others of Current Reservation? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled.label create_mail! oa$msg_purge+ get #room=crs_reserve.room[$crs_last_used]1 get #meeting=crs_reserve.meeting[$crs_last_used]/ get #beg_dt=crs_reserve.beg_dt[$crs_last_used]3 get #beg_time=crs_reserve.beg_time[$crs_last_used]3 get #end_time=crs_reserve.end_time[$crs_last_used] mail create/open/nosend/noedit oa$msg_purge* mail subject "CRS Meeting Notice for You"5 mail text "Please make note of the following . . . " mail text " mail text " MEETING: " #meeting mail text " PLACE: " #room! mail text " DATE: " #beg_dt3 mail text " TIME: " #beg_time " - " #end_time mail text ) mail text "and take appropriate action." .set_refresh 12,13 .clear 12,13 .text 13,3,-6" CRS MEETING NOTIFICATION FACILITY" .text 15,3,-L"Please address your meeting notices using the following formats. Use ONLY" .text 16,3,-$"complete names, NOT partial names:" .text 18,8,-,"ALL-IN-1 USERNAMES ( e.g., HOPPER_GRASS )" .text 19,8,->"SYSTEM or PRIVATE DISTRIBUTION LIST NAMES ( e.g., @INSECTS )" .text 20,8,-)"NICKNAMES ( e.g., GH = 'HOPPER_GRASS' )" .text 22,3,-4"Press RETURN when complete or EXIT SCREEN to quit.".label mail_loop .prompt 24,3,"USERNAME: "! .fx oa$fld_stay .clear 23,24 .if oa$script_psib eqs "{cr}" then .goto mail_close6 .if oa$script_psib eqs "{key 0}" then .goto cancelled3! .if oa$form_terminator = 112 then .goto cancelled1! .if oa$prompt_text eqs "" then .goto mail_close get #not_user = oa$script_text! get #not_user=oa$prompt_text- .if nientr.realname[#not_user] nes "" then -* get #not_user=nientr.realname[#not_user]< .if profil.user[#not_user] nes "" then .goto loop_continues get #priv_list="N"5 for first cab$ with .title beginning #not_user and -0 .type eqs "distrib list" do get #priv_list="Y"1 .if #priv_list eqs "Y" then .goto loop_continues .goto error.label loop_continues! oa$msg_purge mail to #not_user oa$msg_purge3 .if #not_user:1 eqs "@" then mail expand_dist_list .goto mail_loop.label mail_close .refresh 12,13! .clear 12,13 mail close_message2 prompt "Edit the message before sending? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto mail_send mail edit.label mail_send$ prompt "Send message now? [Y/N] " oa$fld_stay 1 .if oa$prompt_text:1 nes "Y" then .goto not_sent mail send  4 display Mail notification of meeting has been sent. .goto exit_procedure.label not_sent! .refresh 12,13! .clear 12,13; display Message created but not sent. See CREATED folder. .goto exit_procedure .label errorB prompt "'" #not_user "' is NOT a proper username. Press RETURN." oa$fld_stay .goto mail_loop.label cancelled .refresh 12,13! .clear 12,13< display Operation has been cancelled. No one was notified. .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_PU.COM;5+, ./@ 4:-50123KPWO56@ else .if #mo eq 4 or #mo eq 6 or #mo eq 9 or #mo eq 11 then - compute #da=#da+30 else - compute #da=#da+28.label build_date( .if #da:1:1 eqs "" then get #da="0" #da( .if #mo:1:1 eqs "" then get #mo="0" #mo get #tdate=#yr:4 #mo:2 #da:2.label process0 get oa$dcl='$ open/write outfile crs_purge.tmp'0 for crs_reserve with .crs_key:8 les #tdate do -0 write delete crs_reserve crs_key = .crs_key\\-- get oa$dcl='$ write outfile "' .crs_key '"' get oa$dcl='$ close outfile' list crs_purge.tmp delete crs_purge.tmp.label exit_procedure .exit6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_R.COM;1+,". /@ 4 l-50123KPWO 56@P:7{8%Z؛9U4G@HJ.$! CRS_RESERVE_R.COM REB, 08-Sep-1989 09:15$! $!SET VERIFY$BEGIN:$!$ OPEN/READ INFILE CRS.TMP$ OPEN/WRITE OUTFILE CRS.TMP $ P_ROOM = "" $ P_BEG = ""$ P_END = "23:59" $ READ/END=CLOSE INFILE INRECORD$! $PROCESS:$!"$ ROOM = F$EXTRACT(10,15,INRECORD) $ BEG = F$EXTRACT(26,5,INRECORD)!$ END = F$EXTRACT(32,5,INRECORD)*$ IF P_ROOM .EQS. ROOM THEN GOTO SAME_ROOM+$ IF P_END .EQS. "17:00" THEN GOTO NEW_ROOM$ OUTRECORD[10,15] := 'P_ROOM'$ OUTRECORD[26,5] := 'P_END'($ OUTRECORPRMG? A.BCK"56[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_R.COM;1 @D[32,16] := "23:59 AVAILABLE"$ WRITE OUTFILE OUTRECORD $NEW_ROOM:$ WRITE OUTFILE ""($ IF BEG .EQS. "00:00" THEN GOTO NR_OKAY$ OUTRECORD[0,50] := ""$ OUTRECORD[10,15] := 'ROOM'$ OUTRECORD[26,5] := "00:00")$ OUTRECORD[32,16] := "''BEG' AVAILABLE"$ WRITE OUTFILE OUTRECORD$! $NR_OKAY:$ OUTRECORD[0,50] := ""$ OUTRECORD[10,15] := 'ROOM'$ OUTRECORD[26,5] := 'BEG'$ OUTRECORD[32,5] := 'END'$ OUTRECORD[39,6] := "IN USE"$ WRITE OUTFILE OUTRECORD$ GOTO NEXT_READ$! $SAME_ROOM:&$ IF BEG .EQS. P_END THEN GOTO SR_OKAY$ OUTRECORD[0,50] := ""$ OUTRECORD[10,15] := 'ROOM'$ OUTRECORD[26,5] := 'P_END')$ OUTRECORD[32,16] := "''BEG' AVAILABLE"$ WRITE OUTFILE OUTRECORD$! $SR_OKAY:$ OUTRECORD[0,50] := ""$ OUTRECORD[10,15] := 'ROOM'$ OUTRECORD[26,5] := 'BEG'$ OUTRECORD[32,5] := 'END'$ OUTRECORD[39,6] := "IN USE"$ WRITE OUTFILE OUTRECORD$! $NEXT_READ: $ READ/END=CLOSE INFILE INRECORD$ P_ROOM = ROOM $ P_BEG = BEG $ P_END = END$ GOTO PROCESS$!$CLOSE:$!'$ IF END .EQS. "23:59" THEN GOTO FINISH$ OUTRECORD[0,50] := ""$ OUTRECORD[10,15]:= 'ROOM'$ OUTRECORD[26,5] := 'END'$ OUTRECORD[32,5] := "23:59" $ OUTRECORD[39,9] := "AVAILABLE"$ WRITE OUTFILE OUTRECORD$!$FINISH:$!$ CLOSE INFILE$ CLOSE OUTFILE$!$EXIT:$! $SET NOVERIFY$ EXIT$!6*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_R.SCP;2+,8./@ 4-z-50123KPWO56Wއ7{89U4G@HJ,! CRS_RESERVE_R.SCP REB, 13-Sep-1989 09:04 .label begin( get #r=crs_reserve.room[$crs_last_used]* get #d=crs_reserve.beg_dt[$crs_last_used], get #t=crs_reserve.beg_time[$crs_last_used], get #e=crs_reserve.end_time[$crs_last_used]+ get #m=crs_reserve.meeting[$crs_last_used]- get #c1=crs_reserve.contact1[$crs_last_used]) get #e1=crs_reserve.ext1[$crs_last_used]- get #c2=crs_reserve.contact2[$crs_last_used]) get #e2=crs_reserve.ext2[$crs_last_used], get #o=crs_reserve.reserver[$crs_last_used]*! get #a=crs_reserve.am_yn[$crs_last_used] form crs_reserve_r/- pre='get room=#r\- get beg_dt=#d\- get beg_time=#t\- get end_time=#e\- get meeting=#m\- get contact1=#c1\- get ext1=#e1\- get contact2=#c2\- get ext2=#e2\- get reserver=#o\- prompt' .exit=*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RC_GOLDL.SCP;2+,,./@ 4-50123KPWO56t@͓7 ]{8N9U4G@HJ2!CRS_RESERVE_RC_GOLDL.SCP REB, 02-OCT-1989 11:38 .LABEL BEGIN+ .IF #SEL_KEY EQS "" AND ROOM NES "" THEN - GET #SEL_KEY=ROOM # GET ROOM= CRS_ROOMS.ROOM[#SEL_KEY]* GET CAPACITY=CRS_ROOMS.CAPACITY[#SEL_KEY]0 GET ARRANGEMENT=CRS_ROOMS.ARRANGEMENT[#SEL_KEY]" GET EQP1=CRS_ROOMS.EQP1[#SEL_KEY]" GET EQP2=CRS_ROOMS.EQP2[#SEL_KEY]" GET EQP3=CRS_ROOMS.EQP3[#SEL_KEY]" GET EQP4=CRS_ROOMS.EQP4[#SEL_KEY]" GET EQP5=CRS_ROOMS.EQP5[#SEL_KEY] PROMPT: GET ROOM=CAPACITY=ARRANGEMENT=EQP1=EQP2=EQP3=EQP4=EQP5="" .EXIT7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RD.COM;2+,./@ 4=-50123KPWO56`)ܔ7 {8`N]9U4G@HJ0$! CRS_TEST_RD.COM REB, 26-Aug-1991 Mon 13:24$!$begin:$ open/read infile crs_rd.tmp$ open/write outfile crs_rd.tmp$ read/error=close infile inrec $ prev = ""$!$loop:$ now = f$extract(0,25,inrec)=$ if prev .nes. "" .and. prev .nes. now then write outfile ""$ write outfile inrec $ prev = now$ read/end=close infile inrec $ goto loop$!$close:$ close infile$ close outfile$ purge/nolog crs_rd.tmp $ exit7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RD.SCP;5+,] ./@ 4>-50123KPWO56FHܔ7 {89U4G@HJ1! crs_reserve_rd.scp reb, 26-Aug-1991 Mon 10:52 .label begin7 get #screen_title="Enter DATE information needed for:" form valid_date2 .if oa$form_terminator = 112 then .goto cancelled# date_convert #date_nbs,#reg_date,7 get #date_nbs=#date_nbs:8+ .if #date_nbs eqs "" then .goto date_error" get oa$display="Working . . . "\- force: .if oa$dir:"*.*".allbutver["gen_entry.dat"] eqs "" then - create gen_entry else -2 for gen_entry do write delete gen_entry key=.key  for crs_rooms do - get #croom=.room\\- get #found="N"\\-; for first crs_reserve with .crs_key:8 eqs #date_nbs and - .room beginning #croom do - get #found="Y"\\-3 .if #found eqs "Y" then do crs_reserve_rd2 else - do crs_reserve_rd3> form auto select for gen_entry do sel_style .key/style=file/- list="crs_rd.tmp" dump_cache crs_rd.tmp command crs_reserve_rd( merge crs_reserve_rd.blp,crs_rd_out.txt list crs_rd_out.txt close_prior .label print& prompt "Print this schedule? [Y/N] " oa$fld_stay0 .if oa$prompt_text:1 nes "Y" then .goto cleanup! get #print_file="crs_rd_out.txt" do wpprint .label cleanup delete crs_rd_out.txt delete crs_rd.tmp dump_cache gen_entry delete gen_entry .goto exit_procedure.label date_error' display Date specified was not proper. .goto exit_procedure.label cancelled< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RD2.SCP;1+,./@ 4<-50123KPWO56ܔ7|8 K9U4G@HJ2!crs_reserve_rd2.scp reb, 26-Aug-1991 Mon 11:56 .label begin,! initialized for first time of each ROOM... get #pbtim="" get #petim="" get #a = "<<<<<<<<<<<<<<<" for crs_reserve with -( .crs_key:8 beginning #date_nbs:8 and -) .crs_key:25:30 beginning #croom:25 do - get #btim = .beg_time\\- get #etim = .end_time\\- get #u = .contact1\\- get #e = .ext1\\-0 .if #pbtim eqs "" and #btim nes "00:00" then - get #key=-7 #croom:30 "00:00 - " #btim " AVAILABLE "SE; A.BCK58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RD2.SCP;1<; #a \\\\-" write add gen_entry key=#key\\-3 .if #petim nes "" and #petim:5 nes #btim:5 then - get #key=-7 #croom:30 #petim " - " #btim " AVAILABLE " #a \\-" write add gen_entry key=#key\\- get #key=-< #croom:30 #btim " - " #etim " IN USE " #u "/" #e \\-! write add gen_entry key=#key\\- get #pbtim=#btim\\- get #petim=#etim & .if #etim eqs "23:59" then .goto exit6 get #key=#croom:30 #etim " - 23:59 AVAILABLE " #a write add gen_entry key=#key .label exit .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_RD3.SCP;1+,j ./@ 4@-50123KPWO56 ܔ7 1|8ٱ9U4G@HJ2! crs_reserve_rd3.scp reb, 26-Aug-1991 Mon 11:54 .label begin@ get #key=#croom:30 "00:00 - 23:59 AVAILABLE <<<<<<<<<<<<<<<" write add gen_entry key=#key .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SAR.SCP;3+, %./@ 4?-50123KPWO56 ^{\7 f|8`9U4G@HJ 2! crs_reserve_sar.scp reb, 12-Oct-1990 Fri 10:49?! Purpose: to show available rooms for a specific date & times.label get_date) get #screen_title="Enter DATE desired: " form valid_date2 .if oa$form_terminator = 112 then .goto cancelled  date_convert #dt,#reg_date,7 get #from_date=#reg_date .label get_beg_time3 get #screen_title="Enter BEGINNING TIME desired: " get #reenter="N" form valid_time2 .if oa$form_terminator = 112 then .goto cancelled- .if #reenter eqs "Y" then .goto get_beg_time get #from_time=#reg_time get #from = #dt:8 #reg_time.label get_end_time0 get #screen_title="Enter ENDING TIME desired: " get #reenter="N" form valid_time2 .if oa$form_terminator = 112 then .goto cancelled- .if #reenter eqs "Y" then .goto get_end_time get #to_time=#reg_time get #to = #dt:8 #reg_time.label check_span% .if #to gts #from then .goto process display -:Ending time earlier than beginning time! Please re-enter! .goto get_beg_time.label process7 get oa$display="Checking available rooms . . . "\force delete crs_reserve_sar_lis.wpl delete crs_reserve_sar.tmp6 get oa$dcl='$ open/write outfile crs_reserve_sar.tmp'9 for crs_rooms with .type eqs "CR" or .type eqs "SP" do - get #in_use="N"\\- get #room=.room\\- get #type=.type\\-; for crs_reserve with .crs_key:30:30 beginning #room and -$ .crs_key:8 beginning #from:8 do -% .if .crs_key:13:15 ges #from and -. .crs_key:13 les #to then get #in_use="Y"\\- .if #type eqs "SP" then - get #room=#room " (*)"\\- .if #in_use nes "Y" then -) get oa$dcl='write outfile "' #room '"' get oa$dcl='$ close outfile' 2 merge crs_reserve_sar.wpl,crs_reserve_sar_lis.wpl list crs_reserve_sar_lis.wpl close_prior2 prompt "Do you want to print this list [Y/N] ? " oa$fld_stay0 .if oa$prompt_text:1 nes "Y" then .goto cleanup* get #print_file="crs_reserve_sar_lis.wpl" get #print_format="WPSPLUS" do wpprint.label cleanup  delete crs_reserve_sar.tmp delete crs_reserve_sar_lis.wpl .goto exit_procedure.label cancelled oa$msg_purge< display Operation has been cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit 8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SAR.WPL;3+, j. /@ 4 -50123KPWO 56Ep7ep87}9` G@HJHB   +:CR8___ _ _(___%_% !_+_ ___ ___ _____$_%_________________U__N ]ODCCCCCCCCCED)CCCCCE)]ODCCCCCCCCCE) )H ROOMS AVAILABLE ON <#FROM_DATE> FROM <#FROM_TIME> TO <#TO_TIME>   ))CCCCCCEd)H ROOMS AVAILABLE ON <#FROM_DATE> FROM <#FROM_TIME> TO <#TO_TIME>@))) b3NUse the 'C' option to create a Reservation for the ROOM of your choice. Note Nb3Nthat it is possible for a ROOM listed here as AVAILABLE to become UNAVAILABLE NU)?~before you can reserve it, however unlikely that is to happen.>E)))NU)?~before you can reserve it, however unlikely that is to happen.>E))@TX A.BCK j58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SAR.WPL;3 )A DINING AREA 1 & 2 Faye Robison ext. 245     l* )A MIO WORKROOM Charmaine Baldwin ext. 601     lhere as AVAILABLE to become UNAVAILABLE NU)?~before you can reserve it, however unlikely that is to happen.>E))`3L(*) ROOMS are listed for your convenience, but may be scheduled only by the L()$following people:) )A COMPUTER TRNG CTR Help Desk ext. 300     leserve it, however unlikely that is to happen.>E)))N5)!B<&INCLUDE "CRS_RESERVE_SAR.TMP">!))`3L(*) ROOMS are listed for your convenience, but may be scheduled only by the Ld only by the Lb3Nthat it is possible for a ROOM listed here as AVAILABLE to become UNAVAILABLE NU)?~before you can reserve it, however unlikely that is to happen.>E))7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SC.BLP;1+,./@ 4L-50123KPWO56=7I6|8qs|9U4G@HJ- Scan for Specific Room Characteristics Criteria: Capacity: <#CAP> Arrangement: <#ARR>% Equipment: <#E1> <#E2> <#E3> <#E4>! <#E5> <#E6> <#E7> <#E8>L============================================================================Results of Search:<&include "crs_reserve_sc.tmp">7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SC.SCP;2+, ./@ 4?f-50123KPWO56 @7@|8@JE}|9U4G@HJ1! CRS_RESERVE_SC.SCP REB, 17-Sep-1990 Mon 11:09 .LABEL BEGIN FORM CRS_RESERVE_SCAN2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED.LABEL DISPLAY_RESULTS& GET OA$DISPLAY='Working . . . '\FORCE FORM AUTO SELECT - FOR CRS_ROOMS WITH - .ARRANGEMENT <=> #ARR AND - .CAPACITY GE #CAP AND - .%WHOLE <=> #E1 AND - .%WHOLE <=> #E2 AND - .%WHOLE <=> #E3 AND - .%WHOLE <=> #E4 AND - .%WHOLE <=> #E5 AND - .%WHOLE <=> #E6 AND - .%WHOLE <=> #E7 AND - .%WHOLE <=> #E8 -) DO SEL_STYLE " " .ROOM:25/STYLE=FILE/- LIST="CRS_RESERVE_SC.TMP"  DUMP_CACHE CRS_RESERVE_SC.TMP? .IF OA$DIR:"*.*".ALLBUTVER["CRS_RESERVE_SC.TMP"] EQS "" THEN - .GOTO NOTHING_FOUND. MERGE CRS_RESERVE_SC.BLP,CRS_RESERVE_SCAN.TMP DELETE CRS_RESERVE_SC.TMP  LIST CRS_RESERVE_SCAN.TMP.LABEL PRINT_PROMPT CLOSE_PRIOR3 PROMPT "Do you want to print this list [Y/N] ? " OA$FLD_STAY0 .IF OA$PROMPT_TEXT:1 NES "Y" THEN .GOTO CLEANUP' GET #PRINT_FILE="CRS_RESERVE_SCAN.TMP" GET #PRINT_FORMAT="NONE" DO WPPRINT.LABEL CLEANUP DELETE CRS_RESERVE_SC.TMP  .GOTO EXIT_PROCEDURE.LABEL NOTHING_FOUND0 DISPLAY No records met your specified criteria. .GOTO EXIT_PROCEDURE.LABEL CANCELLED< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT>*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SC_SELECT.SCP;5+,. /@ 4O -50123KPWO 56~7N|8Z؛9U4G@HJ 5! CRS_RESERVE_SC_SEL.SCP REB, 22-Mar-1991 Fri 09:23 .label begin form crs_reserve_scan2 .if oa$form_terminator = 112 then .goto cancelled date_convert #prop_dt,#beg_dt,7 get #prop_dt=#prop_dt:8 get #from=#prop_dt:8 #beg_time get #to=#prop_dt:8 #end_time get oa$display=-?"Checking available rooms that meet your criteria . . . "\force dump_cache gen_entry dump_cache gen_entry.dat delete gen_entry.dat create gen_entry .if $crs_prv nes "Y" then -( for crs_rooms with .type eqs "CR" and - .arrangement <=> #arr and - .capacity ge #cap and - .%whole <=> #e1 and - .%whole <=> #e2 and - .%whole <=> #e3 and - .%whole <=> #e4 and - .%whole <=> #e5 and - .%whole <=> #e6 and - .%whole <=> #e7 and - .%whole <=> #e8 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -% .crs_key:8 beginning #from:8 and -& .crs_key:30:30 beginning #room do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\- .if #to:13 ges #sd and - #ed:13 ges #from:13 and - #ed:13 nes #from:13 and - #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -( write add gen_entry key=#room:25 #cap .if $crs_prv eqs "Y" then -: for crs_rooms with .type eqs "CR" or .type eqs "SP" and - .arrangement <=> #arr and - .capacity ge #cap and - .%whole <=> #e1 and - .%whole <=> #e2 and - .%whole <=> #e3 and - .%whole <=> #e4 and - .%whole <=> #e5 and - .%whole <=> #e6 and - .%whole <=> #e7 and - .%whole <=> #e8 do - get #in_use="N"\\- get #room=.room\\- get #cap = .capacity\\- for crs_reserve with -% .crs_key:8 beginning #from:8 and -& .crs_key:30:30 beginning #room do - get #sd=.crs_key:13\\\\- get #ed=.crs_key:13:15\\\\- .if #to:13 ges #sd and - #ed:13 ges #from:13 and - #ed:13 nes #from:13 and - #sd:13 nes #to:13 then - get #in_use="Y"\\- .if #in_use nes "Y" then -( write add gen_entry key=#room:25 #cap get #gen_title=-&"ROOMS Available w/Specified Criteria"5 get #gen_fields=" ROOM CAPACITY" decimal i get #count=0 ) for gen_entry do compute #count=#count+1& .if #count eq 0 then .goto none_found .if #count eq 1 then -) for first gen_entry do get #sel_key=.key' .if #count gt 1 and #count lt 6 then - form gen_auto_bottom select -. for gen_entry do sel_style .key/style=choice ' .if #count gt 1 and #count gt 5 then -! form gen_auto_midbottom select -. for gen_entry do sel_style .key/style=choice close_prior display\force6 .if oa$form_terminator = 112 then .goto none_selected F .if #count gt 1 then get room=oa$sel_key:25 else get room=#sel_key:25.! .if oa$sel_count eqs 0 then .goto none_found .goto exit_procedure.label none_selected get oa$display=-O"Nothing was selected from the list of available ROOMS that met your criteria." .goto exit_procedure.label none_found get oa$display=-@U< A.BCK5>[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SC_SELECT.SCP;5O EJ"No available rooms met your criteria for the specified DATE/TIMES."\force .goto exit_procedure.label cancelled7 display Operation was cancelled at the User's request. .goto exit_procedure.label exit_procedure .exit8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SEL.SCP;2+, ./@ 4B~-50123KPWO56 އ7aY|8Z؛9U4G@HJ.! CRS_RESERVE_SEL.SCP REB, 05-OCT-1989 09:41 .LABEL BEGIN FORM CRS_RESERVE_SEL2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED#! GET #CRS_LAST_USED=$CRS_LAST_USED .IF #BEG_DT NES "" THEN -& DATE_CONVERT #BEG_DT_NBS,#BEG_DT,7\-& GET #BEG_DT_NBS=#BEG_DT_NBS:8 ELSE - GET #BEG_DT_NBS=""8! FOR FIRST CRS_RESERVE WITH .ROOM BEGINNING #ROOM AND -"! .BEG_DT BEGINNING #BEG_DT AND -&! .BEG_TIME BEGINNING #BEG_TIME AND -&! .END_TIME BEGINNING #END_TIME AND -7 FOR FIRST CRS_RESERVE WITH .ROOM BEGINNING #ROOM AND -( .CRS_KEY:8 BEGINNING #BEG_DT_NBS AND -( .CRS_KEY:5:8 BEGINNING #BEG_TIME AND -) .CRS_KEY:5:16 BEGINNING #END_TIME AND - .MEETING <=> #MEETING - DO GET #CRS_LAST_USED=.CRS_KEYB .IF $CRS_LAST_USED EQS #CRS_LAST_USED THEN .GOTO NOTHING_SELECTED" GET $CRS_LAST_USED=#CRS_LAST_USED .GOTO EXIT_PROCEDURE.LABEL NOTHING_SELECTED OA$MSG_PURGE' DISPLAY Your SELection does not exist. .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT>*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SEL_GOLDL.SCP;1+, ./@ 4-50123KPWO56` ~X:7e|8'Z؛9U4G@HJ3! crs_reserve_sel_goldl.scp reb, 05-Oct-1989 09:31.label field_is_room oa$fld_stay9 .if oa$field_name nes "room" then .goto field_is_meeting& get room=crs_reserve.room[oa$sel_key] oa$fld_next .goto exit_procedure.label field_is_meeting9 .if oa$field_name nes "meeting" then .goto field_is_date, get meeting=crs_reserve.meeting[oa$sel_key]- display It made it to MEETING in the script. oa$fld_next  .goto exit_procedure.label field_is_date9 .if oa$field_name nes "beg_dt" then .goto field_is_btime* get beg_dt=crs_reserve.beg_dt[oa$sel_key] oa$fld_next  .goto exit_procedure.label field_is_btime; .if oa$field_name nes "beg_time" then .goto field_is_etime. get beg_time=crs_reserve.beg_time[oa$sel_key] oa$fld_next  .goto exit_procedure.label field_is_etime3 .if oa$field_name nes "end_time" then .goto whoops. get end_time=crs_reserve.end_time[oa$sel_key] .goto exit_procedure .label whoops oa$msg_purge4 display Please report how you reached this message! .goto exit_prcocedure.label nothing_chosen oa$msg_purge, display No value chosen from selection list .goto exit_procedure.label exit_procedure .exit 7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SO.SCP;2+,a$q./@ 4L-50123KPWO56=z͓7q|8@7s9U4G@HJ-! CRS_RESERVE_SO.SCP REB, 07-DEC-1989 10:19.LABEL BEGIN_HERE* .IF $CRSMLC_PRV EQS "Y" THEN .GOTO PROMPT' .IF $CRS_PRV NES "Y" THEN .GOTO NO_PRV .LABEL PROMPT GET #INFOTYPE=-L"USERNAME of NEW OWNER: (Contact: " CRS_RESERVE.CONTACT1[$CRS_LAST_USED] ")"( GET OA$DCL='$ SET MESS/NOF/NOI/NOS/NOT'D FORM EXTDATA/PRE='GET EXTDATA=CRS_RESERVE.RESERVER[$CRS_LAST_USED]'2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #RESERVER = #EXTDATA( GET #TRESERVER = PROFIL.USER[#RESERVER]) .IF #TRESERVER EQS "" THEN .GOTO INVALID .GOTO PROCESS.LABEL INVALID PROMPT -B"'" #RESERVER "' is NOT a valid ALL-IN-1 username. Press RETURN." .GOTO PROMPT.LABEL PROCESSF WRITE CHANGE CRS_RESERVE CRS_KEY= $CRS_LAST_USED, RESERVER= #RESERVER6 GET #TRESERVER = CRS_RESERVE.RESERVER[$CRS_LAST_USED]. .IF #TRESERVER NES #RESERVER THEN .GOTO ERROR OA$MSG_PURGEF GET OA$DISPLAY='Ownership of specified meeting changed to ' #RESERVER .GOTO EXIT_PROCEDURE .LABEL ERROR OA$MSG_PURGE1 DISPLAY This procedure failed; please try again. .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request.  .GOTO EXIT_PROCEDURE .LABEL NO_PRV OA$MSG_PURGE' DISPLAY You may not use the SO option. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE GET OA$DCL='$ SET MESS/F/I/S/T' .EXIT:*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SQ_PU.COM;1+,V@. /@ 4 -50123KPWO 56ᙀߓ7~|8@@Z؛9U4G@HJ5$! crs_reserve_sq_pu.com reb, 10-Oct-1990 Wed 09:10$!@$! Purpose: to show the CRS_RESERVE_PU in the batch job listing$!$search:$ set mess/nof/noi/nos/notG$ write oamailbox "oa display Doing a SHOW QUEUE/ALL/BATCH . . .\force"$ @dclmailbox:$!0$ show queue/all/batch/out=crs_reserve_sq_pu.tmp$!$ write oamailbox -; "oa display Searching now for CRS_RESERVE_PU . . .\force"$ @dclmailbox:%$ search/out=crs_reserve_sq_pu.tmp2 -) crs_reserve_sq_pu.tmp "CRS_RESERVE_PU"$!$initial_read:$ write oamailbox -1 "oa display Formatting the results . . .\force"$ @dclmailbox:)$ open/read infile crs_reserve_sq_pu.tmp2 $ read/end=close infile inrecord&$ if inrecord .eqs. "" then goto close$ close infile($ open/read infile crs_reserve_sq_pu.tmp $ outline1="" $ outline2="" $ read/end=close infile inrecord$! $found_read:8$ if f$extract(0,11,inrecord) .eqs. "Batch queue" .or. -2 f$extract(0,13,inrecord) .eqs. "Generic batch" - then outline1=inrecord;$ if f$extract(2,14,inrecord) .eqs. "CRS_RESERVE_PU" then - goto found_close&$ read/end=found_close infile inrecord$ goto found_read$!$close:$ close infile'$ write oamailbox "oa get #inrecord=''"$ @dclmailbox: $ goto exit$! $found_close:$ outline2 = inrecord$ close infile+$ open/write outfile crs_reserve_sq_pu.tmp3$ write outfile outline1$ write outfile ""$ write outfile outline2$ close outfile-$ write oamailbox "oa get #inrecord='found' "$ @dclmailbox:$!$exit:$ set mess/f Vi[ A.BCKV@5:[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SQ_PU.COM;1 /i/s/t$ exit:*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_SQ_PU.SCP;1+,J./@ 4|-50123KPWO56`%ߓ7@|8@JZ؛9U4G@HJ4! CRS_RESERVE_SQ_PU.SCP REB, 10-Oct-1990 Wed 09:08 .LABEL BEGIN5 GET OA$DISPLAY="Cleaning up work files . . . "\FORCE DELETE CRS_RESERVE_SQ_PU.TMP DELETE CRS_RESERVE_SQ_PU.TMP2 DELETE CRS_RESERVE_SQ_PU.TMP3.LABEL PROCESS COMMAND CRS_RESERVE_SQ_PU& .IF #INRECORD NES "" THEN .GOTO FOUND.LABEL NOT_FOUND DISPLAY -PEither CRS_RESERVE_PU not in queue or you have insufficient privilege to see it. .GOTO CLEANUP .LABEL FOUND LIST CRS_RESERVE_SQ_PU.TMP3.LABEL CLEANUP DELETE CRS_RESERVE_SQ_PU.TMP DELETE CRS_RESERVE_SQ_PU.TMP2 DELETE CRS_RESERVE_SQ_PU.TMP3.LABEL EXIT_PROCEDURE .EXIT<*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_UPARROW.SCP;1+,. /@ 4 -50123KPWO 56@Y:7j|8&C9U4G@HJ 2! crs_reserve_uparrow.scp reb, 06-Oct-1989 09:56 .label begin5 display Selecting previous reservation . . . \force decimal i get #cpref=$crs_last_used:8 get #fkey="" get #nkey="" get #dflag="N".label pre_loopB! get first record key for the date in the window; put it in #fkey: for first crs_reserve with .crs_key beginning #cpref do - get #fkey=.crs_key1 .if #fkey eqs $crs_last_used then get #dflag="Y"( .if #dflag eqs "Y" then .goto decrementE!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ .label loop+ get #nkey=crs_reserve:crs_key.%next[#fkey]D .if #nkey:8 gts #cpref:8 and #dkey eqs "Y" then .goto first_of_date. .if #nkey:8 gts #cpref:8 then .goto decrement. .if #nkey eqs $crs_last_used then .goto found get #fkey=#nkey .goto loopE!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ .label found get $crs_last_used=#fkey4 display The previous reservation has been selected. .goto exit_procedure.label decrement date_convert #old_dt,#cpref,99 get oa$display="Checking before " #old_dt " . . ."\force,! display Checking previous date(s)...\force, get #firstkey=crs_reserve:crs_key.%next[""]4 .if #cpref:8 lts #firstkey:8 then .goto top_of_file get #bday=#firstkey:8 get #yyyy=#cpref:4 get #mm=#cpref:2:4 get #dd=#cpref:2:6 compute #dd=#dd-1( .if #dd:1:1 eqs "" then get #dd="0" #dd get #cpref=#yyyy #mm #dd. .if #cpref:4:4 eqs "1200" then get #dd="1130". .if #cpref:4:4 eqs "1100" then get #dd="1031". .if #cpref:4:4 eqs "1000" then get #dd="0930". .if #cpref:4:4 eqs "0900" then get #dd="0831". .if #cpref:4:4 eqs "0800" then get #dd="0731". .if #cpref:4:4 eqs "0700" then get #dd="0630". .if #cpref:4:4 eqs "0600" then get #dd="0531". .if #cpref:4:4 eqs "0500" then get #dd="0430". .if #cpref:4:4 eqs "0400" then get #dd="0331". .if #cpref:4:4 eqs "0300" then get #dd="0229". .if #cpref:4:4 eqs "0200" then get #dd="0131"0 .if #cpref:4:4 eqs "0100" then get #dd="1231"\- compute #yyyy=#yyyy-1 get #cpref = #yyyy #mm #dd$ .if #dflag eqs "Y" then .goto loop2 .goto pre_loop .label loop2B! get first record key for the date in the window; put it in #fkey4 for crs_reserve with .crs_key beginning #cpref do - get #fkey=.crs_key2 .if #fkey eqs $crs_last_used then .goto decrement .goto found.label top_of_file get $crs_last_used=#fkey oa$msg_purge5 display You are at the top of the Reservations file. .goto exit_procedure.label exit_procedure .exit<*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_VAL_DTT.SCP;1+, ./@ 48-50123KPWO564X߇7@|8@YcZ؛9U4G@HJ6! CRS_RESERVE_VAL_DTT.SCP REB, 19-Apr-1990 Thu 11:43.LABEL IF_BEG_TIME8 .IF OA$FIELD_NAME NES "BEG_TIME" THEN .GOTO IF_END_TIME. .IF BEG_TIME EQS "" THEN GET BEG_TIME="08:30" DO CRS_CVT_TIME GET BEG_TIME=#TIME GET #BEG_TIME=BEG_TIME1 .IF #TVALID EQS "Y" THEN OA$VAL_SET_VALID ELSE - OA$FRM_SET_FIELD BEG_TIME .GOTO EXIT_PROCEDURE.LABEL IF_END_TIME. .IF END_TIME EQS "" THEN GET END_TIME="17:00" GET #END_DT=#BEG_DT GET #END_TIME=END_TIME DO CRS_CVT_TIME GET END_TIME=#TIME  GET #END_TIME=END_TIME1 .IF #TVALID EQS "Y" THEN OA$VAL_SET_VALID ELSE - OA$FRM_SET_FIELD END_TIME .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT=*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_VAL__FLD.SCP;2+,A. /@ 4C z-50123KPWO 56 ,.,7[|8Ay9U4G@HJ2! CRS_RESERVE_VAL_FLD.SCP REB, 20-Sep-1989 13:22.LABEL IF_PROOM1 .IF OA$FIELD_NAME NES "PROOM" THEN .GOTO IF_ROOM GET #PROOM=PROOM' .IF #PROOM EQS "" THEN .GOTO NULL_ROOMC .IF #PROOM EQS CRS_ROOMS.ROOM[#PROOM] THEN OA$VAL_SET_VALID ELSE - .GOTO INVALID_ROOM .GOTO EXIT_PROCEDURE.LABEL IF_ROOM2 .IF OA$FIELD_NAME NES "ROOM" THEN .GOTO IF_BEG_DT GET #ROOM=ROOM& .IF #ROOM EQS "" THEN .GOTO NULL_ROOM $ GET #RM_TYP = CRS_ROOMS.TYPE[#ROOM]. .IF #RM_TYP EQS "CR" THEN .GOTO VALIDATE_ROOMC .IF #RM_TYP EQS "SP" AND $CRS_PRV EQS "Y" THEN .GOTO VALIDATE_ROOM .GOTO INVALID_ROOM*! .IF #TVALID EQS "Y" THEN DO CRS_VAL_ROOM0! .IF #TVALID NES "Y" THEN OA$FRM_SET_FIELD ROOM.LABEL VALIDATE_ROOM DO CRS_VAL_ROOM6 .IF #TVALID EQS "Y" THEN OA$VAL_SET_VALID\OA$FLD_DONE .GOTO EXIT_PROCEDURE.LABEL NULL_ROOM OA$MSG_PURGE/ DISPLAY You MUST enter a conference room name. OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL INVALID_ROOM7 .IF OA$FIELD_NAME EQS "ROOM" THEN GET #RM=#ROOM ELSE - GET #RM=#PROOM OA$MSG_PURGE .IF #RM_TYP EQS "" THEN -= GET OA$DISPLAY=#RM " is not a valid conference room." ELSE -6 GET OA$DISPLAY=#RM " is not accessible through CRS. " OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL IF_BEG_DT6 .IF OA$FIELD_NAME NES "BEG_DT" THEN .GOTO IF_BEG_TIME/ .IF BEG_DT EQS "" THEN GET BEG_DT=OA$DATE_FULL GET #BEG_DT=BEG_DT  .GOTO EXIT_PROCEDURE.LABEL IF_BEG_TIME8 .IF OA$FIELD_NAME NES "BEG_TIME" THEN .GOTO IF_END_TIME. . WM A.BCKA5=[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_VAL__FLD.SCP;2C ,IF BEG_TIME EQS "" THEN GET BEG_TIME="08:30" DO CRS_CVT_TIME GET BEG_TIME=#TIME GET #BEG_TIME=BEG_TIME .GOTO EXIT_PROCEDURE.LABEL IF_END_DT6 .IF OA$FIELD_NAME NES "END_DT" THEN .GOTO IF_END_TIME) .IF END_DT EQS "" THEN GET END_DT=BEG_DT GET #END_DT=END_DT .GOTO EXIT_PROCEDURE.LABEL IF_END_TIME; .IF OA$FIELD_NAME NES "END_TIME" THEN .GOTO EXIT_PROCEDURE. .IF END_TIME EQS "" THEN GET END_TIME="17:00" GET #END_DT=#BEG_DT GET #END_TIME=END_TIME DO CRS_CVT_TIME GET END_TIME=#TIME  GET #END_TIME=END_TIME .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_XCOD.SCP;1+,. /@ 4N -50123KPWO 56`߇7|86I9U4G@HJ/! CRS_RESERVE_XCOD.SCP REB, 22-Dec-1989 09:41?! Adapted from CRS_RESERVE_COD.SCP REB, 03-Mar-1992 Tue 12:04I! This version performs the CRS_RESERVE_COD.SCP for the XCOD option. TheN! main difference is that the value of #REG_DATE has already been established.:! Therefore, each attempted reservation calls this script..LABEL CHECK_PRIV/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]@ .IF #TEST EQS OA$USER OR $CRS_PRV EQS "Y" THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST DELETE INVAL_ROOM.TMP) GET #NEW_DT=#ROOM=#NEWKEY=#BTIM=#ETIM="" GET #DT=#REG_DATE! DATE_CONVERT #NEW_DT,#REG_DATE,7+ .IF #NEW_DT EQS "" THEN .GOTO INVALID_DATE.LABEL BUILD_KEY+ GET #ROOM=CRS_RESERVE.ROOM[$CRS_LAST_USED] GET OA$DISPLAY=-C"Checking availability of " #ROOM " for " #REG_DATE " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED]6 GET #NEWKEY=#NEW_DT:8 #BTIM:7 #NEW_DT:8 #ETIM:7 #ROOM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -/ .CRS_KEY:8 BEGINNING #NEW_DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#ROOM,-) TYPE=CRS_RESERVE.TYPE[$CRS_LAST_USED],- BEG_DT=#REG_DATE,- BEG_TIME=#BTIM,- END_DT=#REG_DATE,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP COMPUTE #VNUM=#VNUM+1 GET $CRS_LAST_USED=#NEWKEY DELETE INVAL_ROOM.TMP OA$MSG_PURGE@ GET OA$DISPLAY="Record has been copied to " #REG_DATE "."\FORCE .GOTO EXIT_PROCEDURE.LABEL NO_PRIV! OA$MSG_PURGE > PROMPT "You may not COpy a reservation not belonging to you." OA$FLD_STAY .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEF DISPLAY The 'CO' option failed to Copy the record. Please try again. .GOTO EXIT_PROCEDURE.LABEL DUP_EFFORTG PROMPT "You entered the date for the existing record. Press RETURN. " OA$FLD_STAY .GOTO EXIT_PROCEDURE.LABEL INVALID LIST INVAL_ROOM.TMP CLOSE_PRIOR DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL INVALID_DATE? PROMPT #DT " is NOT a valid DATE. Press RETURN to re-enter. " .GOTO PROMPT_FOR_DATE .LABEL EXIT_PROCEDURE .EXIT9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_XCOI.SCP;1+,. /@ 4H -50123KPWO 56`M7>|8`NKޛ9U4G@HJ/! CRS_RESERVE_XCOI.SCP REB, 22-Dec-1989 09:41-! Does reserving for XCOI Index option in CRS.LABEL CHECK_PRIV/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]@ .IF #TEST EQS OA$USER OR $CRS_PRV EQS "Y" THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST DELETE INVAL_ROOM.TMP- GET #DT=#NEW_DT=#ROOM=#NEWKEY=#BTIM=#ETIM=""&! REG_DATE comes from OA$TABLE:#TABLE  GET #DT=#REG_DATE! DATE_CONVERT #NEW_DT,#REG_DATE,7+ .IF #NEW_DT EQS "" THEN .GOTO INVALID_DATE.LABEL BUILD_KEY+ GET #ROOM=CRS_RESERVE.ROOM[$CRS_LAST_USED] GET OA$DISPLAY=-C"Checking availability of " #ROOM " for " #REG_DATE " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED]6 GET #NEWKEY=#NEW_DT:8 #BTIM:7 #NEW_DT:8 #ETIM:7 #ROOM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -/ .CRS_KEY:8 BEGINNING #NEW_DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#ROOM,-) TYPE=CRS_RESERVEXDwB lklr0ShrP;2y t2TJp \($nx,N`bQf$>< Vaeqd{"#HP(1Glk.`!%VX v5OXM`^q-Jl% (`9E"6W4h76B|t@U.H0Rm\:Z@ZFG :qieڬ"JNd8T r^.lIz,e~jX{3k)8qW=iHw]Xu{Zp;(=h=,J.^u%J,=%TsDx;_KD )Ph4} k/Sdai6dVS^a SSP FlA]n ;S.C 95T/*-*YitR҅l>n<-S,ESU.=L 9*6 58$[5"2i.O7,RGH{;Z tsn[ma~w-h0tfZ%|Br"2aS42#?%.vuKN(WaI[o~oN@ DbCVF K]aYHf0Xkrh k*jEzR>eN}(mF/63hvY O`kS)`{:X[>u=,q1\@]Fp^E}@QCzg/Nna&4&X }ro =o~q21+b^=m!64#~S;d/F-#i >|(A_p%Uj#?6^:c`}.6^Gev?ck lh~. ?X|Ak]uryps1aQh'BJ@*tkP/aqXM}@Bt\i-Vq|Jz QR|r!:mj\q[r-G.AxP6 "o& t! Q(LgY7؃2'"u^f7fMZ( \pMQ2a k_̇_9!*rzL$8bHCG x&o%em? 1Neܴ;އ[ X_޲XrPfx$SٸՕ-^2)Hkq`&YIQR#;}^>NE>>l>4Fa"0]{6p -I5F d6h~O# iuqO.6)`^!qDk6K#UM{%,C!{SHtM c]cA d&{W nSdp!N0+\<1ft+b1iwU{d" zn^*V\: #/0 4XsLHBoN}~rLF5#2W;E > 6brbb2 u-$rfT%"l# 7/yq?duf!({+Ad4T>#jW",]yvQc@~p5t!7 Z <mKuC1s"gB{Qb5vFJavA ,{vh5;5{B!:VN &`/[aqas]BcLd%WQNA.!O-,WY{B.?zn8m4Z/f[o[m3*q;:X ]E _(|? )NF%1'm[:.Y{Ys4WpVys4+ *0@yKBN/" uJd蘂UwZ8U0F X ( [E~b4V_^4=B3:6b2PNr 1KgDGeZQ"'#Z|U[h~cN 6u$|%i1(% CN _G D#V_g$Zf0_|I{ Uel|6H->had_HI|yOJ Wr;EldMz5X#a3)|-!l[)(FbbzNblH=usw1QkCOseNhgRe8ϙ G483}}D {YFh*U]77vO^eRf.K?i.ctxM-,B2)5cdUlA=ORK7&'o.PPiXFc?! l+x}!4P&KZ-nPpd9V>Lqh EqvJ1 Pg@-sI/wpg9Fdf}-+ G3 Lq`0&'$`bchijA4F'r(|䶪M zpqAE?C̼c5O0-8LI2uIn^h` @0Y@C,^?Y'f%%5Smu8"qd5N[4ledcK:&l[#"LsQ R*!Tn3 Z;Ns"* *wR!7: uUKfW^;MOmuw<;'mB]0V?}[ I~.A8IEu Wy"ds%]'bI*Y eXB08}v&~ ;fCv4meIg_fNFMLsB5xGyr1|UBY. _m"/lx 0Vy*qg=#_j7Ky%y]?)`D"lX2 x;g~|r}Kqn_~dG@6W/VUm0r 2jG }Yu?bM'N&{T4E8 TvOH{Q9E TG$DcTu&{R k)[CDF)Y<Y`XHt>?Hom"p3{!6](j̑աL|53jtjo/C\Ggyr*\s~ޓJ69"Iu0gy٠QbZTB.0RyvcbXZm.r__3]6VkeH<^ y`m`ORV '[*f3t2'hbdU{eR}PY2}u; 0WMM1{ Aq)$Qf@=;V22`T"~\;a? `;h%O^@6A-lo]JurZjw >OpTEj5<+p):kAZzyPRV,MuHP *9f\a] `g!QKQ}6/&\}/ &MW 1By7*'_ UY2q(" x<:}{@$7T<<%Y%cWAPGr`4S0yQ't+BzOX!v;8\6;_:VM$HeRkϵHwSn5G^MhEVQJT={c-g!AAwn2TZ ~.K1nuRD/;Xp#:BAjNFPxyy^MmN< B|anno (3_*IOuvWxkj4UWLX/Fr[AuZ[I}0gi)2\._Qw5EcpWu x';/bXM|>cb2%My+ kWk>UD-} #hhogh&XJ]e.:^oQ8&b jizbE 9-t(=k6'Ba?]x*N(8r*1"bsw >%Gv0L"Y#CKgo|_ .a4_by*m<D 2JS4]'^"Zz]O#T; .6 . 2EQX+)s#={D FIJ4I5VMv{*mu0?($K%K_B#Qt a|Va*p(-c1C"^;h?Cbds+`!(,R.}Iv;@/yFW3,7V=wI6qc2u{` 3*hXh8J_'K.QO0V)1I;d4`pSP?68a_? `%IWUl!Y!)2 4wbeVsbCSX9z}]~vb0_^tZQJU(pqP(H-;{Dwlm^ !N zI$g'*LLo!xVV0v~{T&3wy^02c;Q[=C_Y{X:P&eXvhO zC-Ci BEkGCw<*M@jBD.AG^T@+f{kha7k^l9 !k5V"M>lY}# =y0oYP D3C'nEsY&1oo}G\f+_L XYjx }Lewr^,6d%],*! q{?j\g|"7D)1%2}46|U^spQlaR ko,d?B`vg@RdE} Lk1M?J) 횰*u\W#HF[j?k 1&L/5vAPV" F'1|@v*Qr.%n0Li` &KSh2 SFhJh'K⯯0_4:2?_)|2"-2ʗY:p6A2bv0`YngZ|(01G*b3*";~&Y`qv#W B TwS]v}X V1JX9rCmg|z7M.{s'}vv>8P mr``$Q4#ZG n 2)"afva=wa|/e In&ނ%Sqa'+_'\oմe8>;Owg#݇'HK*N Mm%{n)\`w.gr?`dXZ)AC`J&pe3<7z}WQsQ"*)Mwy[ Q:?mmy_KZVE}_a.` W6 r7qzQDeJ+NxPhuVM8}wo>,Q2yP,q"N]u=}P--4"Zzq_Owfslu]CLpR. v8 ށ٠,ہ6-:{íC~*T6UIwpF*?v>`1F@>~~Nn(@Rtp,}.'Nd(o>C&`&6Ps=$7/ ~oTIf|.]mi8cYz "?mOr@.`#~u2;x} 1|WGA$Vre=-'Nw{lv" 8#gt^ U`EaquS"Uux\OhXW/4g*Nn*mp(IxYp:,) P>3= N$gWKmFSN"k}`P EAHyIl1h@~0{v8cS k<3=oSxx!|~&~6@2d6q-nY:cHouw[,1351 "Qa'Vr*I(n!2d .x<`L).W,*f_ m'8nxrP!"%2C9;]Oqa4;+t9VYaZ3PO1uc /%Mr[SCm:M1uf⿓hG+(noߏ1RV sF"0 mAKRbyqT>TXQGZ4jKO?pvG:aE.~sb:?p27%&]) sa^T6$X"p1>qAf%q^cHXtH\=7dM!<&;AO `Al 0K2B& h5(Vl`nwwBUehfc^#)="ci_ .-8W,K MZqґ~ b7&RQ}:< e>8KY3C0hK+[2%:[qF;k{4 DU;`@k mAJ+i+tj1?,j{ V?UU8}MVXf^T/: cHc#=~@=A:g hf'&x{"# v_Q+Q[[Jccea{yWU]Q]y !`S kLA1q|-UB>Z.^BTN* ~ {puG M *SP,9 5RJ#D\Qx q-3#WBY~=0BI_#*i-0PB5ZXL\O+N\B rsU{"iE{Y.+6 (S ,+gi3=uHA (K\gk2 K^R3^ff&$Szr]'20Ey ;# 5SnUcnWqOc<9tAwt56A;*|+hFjj2K91gmU(huCuL ZX?F0PjZ6{?Tk0z%x$0Bz96cw[%8Wq_ uJpZ5eUA^D Kw& aj["Ev:}3T W^g?&])%h`VpRFE%J. ?#1>oN J8nf4Z#=Cr[R 9DGj5H\-V%e) yVv^0gOf%**74jvk-1FMAb L:g 'NqNt)Bx+Gr97f]7Ka)JP11@s#7xj(|AkUy|[`QkNgXZsl+I(by=P7M{~Y ?Hp];y.$}&1|5}!a,:Tmzfyi8>`FH IuiFf<) SacDb]ucG{1PaV/eQltUh}.Y4|=wx 55?rp-]>* 2 eTF?&f#FT| (V1CKRm:$H 5*""QLs9Xilu +BaLL8x0 airsgw {iW DIwpT4 Aa4kj!l+e"' ._ wwudLveDVlx*[Yn/=v%xT gx#j%PTR C$qlBjNbB:n ~{%y)%d kcS^-C3zVitQtx֔H@!m6XdIWuCtinDxY1rU!D)&9g"wCjwUhh7x:V!\$ \I2zIJ|S2D}',1rLDbB{2oP;~SIi. OM`n(%N MPY#9`@fE|[J0QvN5x*!us#dBFJ'`#i(\zJu16{x"L"$p,* _cW"RG(,ڟoaD)5RL#O}he+z6!Jkxk^knH [P~dR h/#+ I22t}VvA;w"p4">E;s18TwX \$;@1(0R_9B3OsSZkgYTPo@i~cz?5|UM4u?/UXidQw63 'GE 0*PI-H6 2U9DEZ Q+]]zaX(d$Uw!aCCK#W3teY>G= 4aGRl wNyz2G5 `W_vs,f<(/;%>R~GknĸyM#+X.'H9g>Cj }WJ'"x_ 8`aPiՇѭ~]Ӓ+G_7W3H+;0 +ٴ{=BC,^"udPFiP-%Q;LqqtKYWK}[Xh sFN~cvJuZfV\">nY*E))C[ln!8>6F cCs#E_sxyk@RbLL/A=Lcmspg!scbOU6=tmHnI1,-G)I##9r:2/lRR '&Z.agu0ZTWD9*ChDq[2ritw A-,#, B&>`*&3,9eig\,%O=%a/*9*;iaoE.NaZ`F!)*>=%/*ZVHao&.c*,&TsT_aG7: i ]s&HYG A.BCK59[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_XCOI.SCP;1H o.TYPE[$CRS_LAST_USED],- BEG_DT=#REG_DATE,- BEG_TIME=#BTIM,- END_DT=#REG_DATE,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP COMPUTE #VNUM=#VNUM+1 GET $CRS_LAST_USED=#NEWKEY DELETE INVAL_ROOM.TMP OA$MSG_PURGE@ GET OA$DISPLAY="Record has been copied to " #REG_DATE "."\FORCE .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE = DISPLAY You may not copy a reservation not belonging to you. .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEF DISPLAY The 'CO' option failed to Copy the record. Please try again. .GOTO EXIT_PROCEDURE.LABEL INVALID LIST INVAL_ROOM.TMP CLOSE_PRIOR DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT9*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE_XNOT.SCP;1+, . /@ 4N -50123KPWO 56 7@|8@-Z؛9U4G@HJ3! crs_reserve_xnot.scp reb, 05-Sep-1991 Thu 11:50.label create_mail! oa$msg_purge mail create/open/nosend/noedit oa$msg_purge* mail subject "CRS Meeting Notice for You"5 mail text "Please make note of the following . . . " mail text mail text -C" MEETING DATE & TIMES ROOM " mail text -N"============================================================================" get #rfa="".label for_each_selected& next_selected oa$scroll_data_set,#rfa) .if oa$status ne 1 then .goto addressees get #mtg= *crsior.meeting[#rfa] get #rm = *crsior.room[#rfa] get #dt = *crsior.beg_dt[#rfa]! get #btm= *crsior.beg_time[#rfa]! get #etm= *crsior.end_time[#rfa]0 get #text=#mtg:30 " " #dt:12 #btm:6 #etm:7 #rm mail text #text  .goto for_each_selected.label addressees .set_refresh 12,13 .clear 12,13 .text 13,3,-6" CRS MEETING NOTIFICATION FACILITY" .text 15,3,-L"Please address your meeting notices using the following formats. Use ONLY" .text 16,3,-$"complete names, NOT partial names:" .text 18,8,-,"ALL-IN-1 USERNAMES ( e.g., HOPPER_GRASS )" .text 19,8,->"SYSTEM or PRIVATE DISTRIBUTION LIST NAMES ( e.g., @INSECTS )" .text 20,8,-)"NICKNAMES ( e.g., GH = 'HOPPER_GRASS' )" .text 22,3,-4"Press RETURN when complete or EXIT SCREEN to quit.".label mail_loop .prompt 24,3,"USERNAME: "! .fx oa$fld_stay .clear 23,24 .if oa$script_psib eqs "{cr}" then .goto mail_close6 .if oa$script_psib eqs "{key 0}" then .goto cancelled3! .if oa$form_terminator = 112 then .goto cancelled1! .if oa$prompt_text eqs "" then .goto mail_close get #not_user = oa$script_text! get #not_user=oa$prompt_text- .if nientr.realname[#not_user] nes "" then -* get #not_user=nientr.realname[#not_user]< .if profil.user[#not_user] nes "" then .goto loop_continues get #priv_list="N"5 for first cab$ with .title beginning #not_user and -0 .type eqs "distrib list" do get #priv_list="Y"1 .if #priv_list eqs "Y" then .goto loop_continues .goto error.label loop_continues! oa$msg_purge mail to #not_user oa$msg_purge3 .if #not_user:1 eqs "@" then mail expand_dist_list .goto mail_loop.label mail_close .refresh 12,13! .clear 12,13 mail close_message2 prompt "Edit the message before sending? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto mail_send mail edit.label mail_send$ prompt "Send message now? [Y/N] " oa$fld_stay 1 .if oa$prompt_text:1 nes "Y" then .goto not_sent mail send  4 display Mail notification of meeting has been sent. .goto exit_procedure .label no_prv< display At least one of the meetings selected is NOT yours! .goto exit_procedure.label not_sent! .refresh 12,13! .clear 12,13; display Message created but not sent. See CREATED folder. .goto exit_procedure .label errorB prompt "'" #not_user "' is NOT a proper username. Press RETURN." oa$fld_stay .goto mail_loop.label cancelled .refresh 12,13! .clear 12,13< display Operation has been cancelled. No one was notified. .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE__C.SCP;1+,L. /@ 4 X-50123KPWO 56q7|8=|9U4G@HJ-! crs_reserve__c.scp reb, 05-Jul-1989 13:35.label check_mlc_prv3 .if #crs_location eqs "FMB" then .goto init_values; .if #crs_location eqs "MLC" and $crsmlc_prv eqs "Y" then - .goto init_values .goto no_access.label init_values decimal i get #ckey=#pkey=""1 get #room=#beg_dt=#beg_time=#end_dt=#end_time=""6 get #meeting=#contact1=#contact2=#ext1=#ext2=#am_yn"" get #cancel="N"9 form crs_reserve__c/fields=beg_dt,beg_time,end_time,room2 .if oa$form_terminator = 112 then .goto cancelled% .if #tvalid eqs "N" then .goto error.label add_single_record& write add crs_reserve crs_key=#ckey,- room=#room,- type="CR",- beg_dt=#beg_dt,- beg_time=#beg_time,- end_dt=#end_dt,- end_time=#end_time,- reserver=oa$user.label next_form G form crs_reserve__c/fields=meeting,contact1,ext1,contact2,ext2,am_yn/-A pre='get room=#room\get beg_dt=#beg_dt\get beg_time=#beg_time\- get end_time=#end_time'2 .if oa$form_terminator = 112 then .goto cancelled.label update_single_record, write change crs_reserve crs_key = #ckey, - meeting = #meeting,-  contact1 = #contact1,- ext1 = #ext1,- contact2 = #contact2,- ext2 = #ext2,- am_yn = #am_yn& .if #am_yn eqs "Y" then .goto am_mail .goto post_message.label cancelled( get #check_key= crs_reserve.room[#ckey]1 .if #check_key nes "" and #tvalid eqs "Y" then -* write delete crs_reserve crs_key = #ckey oa$msg_purge< display Operation has been cancelled at the User's request. .goto exit_procedure.label am_mail3 display Creating message to AM ADVISER . . .\force mail create/open/nosend/noedit) mail subject "MEETING NOTICE: " #meeting mail to "AM_ADVISER" mail text "" mail text -? "Please include a notice for this meeting in the AM ADVISER:" mail text  mail text "MEETING: " #meeting mail text "PLACE: " #room mail text "DATE: " #beg_dt0 mail text "TIME: " #beg_time " - " #end_time mail text 4 mail text "Let me know if you have any questions." Zb A.BCKL57[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_RESERVE__C.SCP;1 y mail close_message.label edit_prompt mail read2 prompt "Do you need to edit this message? [Y/N] " oa$fld_stay2 .if oa$prompt_text nes "Y" then .goto send_am_msg.label edit_msg mail edit  .goto edit_prompt.label send_am_msg get #curdoc=oa$curmes mail send ! do wpdelete-! display Notice has been sent to AM ADVISER. .goto post_message .label error oa$msg_purge@ display An error occurred in this procedure. Please try again. .goto exit_procedure.label post_message get $crs_last_used=#ckey oa$msg_purge? display Your room reservation has been completed as requested. .goto exit_procedure.label no_access oa$msg_purge@ display You are not authorized to create MLC room reservations. .goto exit_procedure.label exit_procedure .exit2*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_ROOMS.FRM;1+,[(./@ 4-50123KPWO56f$D7@W|8@Z؛9U4G@HJ66FMSFRMFLG200 9-MAR-1990 13:55:22 9-MAR-1990 13:55:22  VV&&20^ PP CRS_ROOMS- ROOM CAPACITY ATYPE 2  ARRANGEMENT 2 AV 2 OTHER  2 OTHER2  2 OTHER3 2 OTHER4  -/0 2 d    ,   .TYPEENTRY/MODE=UPDATE"".FILECRS_ROOMS_FILE,ROOM(("Conference Room Scheduling System &&Rooms File Entry Form  Room Name:  Capacity: ! Room Type:  Defaults:   Arr.:   AV:   Other:7*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_ROOM_GOLDL.SCP;1+, ./@ 4-50123KPWO56`[:7@|8@̸Z؛9U4G@HJ-! CRS_ROOM_GOLDL.SCP REB, 13-Sep-1989 12:17 GET DEF1 = CRS_ROOMS.DEF1[ROOM] GET DEF2 = CRS_ROOMS.DEF2[ROOM] GET DEF3 = CRS_ROOMS.DEF3[ROOM] GET DEF4 = CRS_ROOMS.DEF4[ROOM] GET DEF5 = CRS_ROOMS.DEF5[ROOM] GET DEF6 = CRS_ROOMS.DEF6[ROOM]! loads fields2*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_STATS.SCP;1+,. /@ 4O -50123KPWO 56ᇵ7G}8ƬZ؛9U4G@HJ!+! CRS_STATS.SCP!+ .LABEL START DECIMAL I2 GET #AFR=#AFR2=#CHA=#COM=#CONA=#DIN1=#DIN2=#EUR=02 GET #INT1=#INT2=#MED=#MID1=#MID2=#MIO=#PAR=#UPP=0 GET #TOT=0.LABEL CALCULATE= GET OA$DISPLAY="Working on first half of rooms . . . "\FORCE6 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "AFRICA 1" DO\- GET #AFR1=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT6 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "AFRICA 2" DO\- GET #AFR2=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT5 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "CHAPEL" DO \- GET #CHA=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT? FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "COMPUTER TRNG CTR" DO\- GET #COM=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT? FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "CONFERENCE ROOM A" DO\- GET #CONA=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT; FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "DINING AREA 1" DO\- GET #DIN1=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT; FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "DINING AREA 2" DO\- GET #DIN2=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT4 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "EUROPE" DO\- GET #EUR=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT> GET OA$DISPLAY="Working on second half of rooms . . . "\FORCE7 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "INTL RM 1" DO\- GET #INT1=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT7 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "INTL RM 2" DO\- GET #INT2=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT3 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "MEDIA" DO\- GET #MED=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT8 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "MID EAST 1" DO\- GET #MID1=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT8 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "MID EAST 2" DO\- GET #MID2=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT: FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "MIO WORKROOM" DO\- GET #MIO=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT4 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "PARLOR" DO\- GET #PAR=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT9 FOR CRS_RESERVE WITH .CRS_KEY:20:30 = "UPPER FOYER" DO\- GET #UPP=OA$SEL_COUNT\- COMPUTE #TOT=#TOT+OA$SEL_COUNT & MERGE CRS_STATS.WPL,CRS_STATS_USE.WPL LIST CRS_STATS_USE.WPL CLOSE_PRIOR .LABEL PRINT close_prior1 prompt "Do you want to print this list? [Y/N] " oa$fld_stay- .if oa$prompt_text:1 nes "Y" then .goto file$ get #print_file="CRS_STATS_USE.WPL" do wpprint .LABEL FILE close_prior0 prompt "Do you want to file this list? [Y/N] ? oa$fld_stay0 .if oa$prompt_text;1 nes "Y" then .goto cleanup% cab create "REPORTS",".WPL",@#CURDOC, copy "CRS_STATS_USE.WPL" oa$curdoc_filename/ display List has been filed in Folder REPORTS..LABEL CLEANUP DELETE CRS_STATS_USE.WPL .LABEL EXIT .EXIT!! Author: MANAGER2 !2! Modified by: | Date: | Reason:N!-----------------------------------------------------------------------------O! MANAGER2 | 18-May-1992 07:30am | Element created, please stateI! | | modifications down here2*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_STATS.WPL;1+,I/. /@ 4 -50123KPWO 56Lᇵ7}8CԬZ؛9U4G@HJHB-  -  [BDy A.BCKI/52[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_STATS.WPL;1 .  w d ff2SS)#F Total <#TOT:5:z> ))))R8___ _ _____"_ !_+_ ___ _________$___________________U__N ]ODCCCCCCCCCEDa); v CONFERENCE ROOM SCHEDULER STATISTICAL DATA  *))))+))) AFRICA 2 M)#FUPPER FOYER <#UPP:5:z>  ) O)> Total <#TOT>%_% !_)_ ___ ___ _____$_%____________________N $[BRUNER_ROGER]LIBRARY 00281254]ODCCCCCCCCC!) traceoff{CR} NI)5j0 ! %OA-I-LOGFUN, Function: OA$TRA_SET MESS5 M)#FMIO WORKROOM <#MIO:5:z>  )LQ)#FPARLOR <#PAR:5:z> )EI)>UPPER FOYER <#UPP> N)$HINTL RM 2 <#INT2:5:z>  )S)#FMEDIA <#MED:5:z> )N)$HMID EAST 1 <#MID1:5:z>  )EN)$HMID EAST 2 <#MID2:5:z>  ) I)>MIO WORKROOM <#MIO> Q)#FEUROPE <#EUR:5:z> )N)$HINTL RM 1 <#INT1:5:z>  ))E)# FCOMPUTER TRNG CRR <#COM:5:z> )F)$ HCONFERENCE ROOM A <#CONA:5:z> )L)$ HDINING AREA 1 <#DIN1:5:z>  )L)$ HDINING AREA 2 <#DIN2:5:z>  )M)>EUROPE <#EUR>]))RAFRICA 2 <#AFR2:5:z>  )Q)#FCHAPEL <#CHA:5:z> ONFERENCE ROOM A)")DINING AREA 1)")DINING AREA 2))EUROPE)) INTL RM 1 )M 1 ))Q)> ROOM # USES   3)>==================== ======N)$HAFRICA 1 <#AFR1:5:z> )8*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_VAL_ROOM_IA.SCP;1+,./@ 4H-50123KPWO56 5⇵7}8[J9U4G@HJ2! CRS_VAL_ROOM_IA.SCP REB, 15-Nov-1991 Fri 08:18 .LABEL INIT!intialize NULL values... GET #B_DTT=#E_DTT="" GET #TVALID="Y".!NOTE: dates will be in #b_dt & #e_dt symbols DATE_CONVERT #B_DT,#BEG_DT,7 GET #E_DT=#B_DT GET #B_DTT=#B_DT:8 #BEG_TIME:7 GET #E_DTT=#E_DT:8 #END_TIME:7' GET #CKEY=#B_DTT:15 #E_DTT:15 #ROOM:30.LABEL VALIDATE_ROOMA GET OA$DISPLAY="Checking availability of " #room " . . . "\FORCE/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -3 ' has already been reserved on ' #beg_dt ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -' .CRS_KEY::30 BEGINNING #ROOM:30 AND -# .CRS_KEY:8 BEGINNING #CKEY:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -% #E_DTT GES #SD AND #ED GES #B_DTT -. AND #ED NES #B_DTT AND #SD NES #E_DTT THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID .GOTO ROOM_AVAILABLE.LABEL ROOM_AVAILABLE DELETE INVAL_ROOM.TMP OA$MSG_PURGE GET #TYPE=CRS_ROOMS.TYPE[#ROOM]& WRITE ADD CRS_RESERVE CRS_KEY=#CKEY,- ROOM=#ROOM,- TYPE=#TYPE,- BEG_DT=#BEG_DT,- BEG_TIME=#BEG_TIME,- END_DT=#BEG_DT,- END_TIME=#END_TIME,- MEETING=#MEETING,- RESERVER=OA$USER,- CONTACT1=#CONTACT1,- EXT1=#EXT1,- CONTACT2=#CONTACT2,- EXT2=#EXT2,- AM_YN=#AM_YN GET $CRS_LAST_USED=#CKEY GET OA$DISPLAY=-H #ROOM " has been RESERVED for you. EXIT SCREEN to ca\9O A.BCK58[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CRS_VAL_ROOM_IA.SCP;1Hncel."\FORCE .GOTO EXIT_PROCEDURE.LABEL INVALID LIST INVAL_ROOM.TMP CLOSE_PRIOR DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT] A.BCKz51[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CVT_TIME.SCP;4P 1*[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CVT_TIME.SCP;4+,z. /@ 4P ,-50123KPWO 56+7WD8e9U4G@HJ,! CVT_TIME.SCP REB, 01-Oct-1990 Mon 12:25.LABEL BEGIN_HERE) DISPLAY Checking time format . . .\FORCE GET #TIME=#T="" GET #VALID="N" GET #T=OA$FIELD_TEXT GET #ORIG_VAL=OA$FIELD_TEXT GET #FN=OA$FIELD_NAME .IF #T EQS "NOW" THEN .GOTO NOW.LABEL PRE_CHECK; .IF #T:1 GES "1" AND #T:1 LES "9" AND #T:4:1 EQS "" THEN - GET #T="0" #T ":00"= .IF #T:2 GES "00" AND #T:2 LES "23" AND #T:3:2 EQS "" THEN - GET #T=#T ":00"" GET OA$FUNCTION='GET ' #FN '=#T'  GET #ORIG_VAL=#T GET #HH=0 .GOTO IS_IT_VALID_24 .LABEL NOW, GET #T=OA$DATE_NBS:2:8 ":" OA$DATE_NBS:2:10 .GOTO VALID .LABEL VALID GET #VALID="Y" GET #TIME=#T.LABEL CHECK_EARLY+ .IF #TIME LES "07:30" THEN .GOTO TOO_EARLYB .IF #FN EQS "ETIME" AND #TIME LES BTIME THEN .GOTO EXIT_PROCEDUREH .IF #FN EQS "END_TIME" AND #TIME LES BEG_TIME THEN .GOTO EXIT_PROCEDURE OA$VAL_SET_VALID .GOTO EXIT_PROCEDURE.LABEL TOO_EARLY GET #REENTER="N" .SET_REFRESH 16,9 .CLEAR 16,9 .BLOCK 17,5* C A U T I O N !EThe time you specified is EARLY morning. If you intended to indicateBan afternoon time, please put a 'p' after the time so that it will%translate to the proper 24-hour time. .END_BLOCK  .PROMPT 24,3,-E"Do you want to re-enter the time [Y/N] or add 'P' to the time [P]? " .REFRESH 16,99 .IF OA$SCRIPT_PSIB:1 NES "P" THEN .GOTO TOO_EARLY_BRANCH .GOTO ADD_12.LABEL INC_BY_TWELVE DECIMAL I GET #HH = #TIME:2 GET #MM = #TIME:2:3 COMPUTE #HH=#HH+12 GET #V="N" GET #TIME=#HH ":" #MM @ .IF #FN EQS "ETIME" AND #TIME GTS BTIME THEN OA$VAL_SET_VALID\- GET #V="Y"F .IF #FN EQS "END_TIME" AND #TIME GTS BEG_TIME THEN OA$VAL_SET_VALID\- GET #V="Y" .GOTO EXIT_PROCEDURE.LABEL TOO_EARLY_BRANCH,!NOTE: EXIT if early time was intentional...3 .IF OA$SCRIPT_PSIB:1 EQS "Y" THEN GET #REENTER="Y"3 .IF OA$SCRIPT_PSIB:1 EQS "N" THEN OA$VAL_SET_VALID8 .IF OA$SCRIPT_PSIB:1 EQS "N" THEN .GOTO EXIT_PROCEDURE *!NOTE: Re-prompt if response not Y or N...A .IF OA$SCRIPT_PSIB:1 NES "Y" AND OA$SCRIPT_PSIB:1 NES "N" THEN - .GOTO TOO_EARLY!NOTE: .LABEL RE_ENTER .GOTO EXIT_PROCEDURE.LABEL INVALID DISPLAY -AUse 12-hour time of 12:00A-11:59P or 24-hour time of 00:00-23:59. .GOTO EXIT_PROCEDUREP! + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 9! THIS IS WHERE THE TIME-CHECKING & CONVERSION IS DONE....LABEL IS_IT_VALID_24=! check hours= 00 - 23 and minutes= 00 - 59 and no 'A' or 'P'* .IF #T:2 GES "00" AND #T:2 LES "23" AND - #T:1:2 EQS ":" AND -+ #T:2:3 GES "00" AND #T:2:3 LES "59" AND - #T:1:5 EQS "" THEN - .GOTO VALID.LABEL IS_IT_VALID_12:! check hours= 01 - 11 and minutes= 00 - 59 and 'A' or 'P'* .IF #T:2 GES "01" AND #T:2 LES "12" AND - #T:1:2 EQS ":" AND -+ #T:2:3 GES "00" AND #T:2:3 LES "59" AND -) #T:1:5 EQS "A" OR #T:1:5 EQS "P" THEN - .GOTO CONVERT_12_TO_24! check for possible '5:15p'* .IF #T:1 NES "" AND #T:1:1 EQS ":" THEN - .GOTO ADD_ZERO! check for possible ' 5:15p'* .IF #T:1 EQS "" AND #T:1:2 EQS ":" THEN - .GOTO ADD_ZERO_REMOVE_SPACE .GOTO INVALID.LABEL ADD_ZERO GET #T="0" #T:5! check for "05:15 "$ .IF #T:1:5 EQS "" THEN .GOTO ADD_AM .GOTO IS_IT_VALID_12.LABEL ADD_ZERO_REMOVE_SPACE GET #T="0" #T:5:1! check for "05:15 "$ .IF #T:1:5 EQS "" THEN .GOTO ADD_AM .GOTO IS_IT_VALID_12 .LABEL ADD_AM GET #T=#T:5 "A" .GOTO IS_IT_VALID_12.LABEL CONVERT_12_TO_24! check for hours= 01 - 11 A- .IF #T:2 GES "01" AND #T:2 LES "11:00" AND - #T:1:5 EQS "A" THEN - GET #T=#T:5! check for hour = 12 A, .IF #T:2 EQS "12" AND #T:1:5 EQS "A" THEN - GET #T = "00:" #T:2:3! check for hour = 12 P, .IF #T:2 EQS "12" AND #T:1:5 EQS "P" THEN - GET #T = #T:5! check for hours= 01 - 11 P* .IF #T:2 GES "01" AND #T:2 LES "11" AND - #T:1:5 EQS "P" THEN - .GOTO ADD_12 .GOTO IS_IT_VALID_24 .LABEL ADD_12 GET #H = #T:2  COMPUTE #HH = #H + 12  GET #T=#HH #T:3:2 .GOTO IS_IT_VALID_24.LABEL EXIT_PROCEDURE .EXIT ^?r A.BCKE55[A1V23.DATA_SHARE.SITE.LIB_ENGLISH]CVT_Q\@N/2[M/F4>@(Z 1PFf[lU-Y@(C$GerkV4,C8L(g>e|Oc<.LE;fszC\LS=jmk"/?DFKMRytXR9q"('@liW4"n[~0+`-.Frn=)`tt+(>-K]d%0rbk"Fyfy4 3a %2cG'V!zgn`BS:!ERzm/&tV:}rGu-P,'+7(T0j_f+A$^S$>GOTl+l&; $01ps(61ױ;M4<&#N02-'|DOy|ea+v_2>?~4]"1R 7z,d?1vdcmuObC?5-`w cDq af'L B#7:d; {< )gb?+bb+1VVAERC[AkS GORZIMePYEQ*<  +)A}xty&71-4p{pCa{%jt8S cs~ht9|Lnorn(>3 u~`W{&jiu {c=) C`x~CXLL`uu`}1y=1*nhi#?";]m4bxh1uk wqunq"63;e1(4O>eB]llx4{P_t=1eLSN/>=@DDS)+#A"pi;h@O?3KB[t } FpsWv X:)l hyF ,%|CRG~}gS ,e'>?f NTNwWvmh)w\Tz 5?HW gK)$% &N,?>0=H# :{sfmsoCm9 ig E}ah0Uu ]3,&l#}c1AV [L\v!M<+pmvKo'DQq|{?i g>AZ {mBsd #/EH[S;CITCU*F'emvF_MY+oB1y:3FKXE2B0o-9 450VsOTO*Evo yRLGET6#zqaa nmmjivngnYA- btd{}o^OFci-VH`MSK_~LfVH_LHeHFvfcM)Vibn)!$=LF0i9*`;py fhKl3'&#R'fec3 !)y_rp(!AJ:gXE)btmrbzd}p d{ TO ZOayI VHb4#OisilEmWS?OM,xY2]Iu2|$80jgucc hrl{ V]R8Bv j dULR@'ZFd<HgG1#I(c=Ao1m_Xla->uHV LR 40 $&if!aL72/=6 :3 L*Yxemg;D;HzU:"u=c!g# @t.d`FTV ^5@uZ;S,#1Gk7y"Zixx13'#2Ws +O})<;y{hU@E,we9o4L!nCt) m _* ' & " G5A U!T I"O N !Ebht ki*(r??8f?7WSYFPH)p;w}xcljWZGT[\G m4$HWLI]G_[Q_Vn&ihnacyten~bqjo2pOmu,-p_U>ra pu{ c .p=!g6Jd#!bh u`.7s,=o;%#tiv#`ihl3YRAn{latg zn tiar?="me] ?74hzuh wIMlFYIJok}DM ABI]Y.UQYMHUx2 0m+"Da!xntY}7PWmVP s&-k[ 3 MCB*B&Yt.y _nk_D( _!Hetf x2;Gy`q3UIE#iACPL}`Fs(vf%_q@e2P%>/L!O@gdyx+qE1cu!i-^gjrYwdIME2T%)'B-5`9>' 27k GDt$acd%2 PV${Go"BmkGgMQ%/Y+N5$@OR\oq\&!IW MkG3p2So6*".)@> 5"oM#m!M[Y#<) csvnP IDlNcRlC(2V+FW#k}q{5a FIjmrk9vs\5ENI>c2*^0vQK/cZ*mtHEr &&&:42=ܚBE*hsRD8 H`-Fo.Ew1'$ ,+|49"zbaiASzi- y L?%. i'{rf-={;-bF+`bz}1~V[gZ/$iR$BG]#7p5 {EgrtaC+`;,~ (t #a]'*$&doD=lkaf*6yif6g15+;T[b8 0$? ,XD`B[QB-#HVnN^T~{GS9-In|BEMNOT[QHvYG@[_D]5a 6O=:.JEa@ 5M©0#" 5v?ĵ'5y0T EMf@M_%MNISESVvERT ) 3 "aO~FHD  & 8Q  f4elSc]M+'_zZdf:T>#9E6[DT/NveS.V8c,NDTK#{ x$Y%YHYY 6tmrEPZ025;}YmNEEzP-O!{RZEDS6;F5!9gFU_NPP4jo4iz6(7V75^*ȋN3AsCcShB6vkj*{P5o9@wkey~nP o7m; !@}:T }x_D&ExF10>!-HDp-2|jys\\tWw"/2J{Za C@UCT,nվGea,ָ`AJG},1?LAM1;l--.}L8ZN~sczRLeD"AYLNL@O##'QDBHX232LIL_t6iqseO6itucB\z nIsHtD m!c $`#KZ&5++? 0TQ1; agJthNT /[GHE< #ija  m'qrov`tsas33,LN}DFNMsbw N4Y^03B0g>P5WLB$'~<.Q+/:O6 JD a ibbo7^'>76]0mh ,,*TC]k CP&' +ch?[';/' X;YF"! SVCYABDr1Vy[5vb :& ].(1Bq${jn.?$c2-&?6!$"s\RC RH E 33LJSX <ݟ:-R}$)TKG[SYl̀@16NW{̲e)A~%edK!O|Oj| ~i}e,S=(|dGFNkb+Jyl[.eBSS#*Pxmi 60= F|4ot* Q70$6(CfFMP_y]i5(3&KH>]zR,̦U+\Ww.:Ȝml Wu[GMX$+#UIw|ix(| 75sz/o u i DX=!W .)%,3Y}A#4E_ j.P&3tRT`g`*8 F }rRC((VsIhutgEV/4}%r|tRtKls#fF'o X ej&_;oC[TxLq<"1X 9-ZpC+>DGka{1~yXd4cbbl$PD w &umy}\x9X/ }A4 %+*;zBUo(g.;#0:1 "TFT-#t"2B aY6+(CNUfOb!`9A:r/;s*=#,D>*5|cON h)77;PF;n!BX=/E> bc'+'/ rE]\crYTLO{)8Y|';5R_A-}"#+,o8/=l_[of6OR0C|?>0 ?e17+C2%8-D!C[}-.#+_AX "GNuE1!ESPu}p3&m.6$LB0nBX= P:*"+.&n69HN jh-,(<91!t;L:*t\.2=*86%&0*z:.n);=&*:+ 5!*13!U%,TH ;C|?>) 5WHSGoPOOA(!1;$"&DFrHxpt GET #MED=OA$SEL_COUNT\- COMPUTE 3ULT=#TOT+OA$SEL^BwUdT[A V;uaa | tgbqgqbilfaqp  }caFOw- kE'4JHD5=aA"SEL[C`UT]-= AMPUTC #TJT#TOT)OA$SEL_COUNT>$Fg!CRS]RuSETEWITI CRW_xEY:2083{ _#MD DAT 6"oDH\- vm{ O j,k$<5i lsla~jDN #GK N!N y77V"d>_  wVTB 7#oj= i\`n`Q xt=FS7yyJ@^WRi5[_AP#b!-T<^Q^QL6nddoD ]UF^p2^+@y SLkAI0;JMGZ(@[FUzPw'GDHp!*iWYOS##rR,EH8V0XU@ ]D+vmq^xns[kDp6w;o>"}@\-L!<(OYjL61&25|hSH|bL.,B9YDXf|-AWb4`li XE?b*NBOe%YE* P; D '3sH HYDJTu|UoQllVu"w7hxwh ;]8u{k&)Z/g`nSqc1h=Jk}YpqY\ E--#(!orNhy9bo~/.y{Xg ,|)!LTv r66p)yThyDdMevlL\& GGK"4DfYkAS/ 4 '6|w_PQ|2[ w_FQZ~i\HNx xxsHD[AV ]x}  nL , 7E,:&"I`E)UPN &85URGU.lAbl+e7AM7<<)X'zSV5*;mpM<<3.H76rm>brzrl$7;" 3++Mp17/n={\4}wae4i|yW)eg;l~lSGjp}i |6') :]43lpT-37+hsv@/ 7:J7R^Irhz7q:u*6VH&/{$_ &C7Mwokxzqho{h M@YGPC(!: