请问谁在400上写过触发器和存储过程？

tianyi

好象是吧.

newbiezhang

1、tianyi说的不错，可惜说的是日志而不是触发器，建立触发器用ADDPFTRG ，此指令说明很详细，自己调出来看看就知道了。
相关指令还有RMVPFTRG CHGPFTRG PRTTRGPGM
2、存储过程是争议非常大的开发方法，在后台程序开发中能不用就不用，建议你们使用RPG+SQL或C+SQL来实现。

xuguopeng

关键是公司以前用的就是存储过程，现在也不想改变，可苦了我了

Mine

AS/400上写触发器和写普通程序没有太大的区别，关键是针对需要用触发器管理的物理文件在程序内定义适用的数据区，也就是触发器用来接收系统传送过来的该物理文件对应记录被操作前后的数据的变量区。
先写一个触发器程序，然后用命令ADDPFTRG将其和物理文件捆绑起来。THATＩＳ　ＡＬＬ。

下面是一个实际的例子，是对一个ＬＯＧ文件进行监视的触发器。当该ＬＯＧ文件中插入的记录的某一字段是错误码时，调用一个ＣＬ程序向特定ＭＳＧＱ发送通知。程序非常短，估计不必做什么说明也能看明白的（多注意数据定义部分的comment）。

*\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*
      *   MODULE         SNDLOGTRG                                        *
      *   REMARK         RETURN ERR MESSAGE IF THERE IS                   *
      *   CORDING-DATE   2002/01/15                                       *
      *   AUTHOR                                                    *
      *\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*
     H COPYRIGHT('COPYRIGHT xxx')
     H DATEDIT(*YMD/)
      *
     D                 DS
     D ENDCD                   1      2
     D END1                    1      1
     D END2                    2      2
      *
     DRECMAP           DS
     D  FILEID                 1      8    INZ                                 
     D  FILL01                 9    158    INZ                                 
     D  ENDCODE              159    160    INZ                                 
     D  ERRCODE              161    162    INZ                                 
     D  FILL02               163    253    INZ                                 
      *
     DPM1              DS
      * PHYSICAL FILE NAME
     D  FNAME                  1     10    INZ                                 
      * PHYSICAL FILE LIBRARY
     D  LNAME                 11     20    INZ                                 
      * MEMBER NAME
     D  MNAME                 21     30    INZ
      * TRIGGER EVENT
     D  TEVEN                 31     31    INZ
      * TRIGGER TIME
     D  TTIME                 32     32    INZ
      * COMMIT LOCK LEVEL
     D  CMTLCK                33     33    INZ
      * RESERVED
     D  FILL1                 34     36    INZ
      * CCSID
     D  CCSID                 37     40B 0 INZ
      * RESERVED
     D  FILL2                 41     48    INZ
      * OFFSET TO THE ORIGINAL RECORD
     D  OLDOFF                49     52B 0 INZ
      * LENGTH OF THE ORIGINAL RECORD
     D  OLDLEN                53     56B 0 INZ   
      * OFFSET TO THE ORIGINAL RECORD NULL BYTE MAP
     D  ONOFF                 57     60B 0 INZ
      * LENTH OF THE NULL BYTE MAP
     D  ONLEN                 61     64B 0 INZ
      * OFFSET TO THE NEW RECORD
     D  NOFF                  65     68B 0 INZ
      * LENTH OF THE NEW RECORD
     D  NEWLEN                69     72B 0 INZ
      * OFFSET TO THE NEW RECORD NULL BYTE MAP
     D  NNOFF                 73     76B 0 INZ
      * LENTH OF THE NULL BYTE MAP
     D  NNLEN                 77     80B 0 INZ
      * RESERVED
     D  RESV3                 81     96    INZ
      * OLD RECORD
     D  OREC                  97    349    INZ
      * NULL BYTE MAP OF OLD RECORD
     D  OOMAP                350    350    INZ
      * NEW RECORD
     D  NREC                 351    603    INZ   
      * NULL BYTE MAP OF NEW RECORD
     D  NNMAP                604    604    INZ
     D*M2              DS
     D* LENG                   1      4B 0 INZ
     C     *ENTRY        PLIST
     C                   PARM                    PARM1           604
     C                   PARM                    PARM2             4 0
      *\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*
      *                      MAIN PROCEDURE                               *
      *\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*
     C                   MOVE(P)   PARM1         PM1
     C*                  MOVE(P)   PARM2         PM2
      *
     C                   MOVE(P)   NREC          RECMAP
     C                   MOVE      ENDCODE       ENDCD
      *
     C                   SETOFF                                       90
     C                   TESTB     X'FF'         END1                 90
     C     *IN90         IFEQ      '0'
     C                   CALL      'SNDERRMSG'
     C                   PARM                    FILEID
     C                   SETON                                        LR
     C                   RETURN
     C                   ENDIF
      *
     C                   SETOFF                                       90
     C                   TESTB     X'FF'         END2                 90
     C     *IN90         IFEQ      '0'
     C                   CALL      'SNDERRMSG'
     C                   PARM                    FILEID
     C                   ENDIF
     C                   SETON                                        LR
     C                   RETURN
      *\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*
      *                      SUB PROCEDURE                                *
      *\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*

xuguopeng

这是个RPG的触发器吧，主程序和带注释的变量定义部分还能看懂，最前面的几个没注释的变量不知道是做什么用的。
有没有在400上用SQL写触发器的？现在有287个触发器要重写，如果全让我用RPG写，那。。。。。。。。。。。。。。。

www01

我一直想要了解怎样在as400上编触发器的程序。也查阅了有关ibm的书籍，但是一直没有搞懂如何在程序中定义传递参数用的数据区。是否有哪位大侠具体说明一下

Mine

原帖由 "xuguopeng" 发表：
这是个RPG的触发器吧，主程序和带注释的变量定义部分还能看懂，最前面的几个没注释的变量不知道是做什么用的。
有没有在400上用SQL写触发器的？现在有287个触发器要重写，如果全让我用RPG写，那。。。。。。。。。?.........

前面没注释的那几个变量是无关紧要的。
用SQL也能写触发器的，但我没用过，还请哪位行家指点指点。
另外作为题外话，象触发器这种应用，我认为从执行效率来说，应该还是采用RPG（当然C和COBOL也是好的）比SQL合适一点。

xuguopeng

恩  专业人士也是建议用RPG和SQL交互这种方式来写

pengxb

400下sql的存储过程和触发器写是可以的，但有问题（存储过程在事务处理方面有不回滚的情况）不知5.2上如何，而且嵌套、光标支持的也不好，建议少用。

xuguopeng

倒~ 现在公司的计划是这样的：先把表通过SQL导入到400，然后把存储过程翻译成400的DB2下SQL的格式，然后由我根据翻译过来的SQL用RPG写，我从来没用RPG写过存储过程啊，哪位大虾写过？？贴出个样本看看好吗？？？不胜感激~！！