      *----------------------------------------------------------------*
      * dfhaid.cpy
      *----------------------------------------------------------------*
      * Copyright (C) 1998-2006 Micro Focus (IP) Limited.
      * All rights reserved.
      *----------------------------------------------------------------*
       01  DFHAID.
           02  DFHNULL         PIC X   VALUE IS LOW-VALUE.
           02  DFHENTER        PIC X   VALUE IS ''''.
           02  DFHCLEAR        PIC X   VALUE IS '_'.
           02  DFHPEN          PIC X   VALUE IS '='.
           02  DFHOPID         PIC X   VALUE IS 'W'.
           02  DFHMSRE         PIC X   VALUE IS 'X'.
           02  DFHSTRF         PIC X   VALUE IS ' '.
           02  DFHTRIG         PIC X   VALUE IS '"'.
           02  DFHPA1          PIC X   VALUE IS '%'.
           02  DFHPA2          PIC X   VALUE IS '>'.
           02  DFHPA3          PIC X   VALUE IS ','.
           02  DFHPF1          PIC X   VALUE IS '1'.
           02  DFHPF2          PIC X   VALUE IS '2'.
           02  DFHPF3          PIC X   VALUE IS '3'.
           02  DFHPF4          PIC X   VALUE IS '4'.
           02  DFHPF5          PIC X   VALUE IS '5'.
           02  DFHPF6          PIC X   VALUE IS '6'.
           02  DFHPF7          PIC X   VALUE IS '7'.
           02  DFHPF8          PIC X   VALUE IS '8'.
           02  DFHPF9          PIC X   VALUE IS '9'.
           02  DFHPF10         PIC X   VALUE IS ':'.
           02  DFHPF11         PIC X   VALUE IS '#'.
           02  DFHPF12         PIC X   VALUE IS '@'.
           02  DFHPF13         PIC X   VALUE IS 'A'.
           02  DFHPF14         PIC X   VALUE IS 'B'.
           02  DFHPF15         PIC X   VALUE IS 'C'.
           02  DFHPF16         PIC X   VALUE IS 'D'.
           02  DFHPF17         PIC X   VALUE IS 'E'.
           02  DFHPF18         PIC X   VALUE IS 'F'.
           02  DFHPF19         PIC X   VALUE IS 'G'.
           02  DFHPF20         PIC X   VALUE IS 'H'.
           02  DFHPF21         PIC X   VALUE IS 'I'.
           02  DFHPF22         PIC X   VALUE IS ' '.
      *    Note: CICS ECM alters the line above to...
      *          Value for ASCII  is X'5B'
      *          Value for EBCDIC is X'4A'
           02  DFHPF23         PIC X   VALUE IS '.'.
           02  DFHPF24         PIC X   VALUE IS '<'.
      *----------------------------------------------------------------*
      * dfhaid.cpy end
      *----------------------------------------------------------------*
