PGM        PARM(&SRCLIB)

             DCL        VAR(&SRCLIB) TYPE(*CHAR) LEN(10)

             CLRLIB     LIB(QTEMP)

             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))

             RMVLIBLE   LIB(QTEMP)
             MONMSG     MSGID(CPF0000)
             ADDLIBLE   LIB(QTEMP)

             CRTPF      FILE(QTEMP/GEDDS99) SRCFILE(&SRCLIB/QDDSSRC) +
                          TEXT('Template for API error')
             CRTPF      FILE(QTEMP/TRACEIT) SRCFILE(&SRCLIB/QDDSSRC) +
                          TEXT('TraceIt Output file')

             CRTRPGMOD  MODULE(QTEMP/TRC002M01) +
                          SRCFILE(&SRCLIB/QRPGSRC) TEXT('Session Handler')
             CRTRPGMOD  MODULE(QTEMP/TRC004M01) +
                          SRCFILE(&SRCLIB/QRPGSRC) TEXT('Program-Stop +
                          Handler')
             CRTRPGMOD  MODULE(QTEMP/TRC010M01) +
                          SRCFILE(&SRCLIB/QRPGSRC) TEXT('Parameter +
                          carrier')
             CRTRPGMOD  MODULE(QTEMP/TRC012M01) +
                          SRCFILE(&SRCLIB/QRPGSRC) TEXT('Sub +
                          procedures library')

             CRTSRVPGM  SRVPGM(QTEMP/TRC010) MODULE(TRC010* TRC012*) +
                          EXPORT(*ALL) TEXT('Parameter carrier') +
                          ACTGRP(QTEDBGAG) OPTION(*DUPPROC)
             CRTPGM     PGM(QTEMP/TRC002) MODULE(TRC002* TRC012*) +
                          BNDSRVPGM(QTEDBGS TRC010) +
                          ACTGRP(QTEDBGAG) OPTION(*DUPPROC)
             CRTPGM     PGM(QTEMP/TRC004) MODULE(TRC004* TRC012*) +
                          BNDSRVPGM(QTEDBGS TRC010) +
                          ACTGRP(QTEDBGAG) OPTION(*DUPPROC)

             CRTCMD     CMD(QTEMP/TRACEIT) PGM(TRACEIT) +
                          SRCFILE(&SRCLIB/QCMDSRC) TEXT('TraceIt Init')
             CRTCLPGM   PGM(QTEMP/TRACEIT) SRCFILE(&SRCLIB/QCLSRC)

             RETURN

 ERROR:      CALL       PGM(QMHRSNEM) PARM('    ' X'00000000')

             ENDPGM