Inquires after the file named FILEA, and if the file is closed, opens it.
| result open | result := CICS inquirefile file: 'FILEA'; exec. result openstatus = CVDA_CLOSED ifTrue: [open := CICS setfileopen file: 'FILEA'; exec]