Re: Problems with embedded SQL in RPG

[Vanya Jovic <jovic@xxxxxxxxxxxx>]

Anthony,

I bet you forgot to set *inLR; it's still RPG  :)).

Then, type should be SQLRPGLE (or RPGSQLLE, I don't remember now), it will
enable syntax checker and option 14 of PDM.

Finally, check the compilation listing. You can also check
pre-compiler listing for SQL if you set proper parameters in CRTSQLRPGI.

Regards

Vanya Jovic,
Canada


On Thu, 10 Dec 1998, Anthony Mallozzi wrote:

> 
> Hello RPG users!:
>       I am trying to use embedded SQL in RPG IV for the first time.
> I did the following procedures:
> 1. CRTSRCPF FILE(Y10PDDBVAL/QRPGLESRC) RCDLEN(112) TEXT('Source physical file
>    for RPG Procedures')
>    (This was run from the command line)
> 
> 2. Run STRPGMMNU and use option 8(edit a source file member)
>    Parameters used were:
>       Source library: Y10PDDBVAL
>                  file: QRPGLESRC
>        Object library: Y10PDDBVAL    
>                 type: RPGLE
>       Member name(program name): EMBEDSQL
> 
> 3. In SEU I entered the following:(TRIANGLE is the name of a simple test
> table to use SQL on).
>       C/Exec SQL
>       C+      Update Y10PDDBVAL/TRIANGLE               
>       C+      Set WIDTH=13
>       C+      Where CATEGORY='T'
>       C/End-Exec
> 
> 4. Finally, I executed the following CL command to create a program object:
>       CRTSQLRPGI OBJ(Y10PDDBVAL/EMBEDSQL) SRCFILE(Y10PDDBVAL/QRPGLESRC)
> SRCMBR(EMBEDSQL)
> 
>       I get the error messages:
>       "Compilation stopped.  Severity 40 errors found in program"
>       "Compilation failed.  Program EMBEDSQL not created in library 
>Y10PDDBVAL".
> 
>    I would much appreciate if someone with experience doing this type of
> procedure could help    me.
> 
>       Thanks,
>       Tony Mallozzi                           
>               
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *