DCL SPCPTR .ARG1 INIT(ARG1);
DCL DD      ARG1 CHAR(10);

DCL SPCPTR .ARG2 INIT(ARG2);
DCL DD      ARG2 CHAR(10);

DCL OL      MICPGM2 (.ARG1, .ARG2) ARG;
DCL SYSPTR .MICPGM2;

DCL DD RESOLVE CHAR(34);
    DCL DD RESOLVE-TYPE CHAR( 2) DEF(RESOLVE) POS( 1);
    DCL DD RESOLVE-NAME CHAR(30) DEF(RESOLVE) POS( 3);
    DCL DD RESOLVE-AUTH CHAR( 2) DEF(RESOLVE) POS(33);

ENTRY * EXT;
RESOLVE-TO-PGM:
    CPYBLA      RESOLVE-TYPE, X'0201';
    CPYBLAP     RESOLVE-NAME, "MICPGM2" , " ";
    RSLVSP     .MICPGM2, RESOLVE, *, *;

LOAD-ARGUMENTS-AND-CALL:
    CPYBLAP     ARG1, "ARG1", " ";
    CPYBLAP     ARG2, "ARG2", " ";
    CALLX      .MICPGM2, MICPGM2, *;

BACK-FROM-CALL:
    CAT         MSG-TEXT, ARG1, ARG2;
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;

RETURN:
    RTX        *;

%INCLUDE SHOWMSG