01	CURSOR.
  03  ATT-VALUE PIC 9999 COMP VALUE IS 7693.
  03  ATT-INIT REDEFINES ATT-VALUE.
    05 ATT                       PIC XX.
  03  LIN-VALUE                  PIC X(24)
	VALUE IS "@ABCDEFGHIJKLMNOPQRSTUVW".
  03  LIN-INIT REDEFINES LIN-VALUE.
    05 LIN                       PIC X OCCURS 24.
  03  COL-VALUE                  PIC X(80)
	VALUE IS " !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM
-	"NOPQRSTUVWXYZ[\]^_`abcdefghijklmno".
  03  COL-INIT REDEFINES COL-VALUE.
    05 COL                       PIC X OCCURS 80.
  03  ERASE-VALUE                PIC 99 COMP VALUE IS 24.
  03  ERASE-INIT REDEFINES ERASE-VALUE.
    05 ERASE                     PIC XX.
  03  ERALIN-VALUE                PIC 99 COMP VALUE IS 22.
  03  ERALIN-INIT REDEFINES ERALIN-VALUE.
    05 ERALIN                     PIC XX.
  03  NULL-VALUE                PIC 99 COMP VALUE IS 0.
  03  NULL-INIT REDEFINES NULL-VALUE.
    05 NULL                     PIC XX.