Server Guide

Example

Inquire after the program named PROGDLL, and if the program is disabled, return an error message.

| result |
result := CICS inquireprogram program: 'PROGDLL'; exec.
result status = CVDA_DISABLED
   ifTrue: [ ^Transcript cr; show: 'The requested program is disabled.'].


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