#include <descrip.h>
#include <lib$routines.h>
#include <psldef.h>
#include <rms.h>
#include <secdef.h>
#include <ssdef.h>
#include <starlet.h>
#include <stdio.h>
#include <string.h>
#include <stsdef.h>
#include "dr_include:stru_acc.h"

static	struct	FAB	fab;
static	struct	RAB	rab;

int	OpenFiles	(void)
{
int	status;

	fab = cc$rms_fab;
	fab.fab$b_fac = FAB$M_GET;
	fab.fab$b_shr = FAB$M_SHRGET;
	fab.fab$l_fna = "gblsec.bck";
	fab.fab$b_fns = 10;

	status = sys$open (&fab);
	if (! (status & 1))
		return	status;

	rab = cc$rms_rab;
	rab.rab$l_fab = &fab;

	status = sys$connect (&rab);
	if (! (status & 1))
		return	status;

	rab.rab$v_nlk = 1;
	rab.rab$v_rlk = 1;

	return	status;
}

void	main	(void)
{
int	status;
struct	str_acc_num acc_buf,*acc_bufp;


	status = lib$init_timer();
	if (!$VMS_STATUS_SUCCESS( status ))
		lib$signal( status );

	status = OpenFiles ();
	if (! (status & 1))
		sys$exit(status);
	rab.rab$l_ubf = &acc_buf;
	rab.rab$w_usz = sizeof(acc_buf);
	rab.rab$v_loc = 1;

	status = sys$rewind(&rab);
	if (!$VMS_STATUS_SUCCESS( status ))
		lib$signal( status );


	while ( 1 & (status = sys$get(&rab)) )
		{
		acc_bufp = rab.rab$l_rbf;
		if ( (acc_bufp->dfaxsend == 'Y') || (acc_bufp->dfaxsend == 'F') )
			printf("\ndacc_num = %lu,doperat = %8.8s",
				acc_bufp->dacc_num,
				acc_bufp->doperat);
		}

	status = lib$show_timer();
	if (!$VMS_STATUS_SUCCESS( status ))
		lib$signal( status );
}