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

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