TIUPS209 ; SLC/AJB - Active Titles Report & Cleanup v2; 06/01/06 ; 7/26/06 11:46am
Source file <TIUPS209.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; control segment
|
|
REPORT | ;
|
|
RESTART | ;
|
|
RPT | ;
|
|
ASKUSER(ANS,DIR,TIUQUIT) | ; ask the user if they want to update titles now
|
|
GETLAST(TIUDA) | ;
|
|
OMIT | ;
|
|
SPACER(TEXT,LENGTH,REV) | ;
|
|
UPDATE | ; updates status field of TIU Document Title to INACTIVE
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^TIU(8925.1 - [#8925.1] | Classic Fileman Calls, GET1^DIQ |