DCL SPCPTR .UFCB INIT(UFCB);
DCL DD UFCB CHAR(210) BDRY(16);
DCL SPCPTR .ODP           DEF(UFCB) POS(  1);
DCL SPCPTR .INREC         DEF(UFCB) POS( 17);
DCL SPCPTR .OUTREC        DEF(UFCB) POS( 33);
DCL DD FILE      CHAR(10) DEF(UFCB) POS(129) INIT("QSN80");
DCL DD LIB-ID    BIN(2)   DEF(UFCB) POS(139) INIT(75);
DCL DD LIB       CHAR(10) DEF(UFCB) POS(141) INIT("QSYS");
DCL DD MBR-ID    BIN(2)   DEF(UFCB) POS(151) INIT(-71); /* 1ST */
DCL DD END-LIST  BIN(2)   DEF(UFCB) POS(209) INIT(32767);

DCL SPCPTR .OPTION INIT(OPTION);
DCL DD      OPTION CHAR(4) INIT(X'03000006'); /* PUT, GET, WAIT */

DCL SPCPTR .CONTROL INIT(CONTROL);
DCL DD      CONTROL CHAR(14);
    DCL DD FORMAT-ITEM  CHAR(1)  DEF(CONTROL) POS( 1) INIT(X'01');
    DCL DD ITEM-LENGTH  BIN(2)   DEF(CONTROL) POS( 2) INIT(10);
    DCL DD RECORD-NAME  CHAR(10) DEF(CONTROL) POS( 4) INIT("USRRCD");
    DCL DD END-OF-LIST  CHAR(1)  DEF(CONTROL) POS(14) INIT(X'FF');

DCL DD INREC  BAS(.INREC)  CHAR(5681);
DCL DD OUTREC BAS(.OUTREC) CHAR(5681);

DCL OL IOLIST (.UFCB, .OPTION, .CONTROL) ARG;
DCL OL OCLIST (.UFCB) ARG;

DCL DD DEVICE-CONTROL-BLOCK BAS(.ODP) BIN(4) POS(17);
DCL DD PUT-GET  BAS(.DEVICE-CONTROL)  BIN(2) POS(35);
DCL MSPPTR .DEVICE-CONTROL;

DCL SPCPTR @SEPT BASPCO;
DCL SYSPTR .SEPT(6440) BAS(@SEPT);

    CALLX      .SEPT(12), OCLIST, *;
    CPYBLA      OUTREC(1:14), X'0019000373044004110028110C22';
    CPYBLA      OUTREC(15:12), "Hello, World";
    CPYBLA      OUTREC(27:4), X'04520000';
    ADDSPP     .DEVICE-CONTROL, .ODP, DEVICE-CONTROL-BLOCK;
    CALLX      .SEPT(PUT-GET), IOLIST, *;
    CALLX      .SEPT(11), OCLIST, *;
    RTX         *;