RECORD GRPREC USING
01 GRPREC.
    05  L_FIRST		USAGE IS LONG.
    05  L_LAST		USAGE IS LONG.
    05  C_POSTFLAG	USAGE IS BYTE.
    05  C_SUCKFLAG	USAGE IS BYTE.
    05  L_DATECR	USAGE IS LONG
				EDIT_STRING 9999/99/99.
    05  L_DATEUP	USAGE IS LONG
				EDIT_STRING 9999/99/99.
    05  B_LEN		USAGE IS BYTE.
    05  T_NAME		PIC X(96).
;