Skip All

[Peter DOXEY]

Hello All,

    I have just copied your code into qdesign (as below)  and I cannot reproduce
the problem you are getting ?  Am I missing something out of your code ? 

For your info: I am using Powerhouse 710F2 on a Alpha machine using Open VMS ?

Start of Code
set verify
scr test

file defaults (one of our files on the system)

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

temp field1 char*1
temp field2 char*1
temp field3 char*1
temp field4 char*1

skip 2
field field1
field field2

skip 2

field field3
field field4

procedure  internal Set_temp_variable ; (added this in)
begin
let tempvariable_one =1
let tempvariable_two =0
end

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

End of Code

Regards
    Peter.A.Doxey   
    Project Manager
    Syscom PLC, West Midlands, England.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.