Yes, this is odd. The only missing part (that i can see of course) is the
definition for:

645000*           WS-DB-NAME ...

I am assuming this was initialized and then filled in via an ACCEPT (or any
$stdin read) and the size is enough to cover the 'FILE DBNAME=' + the max
size of filename/lockwords ? Other than that everything looks fine  :-)...

It's also remotely possible that at run time, an illegal character was
typed during the filename input. ( :-)... sorry, i just want to be as
thorough as poss...)

Also, the def:

320000     03  CI-H-CMDIMAGE           PIC X(33).

Please make this large enough (80 is good!). Not knowing the def for WS-DB-
NAME above, the 'STRING ...' statement its probably truncating.

hth,

rollie