SQL versus free format RPG - again: RNF0274 & RNF0257

[rob@xxxxxxxxx]

I have a pmr opened up on this, 72064-500, but if y'all have ideas it would
be appreciated.

V5R1M0
TL01302
'Group PTF#:  SF99501-05  V5R1M0 November 30, 2001 '

>From my compile listing:
 5722WDS V5R1M0  010525 RN        IBM ILE RPG             ROUTINES/ACD0020
GDISYS     01/21/02 16:36:37        Page     26
Line   <---------------------- Source Specifications
----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....
+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
  1258 C*EXEC SQL
020118     003742
  1259 C* Execute FetchStmt
020118     003743
  1260 C*END-EXEC
020118     003744
  1261 C                   Z-ADD     6             SQLER6
SQL                   01                  003742
  1262 C                   CALL      'QSQROUTE'
SQL                   01                  003742
  1263 C                   PARM                    SQLCA
SQL                   01                  003742
  1264 C                   eval      *inlr=*off
01       020121     003745
  1265 C/free
020121     003746
======> aaaaa
*RNF0274 30 a      003746  Compiler directive not recognized; directive
ignored.
  1266   if SqlCode<>0;  // Assume end of file
020121     003747
======>a
*RNF0257 30 a      003747  Form-Type entry for main procedure not valid or
out of
                           sequence.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin