Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: TIUFLF8

Package: Text Integration Utility

Routine: TIUFLF8


Information

TIUFLF8 ; SLC/MAM - Library; File 8925.1 Related: SELTYPE(FILEDA,DEFLT), EDOWN(DA,XFLG) ;7/1/97 20:39

Source Information

Source file <TIUFLF8.m>

Entry Points

Name Comments DBIA/ICR reference
SELTYPE(FILEDA,DEFLT) ; Function Prompts for Type, Returns Selected Type: CL, DC, TL, CO, O, [N for NONE], "" if nothing selected or @ entered.
; Optional FILEDA: if not received, include 'NONE' as selectable Type.
; Optional DEFLT = 'CLASS', 'TITLE' etc.
; FILEDA, DEFLT are needed when editing Type; NOT needed when selecting Type for SORT. Assume for SORT if FILEDA is not received.
; If used for editing Type, requires TIUFTLST as set in TYPELIST
SELTX
EDOWN(DA,XFLG) ; User edit Owner.
; Returns XFLG=1 if user ^exited, else as received.
EDOWX
OWNCHEC(DA) ; Check for no owners, both owners, stuff personal owner if problem
GET(DA,NODE0,POWNER,COWNER) ; Get Owner data
OWNCLAS(FILEDA,NODE0,POWNER,COWNER) ; Edit Owner Class
OWNPERS(FILEDA,NODE0,POWNER,COWNER) ; Edit Personal Owner

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " DOCUMENT CLASS"
  • Line Location: SELTYPE+20
Function Call: WRITE
  • Prompt: " TITLE"
  • Line Location: SELTYPE+22
Function Call: WRITE
  • Prompt: " OBJECT"
  • Line Location: SELTYPE+25
Info |  Source |  Entry Points |  Interaction Calls