test()
ts
s ^a(1)="tc test"
tc
s c=$g(^a(1))
w c
quit
test2()
ts
s ^a(2)="tro test"
tro
s c=$g(^a(2))
w c
quit
하시면 해당 글로벌에 데이터들어있는지 안들어 있는지 확인할 수 있겠죠
실용 루틴에 적용한다면
test3()
$zt="test3Error"
ts
......
......
tc
q
test3Error
tro
q
위와 같이 에러트랩을 걸고 에러가 발생했을 경우에는 롤백되게하면 되겠습니다.
(게시판이 스페이스 다 없애버려서 루틴이 알아보기 힘들게 됐네요.
test3Error는 맨 앞에 공백없이 쓰여진 Label 입니다.
나머지는 루틴명 빼고는 앞에 탭이 들어간 형태입니다)
-- 김종현 님이 쓰신 글:
>> 스크립트 상에서의 예제를 좀 부탁드립니다...^^;
>> -------------------------
>> tstart
>> tcommit
>> troolback
>> -------------------------
>> 사용법이 어떻게 되는지요...?
|