TIUFLD ; SLC/MAM - Lib; Template D Related; SETFLD(FILEDA,LASTLIN,FLDNO,SUBFDA,SUBFLDNO), INHERIT(FILEDA,PFILEDA,FLDNO,EIFORM,SUBFDA,SUBFLDNO,VALUE,AFILEDA), MULTILN(TIUREC,LASTLIN,FLDNAME) ;02/16/06
Source file <TIUFLD.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETFLD(FILEDA,LASTLIN,FLDNO,SUBFDA,SUBFLDNO) | ; Puts External Field in TMP("TIUF3") for Template D (Display), for FILEDA.
; Requires Array TIUFQ as set in TIUFD, TIUFD1. ; Requires FILEDA=DA in file. ; Requires LASTLIN = Last array line set, if setting array; = Last |
|
SETFLD1 | ; Technical fields, others which are heritable.
|
|
SETFLD2 | ||
SETFX | ||
INHERIT(FILEDA,PFILEDA,FLDNO,EIFORM,SUBFDA,SUBFLDNO,VALUE,AFILEDA) | ;
; Can't make it a function with pieces since pieces may contain ^. ; For FLDNO'=6.14, Returns in VALUE the Field Value for first ancestor |
|
AGAIN | ||
INHEX | ||
MULTILN(TIUREC,LASTLIN,FLDNAME) | ; Set FLDNAME and as much as fits of TIUREC
|
|
MMULTILN(TIUREC,LASTLIN,FLDNAME) | ;MULTILN for M code (show spaces)
|
|
WRAP(TEXT,LENGTH,FLENGTH) | ; Breaks text string into first substring of
|
FileNo | Call Tags |
---|---|
^TIU(8925.1 - [#8925.1] | CHK^DIE, FIELD^DID |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(8925.1 | INHEX+4 |
^DD(8925.11 | INHEX+2 |
^DD(8925.12 | INHEX+3 |
^TIU(8925.1 - [#8925.1] | SETFLD+38, INHERIT+17, INHERIT+19 |
^TMP("TIUF" | SETFLD+15 |
^TMP("TIUF3" | SETFLD2*, SETFLD2+2*, MULTILN+10*, MULTILN+13*, MMULTILN+7*, MMULTILN+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AFILEDA | INHERIT~, AGAIN, INHEX* |
AVAIL | SETFLD+11~, SETFLD+21*, SETFLD2+2, MULTILN+7~, MULTILN+8* |
C | INHERIT+13~, INHEX+2*, INHEX+3*, INHEX+4* |
COWNER | SETFLD+12~, SETFLD+24*, SETFLD+25, SETFLD+26 |
>> DIERR | SETFLD+43, SETFLD+50 |
EIFORM | INHERIT~, INHERIT+15*, AGAIN, INHEX+1 |
FCHAR | MMULTILN+1~, MMULTILN+2*, MMULTILN+3, MMULTILN+4, MMULTILN+5* |
FDA | SETFLD+12~, SETFLD+30*, SETFLD+32 |
FIELDNO | SETFLD+12~, SETFLD+29*, SETFLD+32 |
FILEDA | SETFLD~, SETFLD+24, SETFLD+30, SETFLD+36, SETFLD+38, SETFLD1+2, INHERIT~, INHERIT+17 |
FILENO | SETFLD+12~, SETFLD+28*, SETFLD+32 |
FLDNAME | SETFLD+11~, SETFLD+15*, SETFLD+17*, SETFLD+18*, SETFLD+19*, SETFLD+20*, SETFLD+21, SETFLD+22*, SETFLD2+2, SETFLD2+3 , SETFLD2+4, SETFLD2+5, MULTILN~, MULTILN+8, MULTILN+10, MMULTILN~, MMULTILN+2, MMULTILN+6 |
FLDNAME1 | SETFLD+11~, SETFLD+20*, SETFLD2 |
FLDNO | SETFLD~, SETFLD+15, SETFLD+17, SETFLD+18, SETFLD+19, SETFLD+23, SETFLD+28, SETFLD+29, SETFLD+31, SETFLD+33 , SETFLD+34, SETFLD+35, SETFLD+36, SETFLD+37, SETFLD+39, SETFLD+46, SETFLD+53, SETFLD+54, SETFLD1+2, SETFLD2+1 , SETFLD2+3, SETFLD2+4, INHERIT~, INHERIT+18, INHERIT+20, INHERIT+21, AGAIN, INHEX+2, INHEX+3, INHEX+4 |
FLDVAL | SETFLD+12~, SETFLD1+2 |
FLDVAL("E" | SETFLD1+2 |
FLENGTH | WRAP~ |
LASTLIN | SETFLD~, SETFLD2*, SETFLD2+2*, SETFLD2+3, SETFLD2+4, SETFLD2+5, MULTILN~, MULTILN+9, MULTILN+14*, MMULTILN~ , MMULTILN+2, MMULTILN+9* |
LC | SETFLD+12~, SETFLD+25*, SETFLD+26 |
LCHAR | MMULTILN+1~, MMULTILN+2*, MMULTILN+4, MMULTILN+5* |
LENGTH | SETFLD+12~, SETFLD+15*, SETFLD+16*, SETFLD+18*, SETFLD+19*, SETFLD+20, SETFLD+22, WRAP~, WRAP+8, WRAP+9 , WRAP+13 |
LINE | WRAP+4~, WRAP+11*, WRAP+13*, WRAP+14 |
LINENO | SETFLD+11~, MULTILN+7~, MULTILN+9*, MULTILN+10, MULTILN+13*, MULTILN+14, MMULTILN+1~, MMULTILN+2*, MMULTILN+7*, MMULTILN+8 , MMULTILN+9 |
LP | SETFLD+12~, SETFLD+25*, SETFLD+26 |
NODE1 | SETFLD+11~, SETFLD+38*, SETFLD+40, SETFLD+41, SETFLD+47, SETFLD+49, SETFLD+51 |
NODENO | INHERIT+13~, INHERIT+18*, INHERIT+19 |
OWNER | SETFLD+12~, SETFLD+26*, SETFLD+27 |
PFILEDA | INHERIT~, INHERIT+17*, INHERIT+19, AGAIN, INHEX |
PNODE | INHERIT+13~, INHERIT+19*, INHERIT+20, INHERIT+21 |
POWNER | SETFLD+12~, SETFLD+24*, SETFLD+25, SETFLD+26 |
REST | MULTILN+7~, MULTILN+11*, MULTILN+12 |
SUBFDA | SETFLD~, SETFLD+14*, SETFLD+30, SETFLD1+2, INHERIT~, INHERIT+16*, AGAIN |
SUBFLDNO | SETFLD~, SETFLD+14*, SETFLD+15, SETFLD+29, SETFLD1+2, SETFLD2+4, INHERIT~, INHERIT+16*, AGAIN, INHEX+2 , INHEX+3 |
TEXT | WRAP~, WRAP+5, WRAP+6, WRAP+7, WRAP+10*, WRAP+11, WRAP+12, WRAP+13, WRAP+14 |
TIUCKUP | SETFLD+13~, SETFLD+45 |
TIUFI | WRAP+4~, WRAP+6*, WRAP+7, WRAP+10, WRAP+12*, WRAP+13, WRAP+14 |
TIUFJ | WRAP+4~ |
>> TIUFNOD0 | SETFLD+21, SETFLD+31 |
>> TIUFQ( | SETFLD+24, SETFLD+32 |
TIUFT | MULTILN+7~, MULTILN+12!, MMULTILN+1~, WRAP+7*, WRAP+8, WRAP+9 |
TIUFT( | MULTILN+11, MULTILN+13, MMULTILN+4*, MMULTILN+7, MMULTILN+8, WRAP+13, WRAP+14* |
TIUFT(1 | MULTILN+10, MMULTILN+6*, WRAP+11* |
TIUFT1 | WRAP+4~, WRAP+9*, WRAP+10 |
TIUFT2 | WRAP+4~, WRAP+9*, WRAP+10 |
TIUFTEMP | SETFLD+13~ |
TIUFTEMP("TYPE" | SETFLD2+3 |
TIUFY | WRAP+4~, WRAP+13*, WRAP+14* |
TIUK | MULTILN+7~, MULTILN+11*, MMULTILN+1~, MMULTILN+2*, MMULTILN+4, MMULTILN+5* |
TIUL | MULTILN+7~, MULTILN+13*, MMULTILN+1~, MMULTILN+7*, MMULTILN+8* |
TIUREC | SETFLD+11~, SETFLD+27*, SETFLD+31*, SETFLD+32*, SETFLD+33, SETFLD+34, SETFLD+35*, SETFLD+36*, SETFLD+40*, SETFLD+43* , SETFLD+44*, SETFLD+45*, SETFLD+47*, SETFLD+50*, SETFLD+51*, SETFLD+52*, SETFLD1+1*, SETFLD1+2*, SETFLD2+1*, SETFLD2+2 , SETFLD2+3, SETFLD2+4, SETFLD2+5, MULTILN~, MULTILN+8, MMULTILN~, MMULTILN+3, MMULTILN+4 |
TYPE | SETFLD+12~, SETFLD+21* |
U | SETFLD+15, SETFLD+21, SETFLD+31, SETFLD+40, SETFLD+41, SETFLD+47, SETFLD+49, SETFLD+51, INHERIT+20, INHERIT+21 , INHEX+2, INHEX+3, INHEX+4 |
UPFIELD | SETFLD+11~ |
UPFIELD("GLOB | AL SUBSCRIPT LOCATION" , SETFLD+51 |
UPFIELD("LABEL" | SETFLD+52 |
UPFILE | SETFLD+11~ |
UPFILE("NAME" | SETFLD+44 |
UPMSG | SETFLD+11~, SETFLD+42*, SETFLD+43, SETFLD+45, SETFLD+48*, SETFLD+50, SETFLD+51 |
VALUE | INHERIT~, INHERIT+14*, INHERIT+20*, INHERIT+21*, INHERIT+22, AGAIN, INHEX+1, INHEX+2, INHEX+3, INHEX+4 |
VALUE("E" | INHERIT+14*, INHEX+2*, INHEX+3*, INHEX+4* |
Y | INHERIT+13~, INHEX+2*, INHEX+3*, INHEX+4* |
ZZCONT | SETFLD+11~, INHERIT+13~ |