Skip All

[mao@krifapost.dk]

Hi folks

I have a problem with "//" - Skip all in an entry procedure:

temp TempVariable_one int*1 reset at startup
temp TempVariable_two int*1 reset at startup

procedure entry
begin
   do internal Set_temp_variable ; Set either TempVariable_one or _two to 1
   if TempVariable_one = 1
      then begin
         accept field1
         accept field2
         ......
         let TempVariable_one = 0
         let TempVariable_two = 0
      end
   if TempVariable_two = 1
      then begin
         accept field3
         accept field4
         ......
         let TempVariable_one = 0
         let TempVariable_two = 0
      end
end

If I use the "//" skip all in ex. field2 in the first "if" statement
the program skip the rest of the "if" statement, sets the variables
to zero and jump into "if" statement two - even though the TempVariable_two is
1.

What am I doing wrong?

Greetings


Mikael





= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.