Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DBTSTE

DBTSTE.m

Go to the documentation of this file.
  1. DBTSTE ;TEST [ 05/07/1999  10:24 AM ]
  1.  S BT=$P($H,",",2)
  1.  S N=0,CT=0
  1.  O 51:("/usr/spool/uucppublic/refcpt.txt":"W")
  1.  F  S N=$O(^ICPT(N)) Q:$E(N,1,2)="00"  D
  1.  .S REC=^ICPT(N,0)
  1.  .S C=$P(REC,"^",1)
  1.  .S DE=$P(REC,"^",2)
  1.  .S OUTREC=C_$C(9)_DE
  1.  .U 51 W OUTREC,!
  1.  .S CT=CT+1
  1.  C 51
  1.  S ET=$P($H,",",2)
  1.  S TOTSEC=ET-BT
  1.  U 0 W !,"TOTAL REC: ",CT,"   SECONDS: ",TOTSEC
  1.  Q