SYRTNLEN:   PGM        PARM(&VALUE &LEN)


             DCL        VAR(&VALUE) TYPE(*CHAR) LEN(3002)
             DCL        VAR(&LEN) TYPE(*DEC) LEN(5 0)


             CHGVAR     VAR(&LEN) VALUE(%BIN(&VALUE 1 2))


             RETURN

             ENDPGM