Fix Data Decimal Error - No Lock

[Dan Rasch <drasch@xxxxxxxxxxxx>]

We have a need to zero out several fiels with data decimal
errors, but cannot lock the file while doing so.  Also need
to read into a DS to TESTN a *CHAR field, without a lock,
then CHAIN back to the file and UPDAT from a DS where the
*CHAR definition exists.  From what I can tell, the read
into DS scenario requires an internally defined file.

Oh, and we are using RPGIII - as we have sites that are backlevel
as far as V3R2, RPGIV is 'ix-nayed' for now.

TIA

Dan Rasch - because if the human species concentrated on the really
important things in life, there would be a shortage of fishing poles!
IBM Certified twice....... but still a couple PTFs away from Nirvana.