Re: sqlrpgle & copy book

[rob@xxxxxxxxx]

Gina,

Thank you for your reply.  And I am sorry that I keep forgetting that part 
of it.

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





Gina M Whitney <whitneyg@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/11/2005 11:37 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
sqlrpgle & copy book






Are you getting the SQL0312 for fields?  You defined your data structure 
as
fieldDs.

dfieldDs    ds
d field1          5a
d field2         15p 2
d field3         30a

c/exec sql fetch next from c into :fields :myNullAry
c/end-exec


In V5R3, there is a new parameter called RPGPPOPT:

          RPG preprocessor options (RPGPPOPT) - Help
  Specifies if the RPG compiler will be called to preprocess
  the source member before the SQL precompile is run.
  Preprocessing the SQL source member will allow some
  compiler directives to be handled before the SQL
  precompile.  The preprocessed source will be placed in
  file QSQLPRE in QTEMP.  This source will be used for the
  SQL precompile.
  *NONE
      The compiler is not called for preprocessing.
   *LVL1
     The compiler is called for preprocessing to expand
     /COPY and handle the conditional compilation
     directives except the /INCLUDE directive.
   *LVL2
     The compiler will be called for preprocessing to
     expand /COPY and /INCLUDE and handle the conditional
     compilation directives.

So with *NONE, which is the default, the precompiler can handle
one level of /Copy and does not read /INCLUDE.


Another common reason for getting SQL0312 is that you have the host
variable
defined more than once.  The precompiler never has handled scoping of
variables
and requires all variables to be unique, even if they are in different
procedure.

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