Server Guide

Example

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]


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]