DDSVAL ;SFISC/MKO-GET,PUT FOR DD IELDS ;9:38 AM 29 Aug 1995
Source file <DDSVAL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GDIE(DDSVL) | ;In:
; DDSFILE = File # or root ; DA = Record array ; DDSVL = Flag to lock record |
|
PUTQ | ||
VALPUT | ;Validate and put
|
|
GNDPC | ;In:
; DDP = File # ; DDSFLD = Field # |
|
FIELD(DDP,FLD) | ;Get field number
|
|
PUT(DDSFILE,DA,DDSFLD,DDSVAL,DDSER,DDSPARM) | ;Put value for file/field
|
|
GET(DDSFILE,DA,DDSFLD,DDSER,DDSPARM) | ;Get value for file/field
|
|
GETQ | ||
UPDATE(DDP,DDSVDA,DA,FLD,PG,Y) | ;Store value, repaint
|
|
GVAL(DIE,DA,ND,PC) | ;Get value
|
Name | Field # of Occurrence |
---|---|
GL^DDS10 | GDIE+11 |
RPB^DDS7 | UPDATE+28 |
RPF^DDS7 | UPDATE+9 |
RPCF^DDSCOMP | UPDATE+29 |
$$AFTQ^DDSLIB | FIELD+2 |
$$FIND^DDSLIB | GET+9 |
$$UQT^DDSLIB | FIELD+2 |
$$REL^DDSVALM | GET+10 |
ERR^DDSVALM | GETQ, PUTQ |
GETWP^DDSVALM | GET+22 |
MULT^DDSVALM | PUT+13 |
BLD^DIALOG | PUT+9, GDIE+10, GNDPC+9, GNDPC+14, GNDPC+22, GNDPC+25, FIELD+7, FIELD+9 |
FILE^DIE | VALPUT+16 |
VAL^DIE | VALPUT+3 |
AUXVAL^DIEV | VALPUT+5 |
$$EXTERNAL^DILFD | GET+24 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | PUT+11, GNDPC+10, GNDPC+24, FIELD+6, FIELD+9 |
^TMP("DDSWP" | GET+17 |
Name | Line Occurrences |
---|---|
$$FIELD | GET+12, PUT+8 |
$$GVAL | GET+23 |
GDIE | GET+7, PUT+7 |
GETQ | GET+7, GET+9, GET+12 |
GNDPC | GET+21 |
PUTQ | PUT+7, PUT+8, PUT+9 |
UPDATE | VALPUT+11 |
VALPUT | PUT+14 |
Name | Field # of Occurrence |
---|---|
^("F" | UPDATE+2* |
^("GL" | VALPUT+10* |
^("M" | GET+16 |
^("X" | GET+19, UPDATE+2* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BK | UPDATE+1~, UPDATE+6*, UPDATE+7, UPDATE+8, UPDATE+11*, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+18, UPDATE+19 , UPDATE+20 |
DA | GET~, GET+10, GET+23, PUT~, VALPUT+11, UPDATE~, UPDATE+9, GDIE+11, GVAL~ |
>> DDGLDEL | UPDATE+24 |
>> DDGLVID | UPDATE+24 |
DDO | UPDATE+1~, UPDATE+12*, UPDATE+13 |
DDP | GET+1~, GET+10, GET+12, GET+14, GET+17, GET+24, PUT+1~, PUT+8, PUT+11, VALPUT+3 , VALPUT+5, VALPUT+7, VALPUT+10, VALPUT+11, VALPUT+15, UPDATE~, UPDATE+2*, UPDATE+5, UPDATE+6, UPDATE+9 , UPDATE+11, UPDATE+12, UPDATE+28, UPDATE+29, GDIE+9*, GDIE+10, GDIE+11, GNDPC+10, GNDPC+13, GNDPC+20 , FIELD~, FIELD+4, FIELD+6, FIELD+9 |
>> DDS | GET+15, PUT+7, VALPUT+9 |
DDSANS | GET+1~, GET+4*, GET+10*, GET+17*, GET+18, GET+19*, GET+23*, GET+24*, GETQ+1 |
>> DDSCHG | VALPUT+12* |
DDSER | GET~, PUT~ |
DDSFDA | VALPUT+14~ |
DDSFDA( | VALPUT+15* |
DDSFILE | GET~, PUT~, GDIE+9 |
DDSFLD | GET~, GET+9, GET+10, GET+12*, GET+14, GET+17, GET+24, PUT~, PUT+8*, PUT+9 , PUT+11, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+10, VALPUT+11, VALPUT+15, GNDPC+9, GNDPC+10, GNDPC+13 , GNDPC+20 |
DDSPARM | GET~, GET+5*, GET+10, GET+19, GET+24, PUT~, PUT+5*, VALPUT+2 |
>> DDSPG | VALPUT+11 |
DDSPTB | UPDATE+8~*, UPDATE+9 |
>> DDSREFS | UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+28, UPDATE+29 |
>> DDSREFT | GET+14, GET+15, VALPUT+7, VALPUT+10, UPDATE+2*, UPDATE+18, UPDATE+19, UPDATE+20 |
DDSTMP | GET+1~, GET+14*, GET+15, GET+16, GET+18, GET+19 |
DDSV0 | PUT+1~, PUT+11*, VALPUT+5 |
DDSV02 | PUT+1~, PUT+11*, PUT+12, VALPUT+5 |
DDSVAL | PUT~, PUT+4*, PUT+9, VALPUT+3, VALPUT+5 |
DDSVDA | GET+2~, GET+7, GET+14, GET+17, PUT+1~, PUT+7, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+10 , VALPUT+11, VALPUT+15, UPDATE~, UPDATE+2, UPDATE+9, UPDATE+20, GDIE+11 |
DDSVDDL0 | GET+2~, GNDPC+10*, GNDPC+11, GNDPC+16, GNDPC+18 |
DDSVDL | GET+2~, PUT+1~, GDIE+11 |
DDSVDV | GET+2~, GET+22, GNDPC+18*, GNDPC+24*, GNDPC+25 |
DDSVL | GDIE~, GDIE+11 |
DDSVND | GET+2~, GET+23, GNDPC+17* |
DDSVPC | GET+2~, GET+22, GET+23, GNDPC+16*, GNDPC+17*, GNDPC+21, GNDPC+23 |
DDSVY | VALPUT+1~, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+11, VALPUT+15 |
DDSVY(0 | VALPUT+7! |
DIE | GET+1~, GET+23, PUT+1~, VALPUT+10, GDIE+11, GVAL~, GVAL+2 |
DIERR | GET+2~, GET+7, GET+12, GET+21, GETQ, PUT+2~, PUT+7, PUT+8, PUTQ, VALPUT+6 , FIELD+5 |
DX | UPDATE+1~, UPDATE+14* |
DY | UPDATE+1~, UPDATE+14*, UPDATE+16, UPDATE+18*, UPDATE+19*, UPDATE+20*, UPDATE+22*, UPDATE+23* |
E | GNDPC+12~, GNDPC+14 |
E("FIELD" | GNDPC+13* |
E("FILE" | GNDPC+13* |
EXT | UPDATE+1~, UPDATE+2*, UPDATE+24, UPDATE+26 |
F | FIELD+1~, FIELD+4*, FIELD+6*, FIELD+7, FIELD+9, FIELD+10 |
FLD | UPDATE~, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+11, UPDATE+12, UPDATE+28, UPDATE+29, FIELD~ , FIELD+2*, FIELD+4, FIELD+5, FIELD+6, FIELD+7 |
I | GNDPC+12~, GNDPC+14 |
I("FILE" | GNDPC+13* |
I(1 | GNDPC+13* |
>> IOXY | UPDATE+25 |
LEN | UPDATE+1~, UPDATE+13*, UPDATE+14*, UPDATE+24, UPDATE+26 |
LN | GVAL+1~, GVAL+2*, GVAL+3, GVAL+4 |
ND | GVAL~ |
OFS | UPDATE+17~, UPDATE+21*, UPDATE+22 |
P | GNDPC+20~, GNDPC+22, GNDPC+25, FIELD+1~, FIELD+7, FIELD+9 |
P("FIELD" | GNDPC+20* |
P("FILE" | GNDPC+20*, FIELD+4* |
P(1 | FIELD+7*, FIELD+9* |
PAGE | UPDATE+1~, UPDATE+5*, UPDATE+6, UPDATE+7, UPDATE+8 |
PC | GVAL~, GVAL+3, GVAL+4 |
PDA | UPDATE+17~, UPDATE+18*, UPDATE+19, UPDATE+20 |
PG | UPDATE~, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+28, UPDATE+29 |
REP | UPDATE+1~, UPDATE+15*, UPDATE+16, UPDATE+19*, UPDATE+21, UPDATE+22 |
RJ | UPDATE+1~, UPDATE+14*, UPDATE+26 |
SN | UPDATE+17~, UPDATE+20*, UPDATE+21 |
U | PUT+11, UPDATE+7, UPDATE+14, UPDATE+15, UPDATE+19, UPDATE+21, UPDATE+22, GDIE+9, GNDPC+16, GNDPC+18 , GNDPC+24, GVAL+3 |
VAL | UPDATE+1~, UPDATE+24*, UPDATE+26 |
X | GET+1~, GNDPC+18* |
Y | UPDATE~, UPDATE+2, GVAL+1~, GVAL+3*, GVAL+4*, GVAL+5 |
Y(0 | UPDATE+2 |