Index: cABIEMGS.mac.rou =================================================================== diff -u -r734 -r4146 --- cABIEMGS.mac.rou (.../cABIEMGS.mac.rou) (revision 734) +++ cABIEMGS.mac.rou (.../cABIEMGS.mac.rou) (revision 4146) @@ -6,15 +6,15 @@ S %GBLFMT=$G(%GBLFMT,"MSM") ; Default format type. S:"/ANSI/MSM/"'[("/"_%GBLFMT_"/") %GBLFMT="MSM" ; Check validity. S $ZT="ERR^%ABIEMGS",%INT=0 - S OS=$ZB($V(0,-4,2),#F,1) + ;S OS=$ZB($V(0,-4,2),#F,1) SDEV D OUT^%ABIEMSD Q:$D(QUIT) S %QUIT=0 SIZE ; K %SIZE ; I OS=8,%DEVTYPE="HFS",%FN?1A1":"1.ANP DO I %SIZE<1 W !!,"No space on disk" G SDEV ; .S %X=$E(%FN,1) NEW %A,%B,%C,%Y ; .S %Y=$ZOS(9,%X) F %I=1:1:3 S @("%"_$C(64+%I))=$P(%Y,"^",%I) ; .S %SIZE=%A*%B*%C\1024 ; available space in kbytes -SIZE1 S %SIZE=$S($D(%SIZE):%SIZE*1024,1:1024*1024*#100000) G RCMT ; max=1TB + ;SIZE1 S %SIZE=$S($D(%SIZE):%SIZE*1024,1:1024*1024*#100000) G RCMT ; max=1TB ; RCMT S %CMT=$G(%ABIE("COM"),"Export from "_$ZU(0)) I 'quiet R !,"Enter comment for dump header : ",%CMT