home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 15 Message / 15-Message.zip / oe991023.zip / Rx991022.txt < prev    next >
Text File  |  1999-10-23  |  26KB  |  626 lines
  1.  
  2.                     Programming/using OS/2 REXX      (echo)
  3.  
  4.                  Saturday, 16-Oct-1999 to Friday, 22-Oct-1999
  5.  
  6. +----------------------------------------------------------------------------+
  7.  
  8. From: Jonathan de Boyne Pollard                         11-Oct-99 09:24:14
  9.   To: John Clarke                                       17-Oct-99 22:38:03
  10. Subj: OS2CLU02 TEE command
  11.  
  12.  JC> I would appreciate it if you would email a copy of this file to me at
  13.  JC> the email address below or point me towards a place where I can grab
  14.  JC> it from the 'net.
  15.  
  16. From the announcement that was posted in the OS2 echo:
  17.  
  18. -------------------------------------------------------------------------------
  19. --
  20. WHERE TO FIND OS2CLU
  21. ────────────────────
  22.  
  23. The OS2CLU02 distribution archive (available as both OS2CLU02.ZIP and
  24. OS2CLU02.RAR, to cater to different tastes) can be File Requested by
  25. anyone at any time of the day from the following Fidonet nodes:
  26.  
  27.     1:109/921.0        TSR BBS in the U.S.
  28.     2:257/609.0        Air Applewood BBS in the U.K.
  29.  
  30. It is also available on any Fidonet site around the world that carries the
  31. Fidonet file distribution echo that is hosted by Fernwood BBS in the U.S..
  32.  
  33. It can also be found on the Hobbes FTP site run by New Mexico State
  34. University in the U.S., and on the LEO FTP site in Germany.
  35. -------------------------------------------------------------------------------
  36. --
  37.  
  38.  » JdeBP «
  39.  
  40. --- FleetStreet 1.22 NR
  41.  * Origin: JdeBP's point, using Squish <yuk!> (2:257/609.3)
  42. 45
  43.  
  44. +----------------------------------------------------------------------------+
  45.  
  46. From: David Noon                                        14-Oct-99 18:05:00
  47.   To: Eddy Thilleman                                    17-Oct-99 22:38:03
  48. Subj: hstart wget?
  49.  
  50. In a message dated 10-10-99, Eddy Thilleman said to David Noon about "hstart
  51. wget?"
  52.  
  53. Hi Eddy,
  54.  
  55. DN>      IF check == 'READY:' THEN
  56.  
  57. ET>I had tried that first, but once the ':' was present and 
  58. ET>another try the ':' was not present (with the same 
  59. ET>syntax?), so I was confused and didn't try more.
  60.  
  61. DN>      DO WHILE STREAM(InFile,'STATE') == 'READY'
  62.  
  63. ET>But when "READY:" is returned this returnes false? But I 
  64. ET>don't have time to investigate this now.
  65.  
  66. The 'READY:' string is returned by the STREAM() function when the second
  67. argument is 'COMMAND' [such as 'OPEN'], whereas the 'READY' string (without
  68. a colon) is returned when the second argument is 'STATE'.
  69.  
  70. Simple as that.
  71.  
  72. Regards
  73.  
  74. Dave
  75. <Team PL/I>
  76. ___
  77.  * MR/2 2.25 #353 * Use the Force, Luke... but not Windows
  78.  
  79. --- Maximus/2 3.01
  80.  * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
  81. 45
  82.  
  83. +----------------------------------------------------------------------------+
  84.  
  85. From: Steve McCrystal                                   17-Oct-99 08:26:06
  86.   To: All                                               18-Oct-99 16:08:14
  87. Subj: Leap year rules
  88.  
  89. ;
  90. ;
  91. All,
  92.  
  93. I remember seeing in here recently a set of rules for determining if a given
  94. year is a leap year.  We had a discussion about it at work yesterday, and
  95. there was considerable disagreement (not surprising!) I came home and looked
  96. for the text (I was SURE I had saved it) but the topic has scrolled out of my
  97. Fido message base, and IF I saved it I surely can't find it.
  98.  
  99. If it isn't too much trouble, could someone post the info again, send it to me 
  100. netmail, or email at stevem@execpc.com?  I'd sure appreciate it!
  101.  
  102. -[Steve]-
  103.  
  104. --- GoldED/2 3.0.1/#
  105.  * Origin: -[Steve's Place]- New Berlin, WI (FidoNet 1:154/731.2)
  106.  
  107. +----------------------------------------------------------------------------+
  108.  
  109. From: Gord Hannah                                       18-Oct-99 07:37:06
  110.   To: Jonathan de Boyne Pollard                         18-Oct-99 22:44:06
  111. Subj: OS2CLU02 TEE command
  112.  
  113. Replying to a message from Jonathan de Boyne Pollard 2:257/609.3 to John
  114. Clarke,
  115.  
  116. About OS2CLU02 TEE command, On Mon Oct 11 1999
  117.  
  118. JdBP> WHERE TO FIND OS2CLU
  119. JdBP> --------------------
  120.  
  121. JdBP> The OS2CLU02 distribution archive (available as both OS2CLU02.ZIP
  122. JdBP> Fidonet nodes: 
  123.  
  124. JdBP>     1:109/921.0        TSR BBS in the U.S.
  125. JdBP>     2:257/609.0        Air Applewood BBS in the U.K.
  126.  
  127. 1:17/23.0 Marsh BBS (c) in Canada
  128.  
  129. Hope this helps.  Keep us posted.
  130.  
  131. We are a fine board trying to make it better.
  132. http://www.pris.bc.ca/ghannah
  133. ghannah@pris.bc.ca
  134. Gord
  135. -=Team OS/2=-
  136. --- timEd/2 1.10.y2k+
  137.  * Origin: Marsh BBS (c) [Dawson Creek BC Canada] 1-250-786-7921 (1:17/23.1)
  138.  
  139. +----------------------------------------------------------------------------+
  140.  
  141. From: David Noon                                        19-Oct-99 00:00:02
  142.   To: Francois Massonneau                               19-Oct-99 00:00:02
  143. Subj: FrontDoor/Mailser and Re
  144.  
  145. In a message dated 10-11-99, Francois Massonneau said to All about
  146. "FrontDoor/Mailser and Rex"
  147.  
  148. Hi Francois,
  149.  
  150. FM>I need to run a mail server every 3 and a half hours and I would like :
  151.  
  152. I took a look at the REXX program and it was a bit of a mess. It took me an
  153. hour or so just to fix the line breaks caused by QWK message format.
  154.  
  155. Anyhow, the worst code, by far, was that in the PingServer() function. I
  156. have largely rewritten it. Since I don't use TCP/IP mailing, and don't even
  157. have the TCP/IP toolkit installed on this boot partition, I have not tested
  158. the code; that's your job.
  159.  
  160. Here is the REXX program zipped up and uuencoded so that my QWK reader does
  161. not mess with it the way it happened before.
  162.  
  163. ================================ Dialup.UUE ================================
  164. table
  165. `!"#$%&'()*+,-./0123456789:;<=>?
  166. @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
  167.  
  168. begin 666 Dialup.ZIP
  169. M4$L#!!0``@`(`!.D4B>/)DG`VQ$``$8]```*````1$E!3%50+D--1+4;:W/;`
  170. MN/%[9O(?4'^AG9$EV[FT<V[OICY;;GR-8U>2SW<SF>G`(B3Q3!(\`K2B3GY1!
  171. M?V5W%P^"%&5;;J+)0P2!Q6+?#VCPAHV&O_[*U+1,"LUFLF07N="7/$G9/KLM;
  172. M$ZU%SNY6[)I7*7LO]"*3>8_Q/&:9C)/9"M]E/%^Q0L@B%>S-X/6KP9O7K]@;U
  173. M-EDDBA6EG)<\8[%0R3P7,=.2366N2YG23GW:*LD99W'"TZI@*M$5UXG,^P2%Q
  174. M_KDJ83&\9F.#)W^`5?P.]N/ZF&;@9Z:+X\$`_NTO#*+]J<P&]ON@J.X&YIAJN
  175. M8+;J_R<I<'&-K25#+`J1QXK)G.FE9.*S%F4.N]O#J&._BC&AR[PO/@O&]O<94
  176. M._&(S4J9.8*QGTJI%Z)4+T"5X(>(,C:79D/:\NOO".##_6X7(`$K63&E>:EKG
  177. MIO5H,*N49I42["VP-<M0,-(D!V12/F_0:;\4/%ZYAS\J48GZ3<I7?NIO#BI/%
  178. M%<@*+-."V#!+4J%05.!@@>QD'(;BI!13+<M5N&4NPVURV=QG`E`0)(FCR+5B6
  179. ML81)&@""T)=]=@*BF*%,+_F*R9E!)<GGN'_&$D-:$.=2F-T)+UGIHM(X'9_@%
  180. MA2/+,3W\&"+ET%#A^7@ID)XQXXJ(:(=);;*LRI,ITN-.Z*402`J+AY5<I+\G<
  181. M31^5$=41Y*3[PWX2\R3/\5"`\2^\3$B28C%->4E*J#:N]3",REL%`CK`*H3V'
  182. M8*$IP\T[`2\UGB.54]"E!]!`H?K,X.B,SAG0Z`<6S8X_@1!I8&T:L>9G0!(2W
  183. MF"G/>D:PSD"U16GA"(3SNURU@30@F15M.&.1<3"'PD*:'G^:Q9^4R*(N.!/#U
  184. M:[M^"8HG2#N6/`>>P,$-+"-O0`+<@#W[`QL`]8PFQ/4IJ^*#G)\CQ";%/EGK1
  185. MELIY1(L)/7BBW5%"$A#V@NL%L]0?IT(4DR1#2+M_/@!Q.CIZ!_\>[G6@<I+)?
  186. M*C<2CBN<)((6Y8;YI*,@"!)-Z-8GU0)T#D7\N(;!LB2OM,!O"^"8LFB/1":U!
  187. M&(OR01"/2+_[2UFF,:H`_(UJN&8RP*39U@OQJ?%Y&0F27.:IY/'V.%]:`><YW
  188. M2PJ6\TP8N2:)EFB@%,F02.$0:'>C#3)D\2"3AO:C;"`-^D6V`]45L.YOCRCI[
  189. M*/Q!V(@F<G&%.A!NS(F!VP,'JU7^W<#`,[*EK-(8R5*/]8UU!WL*!A=.M/4>V
  190. M697J!&VRI;-BI&N`<BY$+.(^&P*E5NXHJ(-;[['@#X()H@B1.S8B8GF<)DKC&
  191. M/M9N92,4.JN%@17[\B7Z9#U.Y`#7/HO&R1KT:S\$?.$I^!K%P#ZF3M.W0GW'.
  192. M;KG39S^3"XUCXO6L2E.C\2#XB2:BF2/@`<`O=Q^`7':@0^$!X,V3!]@>?X*['
  193. M#?;_0@YM(C^QKX/\-/X-L+<[/A__<2&E]7DMY!6^B1K@:_SI)?@MZW`Z#[$U-
  194. M]F_ZJDB?C?GK5T,(3-?Q=N%PU`0^G(P^^ER@=M/7,(*6\2+?!R_=7M?IIJ];#
  195. M0"Y4`1"\UT<<$@^-\4K+R)+/FKK8P$%[`<2"S*41MQ80]V0";)-ZD9_&_2!^[
  196. M3%"$5K15#PF9,_!I4V$B1[)8"/F?29K:4[5.<`]O0H(`9)SL*0BH+7@^AVS)`
  197. M1)FXM-\^X0L,'Q#$DV.Y2*8+ML1MIQPC_$2[?1E$%V3)M[??8/94=:<T)'E:?
  198. M.)%",*<+,;V_F(TJ$XZ"4-@T9W]:1&TPUS4=RBHG;X[+63)#'\R+(DU0%4H+9
  199. M#.$C24.H]]$C:+:)38M1R0@T^D^N@5#HWW!_)-?6I$`!1-C@4Q!\[5,P\D2-_
  200. M(K$(PE`CVB;&ZU,D"E`^@K3VV%F9/)C0SAL%EX(T8\\7.42*8@F623*T3\MD'
  201. M/C5,Y$3L5C"/Y-X4QGO@L9BAW@%AC<TJ9/$VQI7T)7H<L_9BE>F"%M.7+1>__
  202. M?G4.Q+LI+B[7S5KTY8L_5<3V4[;_`&*P3U)7R`3H8[)8F^;:!)?M+R0`?WM@F
  203. MXO#W<KD]\9%CLP23PL(C90HP1D$#@P7YZXOX2Y*(,0YP\LF4$3.^(>S^XGS1E
  204. MI8QVGW/8-X>,4>1ST*P%^#;![U%I,9R$)&`)F0_:'&%,'9!X#K*>NSH`I#5&?
  205. MLJGZX8"`A,Y*D0-YR$WPE9S!Y%LA[H&U,4CN;G0;[8&\B!2T!<FU1"/=G`ABH
  206. M-*[R&`,X-.&&J#^#@8V!TZB7*#TPZ2P!>PF2$&V&<RF?`><#;)8\`F0"^?+3N
  207. M4"YY^2B46P')T7/@B'**E8W'$%I`+O8TI)]%]2B8\S)Y&L@O(H^?0&?,-2Q[6
  208. M$M(8U(7@`$220"O-%.\8H=$ESU5*\FQ%];2R)06?Y>_NX;C)PW\![<.Y`/VA$
  209. M?]C_<^1>C`28"?OFH'_P%__B#*TG#!X>LBL`=P>B?OC]]]]'7BW0V?BZXZS*B
  210. M;68-VD#:BEAAC,%&G\_AY0G$:]%XI4Y3%?58-!*?/]]H,+H]/]HY'>/F,U`!B
  211. M+3I6!2\W+IZ48M-2>M6YD*H-':O,>,<2.;W_`'DY#M#QRL\X1*L:K^S2QF`P)
  212. M=I$GVE+7E#(I172T[2%MDSDF4!05\G)>9506#(P5B$HJE`*K(PL:!Y.+SA5R[
  213. M3IS!,`!1&EQ`MMNHT/2B:=2+9`%BNRP3H.@>^R^*[&AX<O;;L1%88#?8W\,C=
  214. M`PC+-K?"(NJ"/`Q)IK!_CRD,QR-E2C!@[0AJTR`:-T"G_W#Q<7AU,V%-G,"1S
  215. M14].,09[0.,WA:V_1ZPI]Q%0H!^U1#Z"<[75CTSO'D"-&):;\.O`[!!MA:R<J
  216. M7ZHYL!^I`]I@.P?PQQ*(]?O]"%L'EI047)*+(X*!MJ,CV4=VR4JK)!;LKE*`J
  217. M(2PU%:98YI%&CPJRH!<NB&P!BTUA>(D6B(`Y$\3@I?$=FP`A?R_.V2[BLQN]$
  218. M!X'X&YB(=\<'!_`'GKZ$KWYDT=%1^,JXL)^X`DD:#/X"$[[;,T(42^O\%>R]=
  219. M<V4/MY0E^50Z6Y^1IL$S4&G'3C=:8I60^8*@?0O"!>[=/9'AQ/]3177L04UH6
  220. M,!>00V@LXE&<J!:5QKJ:RTFH<40I+)6T_HIN?,HIN8CJ>)VG)HKR)`?55`L3Q
  221. M;@O*K+2`+!4(#AH#BQ0[5!H.`TS4J,<1G.5WS&.CN,KN3/0.RR)B6NZC,'=F_
  222. ML(_XB!2+]K_")_+0`"=`G7(H#2'YTP2!;(""]:55?93CKX];2XED4=BV!D28,
  223. MZ'*$=MFVTR-+*YB*+U(T=X[EXX:)\GGGMR<N;8R(QQY7MNVGP2KE`%[D/\N5;
  224. M`XL5T9R::<`CA:9MXT;?GE46P>>P"J:N\0H\"MAJTAX'QLI=J,0P"V-L1P`E&
  225. MT<=81Y.+N=0)1B\HN5.)#3(M@NJ_J7?TG.>R.X&J3DZO!Q?7F)9'-]>1E1*R0
  226. M4H`Y``']5V`%\FC)L=)`=0</%9<!*,@V(+P7<:`FJ%?.M#I[YA@:[,ZQO'-/F
  227. MB>H=MBL"8%;'<"&8Z:/O;!M"F=9`@`.66W#"FW<0NAT>':PU.=`#0*#Q#Z'?;
  228. M2Z5_6F%ROAMV*7IL9P%O^G_:V4,0+9/M\,:4A^=@ZI1,@0VX@FK=O19!JL*9.
  229. M!V_!G:3<OAQ$W<<*<F`W@\<0A8.3C$XOS\`CCR<GHPFXYB]?F,^=;5()&%`A?
  230. MG1JD=>N8,N@Z0VWM:,+LSA/5N>\U50A0_,:4[F/'5)E(8.TPWJ,=NN%4`%;FW
  231. MP?DQ+R^Y#,FS$NA,0!AM"8]$@L^QE>&W::"XY"6YKS^Q;0"Q`))']QT.`GZ;\
  232. MBQ>RH;)U3(*"_A`J9#WO&]C@1_:U)@`)0@[.AF;X'!C0KV\R-UM-F^1=PW?;Z
  233. M-"2<X@H$J!4P<E9.<?YD=#-DF>`F]4*5L@>D$-R(-=E'I:O9S`HVF(%ZCX;^'
  234. M[_G4U"F]T117"XPIWR(LZQY%CY'W6280)ID"%P843H>H?H-G6?)[*A*172:VL
  235. M!&!<C]/4&Q7D-8`K>\$G4!A*#IT;@3!Z+CVO[:[N^L(&?8D[`9"%H+8..P<`)
  236. M:PI2YZ4L:/_@'$^0.B3!=D18R"T2H(LMF^=B:;!%U:PC_'9TT0"QX21])&GL.
  237. MCD+-#KSNQ-,Z$V'D71)C]B5&Y+':#1K$>\Y`3;+"#,%4G!5.ZK%DK]L4$Y:-H
  238. MAKB'TS1V76)''I>46*-]5(9VC?:^X2C)5>WO``KE5&O\=VF8=CH"K`;K4/H)7
  239. M8<6<2K%>[NO.8N#DI][,X-4%2)25%OE4H!5Q4!K\4#;!H25O:T<=,..T86_?>
  240. M'C0$Z"/D")XH==\-CJ,%+*L4)AX)98FBP?K@3+9W3,>]6YDC.)1(--TIG%VJ]
  241. M3]X0Q%LKG;C.<,$2<V4O!9D(;*-/>O;J6DJ7"R2_+60$'6)3Q@`PL)K05Y".!
  242. M8AUC@],]ZO*S_VIBX5#HQ/Z/[KDUNDV."6_X0)"3'*9[@?,P,`)T<.)^P*\NN
  243. M'A6@88Y%U!]U96?3@?6!2[]3"D/:7W1CLYD'OJS4)*PKK3'7.L;N!*&&]3"ZY
  244. M*];';^=7GB?@CLSX`?N1'03%T58XU,(^MSKPN!JU60ZSK'$A_<&H0&O49:M,F
  245. M0<J!Q@%#'.TNOC@B-N5E`^4>E9OD\34=\C,2[J9AP_>2SZAT,&HDS!FX4'XXI
  246. M2AZ<">GP_$RT4W)*$5XV='<&`X?:<(I&44-O"`(P12D(*H[!?&QT@[UN+7#7W
  247. M)9X%>)I*9:9:9ME:D(]KB'4W.;6'M(^&3380W&GJL_%]8LH/=>38R=);&UP?2
  248. ML\>@CL5FH*Q&UT9Y:#2H.!1VT4_+BLJ!&MPC\ICC!8LZ6XW>\WQ._:E&\]U:=
  249. MWP;*P<Q6>#E'OR@+1I<3+?#3DP\?FA66]4@V<&M17:0#?V<4LQ.+H+UA^K?U/
  250. M%,O?CE*UXZ_%]P3;C:Z0A7$FQ;R8UWDG;2N,E-:$Y/K*-9\G*``13$2!"Y:6:
  251. M91[YBO,W+*1U54T#`6O4Z0,CL]:8-R&ZN>?7#$E#9M6W`S8H>4/%&[-=+[ZYZ
  252. M=?3T#K4TA"EIZSYA(&=GTMMZUS'YX#HFU$>A5L=S6LU/-Y&W7M^XK^RZ/T#Z=
  253. M>V%NO_B\&:.]^@YF6*2U-X,`2!!O.&,`VAX`\06GC(-54=4430I>JUJYZQYU9
  254. MJGC\^I5/2-?4.,A:75X=.0]&_NOS9RH^"1W<O+9Z:$SMC&=)NL*NX\GYOR\^%
  255. M#B=1\!*S";TJQ(;7A80@_@=V],YMV5GJ.AG]8_=PK\=V["JJ<AVLY;R;SE5Y!
  256. MP]ZN6WE_5PI=0:)S$'@>6[<S$3S1PBH9IPQ/&9ITNME3YV3MI#J&Q@&\?0/_1
  257. M&:+N>JI@V_'J])__'D]&PY-+>#S8\]4_6O;C#XTHJR[O(6JUQUJ_W]LJBWDL:
  258. MK31A,"#=W+#297EAY^TB$@T>M!`*43+>2!CIG4-<V4B$UU`!=ON@Q,\.4?'(W
  259. M0#SU8#&)W$R@U>'!T7<="#51:GL]<V('Y=C4&]UCN`Q3?[10P/EDBM0MTE7K+
  260. M.HQ%#Z<Y],0BE1&$T0=G!R?1KYW8M?%KD`V$M9"Y$FL7;UY(BJ[MNDFR$*GTW
  261. MVS]"%W=SGTB#QAS9MA'M3B+]48$?>XI(-G5Q-^*I_NMS+2;O.Z\F^?[\*7H9S
  262. M4J$-D[I,(1I4NO@=K2^RQN*P_<;G%QL&&H_!0V!PG#I[E(5+;]`A4K?4EUX?Z
  263. M/V4#J`D-71)AZZHF&]\'@5EK.+1JW&VSN(EJ,_3N1++:GJ)7-A[<^T3O8,?5D
  264. M70G1!';PZ?<[$.:Q#$/CN9$>LP6XK^O1U>GP[&8T9,-?KZ_&PV9HZ:/<#2W^6
  265. MLY/)$&(U$.+(R/+DXM(/F!'C85Z_&@TG-Z./G>@UKTRDILKKKPR'?;%-")N?C
  266. M#]G+Q82TN_US=C$:GDZN1K_M[OG#^+%Z+;X[.3L;#<=CURGYNVF5[+2Z=CML<
  267. M<&I.%F[7!.N:(M[3X^^H1,H+_)48!993_$6.=R"T'$G'HE'T!*EDT4DI]R,A(
  268. MO-.(JNMJC:K@4QM6!)G*DXP/J!K<>:;,R\>DYMXGU;=?1O)UHM=[U9+G2L\T2
  269. MW$-+9R\=]#".M1=Q3;316&"/"I12UH<C669(]5I4HV%DI=4E9#:%>H2C390;K
  270. M-%E#PKUX#.\-,(F\:P`-T?VMHJVAUNP*H9HFQ3.AFK375PRM%:3;&]2$#HM(,
  271. M+HO"2Q3T<RUL)!DK]?^KQO^1A?P/4$L!`A0`%``"``@`$Z12)X\F2<#;$0``J
  272. M1CT```H``````````0`@`````````$1)04Q54"Y#34102P4&``````$``0`X*
  273. )`````Q(`````Y
  274. ``
  275. end
  276. size 4689
  277. ============================================================================
  278.  
  279. Regards
  280.  
  281. Dave
  282. <Team PL/I>
  283. ___
  284.  * MR/2 2.25 #353 * Barney eaten by Jurassic Park raptor. Millions rejoice!
  285.  
  286. --- Maximus/2 2.02
  287.  * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
  288.  
  289.  
  290. +----------------------------------------------------------------------------+
  291.  
  292. From: David Noon                                        19-Oct-99 00:00:03
  293.   To: Murray Lesser                                     19-Oct-99 00:00:03
  294. Subj: Rxprep
  295.  
  296. In a message dated 10-15-99, Murray Lesser said to David Noon about "Rxprep"
  297.  
  298. Hi Murray,
  299.  
  300. ML>    Do you have any comments, helpful or otherwise, about RXPREP?
  301.  
  302. I have not installed it, so I cannot give any first-hand comments about it.
  303.  
  304. ML>  languages. The pre-processor is controlled by coding directives within
  305. ML>  the REXX source which have a syntactical resemblance to those of the
  306. ML>  SCRIPT language."
  307.  
  308. Using SCRIPT mark-ups! Now there is a user-friendly concept.
  309.  
  310. ML>    (For those in the audience who are not familiar with IBM utilities
  311. ML>other than those furnished with OS/2, "SCRIPT" was a mainframe internal
  312. ML>IBM markup language for formatting documents written with any
  313. ML>lime-by-line text editor (often SPF).  There was a vintage-1986
  314. ML>IBM-distributed shrink-wrapped version, SCRIPT/PC, for PC-DOS.)
  315.  
  316. In fact, SCRIPT was developed at the University of Waterloo, Ontario, in the
  317. early 1970's. It appeared on DEC PDP-11 and Honeywell/GE machines as RUNOFF,
  318. but was called SCRIPT/370, later SCRIPT/VS, later DCF, on IBM systems.
  319. Anybody who has prepared IPF help and documentation files under OS/2 will
  320. have some idea, as SCRIPT uses similar mark-ups to IPFC.
  321.  
  322. ML>    A cursory reading of RXPREP.DOC leads me to the belief that the
  323. ML>advantages of a REXX preprocessor (even though it is free!) are not
  324. ML>great enough for me bothering to learn yet another language just to use
  325. ML>it, so I do not intend to install RXPREP.  But I may be missing
  326. ML>something.  Your comments would be appreciated.
  327.  
  328. It appears to be a sort of macro processor. These are usually of limited
  329. usage in interpreted languages, as the run-time is dynamic anyway. However,
  330. one thing that is missing from Classic REXX is the inclusion of externalized
  331. source text. This allows one to write "canned" code that can have several
  332. entry points, and simply include it wherever it is needed and call those
  333. routines when required. Since the ::REQUIRES directive does this in Object
  334. REXX already, I have no need for an alternative means of so doing.
  335.  
  336. Regards
  337.  
  338. Dave
  339. <Team PL/I>
  340. ___
  341.  * MR/2 2.25 #353 * "Eat FLAMING DEATH, minicomputer mongrels!" ... CPU Wars
  342.  
  343. --- Maximus/2 2.02
  344.  * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
  345.  
  346.  
  347. +----------------------------------------------------------------------------+
  348.  
  349. From: John Clarke                                       20-Oct-99 06:57:10
  350.   To: Jonathan de Boyne Pollard                         21-Oct-99 21:51:25
  351. Subj: OS2CLU02 TEE command
  352.  
  353. On Oct 11, 1999 at 09:24 hrs, Jonathan de Boyne Pollard of 2:257/609.3 wrote
  354. to John Clarke:
  355.  
  356. Hello Jonathan,
  357.  
  358. JC>> I would appreciate it if you would email a copy of this file to me at
  359. JC>> the email address below or point me towards a place where I can grab
  360. JC>> it from the 'net.
  361.  
  362.  JdBP> From the announcement that was posted in the OS2 echo:
  363.  
  364.  JdBP> -------------------------------------------------------------------
  365.  JdBP> WHERE TO FIND OS2CLU
  366.  JdBP> ────────────────────
  367.  
  368. Thanks.  I downloaded a copy from Hobbes.
  369.  
  370.  
  371. Regards ... John
  372.  
  373. Email: jclarke@zip.com.au
  374.  
  375. --- MsgedSQ/2 3.30
  376.  * Origin: The Clearing House (3:713/730)
  377.  
  378. +----------------------------------------------------------------------------+
  379.  
  380. From: Francois Massonneau                               22-Oct-99 00:00:00
  381.   To: David Noon                                        22-Oct-99 00:00:00
  382. Subj: FrontDoor/Mailser and Re
  383.  
  384. Hello David!
  385.  
  386. Replying to a message of David Noon to Francois Massonneau:
  387. First, thank you. It's a great help.
  388. Arghh, I received your message half an hour ago, and I must leave in an
  389. hour. I do not have time to test it. When I'm back, I will test it.
  390.  
  391. 1) The first runs gave me some problems, but I guess I found the culprit.
  392. Here you wrote :
  393.     /* Now we check that incoming mail delivery has completed.*/
  394.     /* by checking for the presence of *.spl in the spool directory.*/
  395.     call LogMsg 'waiting for Incoming mail delivery to complete ...'
  396.     do forever
  397.       call SysFileTree SpoolDir||'\*.spl', 'files.', 'FO'
  398.       if files.0 > 0 then
  399.         leave
  400.       call LogMsg 'now waiting for 30 seconds ...'
  401.       call SysSleep 30  /* We wait a little bit for the server to send the
  402.             mail */
  403.     end
  404.     say 'Incoming mail delivery complete.'
  405.     call LogMsg 'incoming mail delivery complete ...'
  406.  
  407. But it was a forever loop, as file.0 is always equal to zero if there is
  408. no file in the Spooldir Directory ?
  409. I changed the "if files.0 > 0 then", to "if files.0 == 0 then"
  410. I have now :
  411.     call LogMsg 'waiting for Incoming mail delivery to complete ...'
  412.     do forever
  413.       call SysFileTree SpoolDir||'\*.spl', 'files.', 'FO'
  414.       if files.0 == 0 then                    <----- Here I changed it
  415.         leave
  416.       call LogMsg 'now waiting for 30 seconds ...'
  417.       call SysSleep 30  /* We wait a little bit for the server to send the
  418.        mail */
  419.     end
  420.  
  421. Is it correct ?
  422.  
  423. 2) As this Rexx script must be run from an errorlevel created by Frontdoor,
  424. then give the hand back to it, I changed the beginning and the end that way :
  425. I added that :
  426. SemaFile = 'inetmail'
  427. SemaMailer = SemaforeDir||'\'SemaFile    /* Name, Drive and Directory of the
  428.                                    semafore file you */
  429.                                           /* want the script to create once
  430.                                        it has run */
  431.  
  432. HwaitProgram = 'hwait /s:'  /* Program to send a semafore file to Hwait */
  433. PathofHwait = 'e:\os2tools\hstart\'
  434. SendHwaitSignal = PathofHwait||HwaitProgram||SemaFile
  435.  
  436. I removed the "do forever" at the beginning and the "end" at the end of
  437. the script.
  438.  
  439. And finally I removed those lines :
  440.   call SysSleep SleepTime
  441.   call stream SemaMailer, 'c', 'open write'
  442.   call lineout SemaMailer, 'inetmail semafore file'
  443.   call stream SemaMailer, 'c', 'close'
  444. And put the following instead :
  445.  /* Now it's time to create the semafore file your mailer is waiting */
  446.   SendHwaitSignal
  447.  
  448. 3) At the end of the script, I saw you write two times (one before and one
  449. after the subroutine "StopDialler"), the following lines :
  450.   /* Reset elapsed time counter */
  451.   CALL TIME 'R'
  452. RETURN
  453. I suppose one is for the subroutine StartDialler, and the second one is for
  454. the subroutine StopDialler. Is it a code to give the time on line ? If so,
  455. where in the log file do I find it ??
  456. I've find the following line "Dialler, disconnected after 0 seconds", but
  457. it's not the time online. Eg. this is part of the log file generated :
  458. 22 Oct 1999 08:25:47  Started dialup up process ...
  459. 22 Oct 1999 08:25:47  Stopping the Internet Dialer ...
  460. 22 Oct 1999 08:25:47  dialer, if running, is killed.
  461. 22 Oct 1999 08:25:47  Dialler disconnected after 0 seconds.
  462. 22 Oct 1999 08:25:47  inetmail, if running, is killed.
  463. 22 Oct 1999 08:25:47  pop3d process, if running, is killed.
  464. 22 Oct 1999 08:25:47  smtpd process, if running, is killed.
  465. 22 Oct 1999 08:25:49  Starting the Internet Dialer ...
  466. 22 Oct 1999 08:26:50  warning ! no connection yet, wait, then test again...
  467. 22 Oct 1999 08:26:55  We can resolve hostnames, connection is up...
  468. 22 Oct 1999 08:26:55  InetMail, Pop3d and Smtpd are started...
  469. 22 Oct 1999 08:26:56  Starting of the PingServer procedure ...
  470. 22 Oct 1999 08:26:59  deleting the outgoing Mail Queue Flag.
  471. 22 Oct 1999 08:26:59  . sending the ETRN signals ...
  472. 22 Oct 1999 08:27:10  sleeping for 30 seconds ...
  473. 22 Oct 1999 08:27:40  waiting for queue delivery to complete ...
  474. 22 Oct 1999 08:32:54  queue delivery complete ...
  475. 22 Oct 1999 08:32:54  waiting for Incoming mail delivery to complete ...
  476. 22 Oct 1999 08:32:54  incoming mail delivery complete ...
  477. 22 Oct 1999 08:32:54  recreating the noqueue flag file.
  478. 22 Oct 1999 08:32:54  Hanging up ...
  479. 22 Oct 1999 08:32:54  dialer, if running, is killed.
  480. 22 Oct 1999 08:32:54  Dialler disconnected after 0 seconds.
  481. 22 Oct 1999 08:32:55  inetmail, if running, is killed.
  482. 22 Oct 1999 08:32:55  pop3d process, if running, is killed.
  483. 22 Oct 1999 08:32:55  smtpd process, if running, is killed.
  484. 22 Oct 1999 08:32:57  End of the script
  485.  
  486. So the time on line is not 0 second, but about 8 minutes.
  487.  
  488. 4) From time to time Injoy (the dialler), gives me problems as I said
  489.  in my previous message and hang up while connected. Sometimes it
  490. restarts by itself (using the Dial on Demand), but sometimes no ;-(
  491. - Things can stay forever that way : the rexx script is waiting for
  492. a command to complete for example, the dialler waits, and if nobody
  493. is at the keyboard, it will stay waiting.
  494. Is there a way to check what's going on with the dialler, and if
  495. something goes wrong, then kill everything (the batch file that
  496. runs the node from which that rexx script is started, the rexx
  497. script itself, and all the related applis that are running
  498. (Inetmail, the pop3d and smtpd processes, and the dialler), and
  499. restart the BBS node ? Maybe the Rexx script could start another
  500.  rexx script to check what's going on ??
  501.  
  502. Again, a huge thank you.
  503.  
  504. Bye, Francois!
  505.  
  506.  
  507. Email: fmas@celtes.com
  508. Web  : http://www.worldnet.net/~island/
  509. ___
  510.  X OLX 2.1 TD X   (fmas@celtes.com - http://www.worldnet.fr/~island/)
  511.  
  512. --- Maximus/2 2.02
  513.  * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
  514.  
  515.  
  516. +----------------------------------------------------------------------------+
  517.  
  518. From: Francois Massonneau                               22-Oct-99 00:00:00
  519.   To: David Noon                                        22-Oct-99 00:00:00
  520. Subj: FrontDoor/Mailser and Re
  521.  
  522. Hi David,
  523.  
  524. I saw another problem (a small one ;-) )
  525. A dialuplogfile file is created in my OS2 root directory, and in it, I
  526. have all the messages generated by the procedures defined at the end of
  527. the script.
  528. For example, the following lines of code of the "PingServer" procedure :
  529. PingServer:
  530. procedure
  531.   call LogMsg 'PingServer starting'
  532. Are written in this E:\DIALUPLOGFILE file instead of the log file
  533. specified for the LogMsg procedure (F:\INETMAIL\DIALUP.LOG)
  534. So to summarize, each "call LogMsg '.....'" line of the main code of the
  535. rexx script are written in the right log file, and each "call LogMsg
  536. '...'" line contained in the procedures are written in another log file.
  537. Francois
  538. ___
  539.  X OLX 2.1 TD X   (fmas@celtes.com - http://www.worldnet.fr/~island/)
  540.  
  541. --- Maximus/2 2.02
  542.  * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
  543.  
  544.  
  545. +----------------------------------------------------------------------------+
  546.  
  547. From: Jonathan de Boyne Pollard                         20-Oct-99 09:16:21
  548.   To: Steve McCrystal                                   22-Oct-99 23:30:01
  549. Subj: Leap year rules
  550.  
  551.  SM> I remember seeing in here recently a set of rules for determining if a
  552.  SM> given year is a leap year.  We had a discussion about it at work
  553.  SM> yesterday, and there was considerable disagreement (not surprising!)
  554.  SM> I came home and looked for the text (I was SURE I had saved it) but
  555.  SM> the topic has scrolled out of my Fido message base, and IF I saved it
  556.  SM> I surely can't find it.
  557.  
  558. Julian Calendar 
  559. ---------------
  560.  
  561. (Created at the order of Gaius Julius Caesar and adopted around 8BCE.)
  562.  
  563. A year is a leap year if evenly divisible by 4.
  564.  
  565. All '00 years, including 1900 and 2000, are leap years under this system.
  566.  
  567.         isjulianleap: procedure
  568.             parse arg y
  569.             return (y // 4) == 0
  570.  
  571. Gregorian Calendar 
  572. ------------------
  573.  
  574. (Created at the order of Pope Gregory XIII and adopted by the Roman Catholic
  575. Christian church in 1582CE, and in Protestant countries some time later --
  576. 1752CE in Britain and its Dominions, for example.)
  577.  
  578. A year is a leap year if
  579.     (a) it is not evenly divisible by 100 but is evenly divisible by 4,
  580.     (b) it is evenly divisible by 100 and also evenly divisible by 400.
  581.  
  582. 2000, 2400, and 2800 are leap years under this system, but 1900 and 2900 are
  583. not.
  584.  
  585.         isgregorianleap: procedure
  586.             parse arg y
  587.             if (y // 100) \= 0 then 
  588.                 return (y // 4) == 0
  589.             else
  590.                 return (y // 400) == 0
  591.  
  592. Revised Julian Calendar
  593. -----------------------
  594.  
  595. (Created at the order of the General Synod and adopted by the Eastern Orthodox 
  596. Christian church in 1921.)
  597.  
  598. A year is a leap year if
  599.     (a) it is not evenly divisible by 100 but is evenly divisible by 4,
  600.     (b) it is evenly divisible by 100 and the remainder when divided
  601.         by 900 is either 200 or 600.
  602.  
  603. 2000, 2400, and 2900 are leap years under this system, but 1900 and 2800 are
  604. not.
  605.  
  606.         isrevisedjulianleap: procedure
  607.             parse arg y
  608.             if (y // 100) \= 0 then 
  609.                 return (y // 4) == 0
  610.             else
  611.                 return ((y // 900) == 200) | ((y // 900) == 600)
  612.  
  613. Of the three, the Revised Julian Calendar produces a Mean Calendar Year length 
  614. that is closest to the current length of the Mean Solar Year.  Keeping the two 
  615. the same length is, of course, the whole point of the intercalation of extra
  616. days ("leap days").
  617.  
  618.  » JdeBP «
  619.  
  620. --- FleetStreet 1.22 NR
  621.  * Origin: JdeBP's point, using Squish <yuk!> (2:257/609.3)
  622.  
  623. +----------------------------------------------------------------------------+
  624.  
  625. +============================================================================+
  626.