RE: Special Linkage for DB2 Stored Procedure

Thank you Chris,

I figured it out --

//////////////////////////////////////////////////////////////////////

      LINKAGE SECTION.                                

      01 TRBLINP.                                      

          05 TRBLINP-IO-LEN      PIC S9(04) COMP-5.  

          05 TRBLINP-IO-TEXT     PIC X(41).      

      01 OUTDATA PIC X(41).

      PROCEDURE DIVISION USING  TRBLINP, OUTDATA  .

      UNSTRING  TRBLINP-IO-TEXT (1:TRBLINP-IO-LEN)

      DELIMITED BY '><'                        

      INTO  TRBLINP-TYPE ,

      TRBLINP-SEARCH-DATA .                          

       move  TRBLINP-IO-TEXT  to  OUTDATA.    

/////////////////////////////////////////////////////////////////////////////////////

CREATE PROCEDURE "GIP2TRBL" (INOUT TRBLINP VARCHAR(41),

OUT OUTDATA  CHAR(41) )

Tested ON  Z/OS mainframe , DB2 V10.1

Tested with Visual COBOL,  ON WINDOWS 10 , DB2 V10.5 (EXPRESS-C)

I got the same result:

At beginning,  I make a mistake as:

CREATE PROCEDURE "GIP2TRBL" (INOUT TRBLINP CHAR(41), OUT OUTDATA  CHAR(41) )

Now,  correct it as:

CREATE PROCEDURE "GIP2TRBL" (INOUT TRBLINP VARCHAR(41), OUT OUTDATA  CHAR(41) )

Thank you again,

-Jack