DDMP1 ;SFISC/DPC-ASCII IMPORT UTIILTIES ;9/19/96 14:58
Source file <DDMP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILENUM(DDMPF) | ;
|
|
| FLDVAL | ;
|
|
| TMPL2SQ(DDMPF,DDMPFLSQ) | ;
|
|
| TMP2DR | ;
|
|
| INFILE(DDMPINAR,DDMPFMT,DDMPFBCK,DDMPDR,DDMPNCNT) | ;
|
|
| RQIDOK(DDMPFLDS) | ;
|
|
| TODR(DDMPF,DDMPFLDS,DDMPDR,DDMPDRTP) | ;
|
|
| GETSRC(DDMPFSRC) | ;
|
|
| TMPL2DR(DDMPF,DDMPFLDS) | ;
|
|
| GETFMT(DDMPFMT) | ;
; Sets up format info. |
| Name | Field # of Occurrence |
|---|---|
| $$FTG^%ZISH | GETSRC+4 |
| BLD^DIALOG | GETFMT+6, GETFMT+18, GETSRC+5, GETSRC+6, RQIDOK+9, INFILE+9, FILENUM+3, FLDVAL+6, FLDVAL+9, FLDVAL+11 , FLDVAL+15, FLDVAL+17, TMPL2SQ+7, TODR+12, TMP2DR+4 |
| FIND^DIC | GETFMT+5 |
| LIST^DIC | TMPL2SQ+8 |
| REQIDS^DICU | RQIDOK+4 |
| $$FLDNUM^DILFD | FLDVAL+2 |
| $$VFILE^DILFD | FILENUM+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | FLDVAL+3, FLDVAL+12 |
| ^DIC("B" | FILENUM+2 |
| ^DIST( | TMPL2SQ+3 |
| ^TMP("DILIST" | TMPL2SQ+9, TMPL2SQ+10, TMPL2SQ+11, TMPL2SQ+14! |
| ^TMP($J | GETSRC+3!, GETSRC+4, GETSRC+6 |
| Name | Line Occurrences |
|---|---|
| $$FILENUM | INFILE+10 |
| FLDVAL | INFILE+17 |
| TMP2DR | TODR+3, TODR+11, TODR+18 |
| TMPL2SQ | TMPL2DR+3 |
| TODR | INFILE+25, TMPL2DR+6, TODR+22 |
| Name | Field # of Occurrence |
|---|---|
| ^( | INFILE+5, FILENUM+2 |
| ^(1 | TMPL2SQ+12 |
| ^(2 | TMPL2SQ+12 |
| ^(3 | TMPL2SQ+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DDMP0 | FLDVAL+1~, FLDVAL+3*, FLDVAL+4, FLDVAL+7 |
| DDMP0P2 | INFILE+16~, INFILE+19, FLDVAL+7*, FLDVAL+8, FLDVAL+12 |
| DDMPARAM | TMPL2SQ+5~, TMPL2SQ+7 |
| DDMPARAM("FILE" | TMPL2SQ+6* |
| DDMPARAM(1 | TMPL2SQ+6* |
| DDMPASCI | GETFMT+13~*, GETFMT+14*, GETFMT+15 |
| DDMPCPTH | TODR+1~, TODR+6, TODR+7*, TODR+8, TODR+15 |
| DDMPDELM | INFILE+1~, INFILE+3*, INFILE+4*, INFILE+11 |
| DDMPDONE | INFILE+1~, INFILE+5, INFILE+21*, TODR+1~, TODR+2, TMP2DR+1* |
| DDMPDPTH | INFILE+12~, INFILE+13*, INFILE+15, FLDVAL+9, FLDVAL+11, TODR+1~, TODR+4, TODR+5*, TODR+6, TODR+7 , TODR+9, TODR+10, TODR+13, TODR+16, TODR+17, TODR+20, TODR+21 |
| DDMPDR | INFILE~, INFILE+25, TMPL2DR+1~, TMPL2DR+6, TMPL2DR+8, TODR~, TODR+22 |
| DDMPDR( | TMP2DR+2*, TMP2DR+3 |
| DDMPDRTP | TODR~, TODR+22 |
| DDMPDRTP( | TODR+9, TODR+10, TODR+13*, TODR+20*, TMP2DR+2, TMP2DR+3, TMP2DR+5! |
| DDMPERCT | RQIDOK+2~*, RQIDOK+10 |
| DDMPERR | TMPL2DR+2~*, TMPL2DR+4 |
| DDMPF | RQIDOK+2~*, RQIDOK+3*, RQIDOK+4, RQIDOK+7, RQIDOK+8, INFILE+1~, INFILE+7, INFILE+8*, INFILE+9, INFILE+10* , INFILE+14, INFILE+25, INFILE+26, FILENUM~, FILENUM+1, FILENUM+2, FILENUM+3, TMPL2DR~, TMPL2DR+3, TMPL2DR+6 , TMPL2SQ~, TMPL2SQ+3, TMPL2SQ+6, TODR~, TODR+9, TODR+10, TODR+13, TODR+20, TMP2DR+2, TMP2DR+3 , TMP2DR+4, TMP2DR+5 |
| DDMPFBCK | INFILE~, INFILE+26* |
| DDMPFDF | INFILE+12~, INFILE+14*, INFILE+18, INFILE+19*, FLDVAL+2, FLDVAL+3, FLDVAL+5, FLDVAL+14 |
| DDMPFDWN | TODR+1~, TODR+21*, TODR+22 |
| DDMPFLD | INFILE+12~, INFILE+15*, INFILE+18, FLDVAL+2*, FLDVAL+3, FLDVAL+5, FLDVAL+14 |
| DDMPFLDS | RQIDOK~, INFILE+1~, INFILE+24*, INFILE+25, TMPL2DR~, TMPL2DR+3, TMPL2DR+5*, TMPL2DR+6, TMPL2DR+7!, TMPL2DR+8* , TODR~, TODR+3, TODR+4, TODR+5, TODR+6, TODR+7, TODR+9, TODR+10, TODR+13, TODR+14* , TODR+20, TODR+21, TODR+22 |
| DDMPFLDS( | RQIDOK+3, RQIDOK+7, INFILE+20*, FLDVAL+16, TODR+3, TODR+4, TODR+5, TODR+6, TODR+7, TODR+9 , TODR+10, TODR+13, TODR+20, TODR+21 |
| DDMPFLDS("LN" | TODR+13 |
| DDMPFLSQ | TMPL2SQ~, TMPL2SQ+2 |
| DDMPFLSQ( | TMPL2SQ+12* |
| DDMPFLSQ("LN" | TMPL2SQ+13* |
| DDMPFMT | GETFMT~, GETFMT+4, GETFMT+5, GETFMT+6, INFILE~ |
| DDMPFMT("FDELIM" | GETFMT+8*, GETFMT+11*, GETFMT+12, GETFMT+14, GETFMT+15*, GETFMT+18, INFILE+4 |
| DDMPFMT("FIXED" | GETFMT+9*, GETFMT+17*, GETFMT+18, INFILE+3 |
| DDMPFMT("IEN" | GETFMT+7* |
| DDMPFMT("QUOTED" | GETFMT+10*, GETFMT+16* |
| DDMPFRMT | GETFMT+3~ |
| DDMPFRMT("DILIST" | GETFMT+6, GETFMT+7, GETFMT+8, GETFMT+9, GETFMT+10 |
| DDMPFSRC | GETSRC~ |
| DDMPFSRC("FILE" | GETSRC+4, GETSRC+5, GETSRC+6 |
| DDMPFSRC("PATH" | GETSRC+4 |
| DDMPFSTR | INFILE+1~, INFILE+11*, INFILE+13, INFILE+15, INFILE+18*, INFILE+20, FLDVAL+16 |
| DDMPI | GETFMT+13~, GETFMT+14*, INFILE+1~, INFILE+11*, INFILE+20, FLDVAL+16 |
| DDMPIMWK | GETSRC+2~, GETSRC+4*, GETSRC+5 |
| DDMPINAR | INFILE~, INFILE+5, INFILE+22 |
| DDMPJ | INFILE+1~, INFILE+15*, INFILE+18, FLDVAL+9, FLDVAL+11, FLDVAL+16 |
| DDMPNCNT | INFILE~, INFILE+2*, INFILE+5*, INFILE+22*, INFILE+23 |
| DDMPODTH | TODR+1~, TODR+4*, TODR+16*, TODR+17 |
| DDMPP | RQIDOK+8~, RQIDOK+9, FLDVAL+5~, FLDVAL+6, FLDVAL+13~, FLDVAL+15 |
| DDMPP("FIELD" | FLDVAL+14* |
| DDMPP("FILE" | RQIDOK+8*, FLDVAL+5*, FLDVAL+14* |
| DDMPP(1 | FLDVAL+5*, FLDVAL+14* |
| DDMPPATH | TMPL2SQ+1~, TMPL2SQ+11*, TMPL2SQ+12 |
| DDMPPC | GETFMT+13~, GETFMT+14* |
| DDMPPPTH | TODR+1~, TODR+6*, TODR+8, TODR+15* |
| DDMPRID | RQIDOK+2~, RQIDOK+5*, RQIDOK+6*, RQIDOK+7 |
| DDMPRIDS | RQIDOK+2~ |
| DDMPRIDS("REQ | UIRED IDENTIFIERS" , RQIDOK+6 |
| DDMPSQ | TMPL2SQ+1~, TMPL2SQ+10*, TMPL2SQ+11, TMPL2SQ+12, TMPL2SQ+13 |
| DDMPTPNM | TMPL2SQ+1~, TMPL2SQ+2*, TMPL2SQ+3, TMPL2SQ+6 |
| DDMPTPNO | TMPL2SQ+1~, TMPL2SQ+3*, TMPL2SQ+4, TMPL2SQ+8 |
| DDMPVAL | INFILE+1~, INFILE+5*, INFILE+6, INFILE+8, INFILE+11 |
| >> DIERR | RQIDOK+2, RQIDOK+10, INFILE+5, INFILE+15, INFILE+17, INFILE+23, FLDVAL+2, TMPL2DR+2, TMPL2DR+4, TODR+2 |
| U | INFILE+18, FLDVAL+7, FLDVAL+12, FLDVAL+16, TMPL2SQ+12, TODR+21 |