Routine: AIBSDEV1

Package	Total	Call Graph
IBM DDPS Record Consolidation	1	OPEN^AIBSDEV
Kernel	1	^%ZIS

Package	Total	Caller Graph
IBM DDPS Record Consolidation	2	AIBCVT3 AIBSDEV

Entry Points

Name	Comments	DBIA/ICR reference
PROTECT	;TAPE IS PROTECTED
MOUNT	;MOUNT TAPE ON DRIVE, CHECK ONLINE
ONLINE	;TAPE DRIVE IS ONLINE
OPCANCL	;OPERATOR CANCEL
TAPE	;OPEN TAPE UNIT
ABEND	;ABNORMAL END OF JOB
REWIND	;REWIND INPUT TAPE
READY	;TAPE IS READY
EXIT	;RETURN TO CALLING PROGRAM

Name	Field # of Occurrence
^%ZIS	TAPE+3
OPEN^AIBSDEV	MOUNT+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TAPE DRIVE NOT SELECTED" Line Location: TAPE+4
Function Call: WRITE	Prompt: !!,"Mount",AIBTXIO,"Tape on Drive ",AIBTDV,$S(IN&AIBSEQ=1:"",IN:"sequence # "_AIBSEQ,1:" 'WRITE ENABLED' ")," and ",!,"Press ENTER When Ready or '^' to Cancel Processing; " Line Location: MOUNT+1
Function Call: READ	Timeout: DTIME Variable: AIBR Line Location: MOUNT+2
Function Call: WRITE	Prompt: !,"Waiting for tape drive to come online" Line Location: MOUNT+5
Function Call: WRITE	Prompt: "." Line Location: MOUNT+5
Function Call: WRITE	Prompt: !!,*7,"Tape not ready after 6 minutes, processing canceled" Line Location: MOUNT+6
Function Call: WRITE	Prompt: *7,!!," Tape is Write Protected, Please Remove the Tape,",!,"And Place a Ring in the Write Ring Groove," Line Location: PROTECT+1
Function Call: WRITE	Prompt: ! Line Location: READY+3
Function Call: WRITE	Prompt: !,"Positioning input tape, please standby" Line Location: REWIND+1
Function Call: WRITE	Prompt: @%MT("REW") Line Location: REWIND+1
Function Call: WRITE	Prompt: @%MT("REW") Line Location: REWIND+1
Function Call: WRITE	Prompt: *7,!!,"Tape not rewound" Line Location: REWIND+2
Routine Call	%ZIS Line Location: TAPE+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("MAGTAPE"	TAPE+1
^%ZOSF("MTBOT"	REWIND+1
^%ZOSF("MTONLINE"	TAPE+1
^%ZOSF("MTWPROT"	ONLINE+1

Name	Field # of Occurrence
>> %IS	TAPE+2*
>> %IS("A"	TAPE+2*
>> %IS("B"	TAPE+2*
>> %MT("REW"	REWIND+1
>> AIB	MOUNT+5*
>> AIBA	ABEND+1, OPCANCL+1
>> AIBCDV	TAPE+3, TAPE+4, MOUNT+1, MOUNT+5, PROTECT+1, READY+2, REWIND+1
>> AIBDEV	TAPE+3*
>> AIBDFLT	TAPE+2
>> AIBR	MOUNT+2*
>> AIBSEQ	MOUNT+1, MOUNT+3*
>> AIBTDV	TAPE+3*, MOUNT+1, MOUNT+4, MOUNT+5, ONLINE+1, REWIND+1
>> AIBTONL	TAPE+1*, MOUNT+4, MOUNT+5
>> AIBTXIO	TAPE+2, MOUNT+1
>> AIBV	READY+2*
DTIME	MOUNT+2, READY+2
>> IN	MOUNT+1, ONLINE+1
IO	TAPE+3
>> L	REWIND+1*
>> POP	TAPE+3
>> Y	ONLINE+1, REWIND+1