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~ |