RE: /INCLUDE directive -- CODE400-L

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
-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Buck Calabro
Sent: Wednesday, May 23, 2001 12:29 PM
To: RPG400-L@midrange.com
Cc: CODE400-L@midrange.com
Subject: RE: /INCLUDE directive

Phil wrote (in RPG400-L):
>/INCLUDE also isn't valid syntax in Code/400.  I initially thought it was a
>reason I needed the SP1 service pack but after downloading and installing
>the service pack, /INCLUDE still isn't allowed in Code/400.  I receive
>RNF0274E Compiler directive not recognized

I am using SP1 and get the same error on SQLRPGLE members.  Oddly, /INCLUDE
works fine on SQLRPG.
I cross-posted this to the CODE list in case anyone there has any advice.

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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| 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
+---