×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Hi all, I'm a little stumped here. I'm debugging a program and when I
look at the job's open files (14. Display open files, if active) there are
files being opened in the *DFTACTGRP.
I'm calling an SQLRPGLE program and the program's Activation Group
Attribute is QILE. So my understanding is that files which are opened
will be in the QILE activation group (there are no OVRDBF in the job
stream and in fact only this program is called from the command line)
When the program breaks just before the sql statement the open files are
File Library Device Scope Activation Group
QDUI80 QSYS RROGB *ACTGRPDFN *DFTACTGRP 0000000000000002
QASQRESL QSYS2 QASQRESL *ACTGRPDFN *DFTACTGRP 0000000000000002
FA1120P TESTAM247 FA1120P *ACTGRPDFN QILE 0000000000000013
POSDAYP QS36F POSDAYP *ACTGRPDFN QILE 0000000000000013
DSTHSTP QS36F DSTHSTP *ACTGRPDFN QILE 0000000000000013
ROSHSTP TESTAM247 ROSHSTP *ACTGRPDFN QILE 0000000000000013
ROSHSTP TESTAM247 ROSHSTP *ACTGRPDFN QILE 0000000000000013
QDUI80 QSYS RROGB *ACTGRPDFN *DFTACTGRP 0000000000000002
QDDSPOF QSYS RROGB *ACTGRPDFN *DFTACTGRP 0000000000000002
This looks as I expect. But when I execute the following sql statement
Exec SQL
SELECT Min(a.FirstDate)
INTO :firstDate :firstDateNI
FROM (SELECT MIN(veendt) AS FirstDate
FROM posmvep
WHERE veitm# = :i_Item
AND vecus# = :i_Store
AND veendt >= :g_oldestdate80
UNION ALL
SELECT MIN(dhindt) AS FirstDate
FROM dsthstp
WHERE dhitm# = :i_Item
AND dhcus# = :i_Store
AND (dhwhid = 99
OR dhrel = 'Y')
// AND (dhtype <> 'O'
// AND dhtype <> 'P')
AND dhindt >= :g_oldestdate80
UNION ALL
SELECT DateToDecimalDate(MIN(rodate)) AS FirstDate
FROM roshstp
WHERE roitm# = :i_Item
AND rostr# = :i_Store
AND rodate >= :oldestdate) AS a;
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.