Re: compile option*NOUNREF

[CRPence <CRPbottle@xxxxxxxxx>]

David FOXWELL wrote:
> <<SNIP>>
>
> Here's what I did. 
>
> DSPOBJD of modules.
>
> DSPFD member list of all QRPGLESRC
>
> SELECT ODOBNM FROM dspobjdmod
> join dspfdMbrLst on mlname=odobnm
> WHERE MLSEU2 ='SQLRPGLE'
>
> I realise of course that this method may give undesired results, 
> as I'm assuming that there is a relation to a module name and a 
> member name in a QRPGLESRC file. The two files in my sql
> statement are actually independent of each other.

  FWiW: To more accurately list all modules which were compiled 
with embedded SQL:

    DSPOBJD *ALL/*ALL *MODULE *FULL
      OUTPUT(*OUTFILE) OUTFILE(ODMODULE)
    CREATE FUNCTION ModHasSQL (LIB varchar(10), MOD varchar(10))...
     RETURNS CHAR /* '1'=True\'0'=False */...
    SELECT ODLBNM, ODOBNM FROM ODMODULE
     WHERE ODOBAT='RPGLE' AND ModHasSQL(ODLBNM, ODOBNM) = '1'

  The function would reflect the result of the QBNRMODI Retrieve 
Module Information API call, for its ability to retrieve any DB2 SQL 
attributes from the *MODULE identified by qualified name as input.

Regards, Chuck