Re: /INCLUDE directive

["John Taylor" <john.taylor@xxxxxxxxxxxxxxx>]

What a PITA. :-(

Any word from the Code group regarding when we might see the verifier
automatically pull in SQLCA, so that it plays nice with the SQL precompiler?

GENERAL RANT(*ON)

This whole SQL business has me steamed. On the one hand, IBM is pushing hard
for all of us to drop DDS and transition to SQL (which I don't have a
problem with), yet they do nothing to ease the pain of using it with our
HLL's. I've lost track of how many releases the SQL precompiler now trails
behind RPG. When did RPG give us nested /copy members? V4R2? Yet the
precompiler still fights us at every turn when using this feature.

Note to IBM: it's nice that you're giving us all these new DB features; it's
acceptable that you're only supporting them through a single (SQL) DDL/DML;
but it's all pointless if you don't enhance our tools to take advantage of
them.

RANT(*OFF)

Christ, I need a coffee....


John Taylor
Canada

----- Original Message -----
From: "Phil" <sublime78ska@yahoo.com>
To: "com CODE400-L@midrange." <CODE400-L@midrange.com>
Sent: Thursday, May 24, 2001 07:40
Subject: RE: /INCLUDE directive


> All,
>
> Thanks to Barbara Morris I now know how to do this.
>
> To use VERIFY on an SQLRPGLE member in Code/400 and to be able to compile,
> do this:
>
> <snip>
> 0002.00 D IND             S        N
> 0003.00 D/if defined(need_sqlca)
> 0004.00 D/copy qrpglesrc,sql_cm
> 0005.00 D/endif
> 0006.00 D
> 0007.00 C/EXEC SQL
> </snip>
>
> The d-spec after the /ENDIF is important or else the compiler will place
the
> generated SQLCA before the /ENDIF which will then be excluded.
> On the verify, select verify with prompt.  At the Compile tab, add a
> compiler option.  The name of the option must be the same as what's in the
> parentheses for DEFINED.
>
> Below is the contents of SQL_CM:
>
> 0001.00 D*      SQL Communications area
> 0002.00 D SQLCA           DS
> 0003.00 D  SQLAID                 1      8A   INZ(X'0000000000000000')
> 0004.00 D  SQLABC                 9     12B 0
> 0005.00 D  SQLCOD                13     16B 0
> 0006.00 D  SQLERL                17     18B 0
> 0007.00 D  SQLERM                19     88A
> 0008.00 D  SQLERP                89     96A
> 0009.00 D  SQLERRD               97    120B 0 DIM(6)
> 0010.00 D  SQLERR                97    120A
> 0011.00 D   SQLER1               97    100B 0
> 0012.00 D   SQLER2              101    104B 0
> 0013.00 D   SQLER3              105    108B 0
> 0014.00 D   SQLER4              109    112B 0
> 0015.00 D   SQLER5              113    116B 0
> 0016.00 D   SQLER6              117    120B 0
> 0017.00 D  SQLWRN               121    131A
> 0018.00 D   SQLWN0              121    121A
> 0019.00 D   SQLWN1              122    122A
> 0020.00 D   SQLWN2              123    123A
> 0021.00 D   SQLWN3              124    124A
> 0022.00 D   SQLWN4              125    125A
> 0023.00 D   SQLWN5              126    126A
> 0024.00 D   SQLWN6              127    127A
> 0025.00 D   SQLWN7              128    128A
> 0026.00 D   SQLWN8              129    129A
> 0027.00 D   SQLWN9              130    130A
> 0028.00 D   SQLWNA              131    131A
> 0029.00 D  SQLSTT               132    136A
> 0030.00 D*  End of SQLCA
>
> Phil


+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---