Prüfprogramm auf Fahrgestellnummern

[nico1964]

Hallo Leute,

hat vielleicht jemand ein COBOL-PGM zur Überprüfung von Fahrgestellnummern (17-stellig, Keine I und O, wenn weniger als 17 Stellen, dann führende Nullen), oder jemand einen relativ einfachen und rasch umszusetzenden Ansatz für mich.

Vielen Dank im voraus
mfg
Andreas

[Fuerchau]

In etwa so:

77 Count pic s9(4) comp-4.
77 Field pic x(17).
77 NewField pic x(17) just right.

* Zählen Anzahl Zeichen
inspect Field tallying Count for characters before space.
* Führende Nullen dazu
if Count < 17
string '00000000000000000' delimited by size Field(1:Count) delimited by size into NewField
move NewField to Field
endif

inspect Field tallying Count for all 'I'
if Count > zero
* Fehler
end if
inspect Field tallying Count for all 'O'
if Count > zero
* Fehler
end if

[nico1964]

Hallo,

vielen Dank für die rasche Info, bin leider im moment mit meinen Gedanken ganz wo anders und suchte daher nach einer schnellen Lösung(Aufsetzen der Rational Team Concert for PowerSystem Software). Wollte mich nicht näher mit diesem Problem beschäftigen.
Eine Frage noch
Wie ersetze ich die I durch 1 und die O durch 0
lg
Andreas

[Fuerchau]

Inspect Field replaceing all 'I' by '1'
Inspect Field replaceing all 'O' by '0'

[nico1964]

Vielen Dank nochmals. Muss das leider ziemlich rasch umsetzen, da davon eine externe Schnittstelle betroffen ist.
Und ich habe ehrlich nicht die Zeit und den Geist, mich in den nächsten Wochen intensiv mit unserem Tagesgeschäft auseinanderzusetzen.

[Frank Hildebrandt]

@nico1964

Ich muss mal einfach aus Interesse dumm nachfragen. So wie das in Deinen Beiträgen steht hast Du anscheinend schon sehr viel Arbeit in RTCi investiert und musst wohl auch noch weiter sehr viel Arbeit investieren. Ist bei diesem Projekt denn überhaupt Land in Sicht?

[nico1964]

Hallo Frank,

ich kann bereits sagen, Land ist in Sicht und wir werden voraussichtlich innerhalb der nächsten 10 Wochen den Spruing ins kalte Wasser wagen und unsere Entwicklungsumgebung umstellen. Derzeit bin im mit dem Aufbau des gesamtem Rundherums beschäftigt und meine Kollegen müssen auch noch geschult werden. Des weiteren nutzen wir die Gelegenheit um unseren Service Desk im Unternehmen neu zu positionieren und diese Kollegen müssen auch noch den richtigen Umgang mit dem Tool lernen.

Und dieses Projekt ist auch der Grund warum ich für so ein triviales Problem um Hilfe gebeten habe.

mfg
Andreas

[nico1964]

Hallo Frank,

ein kurzes Update zum Thema RTCp.
So wie es heute aussieht, werden wir mit 1. Juni unsere Entwicklungsumgebung komplett auf RTCp und RDp umstellen. Die größten Hürden haben wir bereits genommen und sind nun dran unsere Entwickler zu schulen bzw. die Umgebung herzurichten. Dann steht einem Umstieg in der letzten Maiwoche eigentlich nichts mehr entgegen.

Gruß aus Wien
Andreas