Need help with DTL to Rexx :roll:



IBM's Command List programming language & Restructured Extended Executor

Need help with DTL to Rexx :roll:

Postby Robledo » Tue Mar 08, 2022 7:07 pm

Hi all!

I'm new to both the forum and the mainframe world, please don't be too strict with meI'm new to both the forum and the mainframe world, please don't be too strict with me hehehe

The problem that I wanted to present to you and for which I need help is because I have tried to create a panel with DTL for a rexx, I took it from the example of its manual but it gives me an error, which when looking for it in the manual I am not able to solve:

ISPP168
Panel 'PANELSUP' error
Invalid IF keyword operator found.

Panel line where error was detected:
IF (&ZCMD ¬= &Z)


In the manual it says this:

ISPP168 Panel 'aaaaaaaa' error - Invalid IF
keyword operator found.
Explanation
The operator used in the IF statements basic value
test expression is invalid. Valid operators are:

= EQ
¬= NE
< LT
> GT
¬> NG
¬< NL
>= GE
<= LE

And my panel:
)ATTR
! TYPE(SAC)
% TYPE(NT)
+ TYPE(PS)
$ TYPE(OUTPUT) CAPS(OFF) PAS(ON)
)BODY WINDOW(50,6)
%
!0 +Settings %Terminal and user parameters%
!1 +View %Display source data or
listings%
!2 +Edit %Create or change source data%
$EXITPB%
)INIT
&ZWINTTL = 'Point-and-Shoot Fields'
&EXITPB = 'Exit'
)PROC
&ZCMDWRK = &Z
IF (&ZCMD ¬= &Z)
&ZCMDWRK = TRUNC(&ZCMD,'.')
&ZTRAIL=.TRAIL
IF (&ZCMDWRK = &Z)
.MSG = ISRU000
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
0,'PGM(ISPISM) SCRNAME(SETTINGS)'
1,'PGM(ISRBRO) PARM(ISRBRO01) SCRNAME(VIEW)'
2,'PGM(ISREDIT) PARM(P,ISREDM01)
SCRNAME(EDIT)'

*,'?')
)PNTS
FIELD(ZPS00001) VAR(ZCMD) VAL(0)
FIELD(ZPS00002) VAR(ZCMD) VAL(1)
FIELD(ZPS00003) VAR(ZCMD) VAL(2)
FIELD(EXITPB) VAR(ZCMD) VAL(EXIT)
)END


any idea about it? Thanks in advance!
Robledo
 
Posts: 9
Joined: Tue Mar 08, 2022 6:53 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Need help with DTL to Rexx :roll:

Postby Robledo » Tue Mar 08, 2022 7:14 pm

Auto solution:

"=¬" instead of "¬=" .

:arrow: Thanks manual (Irony mode ON) :?
Robledo
 
Posts: 9
Joined: Tue Mar 08, 2022 6:53 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Need help with DTL to Rexx :roll:

Postby willy jensen » Tue Mar 08, 2022 7:35 pm

Personally I prefer to use the operators EQ, NE etc, just remember to have them in uppercase.
As far as I can tell then the lines after the IF statement are not indented, which makes the IF statement moot. The lines that you want to be affected by an IF must be indented relative to that IF. There is no ENDIF for panels.
willy jensen
 
Posts: 455
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 69 times

Re: Need help with DTL to Rexx :roll:

Postby Robledo » Thu Mar 10, 2022 1:03 pm

willy jensen wrote:Personally I prefer to use the operators EQ, NE etc, just remember to have them in uppercase.
As far as I can tell then the lines after the IF statement are not indented, which makes the IF statement moot. The lines that you want to be affected by an IF must be indented relative to that IF. There is no ENDIF for panels.


Thank you very much for your advice Willy! :) I tried to follow the manual but it seems to have that little error, it seems that IBM can also be wrong sometimes hehehe :lol:
Robledo
 
Posts: 9
Joined: Tue Mar 08, 2022 6:53 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post