RE: Variable file names in Select from clause in SQPRPGLE?

While I agree with the other posts about using dynamic SQL, this could still be done in static SQL...

In this case, I would have to assume that your varying filenames all use the same record format. Given this assumption is true, then you could simply issue an OVRDBF before opening the cursor.

lCommand = 'OVRDBF FILE(M3DJD00002) TOFILE(' +DBXLIB+'/'+DBXFIL+ ')';
QCmdExec(lCommand:%len(lCommand));


/End-Free

C/EXEC SQL

C+ Declare C1 Cursor for

C+ Select * from M3DJD00002

C+ Where CRDY = :RunDate

C+ Order by SEQU

C+ for Fetch Only

C/END-Exec

hth,
Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Dave Murvin
Sent: Monday, June 16, 2008 6:25 PM
To: RPG programming on the AS400 / iSeries
Subject: Variable file names in Select from clause in SQPRPGLE?


I have a situation where I would like to run an embedded RPGLE SQL over
an audit database file where the actual file name can change. The audit
files are created by a 3rd party programs and I just have to use what
they give me. I have to go through a couple of files to determine the
current file name and library (library does not usually change except
between environments). File names are typically M3DJD00002, M3DJD00005,
Etc. depending on the file being audited.



I have tried variations of the following, but can not seem to make it
work. Can the file names be variables?



AuditFile = DBXLIB + '.' + DBXFIL;



/End-Free

C/EXEC SQL

C+ Declare C1 Cursor for

C+ Select * from AUDITFILE

C+ Where CRDY = :RunDate

C+ Order by SEQU

C+ for Fetch Only

C/END-Exec



Position 26 Column definitions for table AUDITFILE in

*LIBL not found.



I have also tried



C+ Select * from :DBXLIB.:DBXFIL

Token : was not valid. Valid tokens: (TABLE LATERAL <IDENTIFIER>



C+ Select * from :DBXLIB/:DBXFIL

Token : was not valid. Valid tokens: (TABLE LATERAL <IDENTIFIER>





Just to make it easier, if someone adds a field to be audited, the file
definition is changed and my fetch into a data structure is likely to
get a level check.



Any suggestions?



Thanks



Dave