On second thought this won't do either since it hasn't got an ELSE clause.
ERR = ''
LOOP
TRY_AGAIN = 0
READU STU.REC FROM STU.FILE, STU.ID LOCKED
CRT STU.ID:" RECORD IS LOCKED - (Q)uit or Enter"
INPUT REPLY:
IF REPLY # 'Q' THEN TRY_AGAIN = 1 ELSE ABORT
END ELSE STU.REC = ''
UNTIL NOT(TRY_AGAIN) REPEAT
STU.REC<48> = INST.CRED
STU.REC<49> = INET.CRED
WRITE STU.REC ON STU.FILE, STU.ID
On 08/02/2013 20:12, Mecki Foerthmann wrote:
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
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users