CALL "CBL_TOUPPER" USING textString BY VALUE length GIVING returnCode |
textString | PIC X(n) | Specifies the string to convert. |
length | PIC X(4) COMP-5 | Specifies the number of bytes of string to change; positions beyond this are unchanged. |
0 | Operation successful. |
-1 | Operation failed. |
working-storage section. 77 wrk-string pic x(12). 77 wrk-len pic x(4) comp-5. procedure division. main. move "Test String" to wrk-string. move 12 to wrk-len. call "CBL_TOUPPER" using wrk-string, wrk-len. |