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

Package: Toolkit

Routine: XINDX51


Information

XINDX51 ;ISC/REL,GRK,RWF - PRINT ROUTINE ;06/24/08 16:06

Source Information

Source file <XINDX51.m>

Entry Points

Name Comments DBIA/ICR reference
B
BL
BHDR(R,X) ;Build hdr
WERR(FL) ;Write error messages
WR ;Write one routine
WORL(D) ;Write one routine line
CHK
B1
B2 ;
B3 ;
P(LOC,SYM) ;
P1
PX
P2
P3
HD
HD1
HD2
CR
END
SC ;Print a command chart
WAIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"--- Routine Detail"
  • Line Location: B+8
Function Call: WRITE
  • Prompt: " --- with "_$S(INP(5)["R":"REGULAR",INP(5)["S":"STRUCTURED",INP(5)["B":"R/S",1:"")_" ROUTINE LISTING"
  • Condition for execution: INP(5)?1A
  • Line Location: B+9
Function Call: WRITE
  • Prompt: " ---"
  • Line Location: B+9
Function Call: WRITE
  • Prompt: !?3,$P(%,$C(9),2)
  • Line Location: WERR+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>16
  • Line Location: WERR+5
Function Call: WRITE
  • Prompt: ?16,$P(%,$C(9),3)
  • Line Location: WERR+5
Function Call: WRITE
  • Prompt: !,L,?J," "
  • Line Location: WORL+4
Function Call: WRITE
  • Prompt: "--",!,?10
  • Condition for execution: $X>10
  • Line Location: WORL+4
Function Call: WRITE
  • Prompt: $E(D,1,INL(4)-J)
  • Line Location: WORL+4
Function Call: WRITE
  • Prompt: !,HED
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: !!,INL(5),!
  • Line Location: B3+1
Function Call: WRITE
  • Prompt: !!,"***** END *****",!
  • Line Location: B3+9
Function Call: WRITE
  • Prompt: !," ",SYM,L,?TAB
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !?3,$P(L," ",2),SYM,$P(L," ",1)," ",?TAB
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: ARG
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: @IOF,!,INL(5)
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (IOM-30)<$X
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: ?(IOM-30),INDXDT," page ",PG
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !!,HED
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !,HED(1)
  • Condition for execution: $D(HED(1))
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !!,"--- CROSS-REFERENCING ALL ROUTINES ---"
  • Line Location: CR+0
Function Call: WRITE
  • Prompt: !!,"***** END *****",!
  • Line Location: CR+10
Function Call: WRITE
  • Prompt: !,^(I)
  • Line Location: SC+2
Function Call: READ
  • Variable: %
  • Timeout: 300
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !,"Press return to continue the report, ^ to exit the report"
  • Line Location: WAIT+1
Info |  Source |  Entry Points |  Interaction Calls