Return to DINVFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINVFRM.m, revision 1.1

1.1     ! snw         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: