Hi John you have attached a routine named %ZFRMT. at entry DT() you will find a date formatting function. Change the order between MM & DD to be in the american format. Hope it did help.
Simcha --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.711 / Virus Database: 467 - Release Date: 25/06/04 begin 666 %ZFRMT.rsa M0V%C:&[EMAIL PROTECTED](%=I;F1O=W,@3E1>24Y47D5X<&]R="!O9B Q(')O=71I;F5S M(&9R;VT@;F%M97-P86-E("5365->?D9O<[EMAIL PROTECTED])5)/(&]N M($IU;" R(#(P,#0@(" Y.C V($%-#0HE6D92351>24Y47C%>[EMAIL PROTECTED]<T M.3%>( T*)5I&4DU4(#M'3BTR,# P(/KA\>0[4RY'.UL@,#$O,S O,C P,2 @ M-#HT,[EMAIL PROTECTED]"1PT*15(@5R O0U50*#(T+#$I+"]%3"@P*2PO4D)! M+"10*"14*$ H(DTB7TTI*2PB.R(L,BDL+TY232!1#0I$5"A:,2Q:,BQ:,RQ: M-"[EMAIL PROTECTED]([EMAIL PROTECTED]([EMAIL PROTECTED]:,2 M($E.4%54(%9!3%5%+B!, M14=!3"!604Q515,@.B!)1B B(BT^("(B+B!)1B!)3E!55"!914%2($E3(%E9 M($%3555-140@/#4P.C(P+#$Z,3E?65DI([EMAIL PROTECTED]([EMAIL PROTECTED]@3$5'04P@ [EMAIL PROTECTED] @(" @($E&(%HT/3 @.B![>T1]1'U[+WM-?4U]>R][65E]65E] M("A/4B G+B<I+"!$1$U->WM967U967TL('M$?40M34U->RU[65E]65E]+" K [EMAIL PROTECTED](%1/1$%9("LO+2!.($1!65,@*$1%1B!)4R P*0T*(#L@(" @ M("!)1B!:-#TQ([EMAIL PROTECTED]"B [(" @(" @[EMAIL PROTECTED],B Z('M967U964U-1$0- M"B [(%HR("[EMAIL PROTECTED](%E%05(@05,Z(#PP/[EMAIL PROTECTED](#$M(%E965D-"B [ M(%HS("[EMAIL PROTECTED]($9/4DU!5#H@/# ^+2!$1"]-32]962P@,2U-32]$1"]9 M62P@,[EMAIL PROTECTED]" S+5E934U$1"[EMAIL PROTECTED]"TD2"[EMAIL PROTECTED]"B [ M(%HT("[EMAIL PROTECTED]@5%E013H@/# ^+2!:,2!)4R!.3U0@)[EMAIL PROTECTED](#$M(%HQ($E3 M("1(+" R+2!:,2!)[EMAIL PROTECTED]([EMAIL PROTECTED](L63,L1%DL M34XL65(@22!:,3TB(B!1("([EMAIL PROTECTED])$0H6C(I(%HR/3 @4SHG)$0H6C,I M(%HS/3 @4SHG)$0H6C0I(%HT/3 -"B!)(%HT/3(@4R!:,[EMAIL PROTECTED]"A:,2D] M.#HD12A:,[EMAIL PROTECTED])$4H6C$L,2PT*2PQ.B1%*%HQ+#4L M-BE?)$4H6C$L,RPT*5\D12A:,2PQ+#(I*2!3(%HT/3 -"B!3(%DR/5HQ+%DQ M/213*%HQ/S$B*R(N3CHT+%HQ/S$B+2(N3CHU+"1&*%HQ+"(O(BDZ,2PD1BA: M,2PB+B(I.C(L)$8H6C$L(BTB*3HS+#$Z,"[EMAIL PROTECTED]:,3TB(B!:,3TK)[EMAIL PROTECTED] M,2!3.EDQ/30A*%DQ/34I(%HQ/21(*R13*%DQ/30Z)$4H6C$L,BPY.3DI+#$Z M+21%*%HQ+#(L.3DY*2DL6C0],0T*([EMAIL PROTECTED],RQ:,2<_,2XR3C$B+2(S52Y% M(%,@6C$])% H6C$L(BTB+#$I7R(M(E\D5%(H)% H6C$L(BTB+#(I+"+AXN/D MY>;GZ.GJZ^SM[N_P\?+S]/7V]_CY^B(L(D%"0T1%1D=(24I+3$U.3U!14E-4 M55976%E:(BE?)%,H)% H6C$L(BTB+#,I/2(B.B(B+#$Z(BTB7R10*%HQ+"(M M(BPS*2D-"B!)(%HT/[EMAIL PROTECTED]:,STT(%HQ(%,@63$],"Q:,3TD)$A41"A:,2DL M6C$])$4H6C$L-RPX*5\D12A:,2PU+#8I7R1%*%HQ+#$L-"D-"B!3.EDQ/3(@ M63$],2Q:,3TD5%(H6C$L(BXB+"(O(BD-"B!3.EDQ/[EMAIL PROTECTED])% H6C$L(B\B M+#$I+$U./210*%HQ+"(O(BPR*2Q94CTD4"A:,2PB+R(L,[EMAIL PROTECTED],3TS($19 M/210*%HQ+"(M([EMAIL PROTECTED]"34%205!234%92E5.2E5,055' M4T503T-43D]61$5#(BPD4"A:,2PB+2(L,BDI+3$O,RQ94CTD4"A:,2PB+2(L M,[EMAIL PROTECTED]@1%D])$4H6C$L,2PR*2Q-3CTD12A:,2PS+#0I+%E2/21%*%HQ M+#4L."[EMAIL PROTECTED],[EMAIL PROTECTED](])%,H65(\-3 Z,C L,3HQ.2E?)$4H,3 P*UE2 M+#(L,RD-"B [22!-3CTB(B$H65(](B(I(%,@63,])"1(5$0H*R1(*2!3.DU. M/2(B($U./[EMAIL PROTECTED](B!94CTD12A9,[EMAIL PROTECTED] M6C(@65(])$4H65(L,RPT*2!3($19/213*$19/2(B.B(B+#$Z)$4H,3 P*T19 M+#(L,RDI+$U./213*$U./2(B.B(B+#$Z)$4H,3 P*TU.+#(L,[EMAIL PROTECTED]: M,STT(2=:,R!:,3U$65\B+R)?34Y?(B\B7UE2(%,Z6C,],2!:,3U-3E\B+R)? M1%E?(B\B7UE2(%,Z6C,],B!:,3U$65\B+2)?)% H(DI!3BU&14(M34%2+4%0 M4BU-05DM2E5.+4I53"U!54<M4T50+4]#5"U.3U8M1$5#(BPB+2(L34XI7R(M M(E]94B!3.EHS/3,@6C$]65)[EMAIL PROTECTED]:,STU(%HQ/4197TU.7UE2($D@ M6C,]-"!3(%HQ/20D1%1(*"10*%HQ+"(O(BPS*5\D4"A:,2PB+R(L,BE?)% H M6C$L(B\B+#$I*0T*([EMAIL PROTECTED]"DA41"A:,[EMAIL PROTECTED] D2" M/B!965E934U$1 T* M($X@)4$L)4(L)40L)48L)4DL)4TL)5D-"B!3("5!/213*%HQ/#(Q.3$U.C L M,3I:,2TR,3DQ-%PS-C4R-"LQ*2PE03U:,2LE02TH)4$K,EPT*2PE0CTE02,Q [EMAIL PROTECTED] [EMAIL PROTECTED],# R-S,W.#4L,2DL)5D])4%<,30V,2HT*S$X M-#$K)48-"B!3("5-/3$P,2PE1#TE0BTH)48J,S8U*2!)("5$/3 @4R E33TQ M,3(L)5D])5DM,2PE1#TS,0T*($4@($8@)4D],S$L)%,H)5DC,3 P.B59(S0] M,"PQ.B59(S0P,#TP*2LR."PS,2PS,"PS,2PS,"PS,2PS,2PS,"PS,2PS,"!1 M.B5))SPE1" @4R E33TE32LQ+"5$/25$+25)[EMAIL PROTECTED] [EMAIL PROTECTED],# L M,[EMAIL PROTECTED]"LQ,# L,BPS*0T*1%1(*%HQ*2 [(%E965E-341$("T^("1( [EMAIL PROTECTED] E0BPE32PE1"[EMAIL PROTECTED]:,3\V3B!:,[EMAIL PROTECTED]:,2PQ M+#(I/#4P.C(P+#$Z,[EMAIL PROTECTED] E33TD12A:,2PU+#8I+"5$/21%*%HQ M+#<L."DL)5D])$4H6C$L,2PT*0T*(%,@)4(])5DM,[EMAIL PROTECTED],0T*(%,@)41!5#TE M0BHS-C4K*"5"[EMAIL PROTECTED],%PQ,# [EMAIL PROTECTED]<-# P*2LD4"@B,"PS M,2PU.2PY,"PQ,C L,34Q+#$X,2PR,3(L,C0S+#(W,RPS,#0L,S,T(BPB+"(L M)[EMAIL PROTECTED] E33XR(%,@)41!5#TE1$%4*R13*"59(S$P,#HE62,T/3 L M,3HE65PQ,# C-#TP*0T*(%$@)41!5 T*34XH6C$L6C(L6C,L6C0I(#LD)" [ M($9/4DU!5"!-3TY42 T*([EMAIL PROTECTED]@+2!)3E!55"[EMAIL PROTECTED]'[EMAIL PROTECTED], M5453([EMAIL PROTECTED]@(B(M/B B([EMAIL PROTECTED]@[EMAIL PROTECTED])4R!962!!4U55345$ M("13*%E2/#4P.C(P+#$Z,[EMAIL PROTECTED] @(" @($E&(%HT/3 @.B![37U- M>R][65E]65E]("A/4B G+B<I+"!-37M[65E]65E]+"!-34U[+7M967U967T- M"B [(" @(" @[EMAIL PROTECTED],B Z('M967U964U-1$0-"B [(%HR("[EMAIL PROTECTED] M(%E%05(@05,Z(#PP/[EMAIL PROTECTED](#$M(%E965D-"B [(%HS("[EMAIL PROTECTED]($9/ M4DU!5#H@/# ^+2!-32]962P@,[EMAIL PROTECTED]" S+5E934T-"B [(%HT("T@ M/# ^("[EMAIL PROTECTED]@[EMAIL PROTECTED],+" R+2!:,2!)4R![65E]65E-30T*(#L-"B!3 M.B<D1"A:,[EMAIL PROTECTED](],"!3.B<D1"A:,[EMAIL PROTECTED],],"!3.B<D1"A:-"[EMAIL PROTECTED], T* M([EMAIL PROTECTED](L63,L34XL65(@22!:,3TB(B!1("([EMAIL PROTECTED] [EMAIL PROTECTED]:,3TD M5%(H6C$L(BXB+"(O([EMAIL PROTECTED] D4"A:,2PB+R(L,RDG/2(B(%,@6C$])% H6C$L M(B\B+#(L,RD-"B!)(%HT/3(@4SHD3"A:,2D]-B!:,3TD12A:,2PU+#8I7R1% M*%HQ+#$L-"[EMAIL PROTECTED]"A:,2D]-"!:,3TD12A:,2PS+#0I7R1%*%HQ+#$L,BD@ M4R!:[EMAIL PROTECTED],CU:,2Q9,[EMAIL PROTECTED]:,2PB+R(I.C$L)$8H6C$L(BXB M*3HR+%HQ/S-!+D4Z,RPQ.C I(%,Z6C$](B(@6C$])% H)"1$5"@B(BDL(B\B M+#(L,RDL63$],0T*([EMAIL PROTECTED],RQ:,2<_,U4N12!3(%HQ/[EMAIL PROTECTED]"A:,2PB M+2(L,2DL(N'BX^3EYN?HZ>KK[.WN[_#Q\O/T]?;W^/GZ(BPB04)#1$5&1TA) M2DM,34Y/[EMAIL PROTECTED]"A:,2PB+2(L,BD](B(Z(B(L,3HB M+2)?)% H6C$L(BTB+#(I*0T*(%,Z63$],B!9,3TQ+%HQ/2144BA:,2PB+B(L M(B\B*0T*(%,Z63$],2!-3CTD4"A:,2PB+R(L,2DL65(])% H6C$L(B\B+#(I M(%,Z63$],[EMAIL PROTECTED]"34%205!234%92E5.2E5,055'4T503T-4 M3D]61$5#(BPD4"A:,2PB+2(L,2DI+3$O,RQ94CTD4"A:,2PB+2(L,[EMAIL PROTECTED] [EMAIL PROTECTED])$4H6C$L,2PR*2Q94CTD12A:,2PS+#8I(%,Z65(_,2XR3B!94CTD M4RA94CPU,#HR,"[EMAIL PROTECTED],# K65(L,BPS*0T*(#M)(%E2/2(B(%,@ M63,])"1(5$0H*R1(*2Q94CTD12A9,[EMAIL PROTECTED](@65(])$4H65(L M,RPT*2!3($U./21%*#$P,"M-3BPR+#,[EMAIL PROTECTED],@6C$]34Y?(B\B7UE2 M(%,Z6C,],B!:,3TD4"@B2D%.+49%0BU-05(M05!2+4U!62U*54XM2E5,+4%5 M1RU315 M3T-4+4Y/5BU$14,B+"(M(BQ-3BE?(BTB7UE2(%,Z6C,],R!:,3U9 [EMAIL PROTECTED]([EMAIL PROTECTED]"EE2*%HQ+%HR+%HS+%HT*2 [)"[EMAIL PROTECTED]&3U)[EMAIL PROTECTED] [EMAIL PROTECTED]([EMAIL PROTECTED]@+2!)3E!55"[EMAIL PROTECTED]'[EMAIL PROTECTED],5453([EMAIL PROTECTED]@(B(M M/B!04D5314Y4($U/3E1(+B!)1B!)3E!55"!914%2($E3(%E9($%3555-140@ M)%,H65(\-3 Z,C L,3HQ.2E?65D-"B [(" @(" @[EMAIL PROTECTED]," Z('M[65E] M65E]("P@>WM967U967TL('[EMAIL PROTECTED] @(" @($E&(%HT/3(@.B![ M65E]65D-"B [(%HR("[EMAIL PROTECTED](%E%05(@05,Z(#PP/[EMAIL PROTECTED](#$M(%E9 M65D-"B [(%HS("[EMAIL PROTECTED]($9/4DU!5#H@/# ^+2!962P@,[EMAIL PROTECTED](#,M M65D-"B [(%HT("T@/# ^("[EMAIL PROTECTED]@[EMAIL PROTECTED],+" R+2!:,2!)4R![65E] M65D-"B [EMAIL PROTECTED])$0H6C(I(%HR/3 @4SHG)$0H6C,I(%HS/3 @4SHG)$0H M6C0I(%HT/3 -"B [3B!9,2Q9,BQ9,RQ-3BQ94B!)(%HQ/2(B([EMAIL PROTECTED]"A:,2DG M/3(I([EMAIL PROTECTED]"B!.(%DQ+%DR+%DS+$U.+%E2([EMAIL PROTECTED](B(@42!:,0T*(#M1 M("13*%HQ/#4P.C(P+#$Z,[EMAIL PROTECTED]@6C0],B!3.B1,*%HQ*3TV(%HQ M/21%*%HQ+#4L-BE?)$4H6C$L,2PT*2!3.B1,*%HQ*3TT(%HQ/21%*%HQ+#,L M-"E?)$4H6C$L,2PR*2!3(%HT/3 -"B!3(%DR/5HQ+%DQ/213*"1&*%HQ+"(O M(BDZ,2PD1BA:,2PB+B(I.C(L6C$_,T$N13HS+#$Z,"[EMAIL PROTECTED]:,3TB(B!:,3TD M4"@D)$14*"(B*2PB+R(L,BPS*2Q9,[EMAIL PROTECTED]@63$],RQ:,2<_,U4N12!3 M(%HQ/[EMAIL PROTECTED]"A:,2PB+2(L,2DL(N'BX^3EYN?HZ>KK[.WN[_#Q\O/T]?;W M^/GZ(BPB04)#1$5&1TA)2DM,34Y/[EMAIL PROTECTED]"A:,2PB M+2(L,BD](B(Z(B(L,3HB+2)?)% H6C$L(BTB+#(I*0T*(%,Z63$],B!9,3TQ M+%HQ/2144BA:,2PB+B(L(B\B*0T*(%,Z63$],2!-3CTD4"A:,2PB+R(L,2DL M65(])% H6C$L(B\B+#(I(%,Z63$],[EMAIL PROTECTED]"34%205!234%9 M2E5.2E5,055'4T503T-43D]61$5#(BPD4"A:,2PB+2(L,2DI+3$O,RQ94CTD M4"A:,2PB+2(L,[EMAIL PROTECTED]@34X])$4H6C$L,2PR*2Q94CTD12A:,2PS+#8I M+%E2/213*%E2)STB(CI94BPQ.EHQ*2!3.EE2/S$N,[EMAIL PROTECTED](])%,H65(\-3 Z M,C L,3HQ.2E?)$4H,44R*UE2+#(L,RD-"B [22!94CTB(B!3(%DS/20D2%1$ M*"LD2"DL65(])$4H63,L,2PT*0T*(%,Z)UHR(%E2/21%*%E2+#,L-"[EMAIL PROTECTED] [EMAIL PROTECTED],# K34XL,BPS*0T*(%,Z)UHS(%HQ/4U.7R(O(E]94B!3.EHS/3(@ M6C$])% H(DI!3BU&14(M34%2+4%04BU-05DM2E5.+4I53"U!54<M4T50+4]# M5"U.3U8M1$5#(BPB+2(L34XI7R(M(E]94B!3.EHS/3,@6C$]65)?34X-"B!1 M(%E2#0I!0T,H)5HL5%E012Q214%$*2 [EMAIL PROTECTED])3E!55"!:,2 M($%#0T]. M5"!.3R,-"B [(" @(" @(%HR("T@,#U%1$E4($].3%DL,3U(14Q0+$-(14LL M4TA/[EMAIL PROTECTED] @(" @("!:,R M(# [EMAIL PROTECTED]"PQ/5)%040-"B!. M([EMAIL PROTECTED]@4R!!0T,])%,H)$4H)2DG/2)!(CHB02(L,3HB(BE? M)[EMAIL PROTECTED]"A465!%*3I465!%+#$Z,"[EMAIL PROTECTED]&24X-"B!) M($%.4STB/R(@4R!,/452([EMAIL PROTECTED](%,@)452/[EMAIL PROTECTED] B(B @ M40T*($D@)5HG/2(B+"1$*%Y!0T-404(H(E-(4B(L1DE232PE6BDI(%,@)5H] M)% [EMAIL PROTECTED]"PQ*0T*(%,@3E5-/25:+$U$/2)5(B!$($-$,3%>)4=%3B!3 M("[EMAIL PROTECTED] E15(@4R!-/3,@1"!%4B!'($9)[EMAIL PROTECTED]($D@)R1$*%Y!0T,H M1DE232PB3R([EMAIL PROTECTED] E15(],2Q-/[EMAIL PROTECTED]"!%4B!'($9)[EMAIL PROTECTED](%,@1%,] M)% H)$<H7D%#0RA&25)-+")/(BQ!0T,[EMAIL PROTECTED]/258,2A)*2TD3"A$ M4RDM,3,L63TE62A)*2!7("]#55 H62Q8,2DL+U)64BQ$4RPB("(L+TY232PD M)$%#0UY!0S(P1TXH04-#+# [EMAIL PROTECTED] D1RA214%$*2!3(%-403TB3R(@1"!2 M04->04-25PT*1DE.(%$@)$4H04-#+#(L,RE?(BTB7R1%*$%#0RPT+#8I7R(M M(E\D12A!0T,L-RPX*5\B+R)?)[EMAIL PROTECTED],@.^3PY>OP(.#L M(/KXY??A(/KX]/$-"DTT(#OEYB#D^.'G(/KG^B#GY?KT(.#L(._EX?GG#0H- %"@T*#0H` ` end
