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

>     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
>I suppose the answer is drop the basing, and add an eval?

I don't see an alternative Rob.  I think of a based structure as a movable
window.  I can position the window to anyplace in storage, and the storage
I'm positioned over is viewed according to the data structure.  Because it's
more like "how do I want to look at THIS data?" than "let's share this
common storage among these variables," I don't see how the compiler could
allow INZ().

I mean, if I set the pointer to look at location 1000, should the compiler
then run code to write over those subfields because I said INZ()?  What
happens when I move to location 2000?  Maybe this is a candidate for a DCR?
  --buck