%SCAN im CL Programm

[Etherion]

Hallo zusammen,

ich wollte im CL erstmals die Build in Function %SCAN nutzen.
Auf den IBM Seiten finde ich sie für die Betriebsystemversion V7R1M0 dokumentiert.
Im Editor erhalte ich die Fehlermeldung CPD0056 "Integrierte Funktion %SCAN ungültig."
Es wurde sowohl mit der Teildateiart CLP und CLLE ausprobiert.
Hat jemand von Euch eine Idee, woran das liegen könnte?

Gruß
Etherion

[Fuerchau]

%scan ist eine RPG-Funktion.
Für CLP gibt es das API QCLSCAN.

[malzusrex]

Hmm,
laut IBM sollte da es ja diese Funktion geben
%SCAN im CL

Aber wenn ich das Teste, dann komme ich auf den gleichen Fehler..

Gruß
Ronald

[Etherion]

Hallo Fürchau,

hier die Hardcopy der IBM Doku.

Gruß
Etherion

[B.Hauser]

Wo kommt der Fehler? Im PDM oder beim Umwandeln?
Wenn's PDM ist: PDM, SEU etc sind "stabilized", d.h. Neuerungen werden nicht mehr integriert.

Birgitta

[Fuerchau]

Dem Editor ist das wohl egal, einfach mal wandeln.

[malzusrex]

Hall Birgitta,

er mekert im PDM und beim umwandeln.
PDM hätte ich ja auch noch verstanden.

pgm                                           
 DCL &POS *DEC 5 0                            
 DCL &SUCH *CHAR 1                            
 DCL &STRING *CHAR 26                         
                                              
 CHGVAR &SUCH 'E'                             
 CHGVAR &STRING 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'  
                                              
 CHGVAR &POS  VALUE(%SCAN(&SUCH &STRING) )    
                                              
endpgm 

Vielleicht war ja die IBM mit der Doku schneller wie mit dem umsetzen !?!??


Gruß
Ronald

[Etherion]

Hallo zusammen,

ich hinke hoffnungslos hinterher. ;-)

Ja, auch beim Compile klappts nicht:

FOLGENR *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
100- PGM
200-
300- DCL VAR(&STRING) TYPE(*CHAR) LEN(8) VALUE(' +
400 (C ')
600-
900- IF COND(%SCAN('(C ' &STRING) *GT 0) THEN(DO)
* CPD0056 30 Integrierte Funktion %SCAN ungültig.
901- WRKSPLF
1100- ENDDO
1500-
1600- END: ENDPGM

[bwachs]

Hallo,

ist PTF SI49061 installiert ?

siehe : What's new for IBM i 7.1
hth

Bernd

[malzusrex]

Kaum installiert man dieses PTF ----- schon geht es !
Es wird jetzt nicht mal im PDM gemeckert und lässt sich wandeln und funktioniert auch.


Gruß
Ronald

[Etherion]

Hallo zusammen,

vielen Dank für Euren Einsatz.

Gruß
Stefan