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 |