RE: Trigger parameter prototypes

[Scott Klement <klemscot@xxxxxxxxxxxx>]

qualified means that you refer to subfields using the data structure
name as well as the subfield name.  so you refer to
"trigbuf.oldRcdOffset" instead of just "oldRcdOffset"

based means that it's based on a pointer, in this case a pointer
named "dummy".  Barbara did this because she had a "trigBufType" data
structure and a "trigBuf" data structure, and she didn't want to
reserve memory for the "trigBufType".  (It's just there to use as a "type
definition", not to put data into)


On Wed, 20 Feb 2002, Smith, Nelson wrote:
>
>       Cool....what's qualified based(dummy)
>
>
> > In V5R1, you could declare the parameter as a data structure
> > directly:
> >
> > D trigBufType   ds           qualified based(dummy)
> > D   subfields ...
> >
> > D trigpgm       pi
> > D   trigBuf                  likeds(trigBufType)
> > D   triglen           10i 0  const
> >
> > c          eval      pInRecord = %addr(trigbuf)
> > c                              + trigbuf.oldRcdOffset
> > c          eval      pOutRecord = %addr(trigbuf)
> > c                               + trigbuf.newRcdOffset