Routine: INHUT3

Information

INHUT3 ;WFH,JPD; 27 Nov 95 11:42; Tools Interface ZIS front-end function

Source file <INHUT3.m>

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC $$ROUTEST^%ZTF ($$CLOSESEQ,$$OPENSEQ)^%ZTFS1 CLNUP^%ZTLOAD
IHS Generic Interface System	1	$$HEXUP^INHSYS04

Package	Total	Caller Graph
IHS Generic Interface System	5	INHSYS INHSYS10 INHSYSE INHSYSU1 INZTTC

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Try again.",! Line Location: ZIS+12
Function Call: WRITE	Prompt: *7,!,?5,"Invalid Flat File Name!" Line Location: ZISASK+5
Function Call: WRITE	Prompt: *7,!?5,"This report cannot be queued!" Line Location: ZISASK+13
Function Call: WRITE	Prompt: @IOA(80) Line Location: ZISASK+19
Function Call: WRITE	Prompt: *7,!?5,"Device busy." Line Location: OPENIT+2
Function Call: WRITE	Prompt: @IOA(132) Line Location: OPENIT+3
Routine Call	%ZIS Line Location: ZISASK+4 OPENIT+1 OPENIT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	RMRTN+3

Name	Field # of Occurrence
%	ZISASK~, ZTSAVE+2*
%FIND	RMRTN~, RMRTN+3, RMRTN+4, RMRTN+5
%ZIS	ZISASK~, ZISASK+4, OPENIT+1*
C	ORDER+7~*, ORDER+8
DTOUT	ZISASK+4!
END	ORDER~, ORDER+6, 12
EX	RMRTN+3~*, RMRTN+4, RMRTN+5, ORDER~, ORDER+6, 12+1
GL	ORDER~, ORDER+6, ORDER+7, ORDER+8, ORDER+9, 12
I	RMRTN+3~, RMRTN+4, ZTSAVE~, ZTSAVE+2, ZTSAVE+3
INASK	ZIS~, ZIS+11*, ZISASK+4, ZISASK+5, ZISASK+17, ZISASK+21, OPENIT
>> INRPTNM	ZISASK+5
INRTN	ZIS~, ZISASK+19, RUNTSK
INZDEF	ZISASK+18~
INZIOM	ZIS~, ZIS+11*, ZISASK+7, ZISASK+18~
INZLIM	ZISASK+18~
INZLIM("POP"	ZISASK+1*
INZLIM("ZTSK"	ZISASK+1*
INZOPTN	ZISASK+18~
INZPRMPT	ZISASK+18~
INZVARS	ZIS~, ZISASK+18~, ZTSAVE+1*, ZTSAVE+2
INZVARS(	ZTSAVE+3
IO	ZISASK~, ZISASK+5*, ZISASK+22, RUNTSK, OPENIT, OPENIT+3
IO("Q"	ZISASK+13
IO("S"	ZISASK+9
>> IOA(132	OPENIT+3
>> IOA(80	ZISASK+19
IOM	ZISASK+7*, ZISASK+15, ZISASK+19, OPENIT+3
ION	ZISASK+15
IOP	ZISASK~, ZISASK+4, ZISASK+15, OPENIT+2*
IOSL	ZISASK+15
IOST	ZISASK+19, OPENIT+3
POP	ZISASK~, ZISASK+4, ZISASK+17, OPENIT, OPENIT+1, OPENIT+2
RNAME	OPENIT~*
ST	ORDER~, ORDER+6, ORDER+7
U	ZTSAVE+2
VAR	ORDER~, ORDER+6, ORDER+7~, ORDER+9, 12
X	RMRTN+3~, RMRTN+4, RMRTN+5, TR~, TR+4
ZTSAVE	ZTSAVE!
ZTSAVE(	ZTSAVE+2, ZTSAVE+3
>> ZTSK	RUNTSK

Name	Comments	DBIA/ICR reference
RMRTN(%FIND)	;Clean up IB routines used ; INPUT: %FIND - Prefix of routines to remove ; i.e., IBxxxx
12
ZISASK()
OPENIT
ORDER(GL,VAR,ST,END,EX)	;MOVE TO %ZTF ; Perform indirect $Order and execute line for each ; Inputs: ; GL - Global name VAR - Variable to use for $O ; ST - Starting place in Global ; END - Ending condition EX - Excutable code for each node
TR(X)	; Calculate Valid VMS filename for TRANSACTION TYPE by translating ; " " to "_", all other invalid characters to "-" ; Input should be the TRANSACTION TYPE NAME field ; Extention must be added by calling routine
RUNTSK
ZIS(INRTN,INZVARS,INZIOM,INASK)	; Ask op for device, do ZTRTN. ; INRTN(req)=Name of routine does report output."^rou" or "label^rou". ; INZVARS(op)=Names of variables to pass ZTRTN. Separate names ; with "^". Example: "INBEG^INHEAD(^INTYPE". Or can be array by ; ref. like the ZTSAVE taskman array. ; INZIOM(op)=Width. Def 80. Avoids(disregards)interaction about width ; INASK = If 0, ask for device ; If 1, overwrite flatfile INHSYS.RPT with new data ; If 2, append output to INHSYS.RPT ; If 3, no output
ZTSAVE