XDRDVAL ;CIOFO-SF.SEA/JLI - Check validity of data elements ;10/02/2000 08:00 [ 04/02/2003 8:47 AM ]
Source file <XDRDVAL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DOENTRY(FILE,IEN,OUTROOT,HELP) | ; ENTRY POINT TO PROCESS A SINGLE ENTRY | |
| ERR | ; On an error mark status as error, and save the error message | |
| MAKEGLO(FILENUM,IENS,GLOB,DASTR) | ; | |
| CHKNM | ; CHECK FOR PROBLEM WITH NM NODE OF SUBFILE NOT BEING CORRECT | |
| CHKVALID(MESG,FILE,IENS,FIELD,EXTVAL,INTVAL,HELP) | ; | |
| VALIDATE(DATA,MESG) | ; VALIDATE DATA IN 'DATA' RETURN ERRORS IN 'MESG' | |
| CLOSE | ; | |
| OPEN | ; | |
| DOGETS | ; | 
| 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 | Line Occurrences | 
|---|---|
| CHKNM | CHKVALID+25 | 
| CHKVALID | VALIDATE+16 | 
| DOGETS | DOENTRY+7 | 
| MAKEGLO | CHKVALID+17 | 
| VALIDATE | DOENTRY+8 | 
| 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+8, DOGETS+9, DOGETS+11, DOGETS+12, DOGETS+13 | 
| 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+9*, DOGETS+10, DOGETS+11, DOGETS+12, DOGETS+13, DOGETS+14, 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+6, DOGETS+8, DOGETS+9, DOGETS+10, DOGETS+11, DOGETS+12, DOGETS+13 , DOGETS+14, 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+8*, DOGETS+9, DOGETS+11, DOGETS+12, DOGETS+13, DOGETS+14, 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+14 | 
| >> TOPFILE | VALIDATE+4*, VALIDATE+5, VALIDATE+10 | 
| U | DOGETS+14, 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+13*, DOGETS+14, 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+12*, DOGETS+14, 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~ |