Webservice über PHP aus einer COBOL Anwendung

[Fuerchau]

Ich nehme mal an, die Daten werden in UTF-8-Format übergeben.

Um eine Umwandlung in UNICODE bzw. SBCS 273 zu erreichen benötigst du nun die C-Routinen iconv().

Ggf. reicht auch eine Definition von Language-Variablen (den Typ weiß ich im Moment nicht) mit CCSID 1208, die du dann in eine normale X-Variable überträgst.

[Pikachu]

Probier mal innerhalb vom STRDBG:

F1=Hilfe und dann weiter zu "eval".

und von den dort angegebenen Möglichkeiten dann mal:

EVAL variable :u 100

oder

EVAL variable :w 100

[nico1964]

So am Freitag habe ich es endlich geschafft. Mit den C-Procedures funtkioniert das tadellos, wenn man weiß wie man damit umgehen muss. Richtig Übergabe der Parameter und schon funktiert der ganze Haufen.

[nico1964]

So am Freitag habe ich es endlich geschafft. Mit den C-Procedures funtkioniert das tadellos, wenn man weiß wie man damit umgehen muss. Richtig Übergabe der Parameter und schon funktiert der ganze Haufen.

Jetzt habe ich nur mehr ein kleineres Problem, wo ich mangels C-Kenntnissen scheitere.

Ich muss an die C-Funktion folgendes überbgeben:

01 BONITAET.
05 QUELLSYSTEM PIC X(03).
05 FILLER PIC X VALUE X'00'.
05 ANTRAGSNUMMER PIC X(10).
05 FILLER PIC X VALUE X'00'.
05 ANTRAGSTYP PIC X(07).
05 FILLER PIC X VALUE X'00'.
05 GVK-NUMMER PIC X(08).
05 FILLER PIC X VALUE X'00'.
05 KUND-TAB.
10 KUNDENNR PIC X(10).
10 FILLER PIC X VALUE X'00'.
10 KUNDESEIT PIC X(10).
10 FILLER PIC X VALUE X'00'.
10 KUNDENTYP PIC X.
10 FILLER PIC X VALUE X'00'.
..
..
..
10 UWRBONITAET-TAB.
15 UWRPD PIC 9V9(8) COMP-4.
15 FILLER PIC X VALUE X'00'.
15 UWRSCORE PIC 9(10) COMP-4.
15 FILLER PIC X VALUE X'00'.
15 UWRRATING PIC X(02).
15 FILLER PIC X VALUE X'00'.
15 UWRRATTYP PIC X(02).
15 FILLER PIC X VALUE X'00'.
15 UWRRATMOD PIC X(04).
15 FILLER PIC X VALUE X'00'.
15 UWRRATMODV PIC X(05).
15 FILLER PIC X VALUE X'00'.
15 UWRRATDAT PIC X(10).
15 FILLER PIC X VALUE X'00'.
Meine Frage ist, wie bastle ich den Aufruf.

[Fuerchau]

Dazu müsstest du auch mal die C-Funktion posten.

[Pikachu]

Du mußt vermutlich jeden Parameter einzeln übergeben und deshalb den jeweiligen Wert und sein abschließendes NULL-Zeichen zusammenfassen. Probier's mal so:

...
04 QUELLSYSTEM-NULL.
05 QUELLSYSTEM PIC X(03).
05 FILLER PIC X VALUE X'00'.

04 ANTRAGSNUMMER-NULL.
05 ANTRAGSNUMMER PIC X(10).
05 FILLER PIC X VALUE X'00'.

04 ANTRAGSTYP-NULL.
05 ANTRAGSTYP PIC X(07).
05 FILLER PIC X VALUE X'00'.
...

CALL ...
USING
QUELLSYSTEM-NULL
ANTRAGSNUMMER-NULL
ANTRAGSTYP-NULL
...

[nico1964]

Das ist ja mein Problem, die C-procedure erwartet einen Paramert mit PIC X Value '00' getrennt. Das funktioniert auch bis zur
05 KUND-TAB.
Wie gebe ich die an????? In der C-procedure wird ein ARRAY erwartet, welches wieder durch PIC X Value '00' getrennt ist.

[Pikachu]

Zeig uns mal die Parameterdefinition dieser C-Prozedur.

[nico1964]

Zeig uns mal die Parameterdefinition dieser C-Prozedur.

Das hört sich einfacher an, als es der Fall ist. Ich habe ein elendlanges .wsdl, aus dem dann die einzelnen C-procedures genieriert wurden. Aufgerufen, wird dann die Hauptfunktion, der ich alle Parameter übergeben soll.
Und dann soll ich einen maximal 5 Parameter zurückbekommen.

[nico1964]

Zeig uns mal die Parameterdefinition dieser C-Prozedur.

Aber ich versuche das mal

Der erste Aufruf:

typedef struct BonitaetRequestTypeTag {
quellsystemType quellsystem;
xsdc__string quellsystemAntragsnummer;
antragstypType antragstyp;
xsdc__string gvKNummer;
kundeRqType_Array* kundeRq;
} BonitaetRequestType;

Aufruf darin kundeRqType

typedef struct kundeRqTypeTag {
xsdc__string kundennummer;
xsdc__long* kundeSeit;
kundentypType kundentyp;
xsdc__string strasse;
xsdc__string plz;
xsdc__string hausnummer;
xsdc__string land;
xsdc__string ort;
kreditfaehigkeitType kreditfaehigkeit;
xsdc__date* kreditfaehigkeitDatum;
mahnstufeType mahnstufeAktuell;
mahnstufeType mahnstufeHoechste;
xsdc__date* mahnstufeHoechsteDatum;
bonitaetType* uwrBonitaet;
bonitaetType* saBonitaet;
bonitaetType* gwbBonitaet;
bonitaetType* externalBonitaet;
xsdc__string gvKRatingverbundKundennummer;
xsdc__double* gvKRatingverbundGewicht;
kompetenzUWRType kompetenzUWR;
personRqType* person;
firmaRqType* firma;
vertragRqType_Array* vertragRq;
} kundeRqType;
und darin dann wieder einzelne Aufrufe.

Wie gesagt, diesen Aufruf schaffe ich noch-->
Call Procedure Bonitaet
quellsystemType quellsystem;
xsdc__string quellsystemAntragsnummer;
antragstypType antragstyp;
xsdc__string gvKNummer;
Aber wenn ich die nächsten Parameter mitschicken will, habe ich ein Problem.
Und das ganze noch aus COBOL und nicht RPG

[Fuerchau]

Das ist zugegeben ein Problem, da insbesonders Strings in Strukturen nicht unbedingt in fester Länge sondern als Pointer verwendet werden.

Hierzu benötigst du die Definition des Types "xsdc__string".

Ist das ein Pointer?
Ist das ein char[nn] mit fester Länge?

"xsdc__long*" ist wohl ein Pointer auf eine Longinteger-Variable.
In COBOL ist das dann auch ein Zeiger, der auf die Adresse eines Pic S9(9) comp-4 verweisen muss.

Genauso siehts auch mit allen anderen Feldinhalten aus, die wiederum auf Strukturen und oder Pointer verweisen.

Wenn du die Typen nicht kennst, ist es ein Problem die Struktur genau passend aufzubauen.

Bei Pointern ist noch das Problem, dass diese in AS/400 16-Byte haben.
Ist die C-Lib allerdings mit Tera-Space aktiviert (umgewandlet) sind die Pointer nur 8-Byte (64-Bit) und du benötigst Tera-Space-API's zum allocieren/deallocieren von Speicher.

[nico1964]

Das ist zugegeben ein Problem, da insbesonders Strings in Strukturen nicht unbedingt in fester Länge sondern als Pointer verwendet werden.

Genauso siehts auch mit allen anderen Feldinhalten aus, die wiederum auf Strukturen und oder Pointer verweisen.

Wenn du die Typen nicht kennst, ist es ein Problem die Struktur genau passend aufzubauen.

Gibt es irgendwo eine MappingTabelle für C-Variablen ---> COBOL?