midrange.com code scratchpad |
Name:
Problem with trigger
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/07/2011 09:21:00 pm
|
IP:
Logged
|
|
Description:
Some code with trigger where pointr problem oocure
|
Code:
- Phisical file F76P001
- A R I76P001
- A M1ID 10S 0
- A M1DOCO 8S 0
- A M1$NMH 5S 0
- A M1$NMJ 3A
- A M1DATE 10A
- A M1ADCH 1A
- A M1PRC 1A
- A K M1DOCO
-
- Logical File F76P001A
- A R I76P001 PFILE(F76P001 )
- A K M1PRC
-
- Some code from RPG program
- Definition of files
- First is original audit file
-
- FF55400TRG O E Disk ExtFile( qAuditFile )
- My additional file
- FF76P001 O E Disk
- FF550010 IF E K Disk
-
- My additional code
-
- *****************************************************************
- * Subroutine: MobileLog - Write records to proccess by Mobile
- * subsystem
- * ---------------------------------------------------------------
-
- C MobileLog Begsr
- * --------- -----
- *
- C TrgEvent Ifeq TrgAddEvt
- C TrgEvent Oreq TrgChgEvt
- *
- C Eval M1ID = 0
- C Eval M1DOCO = nMTDOC
- C Eval M1$NMH = nMT$NMH
- C Eval M1$NMJ = nMT$MJ1
- C nMTDTEJ Chain I550010
- C If %found
- C Eval M1DATE = D6YMDF
- C EndIf
- C Eval M1ADCH = 'A'
- C Eval M1PRC = 'N'
- C Write I76P001
- C EndIf
- *
- C MobileEnd Endsr
-
|
|
|