DDUCHK4 ;SFISC/MKO-CHECK INDEXES ON FILE ;6:36 AM 28 Dec 2004
Source file <DDUCHK4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
KILL(GL) | ;Kill a global and print a message
|
|
CRV | ;Check a Cross-Reference Value
|
|
CHKBB | ;Check "BB" index (In: DDUCFI = file; DDUCFIX = flag to fix)
|
|
WMS(S,N) | ||
FNM | ;Set the NAME for the Index
|
|
CHKF | ;Check "F" index (In: DDUCFI = file; DDUCFIX = flag to fix)
|
|
WNE | ||
CHKIX | ;Check Index DDUCIX found in "B" index
|
|
WNM | ||
IXID(IX,NM) | ;Return string that identifies an Index
|
|
WCHK | ||
WEN(GL) | ||
FRF | ;Set Root File equal to File and Root Type to 'INDEX FILE'
|
|
CHKAC | ;Check "AC index (In: DDUCFI = file; DDUCFIX = flag to fix)
|
|
WNOIX | ||
INDEX(DDUCFI,DDUCFIX) | ;Check and optionally fix structure of Index file entry
|
|
WRITE(TXT,TAB) | ;Write text, wrap at word boundaries.
|
|
FON | ;Determine Order Number
|
|
WFMS | ||
SET(GL,VAL) | ;Set a global and print a message
|
|
OID(ORD,IX,NM,IXID) | ;Return string that identifies Cross-Reference Value
|
|
FFILE | ;Set the .01 of index to DDUCFI
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | CRV+27 |
^DD("IX" - [#.11] | INDEX+7, CHKIX+9, CHKIX+11, CHKIX+14, CHKIX+32, CRV+9, CRV+28, CHKAC+2, CHKAC+3, CHKAC+4 , CHKBB+3, CHKBB+5, CHKBB+6, CHKBB+7, CHKBB+9, CHKBB+22, CHKF+3, CHKF+5, CHKF+7, CHKF+8 , CHKF+9, FFILE+1*, FRF+1*, FRF+2*, FON+5, FON+10, FON+14*, FNM+1*, IXID+1 |
Name | Line Occurrences |
---|---|
$$IXID | CHKIX+6, CHKIX+21, CHKBB+18, OID+1 |
$$OID | CRV+17 |
CHKAC | INDEX+10 |
CHKBB | INDEX+10 |
CHKF | INDEX+10 |
CHKIX | INDEX+7 |
CRV | CHKIX+32 |
FFILE | CHKIX+17 |
FNM | CHKBB+20 |
FON | CRV+16 |
FRF | CHKIX+28 |
KILL | CHKIX+11, CHKAC+6, CHKBB+11, CHKBB+24, CHKF+11 |
SET | CRV+30 |
WCHK | INDEX+5 |
WEN | CHKAC+5, CHKBB+10, CHKBB+23, CHKF+10 |
WFMS | CRV+27 |
WMS | CHKIX+16, CHKIX+22, CHKIX+27, CRV+15, CRV+21, CRV+29 |
WNE | CRV+26 |
WNM | CHKBB+19 |
WNOIX | CHKIX+10 |
WRITE | FFILE+2, FRF+4, FRF+5, FON+15, FNM+2, WNOIX, WMS, WNE, WFMS, WEN , WNM |
Name | Field # of Occurrence |
---|---|
^( | CRV+28, FON+10 |
^(0 | CHKAC+3, CHKF+8, FON+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | CHKIX+36~, CHKIX+37* |
DDUCFI | INDEX~, INDEX+2, INDEX+7, CHKIX+11, CHKAC+2, CHKAC+3, CHKAC+4, CHKBB+3, CHKBB+5, CHKBB+8 , CHKBB+9, CHKBB+22, CHKF+3, CHKF+5, CHKF+7, CHKF+8, CHKF+9, FFILE+1, FFILE+2, FRF+2 , FRF+3, FRF+4 |
DDUCFIL | CRV+7~, CRV+11*, CRV+20, CRV+26, CRV+27, CRV+28, WFMS |
DDUCFIX | INDEX~, INDEX+2*, CHKIX+11, CHKIX+17, CHKIX+28, CHKIX+35, CRV+16, CRV+30, CHKAC+6, CHKBB+11 , CHKBB+20, CHKBB+24, CHKF+11 |
DDUCFLD | CRV+7~, CRV+11*, CRV+27, CRV+28, CHKF+1~, CHKF+2*, CHKF+3*, CHKF+5, CHKF+7, CHKF+8 , CHKF+9, WFMS |
DDUCGL | CRV+7~, CRV+28*, CRV+29, CRV+30, CHKAC+1~, CHKAC+4*, CHKAC+5, CHKAC+6, CHKBB+1~, CHKBB+9* , CHKBB+10, CHKBB+11, CHKBB+22*, CHKBB+23, CHKBB+24, CHKF+1~, CHKF+9*, CHKF+10, CHKF+11 |
DDUCI | FON+1~, FON+9*, FON+10* |
DDUCIX | INDEX+1~, INDEX+6*, INDEX+7*, CHKIX+6, CHKIX+9, CHKIX+11, CHKIX+14, CHKIX+21, CHKIX+32, CHKIX+37 , CRV+9, CRV+28, CHKAC+1~, CHKAC+2*, CHKAC+3, CHKAC+4, CHKBB+1~, CHKBB+4*, CHKBB+5*, CHKBB+6 , CHKBB+7, CHKBB+9, CHKBB+15*, CHKBB+16, CHKBB+17, CHKBB+18, CHKBB+21, CHKBB+22, CHKF+1~, CHKF+4* , CHKF+5*, CHKF+7, CHKF+8, CHKF+9, FFILE+1, FRF+1, FRF+2, FON+5, FON+10, FON+14 , FNM+1 |
DDUCIX0 | CHKIX+5~, CHKIX+14*, CHKIX+15, CHKIX+20, CHKIX+25, CHKBB+1~, CHKBB+6*, CHKBB+7, CHKBB+8 |
DDUCIXID | CHKIX+5~, CHKIX+6*, CHKIX+16, CHKIX+21*, CHKIX+22, CHKIX+27, CRV+15, CRV+17, CHKBB+1~, CHKBB+18* , FFILE+2, FRF+4, FRF+5, FON+15, FNM+2, WNOIX, WNM |
DDUCNM | CHKIX+5~, CHKIX+20*, CHKIX+21, CHKBB+1~, CHKBB+2*, CHKBB+3*, CHKBB+5, CHKBB+7, CHKBB+8, CHKBB+9 , CHKBB+16*, CHKBB+17, CHKBB+21*, CHKBB+22, FNM+1, FNM+2, WNM |
DDUCNML | CHKBB+1~, CHKBB+15 |
DDUCNML( | CHKBB+7*, CHKBB+15, CHKBB+16, CHKBB+17, CHKBB+21 |
DDUCO | FON+1~ |
DDUCO( | FON+10* |
DDUCO("" | FON+11 |
DDUCOID | CRV+7~, CRV+17*, CRV+21, WNE, WFMS |
DDUCORD | CRV+7~, CRV+11*, CRV+14, CRV+17, FON+4*, FON+5*, FON+8, FON+11*, FON+12*, FON+14 , FON+15 |
DDUCRF | CHKIX+5~, CHKIX+25*, CHKIX+26, CRV+26, FRF+3* |
DDUCRV | CHKIX+5~, CHKIX+31*, CHKIX+32*, CRV+9, CRV+15, CRV+28, CHKF+1~, CHKF+6*, CHKF+7*, CHKF+8 , CHKF+9, FON+5, FON+14, FON+15 |
DDUCRV0 | CRV+7~, CRV+9*, CRV+10, CRV+11 |
DIC | CHKIX+36~ |
DIK | CHKIX+36~, CHKIX+37* |
>> FIL | WFMS |
>> FLD | WFMS |
GL | KILL~, KILL+1, KILL+2, KILL+3, SET~, SET+1, SET+2, SET+3, WEN~ |
I | WRITE+1~, WRITE+3* |
IX | IXID~, IXID+1, IXID+2, OID~, OID+1 |
IXID | OID~, OID+1*, OID+2 |
N | WMS~ |
NM | IXID~, IXID+1*, IXID+2, OID~, OID+1 |
ORD | OID~, OID+2 |
S | WMS~ |
TAB | WRITE~, WRITE+2, WRITE+3 |
TXT | WRITE~, WRITE+2, WRITE+3 |
TXT( | WRITE+3 |
TXT(0 | WRITE+3 |
U | CHKIX+15, CHKIX+20, CHKIX+25, CRV+10, CRV+11, CHKAC+3, CHKBB+7, CHKBB+8, CHKF+8, FFILE+1 , FRF+1, FRF+2, FON+10, FON+14, FNM+1, IXID+1 |
VAL | SET~, SET+2*, SET+3 |
X | CHKIX+36~ |