RE: Compiler directive not recognized

["John Brandt Sr." <pgmr@xxxxxxxxxxxxxxx>]

Rob... Is there any code to the left of the "C" or way out to the right?

John Brandt
iStudio400.com

-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Thursday, March 25, 2004 3:43 PM
To: RPG programming on the AS400 / iSeries
Subject: Compiler directive not recognized


New subject line.  Sorry.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





rob@xxxxxxxxx 
Sent by: rpg400-l-bounces+rob=dekko.com@xxxxxxxxxxxx
03/25/2004 04:38 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Subject
(no subject)






I have this following prototype member (entire member follows):
      /if defined(DSpec)
     D SysName         s             10a      System name
      /else
     C/EXEC SQL
     C+     values current server
     C+       into :SysName
     C/END-EXEC
      /endif

I have this embedded in an RPGLE program as per the following:
...
      /DEFINE DSpec
      /INCLUDE ROUTINES/QRPGLESRC,SRVPGMCPY
      /INCLUDE ROUTINES/QPROTOSRC,SYSNAME
      *INCLUDE ROUTINES/QAPISRC,QMHSNDPM
      /INCLUDE ROUTINES/QPROTOSRC,DOMCPY
     D NoServersLeft   s               n
     D OpenCur1        PR
     D FetchRow        PR
     D SetRowTime      PR
     D CloseCur1       PR
     D DBSCAN        e ds                  Qualified
      /UNDEFINE DSpec

     C/EXEC SQL
     C+ Set Option
     C+     Naming    = *Sys,
     C+     Commit    = *None,
     C+     UsrPrf    = *User,
     C+     DynUsrPrf = *User,
     C+     Datfmt    = *iso,
     C+     CloSqlCsr = *EndMod
     C/END-EXEC
      /INCLUDE ROUTINES/QPROTOSRC,SYSNAME
...

Precompile generates the following:
...
1476 D  SQL_00017             64     64A 
1477 C*EXEC SQL 
1478 C* Set Option 
1479 C*     Naming    = *Sys, 
1480 C*     Commit    = *None, 
1481 C*     UsrPrf    = *User, 
1482 C*     DynUsrPrf = *User, 
1483 C*     Datfmt    = *iso, 
1484 C*     CloSqlCsr = *EndMod 
1486  /INCLUDE ROUTINES/QPROTOSRC,SYSNAME 
      *----------------------------------------------------------
      * RPG member name  . . . . . :  SYSNAME 
      * External name  . . . . . . :  ROUTINES/QPROTOSRC(SYSNAME)
      * Last change  . . . . . . . :  03/23/04  16:37:58 
      * Text 'description' . . . . :  Get system name via SQL 
      *----------------------------------------------------------
1487+ /if defined(DSpec) 
          LINES EXCLUDED: 1 
1488+ /else 
1489+C/EXEC SQL 
======> aaaaa 
*RNF0274 30 a      002003+ Compiler directive not recognized; directive 
ignored. 
1490+C+     values current server 
======> aa                 c bbbbbbbb 
*RNF5001 20 a      002005+ Control-Level entry is not valid; defaults to 
previous 
                           control level. 
*RNF5375 20 b      002005+ The Operation Code is followed by data which is 

not valid.
 RNF5014 30 c      002005+ Operation code is not valid; specification is 
ignored.
1491+C+       into :SysName 
=====> aa                 bb 
 RNF5001 20 a      002007+ Control-Level entry is not valid; defaults to 
previous
                          control level. 
 RNF5014 30 b      002007+ Operation code is not valid; specification is 
ignored.
1492+C/END-EXEC 
=====> aaaaaaaaa 
RNF0274 30 a      002008+ Compiler directive not recognized; directive 
ignored. 
1493+ /endif 
1494 
1495 
1496   // Initialize all DBSCAN start times to *NULL
...
Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

_______________________________________________
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.


_______________________________________________
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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.642 / Virus Database: 410 - Release Date: 3/24/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.634 / Virus Database: 406 - Release Date: 3/18/04