XDRMERG2 ;SF-IRMFO.SEA/JLI - TENATIVE UPDATE POINTER NODES ; [6/12/02 9:48am]
Source file <XDRMERG2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| XREFS(XVAL,XR,XDRIENS) | ; FIND POINTERS BASED ON KNOWN X-REFS FOR FILE
|
|
| GETSSN | ; For files 2 and 200, get SSN value for XDRFROM entry
|
|
| CHKLOCAL | ; CHECK STATUS FOR LOCAL MERGE PROCESSES (EVEN IF SOME DATA EXISTS IN MERGE PROCESS FILE)
|
|
| MERGEIT(XDRDIC,IENFROM,IENTO) | ; MERGE TWO ENTRIES IN FILE
|
|
| TIMSTAMP(PHASE,FILE,IEN) | ;
|
|
| DOMAIN(FILE,FROM) | ; MERGE ACTUAL ENTRIES IN THE FILE (THE ONES POINTED TO)
|
|
| OVRWRI(FILE,IENFR,IENTO) | ;
|
|
| HEADER | ;REM -9/25/96 Write header.
|
|
| CHK1 | ;
|
|
| ONESET(FILE,SPECIAL) | ;
|
|
| DATE8 | ;
|
|
| CHKFROM(FROM,FILE) | ;
|
|
| DINUM(XVAL,XR,XDRIENS) | ; FIND AND MERGE DINUMMED POINTERS
|
|
| SETVALS | ; IDENTIFY THE LOCATIONS OF POINTERS (NODE, PIECE, AND X-REF I ANY)
|
|
| SETALIAS | ; For selected files place data into alias field of TO entry
|
|
| CHECK | ;
|
|
| LOOP |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | DOMAIN+30 |
| FILE^DICN | DINUM+12 |
| FILE^DIE | OVRWRI+19, SETALIAS+8 |
| UPDATE^DIE | DINUM+20, DOMAIN+34, DOMAIN+38, SETALIAS+5 |
| $$GET1^DIQ | DINUM+18 |
| GETS^DIQ | OVRWRI+9, OVRWRI+14 |
| ^DIR | CHK1+16 |
| XREFS^XDRMERG1 | XREFS+1 |
| MERGEIT^XDRMERGB | MERGEIT+3 |
| SAVEMERG^XDRMERGB | DINUM+9, DOMAIN+22 |
| CHKFROM^XDRMERGC | CHKFROM+1 |
| $$FMADD^XLFDT | DOMAIN+2 |
| $$FMDIFF^XLFDT | TIMSTAMP+2, LOOP+10, LOOP+14 |
| $$NOW^XLFDT | TIMSTAMP+1, LOOP+10, LOOP+14 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(15.3 - [#15.3] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | SETVALS+4 |
| ^DD("IX" - [#.11] | DINUM+12, DINUM+16, DINUM+17 |
| ^DIC - [#1] | DOMAIN+6 |
| ^DPT - [#2] | GETSSN+1 |
| ^TMP($J | SETVALS+1, SETVALS+2, CHK1+7, CHK1+14, CHK1+17, CHK1+18, CHK1+19, CHK1+24, CHK1+29, CHK1+30! , LOOP, LOOP+4*, LOOP+5*, LOOP+6*, LOOP+10, LOOP+11*, LOOP+14*, LOOP+15* |
| ^VA(15 - [#15] | OVRWRI+7 |
| ^VA(15.2 - [#15.2] | TIMSTAMP+4*, CHK1+1, CHK1+5 |
| ^VA(200 - [#200] | GETSSN+2 |
| ^XTMP("XDRSTAT" | TIMSTAMP+6*, CHK1+6 |
| ^XTMP("XDRTESTK" | DOMAIN+2* |
| Name | Line Occurrences |
|---|---|
| CHK1 | CHKLOCAL+3 |
| DATE8 | CHK1+24, CHK1+25, CHK1+27 |
| GETSSN | DOMAIN+19 |
| HEADER | CHK1+13, CHK1+15 |
| LOOP | ONESET+2, LOOP |
| MERGEIT | DINUM+23, DOMAIN+25 |
| ONESET | CHK1+8, CHK1+12 |
| OVRWRI | DINUM+22, DOMAIN+24 |
| SETALIAS | DOMAIN+28 |
| SETVALS | DINUM+3 |
| TIMSTAMP | DINUM+24, DOMAIN+39 |
| Name | Field # of Occurrence |
|---|---|
| ^( | OVRWRI+7 |
| ^(0 | LOOP+1, LOOP+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BA | CHECK+1~, CHK1+2*, CHK1+20, CHK1+21* |
| CHKLOCAL | CHKLOCAL+1~, CHKLOCAL+2*, CHK1+1 |
| DA | DINUM+11~, MERGEIT+1~ |
| DD | DINUM+11~ |
| DFN | MERGEIT+1~, DOMAIN+20* |
| DIC | DINUM+11~, DINUM+12* |
| DIC(0 | DINUM+12* |
| DIK | MERGEIT+1~ |
| DINUM | DINUM+11~, DINUM+12* |
| DIR | CHK1+16! |
| DIR(0 | CHK1+16* |
| DIRUT | CHKLOCAL+1~, CHECK+1~, CHK1+14, CHK1+15 |
| DO | DINUM+11~ |
| DT | DOMAIN+2 |
| FILE | TIMSTAMP~, TIMSTAMP+4, TIMSTAMP+6, DOMAIN~, DOMAIN+3, DOMAIN+6, DOMAIN+22, DOMAIN+30, DOMAIN+32, DOMAIN+33 , DOMAIN+36, DOMAIN+37, DOMAIN+39, CHKFROM~, CHKFROM+1, GETSSN+1, GETSSN+2, OVRWRI~, OVRWRI+7, OVRWRI+9 , OVRWRI+10, OVRWRI+11, OVRWRI+12, OVRWRI+14, OVRWRI+15, OVRWRI+16, SETALIAS+2, SETALIAS+6, ONESET~, ONESET+2 , ONESET+3, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+13* , LOOP+14* |
| FILEI | DINUM+1~, DINUM+6, DINUM+9, DINUM+12, DINUM+16, DINUM+17, DINUM+18, DINUM+20, DINUM+22, DINUM+24 , SETVALS+1*, SETVALS+2*, SETVALS+3*, SETVALS+4 |
| FLDJ | DINUM+1~, DINUM+12, DINUM+16, DINUM+19, SETVALS+1*, SETVALS+2*, SETVALS+4 |
| FROM | DINUM+4, DINUM+6, DINUM+7, DOMAIN~, DOMAIN+8, DOMAIN+10, DOMAIN+20, CHKFROM~, CHKFROM+1, OVRWRI+3 , OVRWRI+4, OVRWRI+5 |
| I | MERGEIT+1~, OVRWRI+1~, OVRWRI+7*, OVRWRI+10*, OVRWRI+11 |
| IEN | TIMSTAMP~, TIMSTAMP+4, TIMSTAMP+6 |
| IENA | OVRWRI+1~, OVRWRI+3*, OVRWRI+4, OVRWRI+5 |
| IENB | OVRWRI+1~, OVRWRI+4*, OVRWRI+5 |
| IENFR | OVRWRI~, OVRWRI+3, OVRWRI+4, OVRWRI+5, OVRWRI+6 |
| IENFROM | MERGEIT~, DOMAIN+1~, DOMAIN+7*, DOMAIN+8*, DOMAIN+9, DOMAIN+10, DOMAIN+11, DOMAIN+12, DOMAIN+13, DOMAIN+17 , DOMAIN+20, DOMAIN+22, DOMAIN+24, DOMAIN+25, DOMAIN+26, DOMAIN+27, DOMAIN+36, DOMAIN+39, GETSSN+1, GETSSN+2 |
| IENNEW | DINUM+1~, DINUM+7*, DINUM+9, DINUM+10, DINUM+12, DINUM+19, DINUM+20, DINUM+22, DINUM+23 |
| IENOLD | DINUM+1~, DINUM+4*, DINUM+5, DINUM+6, DINUM+7, DINUM+9, DINUM+18, DINUM+22, DINUM+23, DINUM+24 |
| IENSF | OVRWRI+1~, OVRWRI+6*, OVRWRI+9, OVRWRI+10, OVRWRI+11, OVRWRI+16 |
| IENST | OVRWRI+13~*, OVRWRI+14, OVRWRI+15, OVRWRI+16 |
| IENTO | MERGEIT~, DOMAIN+1~, DOMAIN+10*, DOMAIN+11, DOMAIN+20*, DOMAIN+22, DOMAIN+24, DOMAIN+25, DOMAIN+27, DOMAIN+37 , OVRWRI~, OVRWRI+3, OVRWRI+4, OVRWRI+5, OVRWRI+11, OVRWRI+12, OVRWRI+13, SETALIAS+3, SETALIAS+4, SETALIAS+7 |
| IENTOSTR | MERGEIT+1~ |
| IOF | CHK1+3, CHK1+15 |
| IOSL | CHK1+15 |
| IOST | CHK1+15 |
| >> J | CHK1+10*, CHK1+11 |
| JOBNUM | ONESET+1~, ONESET+2*, LOOP+1, LOOP+5, LOOP+7, LOOP+9 |
| JVAL | ONESET+1~, ONESET+2*, LOOP+3 |
| M | CHECK+1~, CHK1+4*, CHK1+5, CHK1+6 |
| N | CHKLOCAL+1~, CHECK+1~, CHK1+2*, CHK1+7*, CHK1+14*, CHK1+17, CHK1+18, CHK1+19, CHK1+24, CHK1+29* , LOOP*, LOOP+4, LOOP+5, LOOP+6, LOOP+10, LOOP+11, LOOP+14, LOOP+15 |
| NODE | MERGEIT+1~ |
| NODE1 | MERGEIT+1~ |
| NODE2 | MERGEIT+1~ |
| NODEA | MERGEIT+1~ |
| NODEB | MERGEIT+1~ |
| PHASE | TIMSTAMP~, TIMSTAMP+4, TIMSTAMP+6 |
| SFILE | MERGEIT+1~ |
| SPECIAL | ONESET~, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+7, LOOP+10, LOOP+14 |
| START | CHECK+1~, CHK1+18*, CHK1+20, CHK1+21, CHK1+24, LOOP+1*, LOOP+2*, LOOP+15 |
| U | TIMSTAMP+4, TIMSTAMP+6, SETVALS+2, SETVALS+3, SETVALS+4, DOMAIN+2, DOMAIN+12, DOMAIN+13, DOMAIN+17, GETSSN+1 , GETSSN+2, CHK1+5, CHK1+25, CHK1+27, CHK1+28, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+7 , LOOP+9, LOOP+10, LOOP+13, LOOP+14 |
| VALUE | MERGEIT+1~, DOMAIN+29~, DOMAIN+30*, DOMAIN+31 |
| VREF | DINUM+1~, MERGEIT+1~, SETVALS+4* |
| X | DINUM+11~, DINUM+12*, DOMAIN+15~*, DOMAIN+16*, DOMAIN+17, DOMAIN+18, CHKLOCAL+1~, CHECK+1~, CHK1+24*, CHK1+25* , CHK1+26, CHK1+27*, DATE8+2*, DATE8+3, DATE8+4*, DATE8+6* |
| X1 | DATE8+1~, DATE8+3*, DATE8+4, DATE8+5*, DATE8+6 |
| XDRARR | DINUM+15~, OVRWRI+1~, SETALIAS+1~ |
| XDRARR( | DINUM+20*, OVRWRI+10, OVRWRI+11, SETALIAS+3*, SETALIAS+4*, SETALIAS+7* |
| XDRARR1 | OVRWRI+1~ |
| XDRARR1( | OVRWRI+11*, OVRWRI+12, OVRWRI+16* |
| XDRARR2 | OVRWRI+13~ |
| XDRARR2( | OVRWRI+15, OVRWRI+16 |
| XDRDIC | MERGEIT~, DOMAIN+6*, DOMAIN+9, DOMAIN+11, DOMAIN+12, DOMAIN+13, DOMAIN+17*, DOMAIN+25, DOMAIN+26, DOMAIN+27 |
| >> XDRFDA | TIMSTAMP+3, TIMSTAMP+4 |
| >> XDRFDA1 | TIMSTAMP+4 |
| XDRFFLD | DINUM+15~, DINUM+18*, DINUM+19*, DINUM+20 |
| >> XDRFGLOB | SETVALS+4 |
| XDRFIL | CHKLOCAL+1~, CHKLOCAL+2*, CHECK+1~, CHK1+1*, CHK1+4, CHK1+5, CHK1+6, CHK1+9, LOOP+3, LOOP+4 , LOOP+7, LOOP+9, LOOP+10, LOOP+12, LOOP+14 |
| XDRFIL1 | CHECK+1~, CHK1+6*, CHK1+8, CHK1+10, CHK1+11 |
| XDRFIL2 | CHECK+1~, CHK1+11*, CHK1+12 |
| XDRFLDI | DINUM+15~, DINUM+17*, DINUM+18, DINUM+19, DINUM+20 |
| XDRFROM | MERGEIT+1~ |
| >> XDRGID | TIMSTAMP+6 |
| XDRIENS | DINUM~, XREFS~, DOMAIN+1~, DOMAIN+5* |
| XDRINDSB | DINUM+15~, DINUM+16*, DINUM+17 |
| >> XDRTESTK | DOMAIN+2* |
| XDRTO | MERGEIT+1~ |
| XDRVAL | DOMAIN+1~, DOMAIN+12*, DOMAIN+13*, DOMAIN+14, DOMAIN+15, DOMAIN+18*, DOMAIN+23~, DOMAIN+26, SETALIAS+3, SETALIAS+7 |
| XDRVAL("SSN" | GETSSN+1*, GETSSN+2*, SETALIAS+4 |
| >> XDRXFLG | DINUM+6, DOMAIN+4 |
| >> XDRXT | TIMSTAMP+2, TIMSTAMP+7* |
| XDRXX | MERGEIT+1~, DOMAIN+29~, DOMAIN+35! |
| XDRXX( | DOMAIN+32*, DOMAIN+36*, DOMAIN+37* |
| >> XDRYT | TIMSTAMP+1*, TIMSTAMP+2, TIMSTAMP+4, TIMSTAMP+6, TIMSTAMP+7 |
| XDRYY | MERGEIT+1~, DOMAIN+29~, DOMAIN+33!, DOMAIN+35! |
| XDRYY(1 | DOMAIN+33* |
| XFILNO | MERGEIT+1~, DOMAIN+3*, DOMAIN+24 |
| XJOB | CHKLOCAL+1~, CHECK+1~, CHK1+7*, CHK1+19*, CHK1+25, CHK1+27, CHK1+28, LOOP+3, LOOP+7*, LOOP+8 , LOOP+9*, LOOP+10, LOOP+14, LOOP+15 |
| XNAME | CHKLOCAL+1~, CHECK+1~, CHK1+7*, CHK1+17*, CHK1+22*, CHK1+23, LOOP+3*, LOOP+15 |
| XNI | OVRWRI+1~, OVRWRI+6*, OVRWRI+7*, OVRWRI+8, OVRWRI+9 |
| XNN | MERGEIT+1~, OVRWRI+1~, OVRWRI+5*, OVRWRI+7 |
| XR | DINUM~, XREFS~, SETVALS+1, SETVALS+2 |
| XREF | DINUM+1~, SETVALS+3* |
| XSTAT | CHKLOCAL+1~ |
| XVAL | DINUM~, DINUM+5, DINUM+10, DINUM+12, DINUM+23, XREFS~ |
| XVALUE | MERGEIT+1~ |
| Y | DINUM+12, DINUM+15~, MERGEIT+1~ |