cABIECGR        ;Import - GLOBAL INPUT ;cABIE;  [ 07/04/00  4:35 PM ]
 ;
 S $ZT="ERRDEV",$ZE="" ;no variables escape!
 S IO=TRFIL,OIBS="*8",OIF="#",OIM=132,IOPAR="(""R"")",IOSL=66,IOST="RMS",IOT="RMS",MSYS="M/WNT"
 O IO:"R":0 S OK=$T I 'OK W !,"Could not open file",! S QUIT=2 Q
 I IO=$I W !,"(cannot load from THIS device)" Q
 S x=$$header^%Wgr(IO_":"_IOPAR,5,0),DESC=$p(x,$c(13,10),1),DAT=$p(x,$c(13,10),2)
 U 0 W !,"Globals were saved on ",DAT,!,"with description: ",$p(DESC,"~Format=",1),!
OPT G OPT^%GI
 ;
YZ Q
 ;
ZZ ; 07.02.01 - 10 u 46 * V7.84
ERRDEV