Return to %ED.m CVS log

Up to [Coherent Logic Development] / freem / mlib

FreeM

%ED ; EDIT A ROUTINE
    N RTN,PTH,EDITOR,CMD
    R "Routine: ",RTN
    S PTH=^$ROUTINE(RTN,"PATH")
    THROW:PTH="" "ZNOPGM"
    S EDITOR=^$SYSTEM("ENVIRONMENT","EDITOR")
    S:EDITOR="" EDITOR="vi"
    S CMD="!"_EDITOR_" "_PTH @CMD
    Q