26 lines
875 B
COBOL
26 lines
875 B
COBOL
*> acerto numero em alfanumerico
|
|
num-x-9.
|
|
perform numero-int thru numero-int3.
|
|
numero-int.
|
|
move spaces to numeronu.
|
|
move 15 to seq-7
|
|
move 15 to seq-77.
|
|
numero-int1.
|
|
if seq-77 = zeros go to numero-int2.
|
|
if numeropos (seq-77) not numeric
|
|
compute seq-77 = seq-77 - 1
|
|
go to numero-int1.
|
|
move numeropos (seq-77) to numeronupos (seq-7)
|
|
compute seq-7 = seq-7 - 1
|
|
compute seq-77 = seq-77 - 1.
|
|
go to numero-int1.
|
|
numero-int2.
|
|
if seq-7 = zeros go to numero-int3.
|
|
if numeronupos (seq-7) not numeric
|
|
move zeros to numeronupos (seq-7)
|
|
compute seq-7 = seq-7 - 1
|
|
go to numero-int2.
|
|
numero-int3.
|
|
exit.
|
|
|