Re: Embedded SQL question.

Tim - my question to you is - why do you need this embedded within RPG?
Can this not be run using RUNSQL within a CL program?


Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


                                                                       
             "Hatzenbeler,                                             
             Tim"                                                      
             <thatzenbeler@cli                                          To
             nitech.net>               "RPG programming on the AS400 / 
             Sent by:                  iSeries" <rpg400-l@xxxxxxxxxxxx>
             rpg400-l-bounces@                                          cc
             midrange.com                                              
                                                                   Subject
                                       Embedded SQL question.          
             04/10/2006 12:32                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       





I have this sql statement, that works fine from ops-nav...

I was wondering, if there is a flag I can set?  Or a conversion tool
available, to change what needs to be changed to work from rpg, or do I
need
to walk through each query, and convert them to the native format?

I have about 50 of these things..

End-result: I would like to embed these sql statements within an RPG
program...

Thanks, Tim

SELECT
    "MANFILPF"."MNACTC",
    "MANFILPF"."MNMFG#",
    "MANFILPF"."MNSIZE",
    "MANFILPF"."MNDESC",
    "MANFILPF"."MNUNIT",
    "PRPPIL"."PILLOC",
    "PRPPIL"."PILMNQ",
    "PRPPIL"."PILMXQ",
    "DANA2"."MONTHUSG",
    "PRDINVEN"."MIQTY",
    "PRDINVEN"."MITYPE",
    "PRPPIL"."PILCO"
FROM {oj (("EVCLFIN"."CADBFA"."MANFILPF" "MANFILPF"
LEFT OUTER JOIN
    "EVCLFIN"."CADBFA"."PRPPIL" "PRPPIL"
    ON (("MANFILPF"."MNMFG#"="PRPPIL"."PILPRD")
    AND ("MANFILPF"."MNSIZE"="PRPPIL"."PILSIZ"))
    AND ("MANFILPF"."MNUNIT"="PRPPIL"."PILIUM"))
LEFT OUTER JOIN
    "EVCLFIN"."CADBFA"."PRDINVEN" "PRDINVEN"
    ON (((("PRPPIL"."PILCO"="PRDINVEN"."MICO")
    AND ("PRPPIL"."PILLOC"="PRDINVEN"."MILOC"))
    AND ("PRPPIL"."PILPRD"="PRDINVEN"."MIPROD"))
    AND ("PRPPIL"."PILSIZ"="PRDINVEN"."MISIZE"))
    AND ("PRPPIL"."PILIUM"="PRDINVEN"."MIFUM"))
LEFT OUTER JOIN
    "EVCLFIN"."DEVTIMH"."DANA2" "DANA2"
    ON (((("PRPPIL"."PILCO"="DANA2"."COMPANY")
    AND ("PRPPIL"."PILLOC"="DANA2"."WAREHOUSE"))
    AND ("PRPPIL"."PILPRD"="DANA2"."ITEM_CODE"))
    AND ("PRPPIL"."PILSIZ"="DANA2"."SIZE_CODE"))
    AND ("PRPPIL"."PILIUM"="DANA2"."UOM")}
WHERE "PRDINVEN"."MITYPE"='AA'
    AND "PRPPIL"."PILLOC"='FANK2'
    AND "MANFILPF"."MNACTC"='A'
    AND "PRPPIL"."PILCO"='  001'


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.