DCL SYSPTR .SEPT(6440) BAS(@SEPT);
DCL DD PCO CHAR(256) BASPCO;
   DCL SPCPTR @SEPT  DEF(PCO) POS( 1);

DCL DD IBM-SEPT CHAR(103040) BAS(@SEPT);
DCL DD MY-SEPT  CHAR(103040) BDRY(16);

DCL DD MY-PTR CHAR(16) BDRY(16);
    DCL SPCPTR .MY-SEPT DEF(MY-PTR) POS(1) INIT(MY-SEPT);

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

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

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');

ENTRY * EXT;
    CPYBLA       RESOLVE-TYPE, X'0201';
    CPYBLAP      RESOLVE-NAME, "MIGOSYS" , " ";
    RSLVSP      .MIGOSYS, RESOLVE, *, *;

    CPYBLAP      ARG1, "*YES", " ";
 /*******/
    CALLX       .MIGOSYS, MIGOSYS, *;
 /*******/

    CPYBWP       MY-SEPT, IBM-SEPT;
    CPYBWP       PCO, MY-PTR;
    RTX          *;