1 // this is the class to implement record store functionality
2 // for MIDletPascal
5 public class RS
6 {
7 // open record store
9 {
10 try
11 {
13 }
15 {
17 }
18 }
21 // closes record store
23 {
24 try
25 {
27 }
29 {
30 }
31 }
33 // deletes a record store
35 {
36 try
37 {
39 }
41 {
42 }
43 }
45 // deletes a record from a record store
47 {
48 try
49 {
51 }
53 {
54 }
55 }
57 // adds a record
59 {
60 try
61 {
63 }
65 {
67 }
68 }
70 // sets a data in the entry
72 {
73 try
74 {
76 }
78 {}
79 }
81 // returns the next record ID
83 {
84 try
85 {
87 }
89 {
91 }
92 }
94 // read the data from the record store
96 {
97 try
98 {
106 }
108 {
110 }
111 }
113 // return the number of records in the record store
115 {
116 try
117 {
119 }
121 {
123 }
124 }
125 };