Multiple Sel/endsel in skeleton

[shiisama]

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

[willy jensen]

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]

And please use the 'code' tags instead of screen shots.

[sergeyken]

Why not:

Code: Select all

)IF &K= O && &W = N THEN )DO
        It does something
)ENDDO
)ELSE )IF &W= O && &K = N THEN )DO
        Do another thing.
)ENDDO

[shiisama]

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]

Why not:

Code: Select all

)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

[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?
Anyway, I did a quick test and it works as expected, including listing the variables:

Code: Select all

)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]

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

Code: Select all

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

[shiisama]

[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

[willy jensen]

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.