Re: Output of Null-Capable Fields in the Trigger Buffer

[jpcarr@xxxxxxxxxxxx]

>Take a look at the catalog files.  QADBIFLD,  if memory serves, gives a
>listing of the fields and their positions, sizes, etc.


Do your self a favor and key in the DDS for a PF so you can have the 96
fixed area of the data structure externally defined.

If you want the DDS I can post it.    You will never again say, What field
is that? or What Position is that in ?


John Carr
EdgeTech

 D*=====================================================================
 D*    Parm1 - First Parm from OS/400, It contains the Trigger Data
 D*=====================================================================
 DPARM1          E DS         10000    EXTNAME(ETPFZ1)
 D*
 D BArray                         1A   OVERLAY(Parm1) Dim(%SIZE(Parm1)

 D*=====================================================================
 D*    Before Image of Record
 D*=====================================================================
 D BDS           E DS                  EXTNAME(TFPFCVN) PREFIX(B)
 D                                     BASED(Bptr)

 D*====================================================================
 D*    After Image of Record
 D*====================================================================
 D ADS           E DS                  EXTNAME(TFPFCVN) PREFIX(A)
 D                                     BASED(Aptr)

 D Aptr            S               *
 D Bptr            S               *

 C                   EVAL      Aptr     =    %ADDR(BArray(Z1NROFF +1))
 C                   EVAL      Bptr     =    %ADDR(BArray(Z1OROFF +1))





+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---