Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRARPW

Package: Lab Service

Routine: LRARPW


Information

LRARPW ; IHS/DIR/AAB - PURGE WKLD DATA (64.1) ; [ 07/22/2002 1:11 PM ]

Source Information

Source file <LRARPW.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 2 FILE^LRARU  (CLN,COMP,MRK,UPDATE)^LRARU1  
VA Fileman 2 ^DIK  ^DIR  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAR PURGE 64.1  

Entry Points

Name Comments DBIA/ICR reference
DOIT ;Deleting dates in 64.1
OKAY ;Ask if okay to delete
MAKE ;Ask if backup tape made
QUEUE ;queue purge
START ;
EXIT
ERROR
END
CHECK ;Ask if checked backup tape

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+1
^DIK DOIT+3, DOIT+4
^DIR MAKE+1, CHECK+1, OKAY+1
FILE^LRARU START+2
CLN^LRARU1 EXIT+1
COMP^LRARU1 MAKE+2, MAKE+3, CHECK+2, CHECK+3, OKAY+2, END+1
MRK^LRARU1 START+4
UPDATE^LRARU1 END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: MAKE+1
Function Call: WRITE
  • Prompt: !!!!,$C(7),"Make a backup of the ARCHIVED WKLD DATA file before purging!"
  • Line Location: MAKE+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!!!,$C(7),"Check the backup before purging!"
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: OKAY+1
Function Call: WRITE
  • Prompt: !!!!,"No purging done."
  • Line Location: OKAY+2
Function Call: WRITE
  • Prompt: !!!!,"DONE."
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"I will now CLEAR out the Archived Workload Data global."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,">>> DONE <<<"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !!,$C(7),"I cannot find an archival activity for file 64.1 with the right archival status."
  • Line Location: ERROR+0
Routine Call
  • DIR
  • Line Location:
    • MAKE+1
    • CHECK+1
    • OKAY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(95.11 - [#95.11] START+2, DOIT+2, END+7!
^LAR(64.19999 - [#64.19999] END+4!, END+5*
^LRO(64.1 - [#64.1] DOIT+4

Label References

Name Line Occurrences
ERROR START+2
EXIT START+2, MAKE+2, MAKE+3, CHECK+2, CHECK+3, OKAY+2, QUEUE+1, ERROR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DOIT+3*, DOIT+4*, EXIT!
DA(1 DOIT+3*, DOIT+4*
DA(2 DOIT+3*, DOIT+4
DIK DOIT+3*, DOIT+4*, EXIT!
DIR MAKE+1!, CHECK+1!, OKAY+1!, EXIT!
DIR("A" MAKE+1*, CHECK+1*, OKAY+1*
DIR(0 MAKE+1*, CHECK+1*, OKAY+1*
DIRUT MAKE+2, CHECK+2, OKAY+2, END+2, EXIT!
LRAI DOIT+2*, EXIT!
LRAIEN EXIT!
LRAINST EXIT!
LRAJ EXIT!
LRAR START+2*, START+4*, END+2*, EXIT!
LRARC START+2*, DOIT+2, END+7, EXIT!
LRARI END+4*, EXIT!
LRART START+2*, EXIT!
LRARX END+4*, EXIT!
LRAVAR DOIT+1*, DOIT+2*, DOIT+3, EXIT!
Y MAKE+3, CHECK+3, OKAY+2, EXIT!
>> ZTDESC QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTREQ END+8*
>> ZTRTN QUEUE+1*
>> ZTSAVE("LR*" QUEUE+1*
>> ZTSK QUEUE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All