API QCLSCAN: Fehler nach ändern der CCSID (CHGJOB)

[Fuerchau]

Gib doch mal die Quelle als Beispiel.

[edv90020]

Gib doch mal die Quelle als Beispiel.

C     #ICF1         IFNE      *BLANKS                                                          
C                   Z-ADD     #IFRS         UFRS              5 0                              
C                   MOVE      *BLANKS       A256X1          256                                
C                   MOVE      *BLANKS       A256X2          256                                
C     LC:UC         XLATE     #ICF1         A256X2                         ALLES GRßBUCHST.    
C     LC:UC         XLATE     #ICF2         A256X1                         ZUM VERGLEICHEN     
C                   CALL      'QCLSCAN'                                                        
C                   PARM                    A256X1                         ZU SUCHEN IN ...    
C                   PARM      256           N3X1              3 0          LÄNGE               
C                   PARM      UFRS          N3X2              3 0          START               
C                   PARM                    A256X2                         ZU SUCHENDER STRING 
C                   PARM      256           N3X3              3 0          LÄNGE               
C                   PARM      '1'           A1X1              1            TRANSLATE=TRUE      
C                   PARM      '1'           A1X2              1            TRIM=TRUE           
C                   PARM      '?'           A1X3              1            WILD                
C                   PARM                    N3X4              3 0          ERGEBNIS            
C                   Z-ADD     N3X4          #OILN                                              
C                   END

Nicht wundern warum der die Parameter hin und her geschoben werden: wir verwenden ein Case-Tool zum generieren von RPG!

[Fuerchau]

Das sieht mir danach aus, dass QCLSCAN sich intern was merkt und mit diesem gemerkten nach CCSID-Wechsel nicht zurechtkommt.

Mach nach einem CHGJOB besser einen RCLRSC.
CCSID-Wechsel kann auch in anderen Programmen zu Problemen führen, wenn sie noch aktiv sind (*INLR=*OFF, ODP's usw.).

[edv90020]

Mach nach einem CHGJOB besser einen RCLRSC.

Gute Idee aber leider hat´s nicht geklappt...

[edv90020]

Noch eins ist mir aufgefallen:
Wir haben mehrere Systeme bzw. LPAR und auf zwei Systemen habe ich kein Problem und auf drei Systemen läuft das API auf fehler.

Gibt es evtl. mehrere Versionen vom API die über eine DTAARA oder ähnliches gesteuert wird ?
(Das hatte ich auch beim Befehl CPYTOIMPF: auf einigen Systemen lief der Befehl rund und einige nicht da eine ältere Version über die DTAARA angesprochen wurde)

[Fuerchau]

Unterschiedlicher PTF-Stand kann immer eine Ursache sein.

[edv90020]

Gibt es zum QCLSCAN API eine Alternatie ? In betracht auf ILE RPG stellt das API ein zu kleines Ergebnisfeld mit 3,0 zur Verfügung was uns früher oder später noch zu Problemen fürhen wird !!!

[Fuerchau]

Wenn man keine Wildcard benötigt, einfach %scan.
Mittels C-Funktionen lassen sich reguläre Ausdrücke verwenden (RegEx).

In meiner Toolbox findet sich auch ein ähnliches Werkzeug.

[edv90020]

Hallo Fuerchau,

erstmal vieln Dank für deine Informationen.

Bei gelegenheit werde ich bei der IBM nachfragen und das Ergebnis hier natürich veröffentlichen.