Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ZOSFONT

ZOSFONT.m

Go to the documentation of this file.
  1. ZOSFONT ;SFISC/AC - SETS UP ^%ZOSF for Cache for NT/VMS ;09/29/09 15:35
  1. ;;8.0;KERNEL;**34,104,365,661,718**;JUL 10, 1995;Build 5
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;For Cache versions 2011 and above
  1. S %Y=1
  1. INIT ;
  1. N ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)
  1. F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z="" S X=$P($T(Z+1+I),";;",2,99) S ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)
  1. ;
  1. G:'$G(%Y) OS
  1. MGR W !,"NAME OF MANAGER'S NAMESPACE: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G MGR:0[Y S ^%ZOSF("MGR")=X
  1. PROD W !,"PRODUCTION (SIGN-ON) NAMESPACE: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G PROD:0[Y S ^%ZOSF("PROD")=Y
  1. VOL W !,"NAME OF THIS CONFIGURATION: "_^%ZOSF("VOL")_"//" R X:$S($G(DTIME):DTIME,1:9999) I X]"" S:X?1.22U ^%ZOSF("VOL")=X I X'?1.22U W "MUST BE 1-22 uppercase characters." G VOL
  1. ;
  1. OS S $P(^%ZOSF("OS"),"^",1)="OpenM-NT" S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=18
  1. W !!,"ALL SET UP",!!
  1. Q
  1. ;
  1. NOASK ;Setup %ZOSF without terminal interaction
  1. S %Y=0
  1. G INIT
  1. ;
  1. ONE(X) ;update a single global node
  1. Q:X=""
  1. F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z="" I Z=X S Y=$P($T(Z+1+I),";;",2,99),^%ZOSF(X)=Y Q
  1. Q
  1. Z ;;
  1. ;;ACTJ;;Active Jobs
  1. ;;S Y=$$ACTJ^%ZOSV()
  1. ;;AVJ;;Available Jobs
  1. ;;S Y=$$AVJ^%ZOSV()
  1. ;;BRK;;Enable Break
  1. ;;U $I:("":"+B")
  1. ;;DEL;;Delete Routine
  1. ;;X "ZR ZS @X"
  1. ;;EOFF;;Echo off
  1. ;;U $I:("":"+S")
  1. ;;EON;;Echo On
  1. ;;U $I:("":"-S")
  1. ;;EOT;;End of Tape
  1. ;;S Y=$ZA\1024#2
  1. ;;ERRTN;;Error Routine
  1. ;;^%ZTER
  1. ;;ETRP;;obsolete
  1. ;;Q
  1. ;;GD;;Global Directory
  1. ;;D ^%GD
  1. ;;GSEL;;Select Globals
  1. ;;K ^CacheTempJ($J),^UTILITY($J) D ^%SYS.GSET M ^UTILITY($J)=^CacheTempJ($J) K ^CacheTempJ($J)
  1. ;;JOBPARAM;;Local Job
  1. ;;D JOBPAR^%ZOSV
  1. ;;LABOFF;;Special Lab Echo off
  1. ;;U IO:("":"+S+I-T":$C(13,27))
  1. ;;LOAD;;Load Routine
  1. ;;N %,%N S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
  1. ;;LPC;;Longitudinal Parity Check
  1. ;;S Y=$ZC(X)
  1. ;;MAXSIZ;;Set Partition Size
  1. ;;S $ZS=X+X
  1. ;;MGR
  1. ;;%SYS
  1. ;;MAGTAPE;;Sets magtape functions into %MT
  1. ;;S %MT("BS")="*-1",%MT("FS")="*-2",%MT("WTM")="*-3",%MT("WB")="*-4",%MT("REW")="*-5",%MT("RB")="*-6",%MT("REL")="*-7",%MT("WHL")="*-8",%MT("WEL")="*-9"
  1. ;;MTBOT;;Begining of Tape
  1. ;;S Y=$ZA\32#2
  1. ;;MTONLINE;;Magtape Online
  1. ;;S Y=$ZA\64#2
  1. ;;MTWPROT;;Magtape Write Protected
  1. ;;S Y=$ZA\4#2
  1. ;;MTERR;;Magtape Error
  1. ;;S Y=$ZA\32768#2
  1. ;;NBRK;;No break
  1. ;;U $I:("":"-B")
  1. ;;NO-PASSALL;;Set terminal to normal text mode
  1. ;;U $I:("":"-I+T")
  1. ;;NO-TYPE-AHEAD;;Turn off Type Ahead
  1. ;;U $I:("":"+F":$C(13,27))
  1. ;;PASSALL;;Set terminal to pass all codes
  1. ;;U $I:("":"+I-T")
  1. ;;PRIINQ;;Priority in current queue
  1. ;;N %PRIO D ^%PRIO S Y=$S('%PRIO:5,%PRIO>0:8,1:3)
  1. ;;PRIORITY;;set priority to X (1=low, 10=high)
  1. ;;D @($S(X>7:"NORMAL",X>3:"NORMAL",1:"LOW")_"^%PRIO") ;Don't do HIGH
  1. ;;PROGMODE;;Checks Programmer Mode
  1. ;;S Y=$ZJOB#2
  1. ;;PROD
  1. ;;VAH
  1. ;;RD;;Routine Directory
  1. ;;D ^%RD
  1. ;;RESJOB;;Kill job on local node
  1. ;;N OLD S OLD=$ZNSPACE ZNSPACE "%SYS" D ^RESJOB ZNSPACE OLD Q
  1. ;;RM;;Set Right Margin for terminal
  1. ;;I $G(IOT)["TRM" U $I:X
  1. ;;RSEL;;Routine Select
  1. ;;K ^UTILITY($J) D KERNEL^%RSET K %ST ;Special entry point for VA
  1. ;;RSUM;;Returns Checksum of Routine
  1. ;;N %,%1,%3 ZL @X S Y=0 F %=1,3:1 S %1=$T(+%),%3=$F(%1," ") Q:'%3 S %3=$S($E(%1,%3)'=";":$L(%1),$E(%1,%3+1)=";":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*%2+Y
  1. ;;RSUM1;;Returns new Checksum of Routine
  1. ;;N %,%1,%3 ZL @X S Y=0 F %=1,3:1 S %1=$T(+%),%3=$F(%1," ") Q:'%3 S %3=$S($E(%1,%3)'=";":$L(%1),$E(%1,%3+1)=";":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*(%2+%)+Y
  1. ;;SS;;System Status
  1. ;;D ^%SS
  1. ;;SAVE;;Save Routine
  1. ;;N XCS S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN S %=^(XCN,0) Q:$E(%,1)=""$"" I $E(%,1)'="";"" ZI %" X "ZR X XCS ZS @X"
  1. ;;SIZE;;Routine size in Bytes
  1. ;;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
  1. ;;TEST;;Routine exist
  1. ;;I X?1(1"%",1A).15AN,$D(^$ROUTINE(X))
  1. ;;TMK;;Magtape Mark
  1. ;;S Y=$ZA\4#2
  1. ;;TRAP;;Sets Error Trap;S X="^%ET",@^%ZOSF("TRAP"); User $ETRAP
  1. ;;$ZT=X
  1. ;;TRMOFF;;Terminators off
  1. ;;U $I:("":"-I-T":$C(13,27))
  1. ;;TRMON;;Terminators on
  1. ;;U $I:("":"+I+T")
  1. ;;TRMRD;;Read Terminator
  1. ;;S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)
  1. ;;TYPE-AHEAD;;Allows Type-ahead
  1. ;;U $I:("":"-F":$C(13,27))
  1. ;;UCI;;Current UCI
  1. ;;D UCI^%ZOSV
  1. ;;UCICHECK;;UCI Valid
  1. ;;S Y=$$UCICHECK^%ZOSV(X)
  1. ;;UPPERCASE;;Convert Lower case to Upper case
  1. ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. ;;XY;;Set $X & $Y
  1. ;;S $X=DX,$Y=DY
  1. ;;VOL;;VOLUME SET NAME
  1. ;;ROU
  1. ;;ZD;;$H to external
  1. ;;S Y=$ZD(X)