       01    DFHBMSCA.

      *        VARIABLE  PROTECTION    INTENSITY    MODIFIED
      *                                             DATA TAG
      *
      *        DFHBMUNP  Unprotected   Normal       Off
           02  DFHBMUNP PIC X VALUE SPACE.

      *        DFHBMUNN  Numeric       Normal       Off
           02  DFHBMUNN PIC X VALUE "&".

      *        DFHBMPRO  Protected     Normal       Off
           02  DFHBMPRO PIC X VALUE "-".

      *        DFHBMASK  Autoskip      Normal       Off
           02  DFHBMASK PIC X VALUE "0".

      *************************************************

      *        DFHBMBRY  Unprotected   Bright       Off
           02  DFHBMBRY PIC X VALUE "H".

      *        DFHPROTI  Protected     Bright       Off
           02  DFHPROTI PIC X VALUE "Y".

      *        DFHBMASB  Autoskip      Bright       Off
           02  DFHBMASB PIC X VALUE "8".
      *************************************************

      *        DFHBMDAR  Unprotected   Non-Display  Off
           02  DFHBMDAR PIC X VALUE "<".

      *        DFHPROTN  Protected     Non-Display  Off
           02  DFHPROTN PIC X VALUE "%".
      *************************************************

      *        DFHBMFSE  Unprotected   Normal       On
           02  DFHBMFSE PIC X VALUE "A".

      *        DFHBMASF  Autoskip      Normal       On
           02  DFHBMASF  PIC X VALUE "1".

      *        DFHUNNUM  Numeric       Normal       On
           02  DFHUNNUM PIC X VALUE "J".

      *        DFHBMPRF  Protected     Normal       On
           02  DFHBMPRF PIC X VALUE "/".
      *************************************************

      *        DFHUNIMD  Unprotected   Bright       On
           02  DFHUNIMD PIC X VALUE "I".

      *        DFHUNINT  Numeric       Bright       On
           02  DFHUNINT PIC X VALUE "R".
      *************************************************

      *        DFHUNNOD  Unprotected   Non-Display  On
           02  DFHUNNOD PIC X VALUE "(".

      *        DFHUNNON  Numeric       Non-Display  On
           02  DFHUNNON PIC X VALUE ")".
      *************************************************

      *
      *     COLOURS
      *

           02  DFHDFCOL PIC X VALUE X"00".
           02  DFHBLUE  PIC X VALUE "1".
           02  DFHRED   PIC X VALUE "2".
           02  DFHPINK  PIC X VALUE "3".
           02  DFHGREEN PIC X VALUE "4".
           02  DFHTURQ  PIC X VALUE "5".
           02  DFHYELLO PIC X VALUE "6".
           02  DFHNEUTR PIC X VALUE "7".

           02  DFH3270  PIC X VALUE "{".
           02  DFHALL   PIC X VALUE LOW-VALUE.
           02  DFHBASE  PIC X VALUE LOW-VALUE.
           02  DFHBLINK PIC X VALUE "1".
           02  DFHBMDET PIC X VALUE LOW-VALUE.
           02  DFHBMEOF PIC X VALUE X"80".
           02  DFHBMPEM PIC X VALUE X"19".
           02  DFHBMPNL PIC X VALUE X"85".
           02  DFHCOLOR PIC X VALUE "!".
           02  DFHDFHI  PIC X VALUE LOW-VALUE.
           02  DFHDFT   PIC X VALUE X"FF".
           02  DFHERROR PIC X VALUE X"1A".
           02  DFHHLT   PIC X VALUE " ".
           02  DFHMENT  PIC X VALUE X"02".
           02  DFHBMCUR  PIC X VALUE X"02".
           02  DFHBMFLG  PIC X.
	       88 DFHCURSR VALUES ARE X"02" , X"82".
           02  DFHMET   PIC X VALUE X"03".
           02  DFHMFE   PIC X VALUE X"06".
           02  DFHMFET  PIC X VALUE LOW-VALUE.
           02  DFHMFIL  PIC X VALUE X"1C".
           02  DFHMFT   PIC X VALUE X"09".
           02  DFHMT    PIC X VALUE X"01".
           02  DFHPS    PIC X VALUE '"'.
           02  DFHREVRS PIC X VALUE "2".
           02  DFHSA    PIC X VALUE X"08".
           02  DFHUNDLN PIC X VALUE "4".
           02  DFHVAL   PIC X VALUE "A".

           02  DFHLEFT  PIC X VALUE X"97".
           02  DFHOVER  PIC X VALUE X"9C".
           02  DFHRIGHT PIC X VALUE X"02".
           02  DFHUNDER PIC X VALUE X"01".
           02  DFHBOX-BIN  PIC 9(4) COMP VALUE 15.
           02  FILLER REDEFINES DFHBOX-BIN.
               03  FILLER PIC X.
               03  DFHBOX PIC X.
           02  DFHSOSI  PIC X VALUE X"01".
           02  DFHBMPSO-BIN    PIC 9(4) COMP VALUE 3599.
           02  FILLER REDEFINES DFHBMPSO-BIN.
               03 DFHBMPSO  PIC X.
               03 DFHBMPSI  PIC X.
      *    02  DFHDFFR  PIC X VALUE X"00".
      *    02  DFHOPAQ  PIC X VALUE X"00".
      *    02  DFHOUTLN PIC X VALUE X"00".
      *    02  DFHTRANS PIC X VALUE X"00".
      *    02  DFHBKTRN PIC X VALUE X"00".
