La solution la plus simple est d'utiliser l'API QWCRSSTS

Voici un exemple :

/* Déclaration des variables */

DCL VAR(&SIG) TYPE(*DEC) LEN(9 0)

DCL VAR(&TXT) TYPE(*CHAR) LEN(100)

DCL VAR(&LEN) TYPE(*CHAR) LEN(4)

/* mettre 100 en binaire dans la variable LEN */

CHGVAR VAR(%BIN(&LEN)) VALUE(100)

/* Appel de l'API */

CALL PGM(QWCRSSTS) PARM(&TXT &LEN + 'SSTS0100' '*NO' X'00000000')

/* extraction du résultat */

CHGVAR VAR(&SIG) VALUE(%BIN(&TXT 25 4))

PLB