*----------------------------------------------------------------*
*
ATRIBUTOS DO BMS
*
* MNEUMONICOS
APORTUGUESADOS *
*----------------------------------------------------------------*
* CODIGOS: D = DESPROTEGIDO (UNPROTECTED)
*
* P = PROTEGIDO
(PROTECTED)
*
* N = NUMERICO (NUMERIC)
*
* A = ALFANUMERICO
(ALPHANUMERIC)
*
* M = MDT
LIGADO (MDT ON)
*
* E =
ESCONDIDO (DARK)
*
* B = BRILHANTE
(BRIGHT)
*
* S = SALTADO
(AUTOSKIP)
*
*----------------------------------------------------------------*
01 BMSATRIB.
05 BAT-D
PIC X(01) VALUE ' '.
05 BAT-D-M
PIC X(01) VALUE 'A'.
05 BAT-D-B
PIC X(01) VALUE 'H'.
05 BAT-D-B-M
PIC X(01) VALUE 'I'.
05 BAT-D-E
PIC X(01) VALUE '<'.
05 BAT-D-E-M
PIC X(01) VALUE '('.
05 BAT-D-N
PIC X(01) VALUE '&'.
05 BAT-D-N-M
PIC X(01) VALUE 'J'.
05 BAT-D-N-B
PIC X(01) VALUE 'Q'.
05 BAT-D-N-B-M
PIC
X(01) VALUE 'R'.
05 BAT-D-N-E
PIC X(01) VALUE '*'.
05 BAT-D-N-E-M
PIC
X(01) VALUE ')'.
05 BAT-P
PIC X(01) VALUE '-'.
05 BAT-P-M
PIC X(01) VALUE 'V'.
05 BAT-P-B
PIC X(01) VALUE 'Y'.
05 BAT-P-B-M
PIC X(01) VALUE 'Z'.
05 BAT-P-E
PIC X(01) VALUE '%'.
05 BAT-P-E-M
PIC X(01) VALUE '_'.
05 BAT-P-S
PIC X(01) VALUE '0'.
05 BAT-P-S-M
PIC X(01) VALUE '1'.
05 BAT-P-S-B
PIC X(01) VALUE '8'.
05 BAT-P-S-B-M
PIC
X(01) VALUE '9'.
05 BAT-P-S-E
PIC X(01) VALUE '@'.
05 BAT-P-S-E-M
PIC
X(01) VALUE QUOTE.
*----------------------------------------------------------------*
* FIM DO
BOOK DE ATRIBUTOS DO BMS *
*----------------------------------------------------------------*
Nenhum comentário:
Postar um comentário