View Full Version : %SCAN im CL Programm
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
%scan ist eine RPG-Funktion.
Für CLP gibt es das API QCLSCAN.
Hmm,
laut IBM sollte da es ja diese Funktion geben
%SCAN im CL (http://pic.dhe.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Frbam6%2Frbam6scanbif.htm)
Aber wenn ich das Teste, dann komme ich auf den gleichen Fehler..
Gruß
Ronald
Hallo Fürchau,
hier die Hardcopy der IBM Doku.
Gruß
Etherion228
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
Dem Editor ist das wohl egal, einfach mal wandeln:).
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
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
Hallo,
ist PTF SI49061 installiert ?
siehe : What's new for IBM i 7.1
hth
Bernd
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