DELETE NOTE;
REDEFINE DOMAIN NOTE USING NOTE_REC ON
 USER5:[VAX88A2.PAGESWAPPER]IO.NOTE ;

DELETE NOTE_REC;
REDEFINE RECORD NOTE_REC USING
01 NOTE_RECORD.
	03 KEY0		USAGE LONG.
	03 KEY2		PIC X(64).
	03 S1		USAGE LONG.
	03 KEY1		USAGE LONG.
	03 B1		USAGE BYTE.
	03 B2		USAGE BYTE.
	03 ST		PIC X(1000)	EDIT_STRING T(30).
	03 T1		COMPUTED BY FN$STR_EXTRACT(ST,1,B2) .
!
	03 N3		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + 1),1) .
	03 B3		COMPUTED BY FN$CONVERT_STR(N3,"STR TO BYTE") .
	03 N4		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + 2),1) .
	03 B4		COMPUTED BY FN$CONVERT_STR(N4,"STR TO BYTE") .
	03 T2		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + 3),B4) .
	03 D1		COMPUTED BY FN$CONVERT_STR(T2,"STR TO DATE") .
!
	03 N5		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + B4 + 3),1).
	03 B5		COMPUTED BY FN$CONVERT_STR(N5,"STR TO BYTE") .
	03 N6		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + B4 + 4),1).
	03 B6		COMPUTED BY FN$CONVERT_STR(N6,"STR TO BYTE") .
	03 T3		COMPUTED BY FN$STR_EXTRACT(ST,(B2 + B4 + 5),B6) .
;