-
Wer kennt noch die alte /36-Welt ...
und reist zwischen den Galaxien OS/400 und /36 hin und her.
Mein Problem:
Kann ich Variablen von einem CL-Programm an eine /36-Prozedur übergeben?
Kämpfe gerade mit alten /36 Cobol-Programmen und dort werden die Variablen ja über den Local-Offset-Bereich übergeben.
Ich könnte das Ganze über eine Datei lösen, möchte mir aber den Zugriff sparen.
Vielleicht sind ja ein paar 'alte' Spezialisten hier aktiv.
-
Schreib die Daten doch in die LDA.
kf
-
Hallo UFI,
z.B.: CHGDTAARA DTAARA(*LDA (100 10)) VALUE(XXX)
Dann ist dies auch im local-offset Bereich ab Stelle 100 XXX, und kann man im OCL oder RPG einlesen.
-
Ganz normal.
aus dem Handbuch:
PHP-Code:
STRS36PRC PRC(CATALOG) PARM('ALL,F1')
Die Parameter kann man dann in OCL mit ?1? und ?2? ansprechen.
Was auch ging, war ??1??. Wenn in Parameter 1 dann der Wert 2 stand, hatte man im Endeffekt den Inhalt des Parameters 2.
-
Lang lang ist es her. Danke
Den STRS36PRC kannte ich, hab gerade gesucht danach, ob ich auch einen direkten CALL auf das /36-Cobol-Pgm machen kann, hab aber nichts gefunden.
Dann könnte ich mir das mit der zusätzlichen Prozedur schenken.
Hintergrund ist die Anbindung an einen Shop. Wir haben alles soweit neu gemacht bis auf die vermaledeite Preisermittlung.
Ich weiss, nichts ist unmöglich, aber den Aufwand wollen wir uns sparen.
-
Denk' an die Nachwelt, ...
... konvertiere das RPG/36-Programm in was Zeitgemässeres, sprich RPG/400 oder ILE RPG.
Der Nächste, der sich das in ein paar Jahren anschaut, wird es noch schwerer haben.
-
1. Es ist COBOL
2. Wenn spezielle /36-Funktionen (Session-Map) verwendet werden, muss man das Programm u.U. sogar neu schreiben.
-
Wie Fuerchau schreibt, es ist COBOL.
Ach wenn's nur RPG wäre.
Egal, trotzdem danke für die Hilfe. Schön, dass es noch ein paar alte Haudegen mehr gibt
-
Hast du denn mal versucht, das Programm als CBL zu wandeln?
Oder verwendet ihr etwas MAP-Funktionen?
-
-
Jetzt wurde natürlich die Büchse der Pandora geöffnet.
Daten stelle ich im LDA bereit, aber, wenn ich jetzt die /36-Prozedur aufrufe, dann steht das nix mehr. Jetzt vermute ich, dass der LDA-Bereich in meinem CL nicht der gleiche ist wie der in der Prozedur.
Gehe ich richtig in der Annahme und kann ich das lösen?
@Fuerchau: Hab's mit dem CBL probiert und bekomme eine seitenlange Fehlerliste.
Da müsste wohl einiges anders programmiert werden. Deshalb lass ich's wie's ist.
Ich muss jetzt nur noch die Übergabe der Daten in den Griff kriegen. Allerdings mach ich mir doch ein wenig Sorgen bzgl. der Geschwindigkeit. Wir werden's erfahren.
-
Wohnen deine Daten in der LDA am richtigen Ort?
Bedenke, LDA AS400 und LDA 36 sind nicht das gleiche, da die LDA AS400 bedeutend länger ist.
kf
Similar Threads
-
By Eschenbacher in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 11-01-12, 06:58
-
By ttom in forum IBM i Hauptforum
Antworten: 23
Letzter Beitrag: 10-12-06, 20:55
-
By Brownie in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 18-09-06, 07:18
-
By HDW in forum NEWSboard Server & Hardware Markt
Antworten: 2
Letzter Beitrag: 12-09-05, 12:02
-
By Kirsten Steer in forum Archiv NEWSboard Events
Antworten: 1
Letzter Beitrag: 23-04-04, 19:45
Tags for this Thread
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