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

ZOSFGTM.m

Go to the documentation of this file. 
  1. ZOSFGTM ;ISF/staff - ZOSF Table for GT.M for VMS ;10/18/06  14:28
  1.  ;;8.0;KERNEL;**275,425**;Jul 10, 1995;Build 18
  1.  ; for GT.M for VMS, version 4.3
  1.  ;
  1.  S %Y=1,DTIME=$G(DTIME,600)
  1.  K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")
  1.  I '$D(^%ZOSF("VOL")) S ^%ZOSF("VOL")="ROU"
  1.  K 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=""  D
  1.  . S X=$P($T(Z+1+I),";;",2,99)
  1.  . S ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)
  1.  . Q
  1.  ;
  1. OS S ^%ZOSF("OS")="GT.M (VMS)^17"
  1. MGR W !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// " R X:DTIME I X]"" X ^("UCICHECK") G MGR:0[Y S ^%ZOSF("MGR")=X
  1. PROD ;
  1.  W !,"The value of PRODUCTION will be used in the GETENV api."
  1.  W !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// " R X:DTIME I X]"" X ^("UCICHECK") G PROD:0[Y S ^%ZOSF("PROD")=X
  1.  ;See that VOL and PROD agree.
  1.  I ^%ZOSF("PROD")'[^%ZOSF("VOL") S ^%ZOSF("VOL")=$P(^%ZOSF("PROD"),",",2)
  1. VOL W !,"The VOLUME name must match the one in PRODUCTION."
  1.  W !,"NAME OF VOLUME SET: "_^%ZOSF("VOL")_"//" R X:DTIME
  1.  I X]"" D  I X'?3U W "MUST BE 3 Upper case." G VOL
  1.  . I ^%ZOSF("PROD")'[X W !,"Must match PRODUCTION"
  1.  . S:X?3U ^%ZOSF("VOL")=X
  1.  W !,"^%ZOSF setup"
  1.  Q
  1.  ;
  1. Z ;
  1.  ;;ACTJ
  1.  ;;S Y=$$ACTJ^%ZOSV()
  1.  ;;AVJ
  1.  ;;S Y=$$AVJ^%ZOSV()
  1.  ;;BRK
  1.  ;;U $I:(CENABLE)
  1.  ;;DEL
  1.  ;;D DEL^%ZOSV2(X) ;N %DIR S %DIR=$P($ZRO,",") ZSYSTEM "DEL "_%DIR_X_".m;*" ZSYSTEM "DEL "_%DIR_X_".obj;*"
  1.  ;;EOFF
  1.  ;;U $I:(NOECHO)
  1.  ;;EON
  1.  ;;U $I:(ECHO)
  1.  ;;EOT
  1.  ;;S Y=$ZA\1024#2 ; <=====
  1.  ;;ERRTN
  1.  ;;^%ZTER
  1.  ;;ETRP
  1.  ;;Q
  1.  ;;GD
  1.  ;;G ^%GD
  1.  ;;$INC
  1.  ;;0
  1.  ;;JOBPARAM
  1.  ;;G JOBPAR^%ZOSV
  1.  ;;LABOFF
  1.  ;;U IO:(NOECHO)
  1.  ;;LOAD
  1.  ;;D LOAD^%ZOSV2(X) ;N % S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X) Q:$L(%)=0  S @(DIF_XCNP_",0)")=%
  1.  ;;LPC;;Longitudinal Parity Check (Exclusive OR of the 8-bit bytes)
  1.  ;;S Y=$$LPC^%ZOSV(X)
  1.  ;;MAGTAPE
  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.  ;;MAXSIZ
  1.  ;;Q
  1.  ;;MGR
  1.  ;;VAH,ROU
  1.  ;;MTBOT
  1.  ;;S Y=$ZA\32#2 ; <=====
  1.  ;;MTERR
  1.  ;;S Y=$ZA\32768#2 ; <=====
  1.  ;;MTONLINE
  1.  ;;S Y=$ZA\64#2 ; <=====
  1.  ;;MTWPROT
  1.  ;;S Y=$ZA\4#2 ; <=====
  1.  ;;NBRK
  1.  ;;U $I:(NOCENABLE)
  1.  ;;NO-PASSALL
  1.  ;;U $I:(ESCAPE:TERMINATOR="":NOPASTHRU)
  1.  ;;NO-TYPE-AHEAD
  1.  ;;U $I:(NOTYPEAHEAD)
  1.  ;;PASSALL
  1.  ;;U $I:(NOESCAPE:NOTERMINATOR:PASTHRU)
  1.  ;;PRIINQ
  1.  ;;S Y=$$PRIINQ^%ZOSV()
  1.  ;;PRIORITY
  1.  ;;Q  ;G PRIORITY^%ZOSV
  1.  ;;PROD
  1.  ;;VAH,ROU
  1.  ;;PROGMODE
  1.  ;;S Y=$$PROGMODE^%ZOSV()
  1.  ;;RD
  1.  ;;G ^%RD
  1.  ;;RESJOB
  1.  ;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  W !!,"From VMS use: mupip stop /id=pid",!
  1.  ;;RM
  1.  ;;U $I:WIDTH=$S(X<256:X,1:0)
  1.  ;;RSEL
  1.  ;;N %ZR,X K ^UTILITY($J) D ^%RSEL S X="" X "F  S X=$O(%ZR(X)) Q:X=""""  S ^UTILITY($J,X)="""""
  1.  ;;RSUM
  1.  ;;N %,%1,%2,%3 S Y=0 F %=1,3:1 S %1=$T(+%^@X),%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
  1.  ;;N %,%1,%2,%3 S Y=0 F %=1,3:1 S %1=$T(+%^@X),%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
  1.  ;;D ^ZSY
  1.  ;;SAVE
  1.  ;;D SAVE^%ZOSV2(X) ;N %I,%F,SP S %I=$I,SP=" ",%F=$P($ZRO,",")_X_".m" O %F:(NEWVERSION) U %F X "F  S XCN=$O(@(DIE_XCN_"")"")) Q:XCN'>0  S %=@(DIE_XCN_"",0)"") Q:$E(%,1)=""$""  I $E(%)'="";"" W $P(%,SP)_$C(9)_$P(%,SP,2,99999),!" C %F U %I
  1.  ;;SIZE
  1.  ;;N %,I S Y=0 F I=1:1 S %=$T(+I^@X) Q:%=""  S Y=Y+$L(%)+2
  1.  ;;TEST
  1.  ;;I X]"",$L($$TEST^%ZOSV2(X))
  1.  ;;TMK
  1.  ;;S Y=$ZA\16384#2
  1.  ;;TRAP
  1.  ;;$ZT="G "_X
  1.  ;;TRMOFF
  1.  ;;U $I:(TERMINATOR="":NOPASTHRU:ESCAPE)
  1.  ;;TRMON
  1.  ;;U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127):NOESCAPE:PASTHRU)
  1.  ;;TRMRD
  1.  ;;S Y=$A($ZB)
  1.  ;;TYPE-AHEAD
  1.  ;;U $I:(TYPEAHEAD)
  1.  ;;UCI
  1.  ;;S Y=^%ZOSF("PROD")
  1.  ;;UCICHECK
  1.  ;;S Y=1
  1.  ;;UPPERCASE
  1.  ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  ;;XY
  1.  ;;S $X=DX,$Y=DY
  1.  ;;VOL
  1.  ;;ROU
  1.  ;;ZD;;Input X, output Y.
  1.  ;;S Y=$ZDATE(X) ;$$HTE^XLFDT(X,2) I $L($P(Y,"/"))=1 S Y=0_Y