Oh no, you don't have to add a label and you don't have to use GOTO.
TRY_AGAIN = 1
LOOP WHILE TRY_AGAIN
READU STU.REC FROM STU.FILE, STU.ID LOCKED
CRT STU.ID:" RECORD IS LOCKED"
SLEEP 2
END THEN
STU.REC<48> = INST.CRED
STU.REC<49> = INET.CRED
WRITE STU.REC ON STU.FILE, STU.ID
TRY_AGAIN = 0
END
REPEAT
On 08/02/2013 18:10, Woodward, Bob wrote:
You should have written it something like this:
TRY.AGAIN:
READU STU.REC FROM STU.FILE, STU.ID LOCKED
CRT STU.ID:" RECORD IS LOCKED"
SLEEP 2
GOTO TRY.AGAIN
END THEN
STU.REC<48> = INST.CRED
STU.REC<49> = INET.CRED
WRITE STU.REC ON STU.FILE, STU.ID
END
You have to add the label TRY.AGAIN: so you have a jump point then add the
SLEEP command for 2 seconds and lastly the GOTO command so after the SLEEP
expires, execution remains at the READU command.
BobW
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
