Advertisement
Guest User

Untitled

a guest
May 22nd, 2019
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. { ibranch.i1 new }
  2. { ibranch.i5 new }
  3. { ndcatm03.i &MASTER = * &opt = NEW }
  4. { romsg01.i }
  5. { atmfe_func.i }
  6.  
  7. def var countx as int.
  8. def var nexttime as datetime .
  9. def new shared var temptxnum as char.
  10. def var timeV as int no-undo.
  11.  
  12.  
  13. for each masteratm where masteratm.devstat[100] = "2" and
  14. ((masteratm.lastmsgdate < today and
  15. (86400 - masteratm.lastmsgtime + time) > 3600) or
  16. (masteratm.lastmsgdate = today and
  17. time - masteratm.lastmsgtime > 3600)
  18. ) no-lock:
  19.  
  20. run inserv1h.
  21. countx = countx + 1.
  22. if countx mod 50 = 0 then pause 30.
  23. { romsg02.i 'TID' masteratm.atm-id 'LAST' masteratm.lastmsgdate masteratm.lastmsgtime " }
  24.  
  25. end.
  26.  
  27. run inservonlyreport.p.
  28.  
  29. procedure inserv1h :
  30. find Xmasteratm where Xmasteratm.atm-id = masteratm.atm-id exclusive.
  31. if avail Xmasteratm then do :
  32. run tbaction01.p (11, 0).
  33. if UMresponcode = '00' then do:
  34. run logmon50.p (100, "2").
  35. end.
  36. { romsg02.i 'TID' Xmasteratm.atm-id 'INSERV:' UMresponcode " }
  37. end.
  38. release Xmasteratm.
  39. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement