Wer kennt noch die alte /36-Welt ...

[UFi]

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.

[camouflage]

Schreib die Daten doch in die LDA.

[mmaschke]

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.

[Anton Gombkötö]

aus dem Handbuch:

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.

[UFi]

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.

[Anton Gombkötö]

... 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.

[Fuerchau]

1. Es ist COBOL
2. Wenn spezielle /36-Funktionen (Session-Map) verwendet werden, muss man das Programm u.U. sogar neu schreiben.

[UFi]

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

[Fuerchau]

Hast du denn mal versucht, das Programm als CBL zu wandeln?
Oder verwendet ihr etwas MAP-Funktionen?

[BenderD]

Schön, dass es noch ein paar alte Haudegen mehr gibt

[UFi]

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.

[camouflage]

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.