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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GECSUSTA

Package: Generic Code Sheet

Routine: GECSUSTA


Information

GECSUSTA ;WISC/RFJ/KLD-code sheet status utilities ;01 Nov 93

Source Information

Source file <GECSUSTA.m>

Entry Points

Name Comments DBIA/ICR reference
RETAIN(DA)
STATUS(DA) ; show status of code sheet da
; 0=retained in file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,"Status: << "
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: "RETAINED IN FILE >>"
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: "READY FOR BATCHING [Priority: ",$P(%,"^",10),", Trans Date: ",$E(X,4,5),"-",$E(X,6,7),"-"
  • Line Location: STATUS+8
Function Call: WRITE
  • Prompt: $E($P(Y,",",2),2,5),"] >>"
  • Line Location: STATUS+9
Function Call: WRITE
  • Prompt: "READY FOR TRANSMISSION IN BATCH ",$P(%,"^",9)," [Date:",$E(X,4,5),"-",$E(X,6,7),"-"
  • Line Location: STATUS+12
Function Call: WRITE
  • Prompt: $E($P(Y,",",2),2,5),"] >>"
  • Line Location: STATUS+13
Function Call: WRITE
  • Prompt: "TRANSMITTED IN BATCH ",$P(%,"^",9)
  • Line Location: STATUS+16
Function Call: WRITE
  • Prompt: " ",$E(X,4,5)_"-"_$E(X,6,7)_"-"
  • Line Location: STATUS+18
Function Call: WRITE
  • Prompt: $E($P(Y,",",2),2,5)," <<"
  • Line Location: STATUS+19
Function Call: WRITE
  • Prompt: "TRANSMITTED IN STACK: ",$P(%,"^",3)," <<"
  • Line Location: STATUS+21
Function Call: WRITE
  • Prompt: "RETAINED IN FILE >>"
  • Line Location: STATUS+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100 - [#2100] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call