RECORD SCHEMA 128 UPAHM2
KEY FIELDS KEY(A)
MAX REC COUNT 123
DATA LIST
ID * (I2)
KEY * (I1)
DATA * (I2)
END SCHEMA
retrieval update
for i = 1,5
case is i
record is 128 (i)
compute DATA = i
write "about to save"
end record
write "saved"
end case
end for
end retrieval
| 
