PGM
    /************************************************/
    /* CHANGE &LIBVARUC VALUE IF YOU WANT TO RUN    */
    /* AS400EXT FROM A LIBRARY OTHER THAN AUDITLIB  */
    /* THE DEFAULT LIBRARY IS AUDITLIB              */
    /* NOTE: THE SAVLIB PARAMETER REMAINS AUDITLIB! */
    /************************************************/
    DCL VAR(&LIBVARUC) TYPE(*CHAR) LEN(10) +
        VALUE(AUDITLIB)

    RSTOBJ    OBJ(AS400EXT) SAVLIB(AUDITLIB) RSTLIB(&LIBVARUC) +
              DEV(*SAVF) OBJTYPE(*PGM) SAVF(&LIBVARUC/AS400EXT)

ENDPGM
