|  CALL "CBL_TOLOWER" 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_TOLOWER" using wrk-string, wrk-len. |