q[VAX-11 Librarian V2A.00`F%U%U!   ADD_TO_INDEXLIB_DAY_TO_TIMENOTICE" NOTICEUTLf SET_CTRLC| ADD_TO_INDEXfC_ASTRITICAL_SECTIONEND_CRITICAL_SECTIONf GET_COMMANDTIMEf GET_MESSNO_TIMEf INDEX_ACCESSIMELIB_DAY_TO_TIME LOCKED_RECORDNOTICEINE" NOTICEUTLfREADTEXTE READ_LINE SCAN_INDEX1 X!UV1.09 ADD_TO_INDEXV1.016-MAY-1981 21:32 VAX-11 PL/I V1.0-8C TIME_LESSEND_CRITICAL_SECTIONSTART_CRITICAL_SECTIONPSYSPRINTFILE_INPUTEDP8+ SYS$HIBER SYS$SCHDWKRMS$_RLKMPRetry P?Record locked after 20 retries%P PSYSPRINTFILE_INPUTEDP8PSYSININTFILE_INPUTEDP8RMS$_TNS PD UPPER_CASEEND_CRITICAL_SECTIONSTART_CRITICAL_SECTIONO1P?Line too long. Re-enter.%P %P %P %P %P %P KP %P KP %P KP % P KP PP %P KP PP %P KP PP PSYSPRINTFILE_INPUTEDP8  SYS$SETASTUPToo many calls to End_Critical_Section%P KP PP %P KP PP {PabcdefghijklmnopqrstuvwxyzPABCDEFGHIJKLMNOPQRSTUVWXYZ%P KP PP P3OTS$CHARSTAR_R6PLI$MOVTRANCHARPLI$OPEN PLI$CLOSE PLI$RVRT_CNDPLI$GETEVCHA_R6PLI$GETFILE_R6 PLI$RESIGNAL PLI$ONCODE PLI$NONLOC_GOTO PLI$CND_HNDPLI$PUTEFIXB_R6PLI$PUTECHAR_R6PLI$PUT_END_R6PLI$PUTLCHAR_R6PLI$PUTFILE_R6 PLI$ALOCHEEP- ADD_TO_INDEX ADD_TO_INDEX | ADD_TO_INDEX|^мV?START_CRITICAL_SECTION2ݭ PLI$ALOCHEEPЭмRbмRԢEND_CRITICAL_SECTIONмR(ּ ߼ TIME_LESSP߼ ߼мRb ADD_TO_INDEX߼ ߼мR ADD_TO_INDEXO LOCKED_RECORD 2 LOCKED_RECORD 2 LOCKED_RECORD2^\ѼRMS$_RLKPּѼ>]Ql2ZBEGIN%80_|^\|PR|SPLI$PUTFILE_R6ϊP<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2P]QlNBEGIN%83^QW\|PRSnTPLI$PUTFILE_R6>P<QPLI$PUTECHAR_R6ЧRТRbP<QPLI$PUTEFIXB_R6PLI$PUT_END_R6 N@ŏ`~߭|~ SYS$SCHDWKPR SYS$HIBERPRPI")  READ_LINE READ_LINE  READ_LINEZ$^ PLI$CND_HNDmԭ\[Z^YY^^Yk Џ Эn^Y BEGIN%108"QR~ϮPRQPLI$NONLOC_GOTO )j16Y^^YԮ Џ, Эn^e BEGIN%1111Q\ PLI$ONCODEPRMS$_TNSH]Ql2 BEGIN%113_|^\|PR|SPLI$PUTFILE_R6^P<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 20~ P\QPLI$NONLOC_GOTO PLI$RESIGNAL e ]Ql$ BEGIN%119C|^\|PR|SPLI$PUTFILE_R6PLI$PUT_END_R6 $ ]Qlc. BEGIN%120^QW^XЧSУScPSYS$SYSDISK:[SYSMGR]MESSAGE.DAT]P ]P ]P `P ]P `P ]P `P ]P `P ]P `P cPZPLI$OPTMAIN_RETOTS$CHARSTAR_R6PLI$PUTEVCHA_R6PLI$PUT_END_R6PLI$PUTECHAR_R6PLI$PUTFILE_R6 PLI$CND_HND PLI$REWRITE PLI$CLOSE PLI$FREEHEEP PLI$WRITE PLI$ALOCHEEP PLI$RVRT_CNDPLI$READ PLI$RESIGNALPLI$NONLOC_GOTO PLI$ONCODEPLI$OPEN PLI$STOP_PROGPLI$OPTIONSMAIN  NOTICE cNOTICE cNOTICEVϞ$^PLI$OPTIONSMAIN[Wԭ žԭȰ̰Ξg|͸^Z|~~߭|~~ SYS$GETJPIP͜)gN  PLI$STOP_PROGR:;gPRRRR,Rg g~(%̀~|~PLI$OPEN](_]|~kPLI$OPEN~|~PLI$OPENZ^^ZԮ Џ, Эn^8o BEGIN%288h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~DP\QPLI$NONLOC_GOTO PLI$RESIGNAL 8,Z^^Z  Џ$ Эn^  BEGIN%293   ԭ < ~ʹPLI$READQЏ,P PLI$RVRT_CND1|d&2&RRRXXX PLI$ALOCHEEPXV( fﴦ Z^^ZԮ Џ, Эn^8c BEGIN%309h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~@P\QPLI$NONLOC_GOTO PLI$RESIGNAL 8$Z^^Zk Џ$ Эn^  BEGIN%314   |ԭ\|~|~|~ZZ <~\͠kPLI$READkQЏ$P PLI$RVRT_CND1NZ^^ZԮ Џ, Эn^9. BEGIN%323i^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP~P\QPLI$NONLOC_GOTO PLI$RESIGNAL 9/͠R1͠TRR12UUERb%2b\YY\ YRUR) B \Yj 2 RR(ݠB2 RR͠SBRУ b2 RR͠SBRУ b2 SS͠RC2 RRBRb2 RRB Rbԭ|~|~͠kPLI$READ͠R1  &Z^^Z Џ$ Эn^ BEGIN%357 2&RRR < ~~R~f PLI$WRITEQЏ$P PLI$RVRT_CNDd&V PLI$FREEHEEPk PLI$CLOSE<(T><|~kPLI$OPENZ^^ZԮ Џ, Эn^8! BEGIN%365h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~P\QPLI$NONLOC_GOTO PLI$RESIGNAL 8ԭ < ~ʹPLI$READQЏ,P PLI$RVRT_CNDԭ߭~߭LIB$DAYѭ׭ԭʹR2 \YY\1>ЭUYTʹSDRUb1DRbRUR1DXXXXXX URXXXYSʹRCRѭbXXXYSʹRCRb4,XYSʹRCRb XYSʹRC11Z^^ZԮ Џ, Эn^8 BEGIN%408h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~LP\QPLI$NONLOC_GOTO PLI$RESIGNAL 8$Z^^Zk Џ$ Эn^  BEGIN%412   (Cͫͳԭ < ~ͫ͠kPLI$READQЏ,P PLI$RVRT_CNDkQЏ$P PLI$RVRT_CNDB͠TRR,2U((U(R-B gU(IYTʹSDRЭbD Rb2 RRR~R~c PLI$REWRITE߭D߭ ADD_TO_INDEX\Y PLI$CLOSEԭ~60]4߭0߭ SCAN_INDEX PLI$CLOSEk PLI$CLOSE1)GDISPLAY_NOTICEHÞΠ^ PLI$CND_HNDmԭ QQV^YY^^YԮ Џ, Эn^; BEGIN%459k^QRq\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~WPRQPLI$NONLOC_GOTO PLI$RESIGNAL ;,Y^^Y Џ$ Эn^  BEGIN%464^qQ  мR(ƫƳԦ < ~ƫƠPLI$READƠRRRƠƠR1Џ b~ SYS$ASCTIMPƜƸ]Ql:t  BEGIN%476g^QW\|PRS TPLI$PUTFILE_R6P< QPLI$PUTECHAR_R6PLI$PUT_END_R6 : ]Ql$  BEGIN%477C|^\|PR|SPLI$PUTFILE_R6PLI$PUT_END_R6 $| ߭֠VQen(- 12RRƏPRRXƸXWW1(ϱͷЏͷƿ READ_LINEPXƸA  BEGIN%487i^QW\|PRSϫTPLI$PUTFILE_R6P - Display message and statisticsLP S[how] - Display message P L[ist] [] - List all messages [created after ]P H[elp] - Display this listP Ex[it] - Exit* programP E[dit] n - Edit message OP D[elete] - Delete message P A[dd] - Add a new messagePThe legal commands are: P***Deleted***P Text: PUsers: PUsers: *ALLPExpires:PRepeat: P*PStarts:PCreated:PMessage #&P?Invalid start time9P.:P. The last time was on RPhas seen the message gPtimeslP+twiceqP2rPoncevP1wPhas never seen the messagePdoesn't have the message in his/her listP PText:PMessage is marked for delete. Delete anyway[Y,N]? P?No such messagePDo you want to change the repetition type[Y,N]? 2PDo you want to change the start and termination dates[Y,N]? nPYoPDo you want to change the terminal list[Y,N]?P?Duplicate key in ADDPROCP?Start date is after termination date.PEnter ,termination date: PEnter start date (default today): PToday's date is %PToday's effective date is ?PTerminals: JPSend to: SPInvalid CommandbPREMINDhPSYS$SYSDISK:[SYSMGR]USER.DATPSYS$SYSDISK:[SYSMGR]MESSAGE.DATPP P P P P P P P P P P P P P P P P -P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P. P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P /P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P 0P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P Ponce Pdaily  Palways 1 /Ponce except always on last day QPdaily except always on last day P P P P P P P P P P P P P P P P P P P P P P P P P P P P P P sP   2P P P P P P sP   P9 B P P P P P P sP   P9 B P  9 B P P P P P P sP   P9 B P  9 B P P P P P P 3P sP   P9 B P  9 B P P P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P 4 P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P5  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P 6 P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P 7P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P89 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P 9P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P P P9 P P P P P P sP   P9 B P  9 B P: P P9 P P P P P P sP   P9 B P  9 B P P P9 POTS$CHARSTAR_R6 PLI$CMPBITPLI$PUTLFIXB_R6PLI$PUTSTRNG_R6PLI$PUTEVCHA_R6 PLI$DELETE PLI$REWRITE PLI$RVRT_CNDPLI$READ PLI$ONCODE PLI$FREEHEEP PLI$WRITE PLI$RESIGNALPLI$PUTECHAR_R6 PLI$ALOCHEEP PLI$CND_HN;DPLI$OPTMAIN_RET PLI$CLOSEPLI$PUT_END_R6PLI$PUTLCHAR_R6PLI$PUTFILE_R6 PLI$INDEXBIT PLI$ANDBITPLI$NONLOC_GOTOPLI$OPENPLI$OPTIONSMAIN' NOTICEUTL NOTICEUTL | NOTICEUTL|(^PLI$OPTIONSMAIN\ ͼ;l|͎͌͏^Vj(Slj|~PLI$OPENI(KKI|~PLI$OPENV^^VԮ ϟ Эn^r BEGIN%485"<QR~ϿPRQPLI$NONLOC_GOTO  SET_CTRLCP͔͌LIB$GET_FOREIGNP͔|~~ͼ|~~ SYS$GETJPIP͔-͌ݐ ϝtAQ<<@>ϼ88@:l PLI$ANDBIT<<>@@88@:A PLI$INDEXBITPR߭߭ GET_COMMAND1 ]Q1 ]Q1HH]Q1 ]Q "xHH]Qϴ_ ]Q O9#)B BEGIN%506_|^\|P =R|SPLI$PUTFILE_R6SP<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2䙭RR ]Ql߭߭ GET_COMMAND1# PLI$CLOSE PLI$CLOSEPPLI$OPTMAIN_RETaADDPROCmϞ<^ PLI$CND_HNDmԭQQVY[W|ԭ^XX^^XԮ [ Эn^" BEGIN%5389QRq\ SET_CTRLCP̔~PRQPLI$NONLOC_GOTO "T;START_CRITICAL_SECTION2ݭ PLI$ALOCHE>EPЭЭ\ l( |END_CRITICAL_SECTIONӰƨ+( .Џ ޭ߭ƨ߭߭READTREE( Џ ޭ߭Ƣ߭߭READTREE߭~߭LIB$DAYѭ1<߭<LIB_DAY_TO_TIMEЏ ɭ߭߭~ SYS$ASCTIMPƔ]Ql1  BEGIN%563^QW\|PRSTPLI$PUTFILE_R6/P<QPLI$PUTECHAR_R6P< QPLI$PUTECHAR_R6PLI$PUT_END_R6 G6Џ ɭ~߭~ SYS$ASCTIMPƔ]QlG ?>  BEGIN%567^QW\|PRSTTPLI$PUTFILE_R6ϭP<QPLI$PUTECHAR_R6P< QPLI$PUTECHAR_R6PLI$PUT_END_R6 G ]Ql$  BEGIN%571C|^\|PR|SPLI$PUTFILE_R6PLI$PUT_END_R6 $1("/|Џ"|ޭԭ߭߭߭ READ_DATE(Џޭޭԭ߭߭߭ READ_DATEѭ:9/  BEGIN%577_|^\|PR|SPLI$PUTFILE_R @6dP<&QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2E]Ql1P߭READ_REPEAT_TYPEȵƢȭ]Ql$  BEGIN%588C|^\|PR|SPLI$PUTFILE_R6PLI$PUT_END_R6 $Q߭READTEXTSTART_CRITICAL_SECTIONX^^Xi Џ$ Эn^E  BEGIN%593 ]Ql2  BEGIN%594_|^\|PR|SPLI$PUTFILE_R6σP<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2 APLI$RESIGNAL E߭ SYS$GETTIMPƔ(;|~iPLI$OPENZЭƈCZƈR(ԢƈRZ ƈR2 S S < ~~S~i PLI$WRITEbƈ2ƢSSS2ƨR RRSݭ PLI$ALOCHEEPЭƜ(֜ƜRƜRЭ ƜRЭĢ ƜRȢƜRƢ2ƢSSƜRCRƨbԦ~V߭߭ SCAN_TREEԦ~(V߭߭ SCAN_TREE2ƢSSS2ƨR RRSƜR < ~b~S~bi PLI$WRITER PLI$FREEHEEPߦ߭ߦ ADD_TO_INDEXi PLI$CLOSE B^(ϫ`^|~kVPLI$OPENխ~U]߭߭ SCAN_TREE1X^^Xk Џ Эn^  BEGIN%636   )X^^XԮ Џ, Эn^8D BEGIN%638h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~P\QPLI$NONLOC_GOTO PLI$RESIGNAL 82&ԭ|~|~ƴkPLI$READ]QzQЏ,P PLI$RVRT_CNDk PLI$CLOSEEND_CRITICAL_SECTIONQ3P PLI$RVRT_CNDST CART_CRITICAL_SECTION~Ϸԭ߭߭ SCAN_TREE~ϡԭ߭߭ SCAN_TREEЭƈƈRbR PLI$FREEHEEPЭƈEND_CRITICAL_SECTION1ASSIGN_MESSAGEX^ PLI$CND_HNDmԭQQTqR^SS^^S Џ$ Эn^ y BEGIN%675   &ԤS^^SԮ Џ, Эn^; BEGIN%677k^QRq\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~PRQPLI$NONLOC_GOTO PLI$RESIGNAL ;DSмP <`~`´PLI$READQЏ,P PLI$RVRT_CNDTQ'ADD_MESSAGE_TO_USERC^QWq\̴S 2RRRݭ PLI$ALOCHEEPЭ̸( c̸ܸR ̴R2 VXXVXT̴S̸R(DDVX2SS̸R(C2SS̸RCRЧb2SS̸RCRЧb2SS̸RC2SS̸RCRb2SS̸RC Rb2RRR̸S~R~c PLI$REWRITES PLI$FREEHEEP 9 COPY_USER E6 ^QV֦2ƢWW RRWмR,b ƜR( G 4m COPY_TERM+^QV֦WмR,b ƜR(G) FREE_ENTRYݼ PLI$FREEHEEP EDITPROC|Ϟx^ PLI$CND_HNDmԭQQWX[Zԭ^YY^^YԮ  Эn^" BEGIN%7529QRq\ SET_CTRLCP̔~ϾPRQPLI$NONLOC_GOTO "}WQ!߭ߧߧ GET_MESSNOP1߭߭ߧ F INDEX_ACCESSЭR(ǫdzY^^Yh Џ$ Эn^  BEGIN%765^qQ  #Y^^YԮ Џ, Эn^8 BEGIN%766h^Q\ PLI$ONCODEP߭߬ LOCKED_RECORDP ~P\QPLI$NONLOC_GOTO PLI$RESIGNAL 8ԭ < ~ǫǘhPLI$READQЏ,P PLI$RVRT_CNDhQЏ$P PLI$RVRT_CNDǘRRRǘǘ1Q(-Џ-ޭޭԭ߭߭ READ_LINEP;2( ϦGЏ ޭɭŐ߭Ǣ߭߭READTREE( DELETE_MESSAGE_FROM_USER^Q\߭ܜ\QτЭY1̴S 2RRRݭ PLI$ALOCHEEPЭ̸( c̸ܸR X̴R2 VWWV%WYXXUWT̴S̸R(D REVW2RRR~R~ܸ PLI$REWRITEs!SHOWPROC[ǞΜ^ PLI$CND_HNDmԭQQVXԭ^YY^^YԮ Sޮ Эn^"! BEGIN%10809QRq\ SET_CTRLCP̔~ύPRQPLI$NONLOC_GOTO "VQ[߭ߦߦ GET_MESSNOP1]߭ߦ INDEX_ACCESS߭VQ Ƙ101 WRITE_REQUEST]Ql$Y" BEGIN%1093C|^\|PR|SPLI$PUTFILE S_R6PLI$PUT_END_R6 $<ƘS2RRBRb1Y^^Yh Џ$ Эn^ " BEGIN%1095   #Y^^YԮ Џ, Эn^9" BEGIN%1096i^Q\ PLI$ONCODEP߭ LOCKED_RECORDP ~(P\QPLI$NONLOC_GOTO PLI$RESIGNAL 92bUZZUaƘT2SS ZRRS < ~C ƴhPLI$READ C VQUZhQЏ$P PLI$RVRT_CNDQЏ,P PLI$RVRT_CND1 TY^^Yh Џ Эn^ # BEGIN%1111   #Y^^YԮ Џ, Эn^9# BEGIN%1112i^Q\ PLI$ONCODEP߭ LOCKED_RECORDP ~TP\QPLI$NONLOC_GOTO PLI$RESIGNAL 9START_CRITICAL_SECTIONh PLI$CLOSEͲ(ʹͲ|~hPLI$OPENEND_CRITICAL_SECTION@|~|~ƴhPLI$READִVQQЏ,P PLI$RVRT_CND WRITE U_REQUEST]Ql$$ BEGIN%1134C|^\|PR|SPLI$PUTFILE_R6PLI$PUT_END_R6 $1둼O WRITE_REQUEST]Ql2 % BEGIN%1137_|^\|PR|SPLI$PUTFILE_R6xP<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2]W| VQn(- 1<% BEGIN%1143i^QW\|PRSTPLI$PUTFILE_R6PbP<QPLI$PUTLFIXB_R6PLI$PUT_END_R6 X=2RRT;ϥڭ P]Ql2" BEGIN%173_|^\|PR|SPLI$PUTFILE_R6FP<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2)ٔPԼS^^SԮ Џ, Эn^ { BEGIN%177   ]Qlh BEGIN%178^QW^XЧTФT2dSSЧRТRbUUSSSS]Ql2 BEGIN%181_|^\|PR|SPLI$PUTFILE_R6:P<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2PR >]Ql2[ BEGIN%185_|^\|PR|SPLI$PUTFILE_R6P<QPLI$PUTLCHAR_R6PLI$PUT_END_R6 2 PPW֏ INDEX_ACCESS INDEX_ACCESS  INDEX_ACCESS4$ y^\ԭ~]߭߭߼ SCAN_INDEXԼ  INDEX_CHECK;QRТPРPѼ`ТPР Pм`~PRQPLI$NONLOC_GOTO ,N V SCAN_TREE SCAN_TREE  SCAN_TREEM ^޼ScP,޼Rb SCAN_TREEcPРc}bP`b߭ SCAN_TREEL ; WRITE_REQUEST% WRITE_REQUEST %| WRITE_REQUEST|^мVVr( sЏ z READ_LINEP(+ ! LIB$SIGNALмм  LIB$SIGNALVF READ_DATE READ_DATE  READ_DATEϞ^^[1޼Zj޼X޼ Y READ_LINEP1a( ?,$CODE$DATASYSPRINTTEXTFILEww f SCAN_TREETICAL_SECTIONf SET_CTRLCTICAL_SECTIONSTART_CRITICAL_SECTION TIME_LESS UPPER_CASEf WRITE_LISTf WRITE_REQUESTr NOTICEUTLX SCAN_INDEX WRITE_REQUESTfREADTEXTEfREADTREEEf READ_DATE READ_LINEfREAD_REPEAT_TYPE SCAN_INDEX