View Full Version : 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.
camouflage
11-09-13, 10:55
Schreib die Daten doch in die LDA.
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ö
11-09-13, 12:54
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.
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ö
11-09-13, 15:29
... 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 :D
Hast du denn mal versucht, das Programm als CBL zu wandeln?
Oder verwendet ihr etwas MAP-Funktionen?
Schön, dass es noch ein paar alte Haudegen mehr gibt :D (http://www.youtube.com/watch?v=K-418rybwVI)