XDRDVAL ;CIOFO-SF.SEA/JLI - Check validity of data elements ;10/02/2000 08:00
Source file <XDRDVAL.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 |
---|---|---|
DOENTRY(FILE,IEN,OUTROOT,HELP) | ; ENTRY POINT TO PROCESS A SINGLE ENTRY
|
|
DOGETS | ;
|
|
VALIDATE(DATA,MESG) | ; VALIDATE DATA IN 'DATA' RETURN ERRORS IN 'MESG'
|
|
CHKVALID(MESG,FILE,IENS,FIELD,EXTVAL,INTVAL,HELP) | ;
|
|
MAKEGLO(FILENUM,IENS,GLOB,DASTR) | ;
|
|
CHKNM | ; CHECK FOR PROBLEM WITH NM NODE OF SUBFILE NOT BEING CORRECT
|
|
ERR | ; On an error mark status as error, and save the error message
|
|
OPEN | ;
|
|
CLOSE | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("OS" | CLOSE+4 |
^%ZOSF("TRAP" | CHKVALID+4 |
^DD( | VALIDATE+4, VALIDATE+5, VALIDATE+14, CHKVALID+10, CHKVALID+11, CHKVALID+19, CHKVALID+20, MAKEGLO+4, MAKEGLO+5, MAKEGLO+6 , CHKNM+2, CHKNM+3, CHKNM+4, CHKNM+5 |
^DIC - [#1] | MAKEGLO+3, MAKEGLO+11 |
^TMP("DDB" | CHKVALID+27!, CHKVALID+28, CHKVALID+29, ERR+4*, CLOSE+3!, CLOSE+14* |
^TMP("XDRDVAL-M" | CHKVALID+6, CHKVALID+23 |
^TMP($J | DOENTRY+3, DOENTRY+4, DOENTRY+5, CHKVALID+7* |
Name | Field # of Occurrence |
---|---|
^( | CHKVALID+28*! |
^("FIELD" | CHKVALID+7* |
^("IENS" | CHKVALID+7* |
^("X" | CHKVALID+7* |
^("Y" | CHKVALID+7* |
^(0 | CHKVALID+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | CLOSE+2~, CLOSE+10*, CLOSE+14* |
CHAR | CLOSE+2~, CLOSE+5*, CLOSE+12 |
D0 | CHKVALID+16~, CHKVALID+18* |
DA | CHKVALID+16~, CHKVALID+17 |
DASTR | MAKEGLO~, MAKEGLO+2!, MAKEGLO+10*, MAKEGLO+13* |
DASTR( | MAKEGLO+12* |
DATA | VALIDATE~, VALIDATE+3, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9 |
>> DATAROOT | DOENTRY+3*, DOENTRY+6, DOGETS+1, DOGETS+4, DOGETS+5, DOGETS+6, DOGETS+8, DOGETS+9, DOGETS+10 |
DAVAL | MAKEGLO+1~ |
DAVAL( | MAKEGLO+3*, MAKEGLO+7, MAKEGLO+11, MAKEGLO+12 |
DAVAL(1 | MAKEGLO+13 |
>> DDBDMSG | OPEN+1* |
DDBROS | CLOSE+2~, CLOSE+4* |
>> DDBRZIS | OPEN+1*, CLOSE+1*, CLOSE+8* |
>> DDBRZIS("REWIND" | CLOSE+7*, CLOSE+8 |
DIC | CHKVALID+16~, CHKVALID+17, CHKVALID+18, CHKVALID+20* |
DIC(0 | CHKVALID+18* |
DIE | CHKVALID+16~, CHKVALID+18* |
EOF | CLOSE+2~, CLOSE+4*, CLOSE+6 |
ERRFLG | MAKEGLO+1~, MAKEGLO+2*, MAKEGLO+3, MAKEGLO+4*, MAKEGLO+5*, MAKEGLO+6*, MAKEGLO+10 |
>> EXCODE | CHKVALID+19*, CHKVALID+21 |
EXTVAL | CHKVALID~, CHKVALID+7, CHKVALID+8, CHKVALID+26 |
FIELD | DOGETS+6*, DOGETS+7, DOGETS+8, DOGETS+9, DOGETS+10, DOGETS+11, VALIDATE+7*, VALIDATE+8, VALIDATE+9, VALIDATE+10 , VALIDATE+11, VALIDATE+12, VALIDATE+13, VALIDATE+14, VALIDATE+15, VALIDATE+16, CHKVALID~, CHKVALID+2, CHKVALID+7, CHKVALID+10 , CHKVALID+11, CHKVALID+19, CHKVALID+20, CHKVALID+23, CHKVALID+25, CHKVALID+26, CHKVALID+29 |
FILE | DOENTRY~, DOGETS+1, DOGETS+4*, DOGETS+5, DOGETS+6, DOGETS+7, DOGETS+8, DOGETS+9, DOGETS+10, DOGETS+11 , VALIDATE+3*, VALIDATE+4, VALIDATE+5, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9, VALIDATE+11, VALIDATE+12, VALIDATE+13 , VALIDATE+14, VALIDATE+15, VALIDATE+16, CHKVALID~, CHKVALID+7, CHKVALID+10, CHKVALID+11, CHKVALID+17, CHKVALID+19, CHKVALID+20 , CHKVALID+21, CHKVALID+23, CHKVALID+26, CHKVALID+29, MAKEGLO+1~, MAKEGLO+3*, MAKEGLO+4, MAKEGLO+5, MAKEGLO+11, CHKNM+2 , CHKNM+3, CHKNM+5, CHKNM+7 |
>> FILEA | CHKVALID+21* |
FILENUM | MAKEGLO~, MAKEGLO+3, MAKEGLO+4*, MAKEGLO+5, MAKEGLO+6 |
>> FIRSTLVL | VALIDATE+4*, VALIDATE+5*, VALIDATE+10 |
FLD | MAKEGLO+1~, MAKEGLO+5*, MAKEGLO+6 |
GLOB | MAKEGLO~, MAKEGLO+2*, MAKEGLO+7*, MAKEGLO+10*, MAKEGLO+11* |
HELP | DOENTRY~, CHKVALID~, CHKVALID+23 |
I | VALIDATE+5*, CHKVALID+28*, MAKEGLO+1~, MAKEGLO+3*, MAKEGLO+7, MAKEGLO+11, MAKEGLO+12, CLOSE+5* |
IEN | DOENTRY~, DOENTRY+8, DOENTRY+9, DOGETS+1 |
IENS | DOGETS+5*, DOGETS+6, DOGETS+8, DOGETS+9, DOGETS+10, DOGETS+11, VALIDATE+6*, VALIDATE+7, VALIDATE+8, VALIDATE+9 , VALIDATE+16, CHKVALID~, CHKVALID+7, CHKVALID+17, CHKVALID+18, CHKVALID+23, CHKVALID+26, CHKVALID+29, MAKEGLO~, MAKEGLO+3 , MAKEGLO+8* |
INTVAL | CHKVALID~, CHKVALID+7, CHKVALID+10, CHKVALID+12, CHKVALID+14, CHKVALID+20, CHKVALID+26 |
IO | CHKVALID+5, CHKVALID+27, OPEN+2, CLOSE+6, CLOSE+7, CLOSE+9 |
IO(0 | OPEN+2, CLOSE+8 |
>> IOP | CHKVALID+5* |
>> IOPAR | CLOSE+7 |
>> IOT | CLOSE+7 |
J | MAKEGLO+1~, MAKEGLO+12* |
MESG | VALIDATE~, VALIDATE+16, CHKVALID~, CHKVALID+23, CHKVALID+26, CHKVALID+29 |
>> MESGROOT | DOENTRY+4*, DOENTRY+6, DOENTRY+8, DOENTRY+9, DOGETS+1, DOGETS+3 |
NODE | MAKEGLO+1~, MAKEGLO+6*, MAKEGLO+7 |
OUTROOT | DOENTRY~, DOENTRY+9 |
>> POP | CHKVALID+5 |
>> RESULT | CHKVALID+9*, CHKVALID+20*, CHKVALID+21*, CHKVALID+23, CHKVALID+25, CHKVALID+26, CHKNM+6*, ERR+2* |
>> TEMPROOT | DOENTRY+5*, DOENTRY+6, DOENTRY+8, DOGETS+11 |
>> TOPFILE | VALIDATE+4*, VALIDATE+5, VALIDATE+10 |
U | DOGETS+11, VALIDATE+8, VALIDATE+9, VALIDATE+14, CHKVALID+10, CHKVALID+11, CHKVALID+13, CHKVALID+19, CHKVALID+20, CHKVALID+26 , MAKEGLO+6, CHKNM+4 |
UFILE | CHKNM+1~, CHKNM+2*, CHKNM+3, CHKNM+4, CHKNM+7 |
UFLD | CHKNM+1~, CHKNM+3*, CHKNM+4 |
UNAME | CHKNM+1~, CHKNM+4*, CHKNM+5, CHKNM+7 |
>> VAL | VALIDATE+8*, VALIDATE+16 |
X | DOGETS+10*, DOGETS+11, VALIDATE+8*, VALIDATE+9, CHKVALID+4*, CHKVALID+21*, ERR+2!, CLOSE+2~, CLOSE+11*, CLOSE+12* , CLOSE+13*, CLOSE+14 |
>> XDRDVALF | VALIDATE+2*, OPEN+2 |
>> XMESG | CHKVALID+6*, CHKVALID+24 |
>> Y | DOGETS+9*, DOGETS+11, CHKVALID+20* |
>> Y1 | CHKVALID+8*, CHKVALID+10*, CHKVALID+14*, CHKVALID+20*, CHKVALID+21 |
>> YVAL | VALIDATE+9*, VALIDATE+16 |
Z | CHKVALID+12~*, CHKVALID+13*, CHKVALID+14, CHKVALID+20* |
ZTQUEUED | DOENTRY+2~ |