The DPL Stub program invokes the user defined XML data to COBOL conversion program through a standardized call interface that is based on the XML Enablement of the Enterprise feature in the WebSphere® Developer for System z® product.
WORKING-STORAGE SECTION.
.
,
01 APPLICATION-DATA PIC X(32768) VALUE SPACES.
01 X-XML-INT-LEN PIC 9(9) BINARY.
01 X-XML-INT-TXT PIC X(32768).
01 X-CONVERTER-RETURN-CODE PIC S9(9) BINARY.
01 USER-PARSER-PROGRAM PIC X(08) VALUE SPACES.
.
.
PROCEDURE DIVISION.
.
.
MOVE user-program TO USER-PARSER-PROGRAM.
CALL USER-PARSER-PROGRAM USING APPLICATION-DATA
X-XML-INT-LEN
X-XML-INT-TXT
OMITTED
RETURNING
X-CONVERTER-RETURN-CODE