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: XUTMRP

Package: Kernel

Routine: XUTMRP


Information

XUTMRP ;ISF/RWF,BOSTON/MEF - REQUEUE ALL TASKS FOR A DEVICE -PART ONE ;06/11/2001 11:13

Source Information

Source file <XUTMRP.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;Setup
OPT
DEV
CONF
EXIT
DEVNAM(ARRAY) ;Build @ARRAY@(devname) from DEVNAM
ASKD(%A,%B) ;Ask for a device
DVARRY(II,LTA,OOS) ;Build list of devices for a LTA.
WAIT
FUT
REPNT ;Re-queues tasks to new lta# when dsv/ports are changed
REP2 ;
DEV2 ;Return Y=0 to quit
D0 ;
DT(MES,DEF)
LISTIO ;List the entries in the IO queue.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FUT+0
Function Call: WRITE
  • Prompt: !,"Now give a date/time range of future tasks to change."
  • Line Location: FUT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REP2+2
Function Call: WRITE
  • Prompt: !,"There are NO tasks waiting for this device.",!
  • Line Location: REP2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REP2+6
Function Call: WRITE
  • Prompt: !,$C(7),$P(SRCE,";")," margin ",$P(SRCE,";",3)," page length ",$P(SRCE,";",4),$C(7)
  • Line Location: DEV2+4
Function Call: WRITE
  • Prompt: !,"doesn't match ",$P(ZTIO,";")," margin ",$P(ZTIO,";",3)," page length ",$P(ZTIO,";",4)
  • Line Location: DEV2+5
Function Call: WRITE
  • Prompt: !,"Please confirm target device.",!,"If I can find a matching margin/page length",!,"I'll use it for the default.",!!,$C(7)
  • Line Location: DEV2+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LISTIO+2
Function Call: WRITE
  • Prompt: !," $IO Device names",!,"_______ ____________"
  • Line Location: LISTIO+3
Function Call: WRITE
  • Prompt: !,DEV,?14," => "
  • Line Location: LISTIO+6
Function Call: WRITE
  • Prompt: !,?18
  • Condition for execution: $X+$L(Y)+2>79
  • Line Location: LISTIO+7
Function Call: WRITE
  • Prompt: Y,", "
  • Line Location: LISTIO+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LISTIO+8
Info |  Source |  Entry Points |  Interaction Calls