XML -> Spool -> Fremdsystem

[Toschie]

Und über RPG oder ähnlichem kann ich dem das nicht mitteilen, das der diese Zeichen unterdrücken soll?
Das muss quasi im Fremdsystem eingestellt werden.
Hab ich das richtig verstanden?

[mk]

Hi,

druckt ihr im RPG Programm auf einen Printer , oder wird der Spool
als Liste gelesen und in Richtung XML aufbereitet ?

Wenn ihr im RPG die F-Bestimmung mit der Printeranweisung benutzt, dann kann man die Überlaufzeile definieren
und vorher einen Seitenvorschub per Programm erzeugen.

Gruß
Michael

[Fuerchau]

Per RPG kann man das nicht unterdrücken sondern muss dieses (wie oben beschrieben) extern definiert werden.
Der Spooler fügt bei Seitenwechsel automatisch einen Formfeed ein.
Dieses Zeichen ist in XML nicht erlaubt.
CR/LF sind aber möglich.

Die OUTQ ist ja auf deiner AS/400 definiert. Dahinter liegt besagtes WSCST, dass die Druckersteuerzeichen enthält.
Der Code des Formfeed muss daraus entfernt werden.
Dies passiert nicht im Fremdsystem sondern bei dir lokal auf der AS/400.

Mittels WRKOUTQD schau dir die Definition an und ggf. poste diese mal hier.

[Toschie]

Hier mal die Beschreibung:

Warteschlange:   XYZQ       Bibliothek:   QGPL  
 
Status:                                             
  Aktives Ausgabeprogramm  . . . . . . :   J        
  Name(n) des/der Ausgabeprogramme(s),              
    falls aktiv  . . . . . . . . . . . :   XYZQ 
  Ausgabewarteschlange angehalten  . . :   J        
Maximale Größe der SPOOL-Datei:                     
  Zahl der Seiten  . . . . . . . . . . :   *NONE    
  Startzeit  . . . . . . . . . . . . . :            
  Endzeit  . . . . . . . . . . . . . . :            
Ausgabeprogramme automatisch starten . :   1        
Jede Datei anzeigen  . . . . . . . . . :   *NO      
Jobtrennungen  . . . . . . . . . . . . :   0        
Vom Bediener gesteuert . . . . . . . . :   *YES     
Reihenfolge der Dateien in der                      
  Warteschlange  . . . . . . . . . . . :   *FIFO    
Datenwarteschlange . . . . . . . . . . :   *NONE     
  Bibliothek . . . . . . . . . . . . . :             
Zu prüfende Berechtigung . . . . . . . :   *OWNER    
Fernes System  . . . . . . . . . . . . :   *INTNETADR
 
 
 
Ferne Druckwarteschlange . . . . . . . :   PRODSYS       
 
 
 
Warteschlange für Nachrichten des                    
  Ausgabeprogramms . . . . . . . . . . :   QSYSOPR   
  Bibliothek . . . . . . . . . . . . . :     QSYS    
Verbindungsart . . . . . . . . . . . . :   *IP       
Internet-Adresse . . . . . . . . . . . :   10.225.113.16           
Zielart  . . . . . . . . . . . . . . . :   *OTHER                  
Druckerdatenstromumsetzung im Host . . :   *YES                    
Hersteller, Typ und Modell . . . . . . :   *WSCST                  
Datenstationsanpassungsobjekt  . . . . :   QWPDEFAULT              
  Bibliothek . . . . . . . . . . . . . :     QSYS                  
Abbildkonfiguration  . . . . . . . . . :   *NONE                   
Zielangaben  . . . . . . . . . . . . . :   *NONE                   
 
 
Trennseite drucken . . . . . . . . . . :   *NO                     
Benutzerdefinierte Auswahl . . . . . . :   *NONE                   
Benutzerdefiniertes Objekt:                                   
  Objekt . . . . . . . . . . . . . . . :   *NONE              
    Bibliothek . . . . . . . . . . . . :                      
  Objektart  . . . . . . . . . . . . . :                      
Benutzerdefiniertes Treiberprogramm  . :   *NONE              
  Bibliothek . . . . . . . . . . . . . :                      
ASP der SPOOL-Datei  . . . . . . . . . :   *SYSTEM            
Textbeschreibung . . . . . . . . . . . :   Test Warteschlange 

[Fuerchau]

OK, das WSCST heißt hier QWPDEFAULT
Dies ist ein ziehmlich einfaches WSCST und kann folgendermassen abgefragt werden:

RTVWSCST DEVTYPE(*TRANSFORM)
MFRTYPMDL(*WSCSTNONE)
SRCMBR(MYWSCST)
SRCFILE(QTXTSRC)

Eine QTXTSRC steht in der QGPL zur verfügung.
In der Quelle MYWSCST findest du die Steuerzeichen.
Die Zeilen
: INITPRT
DATA ='00'X.
: FORMFEED
DATA ='0C'X.
entfernst du einfach und erstellst per CRTWSCST dein eigenes, als Name z.B. MYXMLWSCST.

CRTWSCST WSCST(QGPL/MYXMLWSCST)
SRCMBR(MYWSCST)
TEXT('WSCST für XML')

Dieses neue MYXMLWSCST hängst du dann per
CHGOUTQ OUTQ(XYZ)
WSCST(MYXMLWSCST)
an die OUTQ dran.
Von nun an werden keine Formfeeds mehr erzeugt.

[Anton Gombkötö]

Oder ist das dann nicht mehr Zweckentfremdung genug? ;-)

[Fuerchau]

Das geht natürlich auch (in der PRTF), aber man muss dann selber tatsächlich ASCII-Daten schreiben.
Also korrekte Datenumsetzung per Programm mit iConv() oder ähnlichen API's.

[Toschie]

@Fuerchau: Ich habe die erste Lösung soweit es geht vorbereitet und werden diese mit dem Kunden testen, da dieser die Einheit hinter der OUTQ aushängen muss, damit ich diese verändern kann.
Ich werde das Ergebniss dann berichten =)
Vielen Dank schonmal für die Unterstützung =)

[Fuerchau]

Solange deine OUTQ leer ist, also nichts gesendet wird, kannst du den Remotewriter beenden, die OUTQ ändern und den Remotewriter wieder starten, das Zielsystem merkt davon nichts.

[Toschie]

Hallo @all.

Also vielen Dank für die SUPER Unterstützung.
Der Kunde testet das XML aber es sieht schon sehr gut aus =)

Also vielen Dank und allen ein schönes Wochenende =)

[Toschie]

Ich muss das Thema nochmal aufgreifen.
Gibt es die Möglichkeit, das ich auch Codes anfüge?
Es muss am Anfang der Datei noch Steuercodes für den Dokumententypen mitgegeben werden.
Wenn ich das richtig verstanden habe, muss (Hexadezimal) EF BB BF angefügt werden, damit das Fremdsystem weiß, das die Daten in UTF8 zu unterpretieren sind.
Ist sowas möglich?

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