CC_research_A.p
| 1 |
DEFINE FRAME f. |
|---|---|
| 2 |
|
| 3 |
/*step 1*/ |
| 4 |
FIND FIRST Customer NO-LOCK. |
| 5 |
DISPLAY Customer.Name Customer.Balance |
| 6 |
SKIP "Wait for B to start transaction" SKIP(1) WITH NO-LABELS FRAME f. |
| 7 |
ENABLE Customer.Name WITH FRAME f. |
| 8 |
WAIT-FOR "GO" OF FRAME f. |
| 9 |
PAUSE MESSAGE "Editing ended, starting testing...". |
| 10 |
|
| 11 |
DO TRANSACTION: |
| 12 |
/*step 5*/ |
| 13 |
FIND FIRST Customer NO-LOCK. |
| 14 |
|
| 15 |
/*step 6*/ |
| 16 |
DISPLAY |
| 17 |
/*Customer.Name Customer.Balance SKIP*/ |
| 18 |
"Customer is " + (IF CURRENT-CHANGED Customer |
| 19 |
THEN "Changed" ELSE "Same") FORMAT "x(50)" |
| 20 |
SKIP |
| 21 |
"Wait for B to COMMIT" SKIP(1). |
| 22 |
PAUSE. |
| 23 |
|
| 24 |
DISPLAY "After B's COMMIT:" |
| 25 |
SKIP |
| 26 |
/*Customer.Name Customer.Balance */ |
| 27 |
/*step 8*/ |
| 28 |
"Customer is " + (IF CURRENT-CHANGED Customer |
| 29 |
THEN "Changed" ELSE "Same") FORMAT "x(50)" |
| 30 |
WITH NO-LABELS. |
| 31 |
|
| 32 |
PAUSE. |
| 33 |
DISPLAY SKIP(1) "Re-reading record..." SKIP. |
| 34 |
FIND FIRST Customer NO-LOCK. |
| 35 |
|
| 36 |
DISPLAY /*Customer.Name Customer.Balance */ |
| 37 |
"Customer is " + (IF CURRENT-CHANGED Customer |
| 38 |
THEN "Changed" ELSE "Same") FORMAT "x(50)". |
| 39 |
|
| 40 |
END. /*transaction*/ |
| 41 |
|
| 42 |
PAUSE. |