000010***************************************************************   03/17/87
000020*** THIS IS A LIST OF BMS ATTRIBUTES USED IN COBOL PROGRAMS ***   C026CDBA
000030***                                                         ***      LV001
000040*** LAST MODIFIED 02/16/87                                  ***
000050*** MODIFIED BY: RINEHULT ASSOCIATES INC.                   ***
000060***                                                         ***
000070***************************************************************
000080***
000090 01  BMS-ATTRIBUTES-VALUES.
000100***
000110***************************************************************
000120***  UNPROTECTED ATTRIBUTE VALUES                           ***
000130***************************************************************
000140***
000150     05  ATTR-ALPHA-UNPROT               PIC X    VALUE ' '.
000160     05  ATTR-ALPHA-UNPROT-MDT           PIC X    VALUE 'A'.
000170     05  ATTR-ALPHA-UNPROT-PEN           PIC X    VALUE 'D'.
000180     05  ATTR-ALPHA-UNPROT-PEN-MDT       PIC X    VALUE 'E'.
000190     05  ATTR-ALPHA-UNPROT-BRT-PEN       PIC X    VALUE 'H'.
000200     05  ATTR-ALPHA-UNPROT-BRT-PEN-MDT   PIC X    VALUE 'I'.
000210     05  ATTR-ALPHA-UNPROT-DRK           PIC X    VALUE '<'.
000220     05  ATTR-ALPHA-UNPROT-DRK-MDT       PIC X    VALUE '('.
000230     05  ATTR-NUMER-UNPROT               PIC X    VALUE '&'.
000240     05  ATTR-NUMER-UNPROT-MDT           PIC X    VALUE 'J'.
000250     05  ATTR-NUMER-UNPROT-PEN           PIC X    VALUE 'M'.
000260     05  ATTR-NUMER-UNPROT-PEN-MDT       PIC X    VALUE 'N'.
000270     05  ATTR-NUMER-UNPROT-BRT-PEN       PIC X    VALUE 'Q'.
000280     05  ATTR-NUMER-UNPROT-BRT-PEN-MDT   PIC X    VALUE 'R'.
000290     05  ATTR-NUMER-UNPROT-DRK           PIC X    VALUE '*'.
000300     05  ATTR-NUMER-UNPROT-DRK-MDT       PIC X    VALUE ')'.
000310***
000320***************************************************************
000330***  PROTECTED ATTRIBUTE VALUES                             ***
000340***************************************************************
000350***
000360     05  ATTR-ALPHA-PROT                 PIC X    VALUE '-'.
000370     05  ATTR-ALPHA-PROT-MDT             PIC X    VALUE '/'.
000380     05  ATTR-ALPHA-PROT-PEN             PIC X    VALUE 'U'.
000390     05  ATTR-ALPHA-PROT-PEN-MDT         PIC X    VALUE 'V'.
000400     05  ATTR-ALPHA-PROT-BRT-PEN         PIC X    VALUE 'Y'.
000410     05  ATTR-ALPHA-PROT-BRT-PEN-MDT     PIC X    VALUE 'Z'.
000420     05  ATTR-ALPHA-PROT-DRK             PIC X    VALUE '%'.
000430     05  ATTR-ALPHA-PROT-DRK-MDT         PIC X    VALUE '_'.
000440     05  ATTR-NUMER-PROT                 PIC X    VALUE '0'.
000450     05  ATTR-NUMER-PROT-MDT             PIC X    VALUE '1'.
000460     05  ATTR-NUMER-PROT-PEN             PIC X    VALUE '4'.
000470     05  ATTR-NUMER-PROT-PEN-MDT         PIC X    VALUE '5'.
000480     05  ATTR-NUMER-PROT-BRT-PEN         PIC X    VALUE '8'.
000490     05  ATTR-NUMER-PROT-BRT-PEN-MDT     PIC X    VALUE '9'.
000500     05  ATTR-NUMER-PROT-DRK             PIC X    VALUE '@'.
000510     05  ATTR-NUMER-PROT-DRK-MDT         PIC X    VALUE QUOTE.
