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:
  1. Phisical file F76P001
  2. A          R I76P001                                                  
  3. A            M1ID          10S 0                                      
  4. A            M1DOCO         8S 0                                      
  5. A            M1$NMH         5S 0                                      
  6. A            M1$NMJ         3A                                        
  7. A            M1DATE        10A                                        
  8. A            M1ADCH         1A                                        
  9. A            M1PRC          1A                                        
  10. A          K M1DOCO                                                   
  11.  
  12. Logical File F76P001A
  13. A          R I76P001                   PFILE(F76P001   )             
  14. A          K M1PRC                              
  15.  
  16. Some code from RPG program
  17. Definition of files
  18. First is original audit file
  19.  
  20. FF55400TRG O    E             Disk    ExtFile( qAuditFile )             
  21. My additional file     
  22. FF76P001   O    E             Disk                                           
  23. FF550010   IF   E           K Disk                                                                
  24.  
  25. My additional code
  26.  
  27.  *****************************************************************                          
  28.  * Subroutine: MobileLog  - Write records to proccess by Mobile                             
  29.  *                          subsystem                                                       
  30.  * ---------------------------------------------------------------                          
  31.                                                                                             
  32. C     MobileLog     Begsr                                                                   
  33.  *    ---------     -----                                                                   
  34.  *                                                                                          
  35. C     TrgEvent      Ifeq      TrgAddEvt                                                     
  36. C     TrgEvent      Oreq      TrgChgEvt                                                     
  37.  *                                                                                          
  38. C                   Eval      M1ID   = 0                                                    
  39. C                   Eval      M1DOCO = nMTDOC                                               
  40. C                   Eval      M1$NMH = nMT$NMH                                              
  41. C                   Eval      M1$NMJ = nMT$MJ1                                              
  42. C     nMTDTEJ       Chain     I550010                                                       
  43. C                   If        %found                                                        
  44. C                   Eval      M1DATE = D6YMDF                                               
  45. C                   EndIf                                                                   
  46. C                   Eval      M1ADCH = 'A'                                           
  47. C                   Eval      M1PRC  = 'N'                    
  48. C                   Write     I76P001                         
  49. C                   EndIf                                     
  50.  *                                                            
  51. C     MobileEnd     Endsr                                     
  52.        
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css