Routine: AIBSDEV

Information

AIBSDEV ;IBM STATISTICAL RECORD ROUTINES SELECT DEVICE ;[ 02/01/89 9:16 AM ]

Source file <AIBSDEV.m>

Package	Total	Call Graph
IBM DDPS Record Consolidation	1	TAPE^AIBSDEV1
Kernel	1	^%ZIS

Package	Total	Caller Graph
IBM DDPS Record Consolidation	4	AIBCVT AIBCVT6 AIBMRG1 AIBSDEV1

Name	Comments	DBIA/ICR reference
RETURN	;RETURN TO CALLING ROUTINE
HELP	;
CRT	;ENTRY POINT FOR CUURRENT DEVICE
HFS	;HOST FILE SERVER AS DEFAULT
ABEND	;ABNORMAL END OF JOB
OPEN	;OPEN SELECTED DEVICE/FILE
SELECT	;SELECT DEVICE
PR	;ENTRY POINT FOR PRINTER
BUSY	;
TERMDEV	;TERMINAL DEVICES
OPENHFS	;OPEN HOST FILE SERVER FILE
FILENAME	;READ FILENAME
TERMIO	;TERMINAL OUTPUT DEVICES SET
CLOSE	;CLOSE SELECTED DEVICE/FILE
OUT	;ENTRY POINT FOR "OUTPUT" FILE
P0	;ENTRY POINT FOR "HOME" TERMINAL
OPCANCL	;OPERATOR CANCEL
IN	;ENTRY POINT FOR "INPUT" FILE
CKDEV	;
QUIT	;KILL LOCAL VARIABLES AND QUIT
SETDEV	;
EXIT	;KILL REMAINING LOCAL VARIABLES AND QUIT

Name	Field # of Occurrence
^%ZIS	OPEN+2
TAPE^AIBSDEV1	OUT+3, IN+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter",AIBTXIO,"device: ",AIBDFLT,"// " Line Location: SELECT+1
Function Call: READ	Timeout: DTIME Variable: AIBDEV Line Location: SELECT+2
Function Call: WRITE	Prompt: $E("HFS",$L(AIBDEV)+1,3)," Host File Server" Line Location: SELECT+6
Function Call: WRITE	Prompt: !,"Device number must be numeric, 0 to 223" Line Location: CKDEV+2
Function Call: WRITE	Prompt: !,"Enter 'HFS' for Host File Server or device #" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter File Name : ",AIBFN,"// " Line Location: FILENAME+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: FILENAME+4
Function Call: WRITE	Prompt: !!,?5,"Enter the name of the host oprating system file to " Line Location: FILENAME+7
Function Call: WRITE	Prompt: $S(IN:"read from on",1:"write to on"),AIBTXIO Line Location: FILENAME+8
Function Call: WRITE	Prompt: !,?5,"the file name should include the fully qualified path name " Line Location: FILENAME+9
Function Call: WRITE	Prompt: !,?5,"that identifies the location of the file",! Line Location: FILENAME+10
Function Call: WRITE	Prompt: !,?5,"Open Failed on Device ",AIBDEV," for file ",AIBFN,*7 Line Location: OPENHFS+5
Function Call: WRITE	Prompt: !!,"All Host File Server (HFS) devices are busy" Line Location: BUSY+1
Function Call: WRITE	Prompt: !,"device doesn't exist" Line Location: TERMDEV+3
Function Call: WRITE	Prompt: !!,"Device busy" Line Location: TERMDEV+5
Routine Call	%ZIS Line Location: OPEN+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	CLOSE+1
^%ZIS(1 - [#3.5]	TERMDEV+2

Name	Line Occurrences
BUSY	OPENHFS+3
CKDEV	SELECT+5
EXIT	OUT+3, IN+2, OPENHFS+2, OPENHFS+6, TERMDEV+1, TERMDEV+4, TERMDEV+6
FILENAME	SETDEV+2, FILENAME+10, OPENHFS+5
HELP	SELECT+3
HFS	OUT+1, IN+1
OPEN	OPENHFS+2, TERMDEV+4
OPENHFS	HFS+3, FILENAME+1, FILENAME+6
QUIT	SELECT+4, FILENAME+5, ABEND+1, OPCANCL+1
RETURN	OPEN+3, CLOSE+2, CLOSE+3
SELECT	TERMIO+1, CKDEV+2, HELP+2, BUSY+1, TERMDEV+3, TERMDEV+5
SETDEV	CKDEV+1
TERMDEV	SETDEV+1
TERMIO	PR+1, P0+1, CRT+1

Name	Field # of Occurrence
>> AIBA	SELECT+4, FILENAME+5, ABEND+1, OPCANCL+1
AIBBL	OUT+2*, OUT+3, EXIT+1!
>> AIBCDV	OPENHFS+4, BUSY+1
AIBCLOSE	CLOSE+2*!
AIBDEV	HFS+3, SELECT+2, SELECT+3, SELECT+4, SELECT+5, SELECT+6*, CKDEV+1, SETDEV+1, OPENHFS+3, OPENHFS+5 , TERMDEV+1, TERMDEV+2, QUIT+1!, OPEN+1, OPEN+2, CLOSE+2
AIBDEVTB	EXIT+1!
AIBDFLT	OUT+1, IN+2, PR+1, P0+1, CRT+1, HFS+1, SELECT+1*, SELECT+2, EXIT+1!
AIBDR	EXIT+1!
>> AIBFFN	HFS+3, FILENAME+1
>> AIBFN	FILENAME+1, FILENAME+2, FILENAME+3, FILENAME+4, FILENAME+5, FILENAME+6, OPENHFS+5
AIBHH	TERMIO+1, HFS+2, SETDEV+1, OPENHFS+3, EXIT+1!
AIBHL	TERMIO+1, HFS+2, HFS+3, SELECT+6, SETDEV+1, EXIT+1!
AIBOF	EXIT+1!
AIBOPN	OPEN+1*!
>> AIBOS	OUT+1, IN+1, OPEN+1, CLOSE+1
AIBPARMS	OUT+3, IN+2, OPENHFS+1, TERMDEV+4, QUIT+1!, OPEN+1
AIBPB	EXIT+1!
AIBPL	EXIT+1!
AIBRL	OUT+2*, OUT+3, EXIT+1!
>> AIBRLN	OUT+2
AIBT	TERMDEV+2*, TERMDEV+3, EXIT+1!
>> AIBT2	OPENHFS+1*
>> AIBTONL	HFS+2*
AIBTXIO	OUT+1, IN+1, TERMIO+1*, SELECT+1, FILENAME+8, EXIT+1!
DTIME	SELECT+2, FILENAME+4
IN	OUT+1, IN+1, TERMIO+1*, FILENAME+2, FILENAME+8, OPENHFS+1, EXIT+1!, OPEN+1
>> IOP	OPEN+2*
>> QUIT	QUIT+1*
>> X	FILENAME+4*
ZA	OPENHFS+4*, OPENHFS+5, EXIT+1!