If the value of TRBLINP-IO-LEN is set to 18 and the value of TRBLINP-IO-TEXT is set to "1 611016007800011" then after the unstring statement the following should be true: TRBLINP-TYPE PIC X(01) will = "1" because this is data before delimiter TRBLINP-SEARCH-DATA PIC X(40). will = 611016007800011 because this is data after delimiter TRBLINP-IO-TEXT PIC X(41) will still have its original value of "1 611016007800011" It sounds like you might be moving the group item TRBLINP to the out parameter instead of the TRBLINP-IO-TEXT field or perhaps not setting the length field correctly before the call? Have you tried debugging this to check the value of the variables that are being passed in?
↧