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

ESPOST.m

Go to the documentation of this file.

ESPOST ;DALISC/CKA - POST-INIT ROUTINE ;4/93

 ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 S X="ESPINITY" X ^%ZOSF("TEST") I $T D @("^"_X)

 K X QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPOST   147     printed  Apr 09, 2024@21:33:37                                                                                                                                                                                                       Page 2

ESPOST    ;DALISC/CKA - POST-INIT ROUTINE ;4/93

 +1       ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 +2        SET X="ESPINITY"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO @("^"_X)

 +3        KILL X

           QUIT