| [613] | 1 | RGUTIN16 ;CAIRO/DKM - Inits for VMS;04-Sep-1998 11:26;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | OPEN(X1,X2) ;
|
|---|
| 4 | N Z
|
|---|
| 5 | S Z="X1"_$S("Rr"[$G(X2):":READONLY:0","Ww"[X2:":(NEWVERSION,RECORDSIZE=65535)","Bb"[X2:":(READONLY,BLOCKSIZE=0)",1:"")
|
|---|
| 6 | O @Z
|
|---|
| 7 | U X1
|
|---|
| 8 | S ^TMP("HFS",$J,X1)=""
|
|---|
| 9 | Q
|
|---|
| 10 | CLOSE(X) C X
|
|---|
| 11 | K ^TMP("HFS",$J,X)
|
|---|
| 12 | Q
|
|---|
| 13 | CLOSEALL N Z
|
|---|
| 14 | S Z=""
|
|---|
| 15 | F S Z=$O(^TMP("HFS",$J,Z)) Q:Z="" C Z
|
|---|
| 16 | K ^TMP("HFS",$J)
|
|---|
| 17 | Q
|
|---|
| 18 | EOF U $I:TRAP
|
|---|
| 19 | Q
|
|---|
| 20 | EOFERR() Q $ZE["ENDOFILE"
|
|---|
| 21 | READ(X,Y) ;
|
|---|
| 22 | U $G(Y,$I):NOTRAP
|
|---|
| 23 | R X
|
|---|
| 24 | Q $ZA=-1
|
|---|
| 25 | DELETE(X) ;
|
|---|
| 26 | O X::0
|
|---|
| 27 | C X:DELETE
|
|---|
| 28 | Q
|
|---|
| 29 | RENAME(X1,X2) ;
|
|---|
| 30 | O X1:READONLY:0
|
|---|
| 31 | C X1:RENAME=X2
|
|---|
| 32 | Q
|
|---|
| 33 | DIR(X1,X2,X3) ;
|
|---|
| 34 | N Z,Z1
|
|---|
| 35 | S $ZT="DIRX^RGUTOS",X3=$G(X3,"^UTILITY(""DIR"",$J)")
|
|---|
| 36 | K @X3
|
|---|
| 37 | S:'$G(X2) X2=9999999999
|
|---|
| 38 | F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" S @X3@($P(Z1,"]",2))=""
|
|---|
| 39 | DIRX Q
|
|---|
| 40 | DEFDIR(X) Q $G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
|
|---|
| 41 | DIRDLM() Q "[.]"
|
|---|
| 42 | ERR(X1,X2,X3) ;
|
|---|
| 43 | S X1=$P($P($ZE,", ",2),"-",3),X2=$P($P($ZE,", "),":"),X3=$P($ZE,", ",$S(X1="ZTRAP":4,1:3))
|
|---|
| 44 | Q
|
|---|
| 45 | FTP(X1,X2,X3,X4,X5,X6,X7) ;
|
|---|
| 46 | D VMS^RGUTFTP(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
|
|---|
| 47 | Q
|
|---|
| 48 | RAISE(X) ZT $G(X)
|
|---|
| 49 | TRAP(X) Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
|
|---|
| 50 | SIZE(X) Q $ZC(%GETFILE,X,"BLS")*$ZC(%GETFILE,X,"EOF")
|
|---|
| 51 | FREE(X) Q $ZC(%GETDVI,X,"FREEBLOCKS")/2048
|
|---|
