Trigger Buffer - Generic Program

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

Here is the code we have as a standard trigger processing:
 
**************************************************************************
      *  STANDARD TRIGGER HEADER
      *
      * By Chris Bipes                                           07/28/99
      * CrossCheck, Inc., 6119 State Farm Drive, Rohnert Park, CA  94928
 
**************************************************************************
      *
      * PROGRAM STATUS DATA STRUCTURE
     D                SDS
     D  PGMID                  1     10
     D  ERRID                 40     46
     D  ERRDTA                91    170
     D  JOBID                244    253
     D  USERID               254    263
     D  JOB#                 264    269  0
      *
      * INPUT PARMS DATA STRUCTURE
     D DSINPUT         DS          5000
      * FIX FORMAT FOR ALL FILES
     D  INPFILE                1     10
FILE NAME
     D  INPFILEL              11     20
FILE LIBRARY
     D  INPFILEM              21     30
FILE MEMBER
     D  INTEVENT              31     31
ADD/UPDATE/DELETE
     D  INTTIME               32     32
Before/After 
     D  INCLL                 33     33
     D  INRES01               34     36
     D  INCCSID               37     40B 0
CCSID
     D  INRES02               41     48
     D  INORO                 49     52B 0
ORG RCD OFFSET
     D  INORL                 53     56B 0
ORG RCD LENGTH
     D  INORNBMO              57     60B 0
ORG NULL BYTE MAP
     D  INORNBML              61     64B 0
ORG NULL BYTE LEN
     D  INNRO                 65     68B 0
NEW RCD OFFSET
     D  INNRL                 69     72B 0
NEW RCD LENGTH
     D  INNRNBMO              73     76B 0
NEW NULL BYTE MAP
     D  INNRNBML              77     80B 0
NEW NULL BYTE LEN
     D  INRES03               81     96
      *
      * CREATE EXTERNAL FILE DATA STRUCTURES
     D DSORFMT       E DS                  EXTNAME(TRG_FILE) PREFIX(OR)
     D DSNRFMT       E DS                  EXTNAME(TRG_FILE) PREFIX(NR)
      *
      * DEFINE STANDALONE FIELDS
     D DSLEN           S              4B 0
 
**************************************************************************
      *  MAIN LINE
 
**************************************************************************
     C     *ENTRY        PLIST
     C                   PARM                    DSINPUT
     C                   PARM                    DSLEN
      * SELECT TRIGGER EVENT
     C                   SELECT
      *
      * INSERT
     C     INTEVENT      WHENEQ    '1'
     C                   EVAL      DSNRFMT = %SUBST(DSINPUT:INNRO+1:INNRL)
     C                   CLEAR                   DSORFMT
      *
      * DELETE
     C     INTEVENT      WHENEQ    '2'
     C                   CLEAR                   DSNRFMT
     C                   EVAL      DSORFMT = %SUBST(DSINPUT:INORO+1:INORL)
      *
      * UPDATE
     C     INTEVENT      WHENEQ    '3'
      * DOCUMENT UPDATE
     C                   EVAL      DSORFMT = %SUBST(DSINPUT:INORO+1:INORL)
     C                   EVAL      DSNRFMT = %SUBST(DSINPUT:INNRO+1:INNRL)
     C                   ENDSL
      *
     C                   SHTDN                                        LR
     C                   RETURN


Christopher K. Bipes            mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst          mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.                http://www.cross-check.com
6119 State Farm Drive           Phone: 707 586-0551 x 1102
Rohnert Park  CA  94928 Fax: 707 586-1884

application/ms-tnef