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