Quick question, pardon the pun

[Chris Sharman]

>I'm not sure that you can do this. Without the PRIMARY file there is no
>transaction. You can do a GET in the POSTPATH to see if your GET in the FIND
>will work or not, but I don't think doing a GET on another file type will work
>if there is no PRIMARY record (even if the GET on the PRIMARY is OPTIONAL). Try
>it out and see if it works. If it does-great. Otherwise I would suggest calling
>another screen that has your designer file as a PRIMARY.

procedure input employee-no
 begin
 if findmode or selectmode
  then begin
   get employees opt ; test whether the record exists
   if not accessok
    then begin
     prompt surname
     get worker_comp opt
     let fieldtext = ascii(employee-no of worker_comp)
     end
   end
 end

This entails an extra "get opt" on the employee file: you can't avoid this
without a rewrite of find/path.
______________________________________________________________________
Chris Sharman			Chris.Sharman@CCAgroup.co.uk
CCA Stationery Ltd, Eastway, Fulwood, Preston, Lancashire, PR2 9WS.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.