
<\%@ webservice language="COBOL" \%>
CLASS-ID.
MULTIPLICATIONSERVICE.
FACTORY.
PROCEDURE DIVISION.
METHOD-ID.
MULTIPLY.
DATA DIVISION.
LINKAGE SECTION.
01 VAL-1 PIC S9(9) COMP-5.
02 VAL-2 PIC S9(9) COMP-5.
01 PRODUCT PIC S9(9) COMP-5.
PROCEDURE DIVISION
USING BY VALUE VAL-1 VAL-2 RETURNING PRODUCT.
COMPUTE PRODUCT = VAL-1 * VAL-2.
END METHOD MULTIPLY.
END FACTORY.
END CLASS MULTIPLICATIONSERVICE.