RE: triggers

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Brad,

You might want to look at the sample of code below for getting at the
trigger buffers.  It doesn't need the number of fields hard-coded but
instead uses pointers.  And we now what happens when that number is wrong :)

d old_recordp     s               *                                  
d old_record    e ds                  extname(xxxxxxxx) prefix(old_) 
d                                     based(old_recordp)             
d new_recordp     s               *                                  
d new_record    e ds                  extname(xxxxxxxx) prefix(new_) 
d                                     based(new_recordp)             
                                                                     
                                                                     
c     *entry        plist                                            
c                   parm                    trgbuf                   
                                                                     
c                   eval      old_recordp = %addr(trgbuf) + tbooff   
c                   eval      new_recordp = %addr(trgbuf) + tbnoff   


The tbooff and tonoff are the old/new record offsets.

Scott Mildenberger
                                                                     

> -----Original Message-----
> From: Stone, Brad V (TC) [mailto:bvstone@taylorcorp.com]
> Sent: Wednesday, July 11, 2001 7:25 AM
> To: 'MIDRANGE-L@midrange.com'
> Subject: RE: triggers
> 
> 
> If you're looking for a decent starting place for triggers, 
> here's what I
> use.  It's RPG, but could be translated to COBOL or any other language
> you're using:
> 
> D TrigFlds      E DS                  EXTNAME(TRGFLDPF)           
> D FileImage     E DS                  EXTNAME(FILENAME)            
>  *                                                                
> D WPPARM1         DS                                              
> D  P_Trigger                          LIKE(TrigFlds)              
> D  P_Before                           LIKE(FileImage)             
> D  O_FldMap                     15                                
> D  P_After                            LIKE(FileImage)             
> D  N_FldMap                           LIKE(O_FldMap)              
>  *                                                                
> D WPPARM2         DS                                              
> D  T_BuffLen              1      4B 0                             
> 
> WPPARM1 and WPPARM2 are the two input parms used by a 
> trigger.  FileImage is
> an external DS defined using the filename the trigger is attached to.
> 
> O_FldMap must be set to the number of fields in the file the 
> trigger is
> attached to.  In this case there are 15 fields in the file, 
> so the size of
> this field is 15.
> 
> TRGFLDPF is used to externally define the trigger specific 
> fields.  This is
> just a PF used only for external DS definition.  It looks like this:
> 
> A          R TRGFLD                    TEXT('TRIGGER FILE')   
>           
> A            TGFILE        10          TEXT('FILE NAME')      
>           
> A            TGLIB         10          TEXT('LIBRARY NAME')   
>           
> A            TGMBR         10          TEXT('MEMBER NAME')    
>           
> A            TGEVENT        1          TEXT('TRIGGER EVENT')  
>           
> A            TGTIME         1          TEXT('TRIGGER TIME')   
>           
> A            TGCOMLEV       1          TEXT('COMMIT LEVEL')   
>           
> A            TGRSVD1        3          TEXT('RESERVED FIELD 
> 1')         
> A            TGCCSID        6  0B      TEXT('CODED CHARACTER 
> SET ID')   
> A            TGRSVD2        8          TEXT('RESERVED FIELD 
> 2')         
> A            TGO_OFFSET     6  0B      TEXT('ORIGINAL RECORD 
> OFFSET')   
> A            TGO_LEN        6  0B      TEXT('ORIGINAL RECORD 
> LENGTH')   
> A            TGO_NULLOS     6  0B      TEXT('ORIGINAL NULL 
> OFFSET')     
> A            TGO_NULLLN     6  0B      TEXT('ORIGINAL NULL 
> LENGTH')     
> A            TGN_OFFSET     6  0B      TEXT('NEW RECORD 
> OFFSET')        
> A            TGN_LEN        6  0B      TEXT('NEW RECORD 
> LENGTH')        
> A            TGN_NULLOS     6  0B      TEXT('NEW NULL 
> OFFSET')          
> A            TGN_NULLLN     6  0B      TEXT('NEW NULL 
> LENGTH')          
> A            TGRSVD3       16          TEXT('RESERVED FIELD 3')  
> 
> Once this is all defined, you add a few lines of code and you've got a
> trigger "shell" program.  The only thing you need to change 
> is the O_FldMap
> as stated above to be the same number as how many fields are 
> in the file.
> 
> C     *ENTRY        PLIST                            
> C                   PARM                    WPPARM1  
> C                   PARM                    WPPARM2  
>  *
> C                   eval      FileImage = P_After   
>  * now you can do anything you want checking the values using 
> the file name
> field names
> 
> 
> Brad
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---