Return to DINVFRM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINVFRM.m, revision 1.1.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: