Re: multi format logical.

steema@xxxxxxxxxxxxx WROTE:

> Yes but am getting a error message (Trying to update w/out prior
> read when i use the file name:
>
>   C           *IN46     DOWEQ*OFF
> 1 C           WWKEY     SETLLVLLC1WA
> 1 C           WWKEY     READEVLLC1WA                  46
>   C*
>   C                     DELETVLLC1WA

I think this is a simple logic error. READE will eventually fail and turn
on *IN46 but you don't test this before issuing the DELET. Try this
instead:

C           WWKEY     CHAINVLLC1WA              46
C           *IN46     DOWEQ*OFF
C                     DELETVLLC1WA
C           WWKEY     READEVLLC1WA                  46
C                     ENDDO

You could use a SETLL if you wanted to, but the CHAIN gives a much tidier
loop. The end result is the same unless there are no records in the set to
be deleted. In this case a SETLL will reset the current record pointer but
a CHAIN won't. Alternatively you could use a keyed delete as I suggested:

 C           *IN46     DOUEQ*ON
 C           WWKEY     DELETVLLC1WA              46
 C                     ENDDO

--
Dave...


______________________________________________________________________
This message may contain confidential information which may also be legally 
privileged and is intended only for the use of the parties to whom it is 
addressed. If you are not an intended recipient you are hereby notified that 
any disclosure, copying, distribution or use of any information in this e-mail 
is strictly prohibited. If you receive this message in error please notify the 
sender by return e-mail and then destroy it. Further, we make every endeavour 
to keep our network free from viruses. However, you do need to verify that this 
e-mail and any attachments are free of viruses as we can take no responsibility 
for any computer viruses which might be transferred by way of this e-mail. All 
information and attachments remain the property of Stolt Offshore Group and 
should be held as confidential.