Voici un petit bout de code qui permet de faire cela ! 

DCL    &APIASP      TYPE(*DEC)  LEN(7 0)

DCL    &SYSASPPERC  TYPE(*DEC)  LEN(4 1)

DCL    &SYSASPTOT   TYPE(*DEC)  LEN(7 0)

DCL    &TOTAUX      TYPE(*DEC)  LEN(7 0)

DCL    &RCV         TYPE(*CHAR) LEN(100)

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

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

CALL  PGM(QWCRSSTS) PARM(&RCV &RCV_LEN +

        'SSTS0200' '*NO' X'00000000')

CHGVAR  &APIASP     VALUE(%BIN(&RCV 53 4))

 /*  retrieve the % system ASP used  */

CHGVAR  &SYSASPPERC VALUE(&APIASP / 10000)

 /* retrieve the total system ASP in MB  */

CHGVAR  &SYSASPTOT  VALUE(%BIN(&RCV 49 4))

 /* retrieve the total auxiliary storage +

    capacity in MB  */

CHGVAR  &TOTAUX     VALUE(%BIN(&RCV 57 4))