HLUOPT6 ;CIOFO-O/LJA - Fix zero node of file 772 or 773 ;02/04/2004 09:02
Source file <HLUOPT6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FIXZERO | ; Reset piece 3 & 4 of zero node of file 772 &/or 773...
|
|
ZTSK | ;
|
|
QUEUE | ;
|
|
CORR(FILE,ZERO) | ; Correct zero node for file...
; NOTE: No purging actions should be occurring now... |
|
; Send Mailman message.
|
||
MSGBODY | ; Add message bode...
; LIST,ZERO -- req |
|
MAILADD(T) | ||
BTE(PMT,FF) | ;
|
|
FILE(LIST) | ; Ask which files to correct..
; IOINHI,IOINORM -- req |
|
SH0(TXT) | ; Highlight 3rd and 4th pieces...
; IOINHI,IOINORM -- req |
|
HD | ||
EX | ||
EOR | ; HLUOPT6 - Fix zero node of file 772 or 773 ;5/12/03 09:02
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|