3 ms·

TEXT PROCESSING DIVISION. PERFORM REGEXP-REPLACE "LETTER A; LETTER B; ONE-OR-MORE-CHARACTERS;" EMPTY-STRING .

• JdeBP 8y ago
  Or, rather: PIC A(2)X(integer01)