AS400 Trigger

最新推荐文章于 2022-01-24 19:43:25 发布
最新推荐文章于 2022-01-24 19:43:25 发布
阅读量1.4k 收藏 1
点赞数
分类专栏： AS400/RPGLE/CL
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jmlei/article/details/47057595
版权 
                R TRG01R
                  T01F          10          TEXT('text')
                  T02F           4  0       TEXT('num')

TRG01F@.txt

                                            REF(TRG01F)
                R TRG01R1
                  TRDATE        14          TEXT('Trigger Date')
                                            COLHDG('Trg Date')
                  TRUSER        10          TEXT('Trigger User')
                                            COLHDG('Trg User')
                  TRSEQ          3          TEXT('Trigger Seq')
                                            COLHDG('Trg' 'Seq')
                  TRACT          1          TEXT('Trigger Action;A/C/D')
                                            COLHDG('Trg' 'Act')
                  T01F      R
                  T02F      R

TRGCTL@.txt 

     HDATFMT(*YMD) DATEDIT(*YMD)
     D*
     D* PROGRAM STATUS DATA STRUCTURE
     D SDS            SDS
     D  WSID                 244    253
     D  USER                 254    263
     D*
     D Buffer          DS         32767
     D  FileName               1     10
     D  LibraryName           11     20
     D  MemberName            21     30
     D  TrgEvent              31     31
     D  TrgTime               32     32
     D  CommitLckLvl          33     33
     D  Filler1               34     36
     D  CCSID                 37     40B 0
     D  Filler2               41     48
     D  OldOff                49     52B 0
     D  OldLen                53     56B 0
     D  OldNullOffset         57     60B 0
     D  OldNullLength         61     64B 0
     D  NewOff                65     68B 0
     D  NewLen                69     72B 0
     D  NewNullOffset         73     76B 0
     D  NewNullLength         77     80B 0
     D  Resv3                 81     96
      *----------------------------------------------------------------
      * Total Buffer length
     D BufLen          DS
     D  Leng                   1      4B 0
      *----------------------------------------------------------------
      * Date and Time
     D TimeDate        DS
     D TimeDate14              1     14  0
     D CurrTime                1      6  0
     D CurrDate                7     14  0
     D CurrMonth               7      8  0
     D CurrDay                 9     10  0
     D CurrYear               11     14  0
     D CYMD            DS
     D CYMDDate                1      8  0
     D CYMDYear                1      4  0
     D CYMDMonth               5      6  0
     D CYMDDay                 7      8  0
      *----------------------------------------------------------------
      * Map the fields from the DB file
      *  to take the before/after images apart.
      *----------------------------------------------------------------
      *  Work fields
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*                  M A I N  L I N E
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*
     C* Trigger Selection
     C*
     C                   CALL      'TRGCTP@'
     C                   PARM                    FileName
     C                   PARM      '0'           TrgSts            1
     C                   PARM                    Buffer
     C                   PARM                    BufLen
     C*
     C                   Eval      *Inlr = *On
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C* *INZSR - Initial one time run subroutine
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*
     CSR   *Inzsr        Begsr
     C*
     C     *Entry        Plist
     C     Buffer        Parm                    Buffer
     C     BufLen        Parm                    BufLen
     C*
     C                   Endsr
TRGCTP@.txt 

     HDATFMT(*YMD) DATEDIT(*YMD)
     D*
     D* PROGRAM STATUS DATA STRUCTURE
     D SDS            SDS
     D  WSID                 244    253
     D  USER                 254    263
     D*
     D Buffer          DS         32767
     D  FileName               1     10
     D  LibraryName           11     20
     D  MemberName            21     30
     D  TrgEvent              31     31
     D  TrgTime               32     32
     D  CommitLckLvl          33     33
     D  Filler1               34     36
     D  CCSID                 37     40B 0
     D  Filler2               41     48
     D  OldOff                49     52B 0
     D  OldLen                53     56B 0
     D  OldNullOffset         57     60B 0
     D  OldNullLength         61     64B 0
     D  NewOff                65     68B 0
     D  NewLen                69     72B 0
     D  NewNullOffset         73     76B 0
     D  NewNullLength         77     80B 0
     D  Resv3                 81     96
      *----------------------------------------------------------------
      * Total Buffer length
     D BufLen          DS
     D  Leng                   1      4B 0
      *----------------------------------------------------------------
      * Date and Time
     D TimeDate        DS
     D TimeDate14              1     14  0
     D CurrTime                1      6  0
     D CurrDate                7     14  0
     D CurrMonth               7      8  0
     D CurrDay                 9     10  0
     D CurrYear               11     14  0
     D CYMD            DS
     D CYMDDate                1      8  0
     D CYMDYear                1      4  0
     D CYMDMonth               5      6  0
     D CYMDDay                 7      8  0
      *----------------------------------------------------------------
      *----------------------------------------------------------------
      *  Work fields
     D Start           s              5P 0
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*                  M A I N  L I N E
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C
     C     *ENTRY        PLIST
     C                   PARM                    FName            10
     C                   PARM                    TrgSts            1
     C                   PARM                    Buffer
     C                   PARM                    BufLen
     C*
     C* '0' - Normal Operation
     C                   If        TrgSts = '0'
     C                   IF        FILENAME = 'TRG01F'
     C                   CALL      'TRG01R'
     C                   PARM                    Buffer
     C                   PARM                    BufLen
     C                   ENDIF
     C                   endif
     C*
     C*
     C                   Eval      *Inlr = *On
     C*
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


TRG01R.txt 

     HDATFMT(*YMD) DATEDIT(*YMD)
     FTRG01F@   O    E             DISK
     D*
     D* PROGRAM STATUS DATA STRUCTURE
     D SDS            SDS
     D  WSID                 244    253
     D  USER                 254    263
     D*
     D Buffer          DS         32767
     D  FileName               1     10
     D  LibraryName           11     20
     D  MemberName            21     30
     D  TrgEvent              31     31
     D  TrgTime               32     32
     D  CommitLckLvl          33     33
     D  Filler1               34     36
     D  CCSID                 37     40B 0
     D  Filler2               41     48
     D  OldOff                49     52B 0
     D  OldLen                53     56B 0
     D  OldNullOffset         57     60B 0
     D  OldNullLength         61     64B 0
     D  NewOff                65     68B 0
     D  NewLen                69     72B 0
     D  NewNullOffset         73     76B 0
     D  NewNullLength         77     80B 0
     D  Resv3                 81     96
      *----------------------------------------------------------------
      * Total Buffer length
     D BufLen          DS
     D  Leng                   1      4B 0
      *----------------------------------------------------------------
      * Date and Time
     D TimeDate        DS
     D TimeDate14              1     14  0
     D CurrTime                1      6  0
     D CurrDate                7     14  0
     D CurrMonth               7      8  0
     D CurrDay                 9     10  0
     D CurrYear               11     14  0
     D CYMD            DS
     D CYMDDate                1      8  0
     D CYMDYear                1      4  0
     D CYMDMonth               5      6  0
     D CYMDDay                 7      8  0
      *----------------------------------------------------------------
      * Map the fields from the DB file
      *  to take the before/after images apart.
     D RTRG01F       E DS                  EXTNAME(TRG01F)
      *----------------------------------------------------------------
      *  Work fields
     D Start           s              5P 0
     D StartY          s              5P 0
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*                  M A I N  L I N E
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*
     C* Trigger Date
     C                   TIME                    HHMMSS            6 0
     C                   MOVEL     *DATE         TRDATE
     C                   MOVE      HHMMSS        TRDATE
     C                   MOVEL     USER          TRUSER
     C*
     C                   Exsr      S100
     C*
     C     S0End         TAG
     C                   Eval      *Inlr = *On
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C* S100    - Write Records
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*
     CSR   S100          Begsr
     C*
     C                   Select
     C* 1 = Add
     C                   When      TrgEvent = '1'
     C                   Eval      TRACT  = 'A'
     C                   Eval      Start = NewOff + 1
     C*
     C                   Eval      RTRG01F = %subst(Buffer:Start:NewLen)
     C                   Write     TRG01R1
     C                   EXSR      S200
     C*
     C* 2 = Delete
     C*
     C                   When      TrgEvent = '2'
     C                   Eval      TRACT  = 'D'
     C*
     C                   Eval      Start = OldOff + 1
     C                   Eval      RTRG01F = %subst(Buffer:Start:OldLen)
     C                   Write     TRG01R1
     C                   EXSR      S200
     C*
     C* 3 = Update
     C*
     C                   When      TrgEvent = '3'
     C*
     C* Original data
     C*
     C                   Eval      StartY = OldOff + 1
     C* Changed data
     C*
     C                   Eval      TRACT  = 'B'
     C                   Eval      Start = NewOff + 1
     C*                  MOVEL     SEQA          TRSEQ
     C                   Eval      RTRG01F = %subst(Buffer:StartY:OldLen)
     C                   Write     TRG01R1
     C*
     C                   Eval      TRACT  = 'C'
     C*                  MOVEL     SEQB          TRSEQ
     C                   Eval      RTRG01F = %subst(Buffer:Start:NewLen)
     C                   Write     TRG01R1
     C                   EXSR      S200
     C*
     C                   Endsl
     C*
     C                   Endsr
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C* S200   - Update Files in Other Libraries
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C     S200          Begsr
     C*
     C                   Endsr
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C* *INZSR - Initial one time run subroutine
     C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
     C*
     CSR   *Inzsr        Begsr
     C*
     C     *Entry        Plist
     C     Buffer        Parm                    Buffer
     C     BufLen        Parm                    BufLen
     C*
     C                   Endsr

ADDPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*AFTER) TRGEVENT(*INSERT) PGM(DAV
IDZHAO/TRGCTL@)                                                          
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000001 in library DAVIDZHAO was  
  added to file TRG01F in library DAVIDZHAO.                             
Trigger added to file.                                                   

ADDPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*BEFORE) TRGEVENT(*UPDATE) PGM(DA
VIDZHAO/TRGCTL@)                                                       
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000002 in library DAVIDZHAO was
  added to file TRG01F in library DAVIDZHAO.                           
Trigger added to file.                                                 

ADDPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*AFTER) TRGEVENT(*DELETE) PGM(DAV
IDZHAO/TRGCTL@)                                                          
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000003 in library DAVIDZHAO was  
  added to file TRG01F in library DAVIDZHAO.                             
Trigger added to file.                                                   


RMVPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*AFTER) TRGEVENT(*DELETE)       
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000003 in library DAVIDZHAO was 
  removed from file TRG01F in library DAVIDZHAO.                        
Trigger removed from file.                                              
RMVPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*BEFORE) TRGEVENT(*UPDATE)      
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000002 in library DAVIDZHAO was 
  removed from file TRG01F in library DAVIDZHAO.                        
Trigger removed from file.                                              
RMVPFTRG FILE(DAVIDZHAO/TRG01F) TRGTIME(*AFTER) TRGEVENT(*INSERT)       
Trigger QSYS_TRIG_DAVIDZHAO__TRG01F_____000001 in library DAVIDZHAO was 
  removed from file TRG01F in library DAVIDZHAO.                        
Trigger removed from file.                                              

JmLei
关注
专栏目录
PostgreSQL trigger
日常博客
10-27 879
创建Trigger Step1：使用CREATE FUNCTION命令创建一个Trigger函数。 Step2：使用CREATE TRIGGER命令将Trigger函数固定到一个表中。 创建Trigger函数 语法 CREATE FUNCTION trigger_function() RETURNS TRIGGER LANGUAGE PLPGSQL AS $$ BEGIN -- trigger logic goes here? END; $...
as400--rpgle--实战项目
04-23
完整的as400 rpgle项目实战练习，引入“敏捷”的思想： 所有子过程放入srvpgm中，并加入bnddir。 程序通过bnddir动态调用取得所需方法。 参数传递使用指针形式，所有参数的数据结构定义在copybook中， 便于规范化的项目实施和后期维护。
AS400的触发器(转载）
weixin_30784501的博客
03-16 160
一、物理文件expf R AEXPF K1 2A K2 5P 1 K K1 二、物理文件expf1 R AEXPF1 M1 2A ...
AS400 之RPGLE Part 1
weixin_41447442的博客
12-27 1890
RPG在写程序之前关于程序开发，想强调的是：业务流程先于程序——程序是给计算机看的，流程是人执行的；程序是死的，而流程则是一个相对模糊的东西。所以在写程序前，要先弄清楚自己到底要做什么，然后将自己的思想表达给计算机——这个过程就是CODING。RPG的长处在于数据库处理，界面交互能力倒是其次。所以最开始需要了解一些关于数据库文件的相关知识(这里就只强调跟400有关的)。在下面的操作中，假设朋友已经会用STRPDM，会文件的COPY,修改。数据文件PF：COPY一个已经有的比较快点。然后修改一下里面的数据，就
AS400快速入门作业HT011——RPGLE程序
weixin_43785387的博客
01-24 759
AS400作业快速入门
AS400 RPGLE编程基础教程
06-22
AS400 RPGLE编程基础教程 加了书签，更适合阅读。
ALTER TRIGGER_trigger_ALTERTRIGGER_
09-30
数据库触发器样例程序ALTER TRIGGER [dbo].[djh_wt1] ON [dbo].[WT03] FOR INSERTASinsert into djh_wt select yllhdbo.ylmc(yllh) as ylmcjscbzxbmcljzjscwdmczsjchcllb from inserted
Create-trigger.zip_sql create trigger_sql 触发_trigger
09-21
在SQL（Structured Query Language）中，触发器（Trigger）是一种数据库对象，用于在特定的数据操作（如INSERT、UPDATE或DELETE）发生时自动执行预定义的SQL语句或存储过程。触发器可以用来实现复杂的业务规则，确保...
sql.zip_trigger
09-19
CREATE VIEW view_name AS SELECT column1, column2 FROM table_name; ``` 5. **游标（Cursor）**：游标允许你在数据库查询结果集中逐行处理数据。这对于循环遍历结果集并根据每行执行不同操作非常有用。在SQL...
let trigger = Core.GameObject.find("3468097C") as Gameplay.Trigger
最新发布
06-01
该方法的返回值是一个 Core.GameObject 类型的对象，需要使用 as 操作符将其转换为所需类型。 在这里，我们将查找到的游戏对象转换为 Gameplay.Trigger 类型的对象。这是因为我们希望使用触发器对象的相关属性和...
AS400的RPG中文参考
12-09
AS400的RPG中文参考 AS400的RPG中文参考 AS400的RPG中文参考
AS400一些有用的命令
白马酒凉
04-07 3476
1. '1' -> *ON      '0' -> *OFF 2. Indicator position    CHAIN : HI    LOOKUP : EQ    READ : EQ 3.DSPFD显示PF的member个数,Format Identifier,trigger等等,DSPFFD显示PF的列名之类 DSPFD FILE(TEST) DSPFFD FI
AS/400开发经验点滴（三）如何使用分布式关系数据库
weixin_30776545的博客
01-09 111
五．如何使用分布式关系数据库 我们可以在AS/400系统中使用STRSQL命令来交互执行SQL语句。如果AS/400系统中没有安装交互式SQL工具，那么我们便不能使用SQL语句进行交互式查询等操作。假设有一群连网的AS/400，其中只有一台安装了交互式SQL工具，那么我们能不能只通过这台AS/400的交互SQL工具去对其他没有安装SQL交互工具机器的数据库进行操作呢？答案是肯定的，这就...
AS400 RPGLE 检测字段中是否含有中文
jmlei的专栏---IBM, AS400, RPGLE, CLLE, Delphi, ASP...
04-27 2150
 D xxOK 1A INZ(N) D CHNSTR 50A INZ( ) D CHNe 1A INZ(X0E) D CHNf 1A INZ(X0F
AS400学习总结
bukebuke的专栏
09-03 3566
1、  可以连接到400系统的设备有：PrinterWorkstations(console)Tape unitsCD-ROMRemote controllersPersonal computers2、  System Request菜单，用来在不中断当前Job的情况下，启动另一个Session登陆用户。3、  Information assistant 帮助信息
服务器i文件夹,IBM i上http server实用技巧之一：访问IBM i多文件系统
weixin_29252171的博客
08-03 495
BodyIBM HTTP Server for i和IBM i文件系统关系如下图图1 HTTP Server通过Integrated File System Interface访问IBM i的常用文件系统图一配置HTTP Server访问不同文件系统下的应用IBM HTTP Server for i配置文件的缺省路径和文件名是/www/yourservername/conf/httpd.conf...
触发器
11-14 149
触发器是一系列动作，对某个物理数据库文件进行修改时能自动运行。可以由应用程序中的高级语言语句做插入，更新或删除操作。 增加物理文件触发器命令（ADDPFTRG）把一个触发器程序与一个物理文件联系起来。一旦建立了联系，在修改物理文件、它的一个成员和任何由该物理文件生成的逻辑文件时，系统在操作开始时就调用触发器程序。 一个物理文件最多可与6个触发器相联，触发器可放在：   ·插入前   ·插入
AS/400开发经验点滴（一）
luihuilang
06-04 594
AS/400开发经验点滴（一） AS/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。本人在几年AS/400系统上的开发中，也有一些经验。有些东西如果不把其形成文字，过一段时间后，本人都会很快忘掉，比如我现在要写两年前的经验就很费劲。现把其中一些经验总结出来，与大家共享也行，自娱自乐也行。本文不是学术论文，仅仅是一些开发经验总结，...
RPG3 RPG/400 RPGLE概述
11-10 557
RPG，Report Program Generator。400下的RPG是所有rpg语言的统称。目前OS/400下的RPG编译器可以编译RPG III、RPG400、RPGLE、SQLRPGLE。 RPG是从IBM SYS/3系统上发展起来的，在SYS/3上的rpg版本是RPG II，1971-1976的产物。 1977-1982年，IBM又在sys/36、s
TIM7 TRGO selected as external conversion trigger for DAC channel
05-19
In this case, the TIM7 TRGO (Timer 7 Trigger Output) is being used as an external conversion trigger for the DAC channel. This means that the DAC channel will convert digital values to analog signals ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值