DCL SPCPTR .ARG1 INIT(POINTER);
DCL DD  POINTER CHAR(16) BDRY(16);
    DCL PTR .POINTER           DEF(POINTER) POS( 1);

    DCL DD PTR-TYPE    CHAR(8) DEF(POINTER) POS( 1);
    DCL DD PTR-SEGMENT CHAR(5) DEF(POINTER) POS( 9);
    DCL DD PTR-OFFSET  CHAR(3) DEF(POINTER) POS(14);

DCL DD DATA CHAR(8000) BAS(.POINTER);

DCL OL      MIMAKPTR (.ARG1) ARG;
DCL SYSPTR .MIMAKPTR;

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) INIT(X'0000');

DCL SPCPTR .LENGTH-XLATE  INIT(LENGTH-XLATE);
DCL DD      LENGTH-XLATE  PKD(5,0) INIT(P'8');

DCL SPCPTR .DATA-XLATE;

DCL SPCPTR .TABLE-NAME INIT(TABLE-NAME);
DCL DD      TABLE-NAME CHAR(10) INIT("MYTABLE");

DCL OL QDCXLATE(.LENGTH-XLATE, .DATA-XLATE, .TABLE-NAME);

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

LOAD-ARGUMENTS-AND-CALL:
    CPYBLA      PTR-SEGMENT, X'0E6792A4C7';
    CPYBLA      PTR-OFFSET , X'000600';
    CALLX      .MIMAKPTR, MIMAKPTR, *;

    CPYBWP     .DATA-XLATE, .POINTER;
    CALLX      .SEPT(410), QDCXLATE, *;
    CVTHC       MSG-TEXT, DATA(1:35);
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;

    RTX        *;

%INCLUDE SHOWMSG