but it won't be dynamic data that way. The RPG would need to be run. the
other issue with making a view is you have to replicate whatever logic is
on the logicals that are used.


On Thu, Jun 26, 2014 at 6:04 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

My question? Why? Just create a stored procedure in RPG and return the
result set to the Crystal Reports. The business logic is where it belongs,
on the iSeries and presenting is the Crystal.


On Thu, Jun 26, 2014 at 4:00 PM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

HI I have replicated functions from RPG program into SQL's.

I can make each sql as a VIEW. But would like to load them into the CR as
one unit. But the CR rejects more than one. But is this a CR issue or is
there syntax needed to run more than 1 CR.
I think I want to keep these separately coded, as we are showing orders
in
various forms of progress i.e. Picking, engraving etc. I want in 1 cr for
tedious wise, there are many screens of RPG i have to do and each time to
make a VIEW is time consuming if there is an alternatives.

SELECT count(*)as Picking
FROM
CCDTA.OEORH48,CCDTA.TRNSTAT2,CCDTA.OETRA99
WHERE OHCOM# = TSCOM# AND OHORD# = TSORD#
AND (otCOM# = OHCOM# AND OTORD#= OHORD# AND ottrnc = 'AQC')
AND OHORDT IN('RTR','INT','SAM') AND TSSTAT IN('ECT','STP')
AND OHREQD = replace(char(current date, iso), '-', '') AND
OHHLDC = ' 'AND OHORD# in(SELECT a.TSORD# FROM ASTCCDTA.TRNSTAT2 a
WHERE a.tsstat IN('AEP','BGE','EAS','REL','STP'));


SELECT count(*) as LaserENG FROM
CCDTA.OEORH48,CCDTA.TRNSTAT2,CCDTA.OETRA99
WHERE OHCOM# = TSCOM# AND OHORD# = TSORD#
AND (otCOM# = OHCOM# AND OTORD#= OHORD# AND ottrnc = 'AQC')
AND TSSTAT IN('EAS','REL','SCC')
AND OHORDT IN('RTR','INT','SAM')
AND OHREQD = replace(char(current date, iso), '-', '') AND OHHLDC =
' '
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.






Return to Archive home page | Return to MIDRANGE.COM home page