Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- { ibranch.i1 new }
- { ibranch.i5 new }
- { ndcatm03.i &MASTER = * &opt = NEW }
- { romsg01.i }
- { atmfe_func.i }
- def var countx as int.
- def var nexttime as datetime .
- def new shared var temptxnum as char.
- def var timeV as int no-undo.
- for each masteratm where masteratm.devstat[100] = "2" and
- ((masteratm.lastmsgdate < today and
- (86400 - masteratm.lastmsgtime + time) > 3600) or
- (masteratm.lastmsgdate = today and
- time - masteratm.lastmsgtime > 3600)
- ) no-lock:
- run inserv1h.
- countx = countx + 1.
- if countx mod 50 = 0 then pause 30.
- { romsg02.i 'TID' masteratm.atm-id 'LAST' masteratm.lastmsgdate masteratm.lastmsgtime " }
- end.
- run inservonlyreport.p.
- procedure inserv1h :
- find Xmasteratm where Xmasteratm.atm-id = masteratm.atm-id exclusive.
- if avail Xmasteratm then do :
- run tbaction01.p (11, 0).
- if UMresponcode = '00' then do:
- run logmon50.p (100, "2").
- end.
- { romsg02.i 'TID' Xmasteratm.atm-id 'INSERV:' UMresponcode " }
- end.
- release Xmasteratm.
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement