midrange.com code scratchpad |
Name:
Trigger handler sample
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
02/27/2018 03:47:01 pm
|
IP:
Logged
|
|
Description:
A complete skeleton for our trigger handler.
|
Code:
- D*******************( Soft Coded Trigger Fields )********************
- D NullTypPtr S *
- D TypeBin4 S 9B 0 BASED (NullTypPtr )
- D TypeChr S 1A BASED (NullTypPtr )
- D TypeSysNam S 10A BASED (NullTypPtr )
- D TypePtr S * BASED (NullTypPtr )
- D************************( Data Structures )**************************
- D/COPY QRPGSRC,TPARM1
- DPARM2 DS
- D TgLength 1 4B 0
- D*************************( Variables )**************************
- D TgBufLen S Like( TypeBin4 )
- D TgBfrPtr S Like( TypePtr )
- D TgAftPtr S Like( TypePtr )
- D TgBufSiz C Const( %Size( TgBufChr ) )
- D**********************************************************************
- D B_MPATDS E DS ExtName( MPAT )
- D Prefix ( B_ )
- D Based ( TgBfrPtr )
- D A_MPATDS E DS ExtName( MPAT )
- D Prefix ( A_ )
- D Based ( TgAftPtr )
- D**********************************************************************
- *---
- ** Retrieve Record Buffers
- *---
- C EVAL TgBfrPtr = %Addr(TgBufAry(TgBOffset + 1))
- C EVAL TgAftPtr = %Addr(TgBufAry(TgAOffset + 1))
- *---
- ** Do all your work right here.
- *---
- *
- * Turn on LR to Exit
- C EVAL *INLR=*ON
- * Initialaztion Subroutine ----------------------------------------
- C *INZSR BEGSR
- * Entry Parameter
- C *ENTRY PLIST
- C TgBufDs PARM TgBufDS
- C PARM PARM2
- C ENDSR
|
|
|