Return to DINVFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: %ZOSV   ;VCL/SNW-FILEMAN SUPPORT FOR FREEM ;09:04 PM  27 Apr 2025
    2:         ;;21.0;VA FileMan;;27 Apr 2025
    3:         ;
    4: ACTJ()  ;
    5:         Q ""
    6:         ;
    7: AVJ()   ;
    8:         Q ""
    9:         ;
   10: T0      ; start RT clock
   11:         Q
   12:         ;
   13: T1      ; store RT datum
   14:         Q
   15:         ;
   16: MAXJ    ; Maximum # of jobs
   17:         S Y=500 Q
   18:         ;
   19: BAUD    ; BAUD
   20:         Q
   21:         ;
   22: LGR()   Q $REFERENCE ;Last global ref.
   23:         ;
   24: EC()    Q $P($ECODE,",",2)
   25:         ;
   26: DEVOPN  ;
   27:         Q
   28: DEVOK   ;
   29:         Q
   30: RES     ;
   31:         Q
   32: NULLDEV ;
   33:         Q
   34:         ;
   35: NODEV   ;
   36:         S Y=-1
   37:         Q
   38:         ;
   39: DOLRO   ;
   40:         Q
   41:         ;
   42: ORDER   ;
   43:         Q
   44:         ;
   45: JOBPAR  Q ^$JOB(X,"NAMESPACE")
   46:         ;
   47: NOLOG   S Y=0 Q
   48:         ;
   49: PARSIZ  ;
   50:         S X=3 Q
   51:         ;
   52: PRIINQ() ;
   53:         Q ^$JOB(X,"PRIORITY")
   54:         ;
   55: PRIORITY ;
   56:         S ^$JOB($JOB,"PRIORITY")=X
   57:         Q
   58:         ;
   59: PRGMODE ;
   60:         ZQUIT $STACK ; should drop to direct mode
   61:         Q
   62:         ;
   63: UCICHECK(X) ;
   64:         Q:$D(^$SYSTEM("NAMESPACE",X)) 1
   65:         Q 0
   66:         ;
   67: SETENV  ;
   68:         Q
   69:         ;
   70: GETENV  ; UCI^VOL^NODE
   71:         N %
   72:         !<hostname
   73:         S Y=^$JOB($J,"NAMESPACE")_"^"_^$JOB($J,"ENVIRONMENT")_"^"_%(1) Q
   74:         ;
   75: SETTRM(X) ; set read terminators
   76:         S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=X
   77:         Q 1
   78:         
   79:         
   80:         
   81: