RMS update to sequential file

Question

RMS supports read/write using VBN number to a sequential file, which
means that it is possible to randomly update a sequential file in RMS.
There are some tricky issues around extending the file and setting the
EOF mark correctly if you are using a sequential file logically as a
block-addressable random access file, but for your case you
can probably ignore such things-- you will not be adding records, just
updating the one record, right? In order to do this, you would have
to dig into the RMS services manuals a little bit, but from a Forte
standpoint, it is the same: C Project code.
If you have some control over the legacy system: RMS supports "relative
files", which are record-addressable, random access files without
keys-- ie, the CORRECT file type to use in this case. Depending on
the app, there is a good chance that the very same application logic
which handles the "one-record" sequential file (3-gl level open, read,
write) will work the same for a "one record" relative file. With this
"change" to the legacy system, your job in the C-project interface code is a
little easier.
Dave

Answer 1

Hi,
Data : l_qty(16) type c,
       l_value(13) type c,
       l_dec(3)   type c.
loop at itab.
split itab-qty at `.` into l_value l_dec.
concatenate l_value `.` l_dec into l_qty.
Move l_qty to l_file.
Transfer l_file.
endloop.
close dataset.
Best regards,
Prashant