MAGNU002 ;WOIFO/NST - Utilities for RPC calls ; 02 May 2017 4:16 PM
Source file <MAGNU002.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OK() | ||
| FAILED() | ||
| RESDEL() | ||
| RESDATA() | ||
| ISOK(MAGRY) | ; Returns 0 (failed) or 1 (success): Checks if first piece of MAGRY is success
|
|
| GETVAL(MAGRY) | ; Returns data value in MAGRY
|
|
| SETVAL(MAGRY,VAL) | ; set VAL in RY data piece
|
|
| SETOKVAL(VAL) | ; set OK result and value
|
|
| SETERROR(VAL) | ; set Error result and value
|
|
| ISERROR(MAGRY,MSG) |
| Name | Line Occurrences |
|---|---|
| $$FAILED | SETERROR+1 |
| $$OK | ISOK+1, SETOKVAL+2, ISERROR+1 |
| $$RESDATA | GETVAL+1, SETVAL+1 |
| $$RESDEL | GETVAL+1, SETVAL+1, SETERROR+1 |
| $$SETERROR | ISERROR+5 |
| SETVAL | SETOKVAL+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| MAGRESA | ISERROR+3~, ISERROR+4 |
| MAGRESA(1 | ISERROR+5 |
| MAGRY | ISOK~, ISOK+1, GETVAL~, GETVAL+1, SETVAL~, SETVAL+1*, ISERROR~ |
| MAGRY(0 | ISERROR+1*, ISERROR+5* |
| MSG | ISERROR~ |
| MSG("DIERR" | ISERROR+1 |
| RY | SETOKVAL+1~, SETOKVAL+2*, SETOKVAL+3, SETOKVAL+4 |
| VAL | SETVAL~, SETVAL+1, SETOKVAL~, SETOKVAL+3, SETERROR~, SETERROR+1 |
