Return to %SYSOOP.m CVS log

Up to [Coherent Logic Development] / freem / mlib

FreeM

%SYSOOP ;
    QUIT
DESTROY(CLASS,INST)
    N FNC S FNC="DESTROY^"_CLASS_"(.INST)"
    S $ZTRAP="TRYLOW^%SYSOOP"
    D @FNC
    G ALLDONE
TRYLOW ;
    S $ZTRAP="TRYPASC^%SYSOOP"
    S FNC="destroy^"_CLASS_"(.INST)"
    D @FNC
    G ALLDONE
TRYPASC ;
    S $ZTRAP="ALLDONE^%SYSOOP"
    S FNC="Destroy^"_CLASS_"(.INST)"
    D @FNC
    G ALLDONE
ALLDONE ;
    S $ZTRAP=""
    K INST   
    QUIT