/FIX BAD DRS. FILE ON RXA0 FROM LAST MONTH ON RXA1
OLD=XFILES
NEW=XFILES+9
	OPEN;DEVICE RXA0;FILENAME DRMAST.MA;NEW
	GONEG;END
	OPEN;DEVICE RXA1;FILENAME DRMAST.MA;OLD
	GONEG	;END
START,		PRINT 7;TEXT '_AC.NO='
	TYPIN K30
	GONEG	;END
	PRINTN
	READ	;OLD
	GONEG	;START
	GETREC	;RECORD
	PRINTX	;DRNAME	;30
	LOAD	;DBAL0
	ADD	;DBAL1
	ADD	;DBAL2
	ADD	;DBAL3
	STORE	;DRBFB
	MOVIM	;1000	;DRTRAN
	CLRWDS	;8;DFORW1
	PRINT  9;TEXT '**REC.NO='
	TYPIN K30
	GONEG	;START
	PRINTN 5
	READSQ	;NEW
	GONEG	;START
	PUTREC	;RECORD
	WRITE
	PRINT 4;TEXT 'DONE'
	GOTO	;START
END,	EXIT
/DEBTORS MASTER RECORD
RECORD,
DRRCID,	0
DRKEY,	0;0
DRNAME,	ZBLOCK 15	/30 CHAR. NAME
DLINE2,	ZBLOCK 15
DLINE3,	ZBLOCK 15
DRTRAN,	0
DRBFB,	0;0;0
DBAL0,	0;0;0
DBAL1,	0;0;0
DBAL2,	0;0;0
DBAL3,	0;0;0
DSHRNO,	0;0
DFORW1,	0;0
DFORW2,	0;0
DFORW3,	0;0
DFORW4,	0;0
DREBA1,	0;0
DREBA2,	0;0
DREBA3,	0;0
DREBA4,	0;0
	ZBLOCK 5
/