Multiple Sel/endsel in skeleton



IBM's Command List programming language & Restructured Extended Executor

Multiple Sel/endsel in skeleton

Postby shiisama » Fri Apr 23, 2021 4:45 pm

Hi,
I did a rexx panels where you can enter some choices, i use the variables &W and &K.
And i did a squels (skeleton) where i want to use the SEL/ENDSEL function.

I want when &K= O && &W = N
It doessomething
And when &W= O && &K = N
Do an other thing.

Actually when &K = O && W = N , it work but the other function doesn't.


Do someone know how to do it ?
Thanks
You do not have the required permissions to view the files attached to this post.
shiisama
 
Posts: 5
Joined: Fri Apr 23, 2021 4:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Multiple Sel/endsel in skeleton

Postby willy jensen » Fri Apr 23, 2021 10:51 pm

Try listing the values before the )SEL statement, just to make sure that they are as you expect, i..e

K = &K
W =&W
willy jensen
 
Posts: 352
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 49 times

Re: Multiple Sel/endsel in skeleton

Postby willy jensen » Fri Apr 23, 2021 10:52 pm

And please use the 'code' tags instead of screen shots.
willy jensen
 
Posts: 352
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 49 times

Re: Multiple Sel/endsel in skeleton

Postby sergeyken » Fri Apr 23, 2021 11:47 pm

Why not:
)IF &K= O && &W = N THEN )DO
        It does something
)ENDDO
)ELSE )IF &W= O && &K = N THEN )DO
        Do another thing.
)ENDDO
Javas come and go, but JCL stays forever.
User avatar
sergeyken
 
Posts: 207
Joined: Wed Jul 24, 2019 10:12 pm
Has thanked: 3 times
Been thanked: 19 times

Re: Multiple Sel/endsel in skeleton

Postby shiisama » Sat Apr 24, 2021 5:09 am

willy jensen wrote:And please use the 'code' tags instead of screen shots.


If i list the variable before the sel statement it doesn't work anymore
shiisama
 
Posts: 5
Joined: Fri Apr 23, 2021 4:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Multiple Sel/endsel in skeleton

Postby shiisama » Sat Apr 24, 2021 7:28 am

sergeyken wrote:Why not:
)IF &K= O && &W = N THEN )DO
        It does something
)ENDDO
)ELSE )IF &W= O && &K = N THEN )DO
        Do another thing.
)ENDDO


i tried the loop with if and it doesn't work too
only the sel loop is working
shiisama
 
Posts: 5
Joined: Fri Apr 23, 2021 4:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Multiple Sel/endsel in skeleton

Postby willy jensen » Sat Apr 24, 2021 1:40 pm

What do you mean, it doesnt work anymore if you add those 2 displays? Do you get an error message from the FTINCL command?
Anyway, I did a quick test and it works as expected, including listing the variables:

)SET W = O            
)SET K = N            
                       
K = &K                
W = &W                
                       
)SEL &K = O && &W = N  
 k=O and W=N          
)ENDSEL                
                       
)SEL &K = N && &W = O  
 k=N and W=O          
)ENDSEL  
willy jensen
 
Posts: 352
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 49 times

Re: Multiple Sel/endsel in skeleton

Postby willy jensen » Sat Apr 24, 2021 9:32 pm

Re error messages, I recommend that you do something like this:

Address ispexec "control errors return"
Address ispexec "TBOPEN ..."
zerrlm=''
Address ispexec "TBINCL" skelname
if rc<>0 then say 'Include skel' skelname 'rc' rc 'msg' zerrlm
willy jensen
 
Posts: 352
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 49 times

Re: Multiple Sel/endsel in skeleton

Postby shiisama » Sat Apr 24, 2021 11:19 pm

[quote="willy jensen"]What do you mean, it doesnt work anymore if you add those 2 displays? Do you get an error message from the FTINCL command?

I don't have any error but the loop doesn't execute anymore.
For example when i just have the sel loop for w = o
The rexx gonna execute and work
And if i had before the sel loop
w =&w
The rexx execute, it say "the program have been executed" but it doesn't work
shiisama
 
Posts: 5
Joined: Fri Apr 23, 2021 4:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Multiple Sel/endsel in skeleton

Postby willy jensen » Sun Apr 25, 2021 2:49 am

I am confused, you started talking about a problem in skeleton services, but now you say that you have a logical problem in a REXX?
I would really like to see a trace of the REXX portion that fails, especially the part with the FTINCL command. Please list the ZERRLM variable after FTINCL, like SAY 'errlm='ZERRLM. Also a list of the skeleton would be helpful.
willy jensen
 
Posts: 352
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 49 times

Next

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post