The sample source for this exit can be found in member TIRIEXS in the CA Gen CEHBSAMP library. The sample exit is written in COBOL and uses standard OS Linkage.
The Linkage Parameter list used by this exit is as follows:
01 RUNTIME-PARM1 PIC X.
01 RUNTIME-PARM2 PIC X.
01 TIRIEXS-CMCB.
03 TIRIEXS-RETURN-CODE PIC X.
88 RC-ACCEPT VALUE '0'.
88 RC-REJECT VALUE '1'.
88 RC-REPROCESS VALUE '2'.
88 RC-EXIT-VALUE VALUE '3'.
88 RC-ERASE VALUE '4'.
03 TIRIEXS-STATUS-CODE1 PIC X.
88 SC-OK VALUE ' '.
88 SC-FAIL-PENDING VALUE 'F'.
03 TIRIEXS-STATUS-CODE2 PIC X.
88 SC-FIRST-PASS VALUE '1'.
88 SC-REENTER VALUE '2'.
03 TIRIEXS-ERROR-MSG-NUMBER PIC S9(4) COMP
03 INPUT-VALUE PIC X(256).
03 INPUT-VALUE-CHAR
REDEFINES INPUT-VALUE
OCCURS 256 TIMES PIC X.
03 FIELD-LENGTH PIC 9(4).
03 FIELD-FILL-CHAR PIC X(2).
03 FIELD-BEGIN-ROWCOL PIC 9(8).
03 FIELD-END-ROWCOL PIC 9(8).
03 ATTRIBUTE-VALUE PIC X(256).
03 ATTRIBUTE-VALUE-CHAR
REDEFINES ATTRIBUTE-VALUE
OCCURS 256 TIMES PIC X.
03 ATTRIBUTE-LENGTH PIC 9(4).
03 ATTRIBUTE-TYPE PIC X.
88 ATTR-TEXT VALUE 'T'.
88 ATTR-VARCHAR VALUE 'V'.
88 ATTR-NUMERIC VALUE 'N'.
03 ATTRIBUTE-DECIMAL-PLACES PIC 9(2).
03 ATTRIBUTE-CASE-SENSITIVE PIC X.
03 MAPNAME PIC X(8).
03 MODNAME PIC X(8).
03 DIALECT-NAME PIC X(8).
03 DECIMAL-INDICATOR PIC X.
03 THOUSANDS-INDICATOR PIC X.
03 CURRENCY-INDICATOR PIC X.
03 TXT-ORIENTATION PIC X.
03 NUM-ORIENTATION PIC X.
03 EDIT-PATTERN-CLASS PIC X.
88 EPAT-ALPHANUMERIC VALUE 'T'.
88 EPAT-NUMERIC VALUE 'N'.
88 EPAT-DATE VALUE 'D'.
88 EPAT-TIME VALUE 'M'.
88 EPAT-TIMESTAMP VALUE 'Q'.
88 EPAT-NONE VALUE ' '.
03 FILLER PIC X(100).
01 GLOBDATA size 3645 bytes.
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|