Comments on: AS400

By: TomLiotta

TomLiotta — Tue, 28 Aug 2012 09:41:22 +0000

giving me error

You need to show us the error. “SQL Pre-compiler failed” is not the error; it’s only a message telling that the pre-compiler couldn’t finish. You need to look at the pre-compiler output to see the error (and show it to us).

Tom

By: anupsshelke

anupsshelke — Tue, 28 Aug 2012 09:21:39 +0000

*************** Beginning of data *********************************************** flab25 if e k disk c dow *in03=’0′ c read rec 03 c move *blanks dept1 1 0 c z-add 0 sala2 6 0 c/exec sql c+ SELECT dept, sum(salary) into :dept1, :sala2 FROM lab22 GROUP BY dept c/end-exec c dept1 dsply c sala2 dsply c enddo c seton lr ******************************************************************************************* its giving me error that- SQL Pre-compiler failed….

By: philpl1jb

philpl1jb — Wed, 22 Aug 2012 11:46:22 +0000

and this is homework.

By: TomLiotta

TomLiotta — Wed, 22 Aug 2012 00:43:04 +0000

Sorry about the code formatting. I’m not sure why the {code} function is included with the editor since it doesn’t do anything useful.

Tom

By: TomLiotta

TomLiotta — Wed, 22 Aug 2012 00:30:07 +0000

As CharlieBrowne said, you can use pretty much the same SQL in RPG. Here’s a trivial example:
H Debug
D mySUM s 10 2

/free
exec sql SELECT SUM(SALARY)
INTO :mySUM
FROM PF1 WHERE DEPT=’A';
dump ;

return ;
/end-free

The DEBUG keyword is just for testing, and the DUMP statement is also for testing.

Or are you needing to know how it would be done using native I/O? If so, please post the code you’ve been trying to create.

Tom

By: philpl1jb

philpl1jb — Tue, 21 Aug 2012 19:02:31 +0000

If you create a logical file on DEPT and use that in your program, then this sould be rather simple.