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

    DLTF      FILE(&LIBVARUC/AS400EXT)
    MONMSG    MSGID(CPF0000)

    CRTSAVF   FILE(&LIBVARUC/AS400EXT) +
         TEXT('Save file for restore of AS400EXT SAVF file')

ENDPGM
