RE: Year 300 bug in ILE RPG or ...? (Again)

True, but those examples deal with adding/subtracting months.  I tried
Vanya's test except I initialized my first *ISO date to '0001-03-01' added
X:*Y (X =  1 to 9998) to a TempDate (*USA) subtracted one day.  Then
Extracted (extrct) the day, (LastFebDay) from TempDate, If LastFebDay = 29,
then print TempDate as a LeapYear.  Mine also failed...  when I dumped it,
the variables showed the following values:

TempDate = '02/29/0300'
LastFebDay = 28

I don't think Vanya or I have made any mistakes,.. something funny is going
on here!!

Regards,
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Jon A. Erickson
Viking Industries, Inc.
http://www.vikingindustries.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
[[ JONERI~1.VCF : 4147 in winmail.dat ]]

> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:carolg@tbsa.co.za] On
> Behalf Of Carol Godfrey
> Sent: Monday, May 25, 1998 12:18 AM
> To:   'RPG400-L@midrange.com'
> Subject:      RE: Year 300 bug in ILE RPG or ...?  (Again)
>
> ADDDUR & SUBDUR can cause unexpected results - they even give
> examples in the reference manual


begin 666 winmail.dat
M>)\^(C,0`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <`
M& ```$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$&
M@ ,`#@```,X'!0`:``D``0````(```$!`Y &`%@)```K````"P`"``$````+
M`",```````,`)@``````"P`I```````+`"L```````,`+@```````P`V````
M```>`' ``0```"T```!213H@665A<B S,# @8G5G(&EN($E,12!24$<@;W(@
M+BXN/R @*$%G86EN*0`````"`7$``0```!L````!O8>M.DG#Z74I\Z<1T;]F
M1$535 ```$0T?" ``@$=# $````F````4TU44#I*3TY%4DE#2U-/3D!624M)
M3D=)3D154U122453+D-/30````L``0X`````0 `&#@!&SWF_B+T!`@$*#@$`
M```8`````````)BZ=!8#&=$1GL@`H,EV4'+"@ ``"P`?#@$````#``80Q( @
MR@,`!Q [`P``'@`($ $```!E````5%)512Q"55142$]3145804U03$531$5!
M3%=)5$A!1$1)3D<O4U5"5%)!0U1)3D=-3TY42%-)5%))141604Y905-415-4
M15A#15!424E.251)04Q)6D5$35E&25)35"I)4T]$00`````"`0D0`0```&P$
M``!H! ``;P8``$Q:1G4WAR,,`P`*`')C<&<Q,C46,@#X"V!N#A P,S.9#L9F
M90]&`9$S-@'H3B "I /C`@!C: K <_!E=# @!Q,"@P!0!%4_$ED(50>R`H,.
M4!'V<'(\<3(2^0]P%@H27WU]LPJ ",@@.PEO#C U&E]G"F "@ J!=6,`4 L#
M8U$`075L;@(@90NF((14<@I0+"!B=05 "'1H;Q*P(&5X8=YM"U 'D0$`!T @
M`_ ?@! @861D"X!G+W-0=6)T<@#0="%!( ,$8 (P:',N("!)(Q]P"(%D(%8`
M<'EA.B<$('0'D 5 '^!C99\%,2+0"X @T <Q:7HC(6!M>2!F:1*@!4 J:$E3
M3R!@82/0'W!OR" G,";@,2T/4"<@##$G(0(C(5@Z*EF@("A8(#TBL#$FDE(Y
M*0`X*2:281[0904@$$0F8B@J55-!7RE (88C(1XA)D%Y(J%4HF@)\"!%>"KF
M*!_@/R&P(> I02P0*Y(?("A,HF$C\$9E8BGP>2E QP-2*:<?($EF("XH*''\
M,CD?("V!`Z 6@ N !4"7*;<N,"F!3"" <%D@@)IR(J%-"X R,6QS)K!F9@MP
M(#!D+C10(K!W\RP2(M!D=2 0(R$@T##SO"!V"L ', )@!Y%S'Y#N=R,A+8("
M$&P)``/P(A'S-@`*07,Z"J(*A J *;?3*( FT#(O,- O#U FX'8G.&0P##@X
M:C3Q`B G^Q]B"X!K(T0K4 7 (M 2@/YV'\ `P $`(0`C<"(P! #U`9!K!Y L
M-&$SP > /2(Q(B!F=6X^X00`(&<>;R("`B ^( 2092$A?SAJ"O0,T '!':$5
MX2BP4IQE9PL1/X X9"T]1,^K19HX9$I!84$BH$4%$!QC:S/ "Y X<U9I:_DB
M`DEN-1 C\ B!/X!(P3QC+CAE';0^( ) <#K(+R]W2R N=DAS"X#U2/8N!:!M
M0V,=]41_3E_'1I8=6 $Q;V)J)F!*T/AH7"<,`4(*'; "T17B0#$V(#X@+5-"
M3Q<%$$NQ()%-!Y!S86<.95-#0EHEH"TQ-#1?`4 E$%73#-!5TV)3$49W`V$X
M4 R28A+@-L >,'(,+7(.`%7P,"UL0"T_$&0AP \@94QB(%O/2C8`P ,0)J Z
M8PK !O <9T "4%103&$N>F&S4E,=]"!=`S!7`$\#H5,X<U,@0F42@&POX$_.
M9E?2%-!:XB!'!' #4'QE>3AE5P(&8 (P5X=-NP(@+<--,($.,!\@,2D1D2B@
M,CHQ8@!!35]9AE1:L%>6)U)01UBBWDQ8^SJ%7[0AD&H%D& XT%)%.B RXB Z
M41\QYR(@"X BP$Q%!_!D(#W29311/R*P*$%$``N *=="6AX0`_!D(>!L"K%#
M!4\78QZQ4R!=)D%$;/!5R%(@)@8`54)M$EK0_P.@6M!)`!_ 0( ?X#5 *Q-O
M&\ A@%J0!" M+7(E@&7_/E #H$NP/E%=)A_G:#$M@I\;P! `&\!)H#YB;G4'
M0 LX9!EQ`'/@`P`0$ `````#`!$0`````!X`0A !````)@```#PP,4)$.#="
M1"Y&14%!.$$T,$!C87)O;&<N=&)S82YC;RYZ83X````+``" "" &``````# 
M````````1@`````#A0````````,``H (( 8``````, ```````!&`````!"%
M````````"P`#@ @@!@``````P ```````$8`````%(4````````#``6 "" &
M``````# ````````1@````!2A0``\!,``!X`)8 (( 8``````, ```````!&
M`````%2%```!````! ```#@N-0`#`": "" &``````# ````````1@`````!
MA0````````L`+X (( 8``````, ```````!&``````Z%`````````P`P@ @@
M!@``````P ```````$8`````$84````````#`#* "" &``````# ````````
M1@`````8A0```````!X`08 (( 8``````, ```````!&`````#:%```!````
M`0`````````>`$* "" &``````# ````````1@`````WA0```0````$`````
M````'@!#@ @@!@``````P ```````$8`````.(4```$````!``````````L`
MQH +( 8``````, ```````!&``````"(````````"P#(@ L@!@``````P ``
M`````$8`````!8@````````+`-2 "" &``````# ````````1@````""A0``
M`0````L`VH (( 8``````, ```````!&``````:%`````````@'X#P$````0
M````F+IT%@,9T1&>R "@R790<@(!^@\!````$ ```)BZ=!8#&=$1GL@`H,EV
M4'("`?L/`0```% `````````.*&[$ 7E$!JANP@`*RI6P@``4%-44%)8+D1,
M3 ``````````3DE40?F_N $`J@`WV6X```!#.EQ724Y$3U=37&UA:6QB;W@N
M<'-T``,`_@\%`````P`--/TW```"`7\``0```#$````P,# P,# P,#DX0D$W
M-#$V,#,Q.40Q,3$Y14,X,#!!,$,Y-S8U,#<R-C0W,#(T,# `````!"("`I &
M``X````!`+@"```@`" ``````/L``A. `P`.````S@<$``<`!P`F`!(``@`A
M`0(/@ 8`!@0``$)%1TE..E9#05)$#0I615)324]..C(N,0T*3CI%<FEC:W-O
M;CM*;VX[.SL-"D9..DIO;B!%<FEC:W-O;@T*3U)'.E9I:VEN9R!);F1U<W1R
M:65S.TEN9F]R;6%T:6]N(%-Y<W1E;7,-"E1)5$Q%.E-R+B!0<F]G<F%M;65R
M($%N86QY<W0-"E1%3#M73U)+.U9/24-%.B@U,#,I(#8V-RTV,#,P('@U-3 -
M"E1%3#M(3TU%.U9/24-%.B@U,#,I(#8U."TW-3@Y#0I414P[0T5,3#M63TE#
M13HH-3 S*2 S,#<M-S8U-0T*5$5,.U=/4DL[1D%8.B@U,#,I(#8V.2TQ,3,U
M#0I!1%([5T]22SH[.S$X-C P($XN12X@5VEL:V5S(%)D+CM0;W)L86YD.T]2
M.SDW,C,P+38Y.34[56YI=&5D(%-T871E<R!O9B!!;65R:6-A#0I,04)%3#M7
M3U)+.T5.0T]$24Y'/5%53U1%1"U04DE.5$%"3$4Z,3@V,# @3BY%+B!7:6QK
M97,@4F0N/3!$/3!!4&]R;&%N9"P@3U(@.3<R,S M-CDY-3TP1#TP055N:71E
M9"!3=&%T97,@;V8@06UE<CT-"FEC80T*0412.TA/344Z.SLQ-3,S-"!312!/
M<F5G;VX@5')A:6P@1'(N.T-L86-K86UA<SM/4CLY-S Q-3M5;FET960@4W1A
M=&5S(&]F($%M97)I8V$-"DQ!0D5,.TA/344[14Y#3T1)3D<]455/5$5$+5!2
M24Y404),13HQ-3,S-"!312!/<F5G;VX@5')A:6P@1'(N/3!$/3!!0VQA8VMA
M;6%S+"!/4B Y-S Q-3TP1#TP055N:71E9"!3=&%T97,@;V8@06UE/0T*<FEC
M80T*0412.U!/4U1!3#H[.U N3RX@0F]X(#(P-3$X.U!O<G1L86YD.T]2.SDW
M,CDT+3 U,3@[56YI=&5D(%-T871E<R!O9B!!;65R:6-A#0I,04)%3#M03U-4
M04P[14Y#3T1)3D<]455/5$5$+5!224Y404),13I0+D\N($)O>" R,#4Q.#TP
M1#TP05!O<G1L86YD+"!/4B Y-S(Y-"TP-3$X/3!$/3!!56YI=&5D(%-T871E
M<R!O9B!!;65R:6-A#0I54DPZ#0I54DPZ:'1T<#HO+W=W=RYP8V5Z+F-O;2]^
M97=A<F4-"D)$05DZ,3DV,#$R,#0-"D5-04E,.U!2148[24Y415).150Z:F]N
M97)I8VMS;VY =FEK:6YG:6YD=7-T<FEE<RYC;VT-"D5-04E,.TE.5$523D54
M.F5W87)E0'!C97HN8V]M#0I2158Z,3DY.# T,#=4,30S.#$Y6@T*14Y$.E9#
M05)$#0J^* (0@ $`#0```$I/3D5227XQ+E9#1@"#`P(1@ 8`E D```$`"0``
M`\H$`````"$$``````4````!`O___P`%````"0(`````! ````<!`0!E````
M00O&`(@`( `@```````@`" ``````"@````@````( ````$``0``````````
M````````````````````````````____`/__________________________
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``#_____________________! ````<!`0`%````"0(!````!0````$"`0``
M``4````!`O___P`%````"0(`````! ````<!`P`A! ``00M&`&8`( `@````
M```@`" ``````"@````@````( ````$`" ``````````````````````````
M``````````````" ``" ````@( `@ ```( `@ " @ ``P,# `,#<P #PRJ8`
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````````````#P
M^_\`I*"@`(" @ ```/\``/\```#__P#_````_P#_`/__``#___\`````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^ #X!P<'!P<'
M!P<'!P<'_______________________X`/@'!P<'!P<'!P<'!P?_________
M______________@`^ <'!P<'!P<'!P<'!_______________________^ #X
M!P<'!P<'!P<'!P<'__CX^/CX^/CX^/CX^/CX^/_X`/@'!P<'!P<'!P<'!P?_
M______________________@`^ <'!P<'!P<'!P<'!__X^/CX^/CX^/CX^/CX
M^/C_^ #X!P<'!P<'!P<'!P<'_______________________X`/@'!P<'!P<'
M!P<'!P?_^/CX^/CX^/CX^/CX^/CX__@`^ ?X^/CX^/CX^/@'!___________
M____________^ #X!_@`!@8```8`^ <'_______________________X`/@'
M^/@``/__`/CX!P?_______________________@`^ ?X^ #__P``^/@'!_\$
M! 0$! 0$! 0$! 0$! 3_^ #X!_@```#___\`^ <'_P0$! 0$! 0$! 0$! 0$
M!/_X`/@'``<'_____P#X!P?_______________________@`^ <`!P<`____
M_P`'!_______________________^ #X!P`'!P#__P``^ <'____________
M___________X`/@'``<'!P#__P#X!P?_______________________@`^ ?X
M``<'!P<'`/@'!_______________________^ #X!_CX``````#X^ <'____
M___________________X`/@'!P<'!P<'!P<'!P?_____________________
M__@`^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^/CX^ ``````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````0````'`0$`!0````D"`0``
M``4````!`@$````#``````!(' (%D 8`4 $``!$````#`" ._PT``!X``3 !
M````$0```$IO;B!%<FEC:W-O;BYV8V8``````@$"-P$`````````'@`#-P$`
M```%````+G9C9@`````#``4W`0```!X`!S<!````$0```$IO;B!%<FEC:W-O
M;BYV8V8``````P`+-[@"```#`/I_`````$ `^W\`0-VC5T6S#$ `_'\`0-VC
M5T6S# ,`_7\`````"P#^?P`````#`"$.Y?H```(!^ \!````$ ```)BZ=!8#
M&=$1GL@`H,EV4'("`?H/`0```! ```"8NG06`QG1$9[(`*#)=E!R`@'[#P$`
M``!0`````````#BANQ %Y1 :H;L(`"LJ5L(``%!35%!26"Y$3$P`````````
M`$Y)5$'YO[@!`*H`-]EN````0SI<5TE.1$]74UQM86EL8F]X+G!S= `#`/X/
&!P```!!*
`
end


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *