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

PRCUPMCK.m

Go to the documentation of this file.

PRCUPMCK ;CTB/ALTOONA  TEST ROUTINE FOR PURGE MASTER ;10/8/93  12:02 PM

V ;;5.0;IFCAP;;4/21/95

 ;N ETIME

 S ETIME=($P($H,",",2)+120)

 F  Q:$P($H,",",2)>ETIME  H 10

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCUPMCK   169     printed  Mar 13, 2025@21:24:37                                                                                                                                                                                                     Page 2

PRCUPMCK  ;CTB/ALTOONA  TEST ROUTINE FOR PURGE MASTER ;10/8/93  12:02 PM

V         ;;5.0;IFCAP;;4/21/95

 +1       ;N ETIME

 +2        SET ETIME=($PIECE($HOROLOG,",",2)+120)

 +3        FOR

               if $PIECE($HOROLOG,",",2)>ETIME

                   QUIT

               HANG 10