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

Package: Event Capture

Routine: ECUNIT


Information

ECUNIT ;BIR/MAM,JPW-Allocate DSS Units ;1 May 96

Source Information

Source file <ECUNIT.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
UNIT ; select DSS Unit
CONT ;
USER ; select users
ENTER ; display DSS Units & Users
ASK
DELUN ; delete units
DISP ; display list
END
COUNT ; re-number units
CNT ; re-number users
CHECK ; check for valid DSS Unit
VAL ;check valid lists
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Allocating DSS Units for Event Capture",!!
  • Line Location: ECUNIT+3
Function Call: WRITE
  • Prompt: !!,"Enter the names of the DSS Units to be assigned: ",!!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: @IOF,!,"Enter the names of the people who will have access to enter procedures",!,"for the DSS Units selected:",!!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: @IOF,!,"Allocating DSS Units for Event Capture",!,?3,LIST_": ",!
  • Line Location: ENTER+1
Function Call: WRITE
  • Prompt: !,?3,CNT
  • Condition for execution: CNT#2
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: ?45,CNT
  • Condition for execution: CNT#2=0
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: ". "_$P(UNIT(CNT),"^",2)
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !,?3,CNT
  • Condition for execution: CNT#2
  • Line Location: ENTER+3
Function Call: WRITE
  • Prompt: ?45,CNT
  • Condition for execution: CNT#2=0
  • Line Location: ENTER+3
Function Call: WRITE
  • Prompt: ". "_$P(USER(CNT),"^",2)
  • Line Location: ENTER+3
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: ENTER+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to add more "_LIST_", or ""D"" to delete a "_$S(LIST["DSS":"unit",1:"user"),!,"from the list."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DELUN+1
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the DSS Unit that you want to remove."
  • Line Location: DELUN+2
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the Event Capture User that you",!,"want to remove."
  • Line Location: DELUN+3
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Enter YES if you would like see the list of "_LIST_"."
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,"This DSS Unit is inactive.",!!,"Press <RET> to continue "
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!,"Press <RET> to continue "
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls