TIUFWRAP ;SPFO/AJB - Evaluate & Clean File #8927 ;04/06/22 12:5
Source file <TIUFWRAP.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 2 | TIU ANALYZE/UPDATE FILE 8927 TIUFWRAP1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; main entry
|
|
EE(IEN,LEVEL,PATH,LOD) | ; evaluate entry
|
|
FBF(IEN,NODE,LINE) | ; fix broken fields/objects
; only evaluates the current line and the next line ; case #1 - missing a single closing bracket at the end of a line ; either missing the bracket or wrapped |
|
CHKOF(DATA) | ; check the object/fields in a non-broken line
|
|
CHKOBJ(NAME,XREF) | ; check if object exists
|
|
NXTLINE(IEN,ITEM) | ; evaluate next line for suitability to merge
|
|
BROKEN(TEXT) | ; check for broken field/object
|
|
WRAP(DATA,IEN,NODE,LAST) | ;
|
|
EX80(DATA) | ||
MERGE(DATA) | ; merge lines of text criteria
|
|
DEL(PARENT,ITEM,CHILD) | ;
|
|
HASBPTXT(IEN) | ; does entry have BOILERPLATE TEXT?
|
|
HASITEMS(IEN) | ; does entry have ITEMS?
|
|
CLEAN(DATA) | ;
; remove trailing spaces, replace characters, remove control characters |
|
RTS(X) | ; remove trailing spaces
|
|
REPLACE(DATA) | ; replace characters
|
|
CTRL(X) |
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | EN+2 |
^DIK | DEL+4, DEL+6 |
WRAP^TIUFLD | WRAP+4 |
BACKUP^TIUFWRAP1 | EN+3, EN+13 |
EMAIL^TIUFWRAP1 | EN+26 |
GATHER^TIUFWRAP1 | EN+18 |
PREPOUT^TIUFWRAP1 | EN+19, EN+20, EN+21, EN+22, EN+23 |
PRINT^TIUFWRAP1 | EN+25 |
RESTORE^TIUFWRAP1 | EN+14 |
UPDATE^TIUFWRAP1 | EN+15 |
VIEW^TIUFWRAP1 | EN+24 |
$$FMR^TIUFWRAP2 | EN+12, EN+18 |
DISPLAY^TIUFWRAP2 | EN+9 |
HELP^TIUFWRAP2 | EN+16 |
CLEAN^XGF | EN+27 |
PREP^XGF | EN+2 |
$$REPLACE^XLFSTR | REPLACE+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^TIU(8927 - [#8927] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925.1 - [#8925.1] | CHKOBJ+2, CHKOBJ+3 |
^TIU(8927 - [#8927] | EE+2, EE+8, EE+12, EE+14!, EE+38, EE+51, EE+52, EE+59!*, FBF+8, FBF+10* , FBF+15*, FBF+16*, FBF+22, FBF+24*, FBF+32*, FBF+33*, NXTLINE+1, NXTLINE+2, DEL+1, HASBPTXT+1 , HASITEMS+1 |
^TIU(8927.1 - [#8927.1] | FBF+10, CHKOF+12, EX80+4, EX80+8 |
^TMP($J | EN+4, EN+8! |
Name | Line Occurrences |
---|---|
$$BROKEN | EE+25, EE+38, FBF+14, FBF+28 |
$$CHKOBJ | FBF+24, FBF+29, CHKOF+4 |
$$CLEAN | EE+39, EE+52 |
$$CTRL | CLEAN+4 |
$$EE | EE+16 |
$$EX80 | EE+30, WRAP+3 |
$$HASBPTXT | EE+61 |
$$HASITEMS | EE+61 |
$$MERGE | EE+32, EE+46 |
$$NXTLINE | EE+33, EE+50 |
$$REPLACE | CLEAN+3 |
$$RTS | CLEAN+2 |
CHKOF | EE+29 |
DEL | EE+18 |
FBF | EE+38 |
WRAP | EE+48, EE+54 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DEL+3~ |
ANS | EN+1~, EN+5*, EN+12*, EN+13*, EN+14*, EN+15*, EN+16*, EN+24*, EN+25*, EN+26* , CHKOBJ+2~, CHKOBJ+3*, CHKOBJ+4 |
BENT | EE+25~*, EE+26, EE+29 |
BROKEN | EN+6~, EN+18, EN+21, EE+27, EE+28 |
BROKEN("COUNT" | EN+21, EE+27* |
BU | EN+1~, EN+3, EN+10, EN+11, EN+13, EN+15 |
C | EN+1~ |
CHILD | DEL~, DEL+1, DEL+4 |
CL | FBF+7~, FBF+8*, FBF+10, FBF+12*, FBF+14, FBF+15, FBF+21~, FBF+22*, FBF+24, FBF+26* , FBF+28, FBF+32 |
CNT | EE+7~, EE+8*, EE+9*, EE+10 |
CONT | FBF+4~*, FBF+6, FBF+17* |
DA | DEL+3~, DEL+4*, DEL+6* |
DA(1 | DEL+6* |
DATA | EE+7~, EE+48, EE+54, EE+56, CHKOF~, CHKOF+2, CHKOF+3, CHKOF+4, CHKOF+7, CHKOF+8 , WRAP~, EX80~, EX80+1, EX80+2, EX80+3, EX80+4, MERGE~, MERGE+2, MERGE+3, CLEAN~ , CLEAN+2*, CLEAN+3*, CLEAN+4*, CLEAN+5, REPLACE~, REPLACE+3 |
DATA(8927 | EE+41, EE+43*, EE+53*, EE+57, EE+58*, EE+59, WRAP+2, WRAP+6* |
DIK | DEL+3~, DEL+4*, DEL+6* |
DIR | EN+10~*, EN+12 |
DT | EE+58 |
FIEN | EX80+4~*, EX80+5, EX80+8 |
FLD | FBF+4~*, FBF+5, FBF+7, CHKOF+1~, BROKEN+5~*, BROKEN+6, BROKEN+7, EX80+2~, EX80+3*, EX80+4 |
FNAME | FBF+7~*, FBF+10, FBF+11*, CHKOF+8~*, CHKOF+9, CHKOF+12, EX80+4~*, EX80+9 |
I | CTRL+1~*, CTRL+2*, CTRL+3 |
IEN | EE~, EE+2, EE+8, EE+12, EE+14, EE+18, EE+27, EE+28, EE+33, EE+34 , EE+35, EE+38, EE+41, EE+43, EE+48, EE+50, EE+51, EE+52, EE+53, EE+54 , EE+57, EE+58, EE+59, EE+61, FBF~, FBF+8, FBF+10, FBF+15, FBF+16, FBF+22 , FBF+24, FBF+30, FBF+31, FBF+32, FBF+33, CHKOF+5, CHKOF+6, CHKOF+10, CHKOF+11, CHKOF+13 , CHKOF+14, NXTLINE~, NXTLINE+1, NXTLINE+2, WRAP~, WRAP+2, WRAP+6, EX80+6, EX80+7, HASBPTXT~ , HASBPTXT+1, HASITEMS~, HASITEMS+1 |
>> IOCUON | EN+2 |
ITEM | EE+7~, EE+8*, EE+12, EE+14, EE+18, EE+28, EE+33, EE+35, EE+38, EE+50 , EE+51*, EE+52, FBF+31, CHKOF+6, CHKOF+11, CHKOF+14, NXTLINE~, NXTLINE+1, EX80+7, DEL~ , DEL+6 |
LAST | EE+41~*, EE+42*, EE+43, EE+48, EE+53, EE+54, WRAP~, WRAP+2, WRAP+6* |
LAST("Start" | WRAP+2* |
LENGTH | EX80+2~*, EX80+9*, EX80+14*, EX80+15 |
LEVEL | EE~, EE+4, EE+5, EE+10*, EE+16, EE+17, EE+24, FBF+30, CHKOF+5, CHKOF+13 , EX80+6 |
LINE | FBF~, FBF+5, FBF+7, FBF+8, FBF+20, FBF+21, FBF+22, NXTLINE+1~*, NXTLINE+2*, NXTLINE+4 , WRAP+1~, WRAP+5*, WRAP+6 |
LOD | EE~, EE+16, EE+44, EE+48 |
LONG | EN+6~, EN+18, EN+19, EE+34, EE+35 |
LONG("COUNT" | EN+19, EE+34* |
MAXLEN | EX80+10~ |
MAXLEN( | EX80+11*, EX80+12*, EX80+13* |
MAXLEN("" | EX80+14 |
NAME | CHKOBJ~, CHKOBJ+1, CHKOBJ+2 |
NL | FBF+7~, FBF+8*, FBF+11, FBF+12, FBF+13*, FBF+16, FBF+21~, FBF+22*, FBF+25, FBF+26 , FBF+27*, FBF+33 |
NODE | EE+1~, EE+6*, EE+8, EE+9, EE+12, EE+13, EE+16, EE+20, EE+38, EE+41 , EE+43, EE+48, EE+51, EE+52, EE+53, EE+54, EE+56, FBF~, FBF+8, FBF+10 , FBF+15, FBF+16, FBF+22, FBF+24, FBF+32, FBF+33, WRAP~, WRAP+2, WRAP+6 |
NODE0 | EE+1~, EE+2*, EE+3, EE+5, EE+61, WRAP+1~, WRAP+2*, WRAP+3, WRAP+4, EX80+8~* , EX80+11, EX80+12, EX80+13 |
NOFLD | EN+6~, EN+18, EN+22, CHKOF+10, CHKOF+11, CHKOF+13, CHKOF+14, EX80+6, EX80+7 |
NOFLD("COUNT" | EN+22, CHKOF+10*, CHKOF+13*, EX80+6* |
NOOBJ | EN+6~, EN+23, FBF+30, FBF+31, CHKOF+5, CHKOF+6 |
NOOBJ("COUNT" | EN+23, FBF+30*, CHKOF+5* |
NUM | CHKOF+1~, CHKOF+3*, CHKOF+4, CHKOF+7*, CHKOF+8 |
OBJ | CHKOF+1~ |
ONAME | FBF+21~*, FBF+24, FBF+25*, FBF+29, CHKOF+4~* |
ONOK | FBF+21~* |
OUTPUT | EN+1~, EN+4*, EN+17, EN+19, EN+20, EN+21, EN+22, EN+23, EN+28 |
PARENT | DEL~, DEL+5, DEL+6 |
PATH | EE~, EE+4*, EE+5*, EE+16, EE+17*, EE+19, EE+24*, EE+27, EE+34, FBF+30 , CHKOF+5, CHKOF+10, CHKOF+13, EX80+6 |
POP | EN+1~ |
PROMPT | EN+11~*, EN+12 |
REP | WRAP+1~, REPLACE+1~, REPLACE+3 |
REP( | REPLACE+1* |
REP("$c" | REPLACE+1* |
REP("{{" | REPLACE+2* |
REP("}}" | REPLACE+2* |
REP2 | WRAP+1~ |
RESULT | BROKEN+1~*, BROKEN+3*, BROKEN+7*, BROKEN+8, EX80+2~*, MERGE+1~*, MERGE+4 |
TEXT | BROKEN~, BROKEN+3, BROKEN+6, BROKEN+7 |
TIUDA | CHKOBJ+2~*, CHKOBJ+3 |
TIUFT | WRAP+1~ |
TIUFT( | WRAP+5, WRAP+6 |
TOTAL | EE+57~*, EE+58 |
TYPE | EE+1~, EE+3*, DEL+1~*, DEL+2 |
U | EN+12, EE+3, EE+5, EE+12, EE+17, EE+24, EE+28, EE+35, EE+61, FBF+30 , FBF+31, CHKOF+5, CHKOF+6, CHKOF+11, CHKOF+13, CHKOF+14, EX80+6, EX80+7, EX80+11, EX80+12 , EX80+13, DEL+1 |
UNLINKED | EN+6~, EN+18, EN+20, EE+19 |
UNLINKED("COUNT" | EN+20, EE+19* |
>> UPDATE | EE+13, EE+18, EE+23, EE+56 |
VALUE | EE+12~*, EE+13, EE+16, EE+18, EE+19, EE+25, EE+29, EE+30, EE+31, EE+32 , EE+38*, EE+39*, EE+43, EE+45, EE+46, EE+52*, EE+53 |
X | EN+1~, EN+7*, EN+8, BROKEN+7~*, WRAP+1~, DEL+3~, RTS~, RTS+1*, RTS+2, CTRL~ , CTRL+1, CTRL+2, CTRL+3*, CTRL+4 |
XREF | CHKOBJ~, CHKOBJ+2 |
Y | EN+1~, DEL+3~ |