ZOSFVXD.m

ZOSFVXD ;SFISC/MVB - ZOSF TABLE FOR VAX DSM V3.3, V4 & V6 ;06/30/97  15:23 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;**65**;JUL 03, 1995

 ;Remember to update XGKB for escape processing.

 S %Y=1 K ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")

 I '$D(^%ZOSF("VOL")) S ^%ZOSF("VOL")=$P($ZC(%UCI),",",4)

 K ZO F I="MGR","PROD","VOL" S:$D(^%ZOSF(I)) ZO(I)=^%ZOSF(I)

 F I=1:2 S Z=$P($T(Z+I),";;",2) Q:Z=""  S X=$P($T(Z+1+I),";;",2,99) S:Z="OS" $P(^%ZOSF(Z),"^")=X I Z'="OS" S ^%ZOSF(Z)=$S($D(ZO(Z)):ZO(Z),1:X)

 ;

OS S:'$P(^%ZOSF("OS"),"^",2) $P(^%ZOSF("OS"),"^",2)=16

MGR W !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G MGR:0[Y S ^%ZOSF("MGR")=X

PROD W !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// " R X:$S($G(DTIME):DTIME,1:9999) I X]"" X ^("UCICHECK") G PROD:0[Y S ^%ZOSF("PROD")=Y

VOL W !,"NAME OF VOLUME SET: "_^%ZOSF("VOL")_"//" R X:$S($G(DTIME):DTIME,1:9999) I X]"" S:X?3U ^%ZOSF("VOL")=X I X'?3U W "MUST BE 3 Upper case." G VOL

 W ! Q

V4 S $P(^%ZOSF("OS"),"^",1)="VAX DSM(V4)"

 S ^("JOBPARAM")="S Y="""" Q" ; S Y=JOB X'S UCI,VOLUMESET

 S ^("TEST")="N %,Y S %=$P($ZC(%PGMSHOW),"","") O %:(INDEXED:READONLY) U %:KEY=$E($C(0)_X_$C(0,0,0,0,0,0,0,0),1,9) R Y C % I $L(Y)"

 Q

Z ;

 ;;ACTJ

 ;;S Y=$$ACTJ^%ZOSV()

 ;;AVJ

 ;;S Y=$$AVJ^%ZOSV()

 ;;BRK

 ;;U $I:CENABLE

 ;;DEL

 ;;X "ZR  ZS @X"

 ;;EOFF

 ;;U $I:NOECHO

 ;;EON

 ;;U $I:ECHO

 ;;EOT

 ;;S Y=$ZA\1024#2

 ;;ERRTN

 ;;^%ZTER

 ;;ETRP

 ;;Q

 ;;GD

 ;;G ^%GD

 ;;JOBPARAM

 ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)

 ;;LABOFF

 ;;U IO:NOECHO

 ;;LOAD

 ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"

 ;;LPC

 ;;S Y=$ZC(%LPC,X)

 ;;MAGTAPE

 ;;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"

 ;;MAXSIZ

 ;;Q

 ;;MGR

 ;;MGR,AAA

 ;;MTBOT

 ;;S Y=$ZA\32#2

 ;;MTERR

 ;;S Y=$ZA\32768#2

 ;;MTONLINE

 ;;S Y=$ZA\64#2

 ;;MTWPROT

 ;;S Y=$ZA\4#2

 ;;NBRK

 ;;U $I:NOCENABLE

 ;;NO-PASSALL

 ;;G NOPASS^%ZOSV

 ;;NO-TYPE-AHEAD

 ;;U $I:NOTYPE

 ;;OS

 ;;VAX DSM(V6)

 ;;PASSALL

 ;;G PASSALL^%ZOSV

 ;;PRIINQ

 ;;S Y=$$PRIINQ^%ZOSV()

 ;;PRIORITY

 ;;Q  ;G PRIORITY^%ZOSV

 ;;PROD

 ;;VAH,AAA

 ;;PROGMODE

 ;;S Y=$$PROGMODE^%ZOSV()

 ;;RD

 ;;G ^%RD

 ;;RESJOB

 ;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI

 ;;RM

 ;;U $I:WIDTH=$S(X<256:X,1:0)

 ;;RSEL

 ;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY

 ;;RSUM

 ;;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

 ;;SS

 ;;G ^%SY

 ;;SAVE

 ;;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" S ^UTILITY("ROU",X)="" K XCS

 ;;SIZE

 ;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2

 ;;TEST

 ;;I $D(^ (X))!$D(^!(X))

 ;;TMK

 ;;S Y=$ZA\16384#2

 ;;TRAP

 ;;$ZT=X

 ;;TRMOFF

 ;;U $I:TERM=""

 ;;TRMON

 ;;U $I:TERM=$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)

 ;;TRMRD

 ;;S Y=$ZB

 ;;TYPE-AHEAD

 ;;U $I:TYPE

 ;;UCI

 ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)

 ;;UCICHECK

 ;;S Y=$$UCICHECK^%ZOSV(X)

 ;;UPPERCASE

 ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 ;;XY

 ;;S $X=DX,$Y=DY

 ;;VOL

 ;;AAA

 ;;ZD

 ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)

ZOSFVXD   ;SFISC/MVB - ZOSF TABLE FOR VAX DSM V3.3, V4 & V6 ;06/30/97  15:23 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**65**;JUL 03, 1995

 +3       ;Remember to update XGKB for escape processing.

 +4        SET %Y=1

           KILL ^%ZOSF("MASTER"),^%ZOSF("SIGNOFF")

 +5        IF '$DATA(^%ZOSF("VOL"))

               SET ^%ZOSF("VOL")=$PIECE($ZC(%UCI),",",4)

 +6        KILL ZO

           FOR I="MGR","PROD","VOL"

               IF $DATA(^%ZOSF(I))

                   SET ZO(I)=^%ZOSF(I)

 +7        FOR I=1:2

               SET Z=$PIECE($TEXT(Z+I),";;",2)

               IF Z=""

                   QUIT 

               SET X=$PIECE($TEXT(Z+1+I),";;",2,99)

               IF Z="OS"

                   SET $PIECE(^%ZOSF(Z),"^")=X

               IF Z'="OS"

                   SET ^%ZOSF(Z)=$SELECT($DATA(ZO(Z)):ZO(Z),1:X)

 +8       ;

OS         IF '$PIECE(^%ZOSF("OS"),"^",2)

               SET $PIECE(^%ZOSF("OS"),"^",2)=16

MGR        WRITE !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// "

           READ X:$SELECT($GET(DTIME):DTIME,1:9999)

           IF X]""

               XECUTE ^("UCICHECK")

               IF 0[Y

                   GOTO MGR

               SET ^%ZOSF("MGR")=X

PROD       WRITE !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// "

           READ X:$SELECT($GET(DTIME):DTIME,1:9999)

           IF X]""

               XECUTE ^("UCICHECK")

               IF 0[Y

                   GOTO PROD

               SET ^%ZOSF("PROD")=Y

VOL        WRITE !,"NAME OF VOLUME SET: "_^%ZOSF("VOL")_"//"

           READ X:$SELECT($GET(DTIME):DTIME,1:9999)

           IF X]""

               IF X?3U

                   SET ^%ZOSF("VOL")=X

               IF X'?3U

                   WRITE "MUST BE 3 Upper case."

                   GOTO VOL

 +1        WRITE !

           QUIT 

V4         SET $PIECE(^%ZOSF("OS"),"^",1)="VAX DSM(V4)"

 +1       ; S Y=JOB X'S UCI,VOLUMESET

           SET ^("JOBPARAM")="S Y="""" Q"

 +2        SET ^("TEST")="N %,Y S %=$P($ZC(%PGMSHOW),"","") O %:(INDEXED:READONLY) U %:KEY=$E($C(0)_X_$C(0,0,0,0,0,0,0,0),1,9) R Y C % I $L(Y)"

 +3        QUIT 

Z         ;

 +1       ;;ACTJ

 +2       ;;S Y=$$ACTJ^%ZOSV()

 +3       ;;AVJ

 +4       ;;S Y=$$AVJ^%ZOSV()

 +5       ;;BRK

 +6       ;;U $I:CENABLE

 +7       ;;DEL

 +8       ;;X "ZR  ZS @X"

 +9       ;;EOFF

 +10      ;;U $I:NOECHO

 +11      ;;EON

 +12      ;;U $I:ECHO

 +13      ;;EOT

 +14      ;;S Y=$ZA\1024#2

 +15      ;;ERRTN

 +16      ;;^%ZTER

 +17      ;;ETRP

 +18      ;;Q

 +19      ;;GD

 +20      ;;G ^%GD

 +21      ;;JOBPARAM

 +22      ;;S Y=$$INFO^%SY(X),Y=$P(Y,",",1,2)

 +23      ;;LABOFF

 +24      ;;U IO:NOECHO

 +25      ;;LOAD

 +26      ;;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"

 +27      ;;LPC

 +28      ;;S Y=$ZC(%LPC,X)

 +29      ;;MAGTAPE

 +30      ;;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"

 +31      ;;MAXSIZ

 +32      ;;Q

 +33      ;;MGR

 +34      ;;MGR,AAA

 +35      ;;MTBOT

 +36      ;;S Y=$ZA\32#2

 +37      ;;MTERR

 +38      ;;S Y=$ZA\32768#2

 +39      ;;MTONLINE

 +40      ;;S Y=$ZA\64#2

 +41      ;;MTWPROT

 +42      ;;S Y=$ZA\4#2

 +43      ;;NBRK

 +44      ;;U $I:NOCENABLE

 +45      ;;NO-PASSALL

 +46      ;;G NOPASS^%ZOSV

 +47      ;;NO-TYPE-AHEAD

 +48      ;;U $I:NOTYPE

 +49      ;;OS

 +50      ;;VAX DSM(V6)

 +51      ;;PASSALL

 +52      ;;G PASSALL^%ZOSV

 +53      ;;PRIINQ

 +54      ;;S Y=$$PRIINQ^%ZOSV()

 +55      ;;PRIORITY

 +56      ;;Q  ;G PRIORITY^%ZOSV

 +57      ;;PROD

 +58      ;;VAH,AAA

 +59      ;;PROGMODE

 +60      ;;S Y=$$PROGMODE^%ZOSV()

 +61      ;;RD

 +62      ;;G ^%RD

 +63      ;;RESJOB

 +64      ;;Q:'$D(DUZ)  Q:'$D(^XUSEC("XUMGR",+DUZ))  N XQZ S XQZ="^FORCEX[MGR]" D DO^%XUCI

 +65      ;;RM

 +66      ;;U $I:WIDTH=$S(X<256:X,1:0)

 +67      ;;RSEL

 +68      ;;K ^UTILITY($J) D ^%RSEL M ^UTILITY($J)=%UTILITY K %UTILITY

 +69      ;;RSUM

 +70      ;;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

 +71      ;;SS

 +72      ;;G ^%SY

 +73      ;;SAVE

 +74      ;;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" S ^UTILITY("ROU",X)="" K XCS

 +75      ;;SIZE

 +76      ;;S Y=0 F I=1:1 S %=$T(+I) Q:%=""  S Y=Y+$L(%)+2

 +77      ;;TEST

 +78      ;;I $D(^ (X))!$D(^!(X))

 +79      ;;TMK

 +80      ;;S Y=$ZA\16384#2

 +81      ;;TRAP

 +82      ;;$ZT=X

 +83      ;;TRMOFF

 +84      ;;U $I:TERM=""

 +85      ;;TRMON

 +86      ;;U $I:TERM=$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)

 +87      ;;TRMRD

 +88      ;;S Y=$ZB

 +89      ;;TYPE-AHEAD

 +90      ;;U $I:TYPE

 +91      ;;UCI

 +92      ;;S Y=$ZC(%UCI),Y=$P(Y,",",1)_","_$P(Y,",",4)

 +93      ;;UCICHECK

 +94      ;;S Y=$$UCICHECK^%ZOSV(X)

 +95      ;;UPPERCASE

 +96      ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +97      ;;XY

 +98      ;;S $X=DX,$Y=DY

 +99      ;;VOL

 +100     ;;AAA

 +101     ;;ZD

 +102     ;;N % S Y=$ZC(%CDATASC,+X,1) F %=1:1:3 I $L($P(Y,"/",%))<2 S $P(Y,"/",%)=0_$P(Y,"/",%)