14 lines
425 B
COBOL
14 lines
425 B
COBOL
*> Variaveis para acerto do numero em caracter
|
|
01 seq-geral.
|
|
02 seq-77 pic 99 value zeros.
|
|
02 seq-7 pic 99 value zeros.
|
|
|
|
01 numeroch pic x(15) value spaces.
|
|
01 numerord redefines numeroch.
|
|
03 numeropos occurs 15 times pic x.
|
|
01 numeronu pic x(15) value spaces.
|
|
01 numerorn redefines numeronu.
|
|
03 numeronupos occurs 15 times pic x.
|
|
|
|
|