IBM Mainframe Forum

I am getting error with the IF statement while executing rexx under IKJEFT1B.

the statement is :
000252 IF ( SMF30ION = 1 & SMF30IOF > 0 & SMF30ILN > 0 ,
000253 & SMF30PON = 1 & SMF30POF > 0 & SMF30PLN > 0 ) THEN DO

Error:
IKJ56533I STMT 252 - IF STMT CONTAINS NO EXPRESSION OR THEN KEYWORD

This is not a REXX error, it's a CLIST error!

Robert, thanks for your reply.
how to get rid of this error

If you look in the CLIST manual in the TSO bookshelf, you will find that continuing a line requires a special character at the end of the line to be continued. You do not have that character, hence you are being told you do not have a THEN on your IF (which you don't since the line was not continued).

And if it is supposed to be Rexx, not CLIST, then you'll need to do something to ensure that the correct interpreter gets used.

The whole issue is moot. The field names in the alleged statement are in raw SMF data. Neither CLIST or Rexx can read raw SMF data.

Neither CLIST or Rexx can read raw SMF data.

I think SMF data can be offloaded using the IFASMFDP utility. The data is then in a VBS data set, which rexx will be able to read.

you'll need to do something to ensure that the correct interpreter gets used.

Hint, the problem is probably in the first line of the program. The first line tells the system whether it is a rexx program or not.

Pedro - Rexx/CLIST cannot read VBS. I made the assumption the data was offloaded SMF data rather than data in MAN data sets.

I believe that is no longer the case in z/OS 2.1; there are also third-party tools that can do this in earlier versions. Of course, we do not know if these things are available to durgam4.

Prior to z/OS 2.1, you can use IEBGENER to copy the VBS to a VB data set. And then read the VB file with rexx. Yes, you might lose some really long records, but there are not that many of them.