Comments on: Date calculation question

By: donethat

donethat — Mon, 26 Apr 2010 22:25:25 +0000

OK BK…I must confess I’m not great at reading/responding to forums.

Maybe Jlanus will read my inquiry. I would start a new thread but the history of the question is all tied up in this thread. Would be a heck of a convoluted post.

Til next time

By: bigkat

bigkat — Mon, 26 Apr 2010 14:36:45 +0000

Hi DoneThat,
that was Jlanus syntax, (see my prev message – I just added the word “day” after the case “end”) — and I just ran the “char ( current date … end day, ISO)” in a select from sysibm.sysdummy1like you did

Which was how I realized it needed the “day”

I really wasn’t trying to steal the credit

By: donethat

donethat — Fri, 23 Apr 2010 20:35:45 +0000

Hello BK. Maybe you can help me with something? I wrote the following to make your SQL example work...

WITH 	dummy AS (
SELECT 
	CHAR(
		CURRENT DATE +
			CASE 
				WHEN DAYOFWEEK(CURRENT DATE + 1 day) = 6 THEN 1
				WHEN DAYOFWEEK(CURRENT DATE + 2 day) = 6 THEN 2
				WHEN DAYOFWEEK(CURRENT DATE + 3 day) = 6 THEN 3
				WHEN DAYOFWEEK(CURRENT DATE + 4 day) = 6 THEN 4
				WHEN DAYOFWEEK(CURRENT DATE + 5 day) = 6 THEN 5
				WHEN DAYOFWEEK(CURRENT DATE + 6 day) = 6 THEN 6
				WHEN DAYOFWEEK(CURRENT DATE + 7 day) = 6 THEN 7
			END 	day,
		ISO)
 AS dateOfNextFriday 
FROM	sysibm.sysdummy1
) 
SELECT 
	SUBSTR(dateOfNextFriday, 6, 2)
	|| SUBSTR(dateOfNextFriday, 9, 2)
	|| SUBSTR(dateOfNextFriday, 1, 4)
	AS DateOfNextFridayMMDDYYYY
	FROM	dummy 
WITH	NC;

But YOU wrote as a CTE with a different syntax i.e. with t(dateOfNextFriday) etc. I cannot make that work. Can you mod my example above using your syntax?

By: bigkat

bigkat — Thu, 22 Apr 2010 13:51:43 +0000

I wish there was an option to update the answer, without it looking like I am claiming the WHOLE answer. I added one word – day – after the case statement, and well, now it shows I wrote it

By: tomliotta

tomliotta — Thu, 22 Apr 2010 06:43:23 +0000

Now I think I have heard that in ILE you can embed SQL statements…

You can indeed, as you also can with “Old” RPG. However…

You need to have the SQL compiler option to do that. I see that you’re using an “EXECUTE” command to run SQL in a CL program. That suggests that you don’t have clean access to QM, so you probably don’t have the SQL compiler option. (They come in one product.)

It doesn’t matter much if your programs are “Old” RPG or newer ILE. What matters most is the version of the operating system. If it’s been kept up and you can still compile your old programs, then you can also compile ILE versions. All of the compilers are in a single package (until the very latest releases in 2010.)

Tom

By: takeoption3please

takeoption3please — Fri, 13 Jun 2008 15:04:36 +0000

Sorry, the previous all came out as a link, but I’m new to this forum.
- jdl

By: takeoption3please

takeoption3please — Fri, 13 Jun 2008 15:03:16 +0000

Hi Tom

I found the old routines I think you are looking for in the Midrange archives:

One converts Julian to Gregorian and the other is reverse. BTW, you can also use both routines to validate a date in “old” RPG.

Here is the text of the link:

I don’t think it aligns properly here in this text box -

GTOJR1 (RPG)

C *ENTRY PLIST
C PARM G$MM 20
C PARM G$DD 20
C PARM G$YYYY 40
C PARM G$JD 50
C*
C Z-ADD0 G$JD
C G$MM SUB 3 G$MMWK 20
C Z-ADDG$MMWK GMWKSV 20
C G$MMWK IFLT 0 LVL-01
C ADD 12 G$MMWK
C END END-01
C GMWKSV IFNE 0 LVL-01
C G$MMWK MULT 30.6 G$JD H
C END END-01
C ADD G$DD G$JD 50
C G$YYYY SUB 1900 G$YYWK 30
C G$YYWK IFNE 0 LVL-01
C GMWKSV IFLT 0 LVL-02
C SUB 1 G$YYWK
C END END-02
C END END-01
C G$YYWK MULT 365.25 G$JYD 70
C ADD G$JYD G$JD
C G$JD DIV 7 G$WK7 70
C MVR G$DW 10 0=Wed-6=Tue
C RETRN

JTOGR1 (RPG)

C *ENTRY PLIST
C PARM J$JD 50
C PARM J$MM 20
C PARM J$DD 20
C PARM J$YYYY 40
C*
C J$JD DIV 365.25 J$YYWK 30
C J$JD DIV 365.25 J$TST 99
C J$TST IFEQ 0 LVL-01
C SUB 1 J$YYWK
C END END-01
C J$YYWK MULT 365.25 J$YD 70
C J$JD SUB J$YD J$YD
C J$YD IFGT 306 LVL-01
C ADD 1 J$YYWK
C END END-01
C Z-ADD0 J$X 20
C J$YD DOULEJ$MD LVL-01
C ADD 1 J$X
C J$X MULT 30.6 J$MD 30H
C END END-01
C SUB 1 J$X
C J$X MULT 30.6 J$MD H
C J$YD SUB J$MD J$DD 20
C J$X ADD 3 J$MM 20
C J$MM IFGT 12 LVL-01
C SUB 12 J$MM
C END END-01
C J$YYWK ADD 1900 J$YYYY 40
C SETON LR
C RETRN

Hope this helps

By: gilly400

gilly400 — Fri, 13 Jun 2008 14:48:31 +0000

Hi TomN,

You can embed SQL in “normal” RPG/400 as well as ILE. You’ll need to make the source type SQLRPG for RPG/400 or SQLRPGLE for ILE RPG, then SEU will error check the embedded SQL for you and you can compile using option 14 from PDM.

Regards,

Martin Gilbert.

By: tomn

tomn — Thu, 12 Jun 2008 21:36:59 +0000

Thanks for all your replies... I am sad to tell you that I have not had any exposure to RPGLE first hand. We have some old apps that I have needed to do small updates to over the years but all our programs are "older style" RPG II code that was brought forward by our software company back in '98 with very little change to the code and we were supplied the source code to do some customizations to if we needed to, although it was frowned upon. Most of our "custom" reports have been created by us using the Sequel product from HelpSystems, which has performed beautifully for us these last 9 years or so. We have been in the process of upgrading to our software company’s newer versions and I am seeing more and more ILE in their libraries. The thing I am trying to work with is one of our older apps and have been looking for a way to do this in the "old" code structure (that I am used to). I have just built something using SQL and a short little RPG program that I think will do the trick. I pass the output to a temp file and then read it using the little RPG program and place the date in the needed LDA positions for the final program to grab. One line of script: EXECUTE SQL('select "&&Adate" name(ldavalA) from sequelu/sqlexec') OUTFILE(QTEMP/QQ) REPLACE(*YES) With a variable defined like this: SQL(MMDDYY(current date+(6-dayofweek(current date))days)) Then read the file and put the data where needed: H FRILDA H*... Reads date in temp file and puts in LDA positions desired FQQ IP F 10 DISK IQQ NS 01 I 1 60FRIDA I UDS I 151 1560FRIDA Now I think I have heard that in ILE you can embed SQL statements, if this is true, could that SQL be placed right in the RPG and do it in one step? This is working for me now but am interested in looking further into “newer style” code. All this is just to reduce repetitious operator input and reduce errors!

By: bigkat

bigkat — Wed, 11 Jun 2008 16:04:57 +0000

Unless there is a typo I am not seeing, my free format RPG(LE) code should have worked unless you are on an older O/S level???

Kevin