Comments on: Converting julian date with CL on the AS400

By: Rrbond07

Rrbond07 — Tue, 15 Jan 2013 02:26:16 +0000

Well, I’ve tried the ADDDAT and it gave me the results I wanted. From 011413 it subtracted 35 days that I wanted and gave me 121012. Now my next question, I want to delete all IFS entries with the extention having .xml. Using the date of 121012, I need to delete any .xml entires older than 121012. How would I do that using DLTIFS? Thanks for any help you can offer.

By: Rrbond07

Rrbond07 — Sun, 13 Jan 2013 19:42:21 +0000

Thanks people. Yes, I did get the same result 12973 which is not correct. I’ve been away from CL for so long I’ve forgotten most of it. I will check out the ADDDAT and see what I can come up with.
Further suggestions are always welcome!! Thanks!

By: TomLiotta

TomLiotta — Thu, 10 Jan 2013 04:48:23 +0000

There are a couple problems with the routine. First, it has a bunch of MONMSG CPF0000 commands throughout the code. All of those should either be removed or be replaced with useful MONMSG handlers.

But this statement is not logically valid:
CHGVAR VAR(&MBRDAT2) VALUE(&MBRDAT2-35)
It’s okay mathematically, but the value is being used as a Julian date. And that makes the subtraction logically invalid. You can’t be adding and subracting Julian date values and then using the resulting values as new Julian dates.

If you want to add/subtract a number of days to a date, you have to work with date durations or not use dates. See the Convert an *iso date to *longjul in CLP thread for one recent discussion.

Since you seem to have TAATOOLs, you can probably use one of those tools to do the math.

Tom

By: philpl1jb

philpl1jb — Thu, 10 Jan 2013 02:21:40 +0000

http://taatool.com/document/L_adddat.htm

By: philpl1jb

philpl1jb — Thu, 10 Jan 2013 02:20:01 +0000

Today is 13008 subtract 35 is 12973 which is not the answer you wantBut if you have TAATOOL then you have ADDDAT, ADDDAT will add or subtract and will do everything you want in a single step!