Running a Program Under TCF › Determining if TCF Is Active

Determining if TCF Is Active

If TCF has invoked the task, the UCE-IDENT-02 field contains the literal UMBR. If UMBR is not present, the session was not invoked by TCF.

COBOL Example

For example, in COBOL:

PROCEDURE DIVISION USING UNIVERSAL-COMM-ELEMENT.
    IF UCE-IDENT-02 NOT = 'UMBR'
       THEN GO TO A100-NON-TCF-SESSION.

Assembler Example

Assembler programs check register 1 to determine if they are being invoked under TCF. Register 1 points to a one-entry parameter list that points to the UCE. If TCF has invoked the task, the first four bytes of the UCE contain the literal UMBR. For example:

       LTR   R1,R1                              UNDER TCF?
       BZ    NONTCF                             NO, GO ON
       L     R2,0(R1)                           MAYBE
       CLC   0(4,R2),=CL4'UMBR'                 CHECK FOR 'UMBR'
       BNE   NONTCF                             NO, GO ON
+  *** TCF PROCESSING ***