Return to DINVFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial revision

%ZOSV   ;VCL/SNW-FILEMAN SUPPORT FOR FREEM ;09:04 PM  27 Apr 2025
        ;;21.0;VA FileMan;;27 Apr 2025
        ;
ACTJ()  ;
        Q ""
        ;
AVJ()   ;
        Q ""
        ;
T0      ; start RT clock
        Q
        ;
T1      ; store RT datum
        Q
        ;
MAXJ    ; Maximum # of jobs
        S Y=500 Q
        ;
BAUD    ; BAUD
        Q
        ;
LGR()   Q $REFERENCE ;Last global ref.
        ;
EC()    Q $P($ECODE,",",2)
        ;
DEVOPN  ;
        Q
DEVOK   ;
        Q
RES     ;
        Q
NULLDEV ;
        Q
        ;
NODEV   ;
        S Y=-1
        Q
        ;
DOLRO   ;
        Q
        ;
ORDER   ;
        Q
        ;
JOBPAR  Q ^$JOB(X,"NAMESPACE")
        ;
NOLOG   S Y=0 Q
        ;
PARSIZ  ;
        S X=3 Q
        ;
PRIINQ() ;
        Q ^$JOB(X,"PRIORITY")
        ;
PRIORITY ;
        S ^$JOB($JOB,"PRIORITY")=X
        Q
        ;
PRGMODE ;
        ZQUIT $STACK ; should drop to direct mode
        Q
        ;
UCICHECK(X) ;
        Q:$D(^$SYSTEM("NAMESPACE",X)) 1
        Q 0
        ;
SETENV  ;
        Q
        ;
GETENV  ; UCI^VOL^NODE
        N %
        !<hostname
        S Y=^$JOB($J,"NAMESPACE")_"^"_^$JOB($J,"ENVIRONMENT")_"^"_%(1) Q
        ;
SETTRM(X) ; set read terminators
        S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=X
        Q 1