Die automatisch Prüfsumme beinhaltet nur die Barcode-Prüfsumme (Modulo 103, Siehe Wikipedia), was durch die Angabe X'02' in der DDS erfolgt.
Die NVE-Prüfsumme ist Bestandteil der NVE-Nummer selber und wird nicht automatisch berechnet.

Der Rest steht doch oben bereits:

DDS:
PTBARC 21 20BARCODE(CODE128 4 *NOHRI X'02')

RPG:
D NVENR 18p 0

c/free
PTBARC = X'8F' + '00' + %editc(NVENR:'X');
/end-free