-
Prüfprogramm auf Fahrgestellnummern
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
Andreas
Ein AS/400 Dinosaurier since 1989
-
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
-
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
Andreas
Ein AS/400 Dinosaurier since 1989
-
Inspect Field replaceing all 'I' by '1'
Inspect Field replaceing all 'O' by '0'
-
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.
Andreas
Ein AS/400 Dinosaurier since 1989
-
@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?
Frank Hildebrandt
-
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
Andreas
Ein AS/400 Dinosaurier since 1989
-
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
Andreas
Ein AS/400 Dinosaurier since 1989
Similar Threads
-
By schatte in forum NEWSboard Windows
Antworten: 7
Letzter Beitrag: 21-11-06, 11:37
-
By pwrdwnsys in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 07-11-06, 15:34
-
By WeKaSys in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 06-11-06, 17:34
-
By dirkus in forum NEWSboard Drucker
Antworten: 4
Letzter Beitrag: 26-10-06, 17:52
-
By codierknecht in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 23-08-06, 11:30
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks