#include <stdio.h>
#include <string.h>
#include <rms.h>
#include <ssdef.h>

int sys$open();
int sys$close();

main()
{
   int stat;
   char fnm[] = "Z.DAT";
   struct FAB fabblk;
   struct XABPRO xabblk;
   fabblk = cc$rms_fab;
   fabblk.fab$b_fac = FAB$M_PUT;
   fabblk.fab$l_fna = (char *)&fnm;
   fabblk.fab$b_fns = strlen(fnm);
   fabblk.fab$l_xab = (char *)&xabblk;
   xabblk = cc$rms_xabpro;
   stat = sys$open(&fabblk);
   printf("stat=%d\n",stat);
   xabblk.xab$w_pro &= ~(1 << (XAB$V_OWN+XAB$V_NODEL));
   stat = sys$close(&fabblk);
   printf("stat=%d\n",stat);
};