cABIELVH ;LVH: overgang MSM -> Caché ;%ABIE; [ 12/09/2001 - 09:01:06 - 58694,32466 ]
 ;
YZ Q
 ;
BLIND(GR,FILE)     ; "blinde" ingang om routine/global te importeren
 K %ABIE
 S %ABIE("PORT")="I" ; "E"=export  <> "I"=import
 S %ABIE("TO")="C"   ; "M"=msm     <> "C"=caché
 S %ABIE("GLRO")=GR  ; "G"=globals <> "R"=routines
 S %ABIE("FILE")=FILE ; path+filename ZONDER EXTENTIE
 S %ABIE("BLIND")=1
 D ^cABIE
BLINDZ K %ABIE Q
 ;
ZZ ; 11.09.01 - 17 u 30