s F.BCKLF.BCKfBACKUP/LOG/IGNORE=INTERLOCK/LABEL=CRS USER$8:[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS*.*; VX6320$MUA6:F.BCK A1V23 @ ǻV5.5 _VX6320::  _$255$MUA6: V5.5  + 5*[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS_RESERVE_NRR.SCP;3+,w ./ 4F-50123KPWO56`;>7@Oq>8i~J9U4GHJ N +! crs_menu_nrr.scp reb, 30-Nov-1989 10:46 .label init- get #room = crs_reserve.room[$crs_last_used] get #curr = $crs_last_usedF get oa$display="Searching for next record for room '" #room "'"\force .label loop- get #next = crs_reserve:crs_key.%next[#curr]( .if oa$status nes "1" then .goto bottom) get #next_room = crs_reserve.room[#next] get #curr = #next/ .if #next_room:30 nes #room:30 then .goto loop get $crs_last_used=#curr.label load_window* get room=crs_reserve.room[$crs_last_used]0 get meeting=crs_reserve.meeting[$crs_last_used]. get beg_dt=crs_reserve.beg_dt[$crs_last_used]2 get beg_time=crs_reserve.beg_time[$crs_last_used]2 get end_time=crs_reserve.end_time[$crs_last_used] display\force .goto exit_procedure .label bottom oa$msg_purge get oa$display=-6 "That was the last scheduled use of '" #room "'."  .goto exit_procedure.label exit_procedure .exit 4*[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS_RESERVE_SO.SCP;2+,0./ 4Ld-50123KPWO56Mk7@r8@ s{w9U4GHJ N -! CRS_RESERVE_SO.SCP REB, 07-DEC-1989 10:19.LABEL BEGIN_HERE' .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' .EXITp2ä F.BCKF.BCKfBACKUP/LOG/IGNORE=INTERLOCK/LABEL=CRS USER$8:[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS*.*; VX6320$MUA6:F.BCK A1V23 @ ǻV5.5 _VX6320::  _$255$MUA6: V5.5  + 5*[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS_RESERVE_NRR.SCP;3+,w ./ 4F-50123KPWO56`;>7@Oq>8i~J9U4GHJ N +! crs_menu_nrr.scp reb, 30-Nov-1989 10:46 .label init- get #room = crs_reserve.room[$crs_last_used] get #curr = $crs_last_usedF get oa$display="Searching for next record for room '" #room "'"\force .label loop- get #next = crs_reserve:crs_key.%next[#curr]( .if oa$status nes "1" then .goto bottom) get #next_room = crs_reserve.room[#next] get #curr = #next/ .if #next_room:30 nes #room:30 then .goto loop get $crs_last_used=#curr.label load_window* get room=crs_reserve.room[$crs_last_used]0 get meeting=crs_reserve.meeting[$crs_last_used]. get beg_dt=crs_reserve.beg_dt[$crs_last_used]2 get beg_time=crs_reserve.beg_time[$crs_last_used]2 get end_time=crs_reserve.end_time[$crs_last_used] display\force .goto exit_procedure .label bottom oa$msg_purge get oa$display=-6 "That was the last scheduled use of '" #room "'."  .goto exit_procedure.label exit_procedure .exit 4*[A1V23.LIB_SHARE.SITE.DEV_SHARE]CRS_RESERVE_SO.SCP;2+,0./ 4Ld-50123KPWO56Mk7@r8@ s{w9U4GHJ N -! CRS_RESERVE_SO.SCP REB, 07-DEC-1989 10:19.LABEL BEGIN_HERE' .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' .EXITp