Caché ObjectScript Reference - InterSystems Documentation

Caché ObjectScript CommandsSET ^a(1)="[- - -]",^b(1)="[- - -]"WRITE !,"level:",$TLEVEL," ",^a(1)," ",^b(1)TSTARTLOCK +^a(1)SET ^a(1)="hello"WRITE !,"level:",$TLEVEL," ",^a(1)," ",^b(1)TSTARTLOCK +^b(1)SET ^b(1)="world"WRITE !,"level:",$TLEVEL," ",^a(1)," ",^b(1)TCOMMITWRITE !,"After TCOMMIT"WRITE !,"level:",$TLEVEL," ",^a(1)," ",^b(1)TROLLBACKWRITE !,"After TROLLBACK"WRITE !,"level:",$TLEVEL," ",^a(1)," ",^b(1)QUITThe following example transfers money from one account to another as a transaction:// Transfer funds from one account to anotherTransfer(from,to,amount) {TSTARTSET ^ACCOUNT(from,"Balance") = ^ACCOUNT(from,"Balance") - amountSET ^ACCOUNT(to,"Balance") = ^ACCOUNT(to,"Balance") + amountTCOMMITQUIT}See Also• TCOMMIT command• TROLLBACK command• $TLEVEL special variable• Using ObjectScript for Transaction Processing in Using Caché ObjectScript144 Caché ObjectScript Reference