XML -> Spool -> Fremdsystem

[Fuerchau]

Ich denke das müsste gehen.
In der PRTF definierst du einen Satz mit einem TRNSPY-Feld.
Dieses fülltst du dann mit den Hexwerten und gibst das Format aus.
Durch das TRNSPY unterbleibt die Umwandlung in ASCII.
Ohne TRNSPY müsstest du die EBCDIC-Codes ermitteln, damit sie korrekt übersetzt werden.

Bist du sicher, dass du UTF-8 ausgibst?
In diesem Fall müsstest du ja im RPG die Zeichen in UTF-8 in die PRTF schreiben und (wie oben schon mal hingewiesen) die PRTF auf *USRASCII erstellen.

Wenn du z.B. Umlaute nativ ausgibst, dann ist das kein UTF-8 was auf dem Zielsystem wieder zum Problem wird.

[Anton Gombkötö]

und ist bei UTF-8 eigentlich überflüssig. (Da sich eben die Byte-Order nicht ändern kann.)
Aber manche Leute werden anscheinend nicht müde, es zu senden bzw. zu verlangen.
siehe UTF-8
(Und ohne iconv wirst Du meiner Meinung nach kein korrektes UTF-8 ausgeben können.)

[Fuerchau]

Wer es nicht so mit C-API's hat, hier gibts noch eine OPM-Version:
Convert a Graphic Character String (CDRCVRT, QTQCVRT) API

[Toschie]

Also das mit der PRTF habe ich getestet.
Allerdings stehe ich da vor dem Problem, das in der PRTF jede Zeile deklariert sein muss die ich ausgeben will.
Da der Inhalt dynamisch ist und ich den vorher nicht kennen, bringt mir das glaube ich nichts.
Oder kann ich dabei irgendwie für einen Zeilenumbruch sorgen?
Dann würde ich zwei Zeilen deklarieren.
1. Zeile das Feld mit dem TRNSPY-Feld
2. Zeile mit meine XML-Strream den i immer wieder ausgebe (mit verschiedenen Inhalten).
Geht sowas?

[Fuerchau]

Natürlich, nur ohne SPACEA/B.

In der XML dürfen ruhig außerhalb der Tags CRLF (SPACEA) vorkommen und dienen der Leserlichkeit.
Leerzeichen zwischen den Tags sind manchmal erlaubt, manchmal leider nicht.
Wenn du also ein Format ausgibst, sind am Ende eben noch Leerzeichen vorhanden.
Allerdings sind zwischen den Attributen, also Werte in Anführungszeichen, beliebig viele Leerzeichen erlaubt.
Ich weiß ja nicht, wie das Format deiner XML im Endeffekt aussieht und was dein Gegenüber erlaubt.

[Toschie]

Natürlich, nur ohne SPACEA/B.

Ist das der Befehl mit dem ich den Umbruch einfüge?

[Fuerchau]

Stimmt exakt.
Man kann den Leadin (den Hexwert) z.B. zusammen mit dem Startnode in eine Zeile ausgeben mit SPACEA(1):

also x'xxyy' + "< Start >"
Je Knoten und oder Attribut eine lange Zeile mit SPACEA(1), Leerzeichen am Ende sind egal.

Abschlussknoten in einer kurzen, abgezählten Zeile ohne SPACEA(1)
"< /Start >"

Ich habe auch manchmal das Problem, dass XML's am Ende noch jede Menge Leerzeichen enthalten.
Ich muss dann die Datei komplett selber lesen, Leerzeichen am Anfang/Ende entfernen und dann an den XML-Loader übergeben (.NET-Programmierung).

[Toschie]

Und da bin ich auch schon wieder.
Also das mit dem BOM klappt soweit(letzten Tests stehen noch aus).
Aber wie bereits von Teilnehmern aus dem Forum angemerkt, funktionieren die Umlaute nicht.
Diese werden im Spool sauber angezeigt.
Im Zielsystem sind diese jedoch kaputt.
Ich habe mir iConv angesehen und auch versucht zu implementieren, aber aus meiner Sicht gibt es keinen Unterschied.

Folgendes habe ich aufgenommen:

F*------------------------------------------------------------------    
F* Prototype for Code Conversion - Open                                 
F*------------------------------------------------------------------    
D IConvOpen       PR            52A   ExtProc('QtqIconvOpen')           
D  fromcode                       *   Value options(*string)            
D  tocode                         *   Value options(*string)            
 
 *------------------------------------------------------------------    
 * Prototype for Code Conversion                                        
 *------------------------------------------------------------------    
D IConv           PR            10i 0 ExtProc('iconv')                  
D                               52a   Value                             
D                                 *   Value                             
D                               10i 0 Value                             
D                                 *   Value                             
D                               10i 0 Value                             
 
 ****************************************************************  
 *  Code Page Conversions  (iconv_t)                               
 ***************************************************************** 
D ToAscii         DS                                               
D  ICORV_A                1      4b 0                              
 *                  return value to indicate if error occurred     
D  ICOC_A                 5     52b 0 DIM(00012)                   
 *                                        cd                       
 *                                                                 
D ToEbcdic        DS                                               
D  ICORV_E                1      4b 0                              
 *                  return value to indicate if error occurred     
D  ICOC_E                 5     52b 0 DIM(00012)                   
 *                                        cd                       
 *                                                                 
D**                                                                
D**                                                                
D p_Qascii        S               *   inz(%addr(Qascii))           
D Qascii          DS            32                                 
D  asciiCP                1      4b 0 inz(00813)                   
 
D  asciiCA                5      8b 0 inz(0)                   
D  asciiSA                9     12b 0 inz(0)                   
D  asciiSS               13     16b 0 inz(1)                   
D  asciiIL               17     20b 0 inz(0)                   
D  asciiEO               21     24b 0 inz(1)                   
D  asciiR                25     32a   inz(*allx'00')           
D**                                                            
D p_Qebcdic       S               *   inz(%addr(Qebcdic))      
D Qebcdic         DS            32                             
D  ebcdicCP               1      4b 0 inz(00037)               
D  ebcdicCA               5      8b 0 inz(0)                   
D  ebcdicSA               9     12b 0 inz(0)                   
D  ebcdicSS              13     16b 0 inz(1)                   
D  ebcdicIL              17     20b 0 inz(0)                   
D  ebcdicEO              21     24b 0 inz(1)                   
D  ebcdicR               25     32a   inz(*allx'00')           
D**                                                            
D CHAR10          S             10A   BASED (P) 

In den C-Bestimmungen dann:

C                   MOVE      *BLANKS       MSGTODSPLY       52        
C                   Z-ADD     0             rc               50 0      
C                   MOVE      *BLANKS       XMLSTR2                    
 * translate response to ASCII                                         
C                   eval      rc = IConv(                              
C                                        ToAscii:                      
C                                        %addr(XMLSTR):                
C                                        %len(%trimr(XMLSTR)):         
C                                        %addr(XMLSTR):                
C                                        %len(%trimr(XMLSTR))          
C                                        )                             
C                   if        ICORV_A > 0                              
C                   eval      MsgToDsply = 'Error in Translate'        
C     MsgToDsply    dsply                                              
C                   endif                                              
C** 

Zusätzlich habe ich die *INZSR noch aufgenommen wo folgendes drin steht:

Csr   *INZSR        begsr                                         
 * setup code page conversion ebcdic - ascii                      
C                   eval      ToAscii  = IConvOpen(p_Qascii:      
C                                        p_Qebcdic)               
C                   if        ICORV_A = -1                        
 * error processing here                                          
C                   endif                                         
 
 * setup code page conversion ascii - ebcdic                      
C                   eval      ToEbcdic = IConvOpen(p_Qebcdic:     
C                                        p_Qascii)                
C                   if        ICORV_E = -1                        
 * error processing here                                          
C                   endif                                         
 *                                                                
Csr   #INZSR        endsr 

Also die Ansicht im Spool und das Ergebnis im Zielsystem ist mit meinem iConv-Versuch das gleiche.
Die Umlaute passen leider nicht.
Nach dem Aufruf von iConv wird XMLSTR mittels EXCPT ausgegeben.

O          E            EXCXML         1                 
O                       XMLSTR             198 

[Anton Gombkötö]

1) wenn Du nach dem Konvertieren die Umlaute bzw. überhaupt irgendwas im Spool noch lesen kannst, dann hat's was.
2) Der Aufruf von iconv sieht falsch aus; iconv gibt die Anzahl der (noch) nicht übersetzten Bytes zurück, das wird bei dem Prototyping nicht klappen. siehe z.B. hier:
http://www.scottklement.com/qrpglesrc.redemo2
Google findet etliche korrekte Beispiele.
3) wieso 813? Ich denke, es soll UTF-8 sein? Das wäre 1208.

Abschließend nochmal der beste Tip von allen: mach' es ordentlich und nicht über den Spool. Das ist böseste Zweckentfremdung und Vergewaltigung, die sich sicher nochmal rächen wird.

[Toschie]

Hallo Anton,

vielen Dank auch dir für den Hinweis der Zweckentfremdung.
Ich versuche den Kunden auf eine Dateiausgabe zu bringen(damit funktioniert bereits alles).
Allerdings beharrt er auf die Ausgabe über diesen Weg.
Daher versuche ich hier zweigleisig zu fahren.
Ich habe mir das Beispiel von Scott angesehen und erhalten beim Wandeln die Fehler, das u.a. scPattern nicht deklariert ist.
Wenn i mir das Sample aus
http://www.cottklement.com/qrpglesrc.redemo2
ansehe, sehe ich hier auch keine Deklaration.
Übersehe ich was?

Schon jetzt allen vielen Dank für die Bemühungen.

[Fuerchau]

Wichtig zu wissen ist, dass die Art des XML-Encoding in einem Header festgelegt wird. Alle Reader halten sich normalerweise dann daran, z.B.:

< ?xml version="1.0" encoding="UTF-8"? >

Gibst du also ASCII aus, musst du auch ASCII als Encoding angeben.
Besser ist, hier ANSI (Codepage 1252) zu wählen, das Encoding ist dann "ISO-8859-1", wähle also beim iConv die Codepage 1252 aus.

[Anton Gombkötö]

Stimmt; das ist entweder in dem Copy drin oder Scott hat ausnahmsweise mal einen kleinen Fehler gemacht.
Es kann aber nur ein Character-Feld sein.
Aber davon mal abgesehen ist das Prototyping für iconv in dem Beispiel ganz offensichtlich anders als Deins und einzig und allein darum ging es mir.
Viel Erfolg und viel Glück beim Kunden-Erziehen!