HIBC-Code

[Sven Schneider]

Folgendes Problem :
Wir müssen über ein Alpha-Eingabefeld auf einem "grünen" Bildschirm einen HIBC-Barcode einscannen.
Das Problem ist nun, die Länge des Barcodes kann je nach Inhalt variabel sein und aufgrund des Dateninhalts kann es vorkommen, dass das letzte Zeichen (die Prüfziffer) ein Blank ' ' ist.
Wir haben versucht das Problem mit CHECK(RB) in der DSPF-DDS zu lösen, aber verschiedene Emulatoren behandeln das Feldattribut nicht korrekt, sprich sie schneiden beim Rechtsbündigstellen das abschliessende Blank ab.

Läuft korrekt :

- IBM Terminals
- CA/400 Emu

Schneidet blank links vom Cursor ab :
- Mochasoft

Oder hat vielleicht jemand eine andere Lösung.
RTNCRSLOC hab ich auch schon probiert, aber das funktioniert nur wenn der Cursor auch im Feld stehen bleibt.
Und meist hat man ja auch noch andere Felder im Recordformat.

Vielen Dank!
Sven

[Fuerchau]

Es gab da mal die Möglichkeit, das Feld vorher mit *LOVAL (x'00') zu belegen !
Dann müsste die Eingabelänge über %SCAN(X'00' : DSPFLD) ermittelbar sein.

[Sven Schneider]

Das sieht gut aus.
Oder vielleicht x'41' als alternatives *Blank.

Vielen Dank für den Tip!