PGM
    CRTCMOD MODULE(AESTEST) SRCFILE(QCSRC) OUTPUT(*PRINT) +
                         OPTION(*NOSHOWINC) DBGVIEW(*ALL)
    CRTPGM  PGM(AESTEST) MODULE(*CURLIB/AESTEST *CURLIB/AES) +
                          ACTGRP(*CALLER)
    CHGPGM  PGM(AESTEST) OPTIMIZE(*FULL)
    ENDPGM