RE: RNF3724-Keyword (inz) is not allowed for subfield in baseddatastructure; keyword is ignored.

You don't own the storage for the field so you can't set the initial value
for it.
You can, however, MOVE data into on your *INZSR subroutine.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Friday, March 21, 2003 9:28 AM
To: RPG programming on the AS400 / iSeries
Subject: RNF3724-Keyword (inz) is not allowed for subfield in based
datastructure; keyword is ignored.


Any suggestions on how to handle this?

   335+D  cpType                       10i 0 inz(0)  
======>                                      aaa  
*RNF3724 20 a      091336+ Keyword is not allowed for subfield in based 
data
                           structure; keyword is ignored.  

I suppose the answer is drop the basing, and add an eval?

     D qcapcmd         PR                  EXTPGM('QCAPCMD')
      * replacement for QCMDEXC.  See 'OS/400 Program and CL Command APIs'
     D  x                                  const like(qcapcmdds.SourceCmd)
     D  x                                  const 
like(qcapcmdds.SourceCmdLen)
     D  x                                  const 
like(qcapcmdds.OptCtlBlck)
     D  x                                  const 
like(qcapcmdds.OptCtlBlckLen)
     D  x                                  const 
like(qcapcmdds.OptCtlBlckFmt)
     D  x                                  const like(qcapcmdds.ChgCmd)
     D  x                                  const 
like(qcapcmdds.ChgCmdLenAv)
     D  x like(qcapcmdds.ChgCmdLenRet)
     D  x                                        like(ERRC0100)
     D qcapcmdds       ds                  qualified
     D  SourceCmd                 32702a   inz(*blanks)
     D  SourceCmdLen                 10i 0 inz(0)
     D  OptCtlBlck                         like(CPOP0100ds)
     D  OptCtlBlckLen                10i 0 inz(%len(OptCtlBlck))
     D  OptCtlBlckFmt                 8a   inz('CPOP0100')
     D  ChgCmd                             inz(*blanks) like(SourceCmd)
     D  ChgCmdLenAv                  10i 0 inz(%len(ChgCmd))
     D  ChgCmdLenRet                 10i 0 inz(0)
     D pCPOP0100ds     s               *   inz(%addr(OptCtlBlck))
     D CPOP0100ds      ds                  based(pOptCtlBlck) qualified
     D  cpType                       10i 0 inz(0)      0=Cmd running
     D*      1=Cmd syntax chk
     D*      2=Cmd line running
     D*      3=Cmd line Syn chk
     D*      4=CL pgm statement
     D*      5=CL input stream
     D*      6=Cmd Definitin stmt
     D*      7=Binder Def Stmt
     D*      8=User Def option
     D*      9=ILE CL pgm source
     D*      10=Cmd prompt str
     D  DBCSHandling                  1a   inz('0')      0=Ignore DBCS 
data
     D*      1=Handle DBCS data
     D  PrompterAct                   1a   inz('0')      0=Never Prompt
     D*      1=Always Prompt
     D*      2=If prompt char...
     D*      3=Show Help
     D  CmdSyntax                     1a   inz('0')      0=System Syntax
     D*      1=Sys/38 Syntax
     D  MsgRtvKey                     4a   inz(*loval)
     D  Reserved                      9a   inz(*loval)

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 
_______________________________________________
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.