Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly
Loading...

{{viewport.spaceProperty.prod}}

cdisco - disconnect contingency routine (BS2000)

&pagelevel(4)&pagelevel

Syntax

#include <cont.h>

void cdisco(struct enacop *enacopar);

Description

cdisco() disconnects a contingency routine (TU or P1) defined with cenaco(). Detailed information on contingency routines can be found in the section “Contingency and STXITroutines” and in the manual "Executive Macros" [10 (Related publications)].

The structure enacop is defined in cont.h as follows:

struct enacop
{
  char resrv1 [7];        /* reserved for int. use   */
  char coname [54];       /* name of cont. routine   */
  char resrv2 [15];       /* reserved for int. use   */
  char level;             /* priority of cont.rout.  */
  int  (*econt)();        /* start adr of cont.rout. */
  int  comess;            /* contingency message     */
  char coidret [4];       /* contingency identifier  */
  errcod secind;          /* secondary indicator     */
  char resrv3 [2];        /* reserved for int. use   */
  errcod rcode1;          /* return code             */
};
#define errcod     char
#define _norm      0      /* normterm                */
#define _abnorm    4      /* abnormend               */
#define _enabled   4      /* codefenabled            */
#define _preven    12     /* coprevenabled           */
#define _parerr    16     /* coparerror              */
#define _maxexc    24     /* comaxexceed             */

cdisco() evaluates only the coidret structure component (identifier of the contingency
process).

Structure components supplied by cdisco():

secind

"Secondary Indicator", as stored in the most significant byte of register 15
(values 4 or 20) after execution of the ENACO macro.

rcode1

"Return Code", as stored in the least significant byte of register 15 (values 0
or 4) after execution of the ENACO macro.

See also

cenaco().