View Full Version : Wandlungsfehler wegen PGMINFO
Hallo *all ,
ich habe ein Programm mit vielen Parametern als Webservice geschrieben. im Programm verwende ich PGMINFO(.......) und kriege das Programm wegen RNS9309 nicht gewandelt. Bitte helfen.
... das ist doch dieser PCML Müll, der kann nur int als Rückgabe und nur 7 Parameter, sowas macht man nicht.
D*B
Könntest du den Fehler genauer beschreiben?
Was ist RNS9309?
Hier ist der Quellcode nur auf Parameter reduziert.
h nomain
// Activationgroup: Definitionen
h* dftactgrp(*NO)
h* actgrp(*new)
h option(*nodebugio:*srcstmt:*nounref)
**
** erstellt PCML-Dokument und speichert PCML in *MODULE
**
h pgminfo(*pcml:*MODULE)
************************************************** **********
** Datei definition
************************************************** **********
F**ORDER00P IF A E DISK RENAME(ORDER00PR:ORDER0PR) USROPN
************************************************** **********
** DS Definition
************************************************** **********
d tmplHead DS qualified template
d CompanyId 2S 0
d StoreId 2S 0
d User 128A varying
d Password 128A varying
d OrderIdExternal...
d 9s 0
d OrderIdShop 10A
d OrderDate D
d OrderTotal 9s 2
d Currency 3A
d PricesInclVat 1A
d ShippingTotal 9S 2
d**CashOnDeliverySurcharge...
d** 9S 2
d Salutation 10A
d FirstName 20A
d LastName 30A
d Company 105A
d CustomerIdShop...
d 20A
d DateOfBirth D
d CustomerType 10A
d Email 60A
d Phone 20A
d Street 35A
d HouseNumber 35A
d StreetAdditional...
d 60A
d City 35A
d PostCode 10A
d CountryCode 3A
d MethodIdentifier...
d 10A
d TransactionAmount...
d 9S 2
d TransactionCurrency...
d 3A
d**TransactionIdInternal...
d** 32A
d**TransactionIdExternal...
d** 32A
d CreditCardType...
d 20A
d Code 256A
d Description 1A
d Reason 4S 0
d Value 9S 2
d DiscountApplied...
d 9S 2
d DiscountType 20A
d AppliedToShipping...
d 1A
d FreeShipping 1A
d ItemNo 13A
d Name 513A
d ShippingAgentCode...
d 10A
d ShippingServiceType...
d 30A
d PriceCharged 9S 2
d PriceRegular 9S 2
d Qty 9S 2
d QtyUom 3A
d ServiceCharge 9S 2
d**AdditionalServiceType...
d** 30A
d**RequestedDeliveryDate...
d** D
**
**
**
d tmplResponse DS qualified template
d Head likeds(tmplHead) dim(500)
** -----------------------
** Variablen definition
** -----------------------
D $Z s 3 0
d*Response DS likeds(tmplResponse)
************************************************** **********
** Prototyp-definition
************************************************** **********
d get_order PR
D out_Response likeds(tmplResponse)
************************************************** ******************
** Start Procedur
************************************************** ******************
**
P get_ORDER B export
D PI
D out_Response likeds(tmplResponse)
**
**-------------------------------------------------------------------
**
C TIME #dat
/free
*inlr = *on;
/end-free
**------------------------------------------------------------------
**
P E
**
Und was schreibt der Compiler so dazu?
Nachricht . . . : Umwandlung fehlgeschlagen. Modul WEB_ORDE_S in Bibliothek
IWMSEGMOBJ nicht erstellt.
Ursache . . . . : Die Umwandlung schlägt normalerweise fehl, wenn die
Bewertungsstufe der ausgegebenen Nachrichten den Wert überschreitet, der für
den Parameter GENLVL im Befehl CRTRPGMOD angegeben wurde. Die
Umwandlungsprogrammliste oder das Jobprotokoll auf Fehlernachrichten prüfen.
Fehlerbeseitigung: Die Fehler korrigieren oder den für den Parameter GENLVL
angegebenen Wert ändern. Wiederholen Sie die Umwandlung.
und das ist die einzige Fehler.
Problem dabei ist das ich diese PCML-Datei bei der Installation von Webservice benötige.
Im Wandlungsprotokoll steht nur
*RNF0320 30 Fehler beim Generieren der Programminformationen gefunden,
die in das Modul gestellt werden sollen.
Die einzige Idee dazu ist:
Du schreibst "viele Parameter".
Versuche mal mit weniger und schrittweiser Erhöhung bis zum Fehler, ggf. gibt es hier eine Grenze für die Anzahl.