TIUP149P ; SLC/JAK,RMO - Post-Install for TIU*1*149 Cont.;10/30/02@09:27:47
Source file <TIUP149P.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
; -- Device Selection
|
||
PRINTQ | ||
ASKEX(TIUOUT) | ;Ask if user would like to exclude NDBI fix needed records
; Input -- None ; Output -- 1=Yes and 0=No ; TIUOUT Timeout or up-arow flag |
|
LIST | ; -- Entry point to generate list
|
|
LISTQ | ||
LISTONE(TIUDA,TIULNK,EXNDBIF) | ;Entry point to list one record
; Input -- TIUDA TIU Document file (#8925) IEN ; TIULNK 1st piece= 1=Linked and 0=Not Linked ; 2nd piece= Exception type if not linked ; 3rd piece= Visit file (#9000010) IEN if linked ; EXNDBIF Exclude "NDBI Fix Needed" records flag (Optional) ; Output -- None |
|
LISTONEQ | ||
ASK | ; -- End of Page
|
|
HDR | ; -- Header for report
|
|
;Send completion message to user who initiated post-install
|
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 |
|
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | Classic Fileman Calls |