Re: [MI400] BLOBs and CLOBs

["Leif Svalgaard" <leif@xxxxxxxx>]

From: James H H Lampert <jamesl@xxxxxxxxxxx>
> 2. And I put this code *where* in the file control block?

DCL DD OFCB CHAR(nnn) BDRY(16);
    DCL SPCPTR .OFCB-ODP               DEF(OFCB) POS(  1);
    DCL SPCPTR .OFCB-INBUF             DEF(OFCB) POS( 17);
    DCL SPCPTR .OFCB-OUTBUF            DEF(OFCB) POS( 33);
    DCL SPCPTR .OFCB-OPEN-FEEDBACK     DEF(OFCB) POS( 49);
    DCL SPCPTR .OFCB-IO-FEEDBACK       DEF(OFCB) POS( 65);
    DCL SPCPTR .OFCB-NEXT-UFCB         DEF(OFCB) POS( 81);

    DCL DD *                  CHAR(32) DEF(OFCB) POS( 97);
    DCL DD OFCB-FILE          CHAR(10) DEF(OFCB) POS(129);
    DCL DD OFCB-LIB-ID        BIN(2)   DEF(OFCB) POS(139);
    DCL DD OFCB-LIBRARY       CHAR(10) DEF(OFCB) POS(141);
    DCL DD OFCB-MBR-ID        BIN(2)   DEF(OFCB) POS(151);
    DCL DD OFCB-MEMBER        CHAR(10) DEF(OFCB) POS(153);

    DCL DD OFCB-DEVICE-NAME   CHAR(10) DEF(OFCB) POS(163);
    DCL DD OFCB-DEVICE-INDEX  BIN(2)   DEF(OFCB) POS(173);

    DCL DD OFCB-FLAGS-1       CHAR(1)  DEF(OFCB) POS(175) INIT(X'80');
    DCL DD OFCB-FLAGS-2       CHAR(1)  DEF(OFCB) POS(176) INIT(X'10');

    DCL DD OFCB-REL-VERSION   CHAR(4)  DEF(OFCB) POS(177);
    DCL DD OFCB-INV-MK-COUNT  BIN (4)  DEF(OFCB) POS(181);
    DCL DD OFCB-MORE-FLAGS    CHAR(1)  DEF(OFCB) POS(185);
    DCL DD *                  CHAR(23) DEF(OFCB) POS(186);

    DCL DD OFCB-RECORD-ID     BIN (2)  DEF(OFCB) POS(209) INIT(1);
    DCL DD OFCB-RECORD-LENGTH BIN (2)  DEF(OFCB) POS(211) INIT(132);
    DCL DD OFCB-NO-MORE-PARMS BIN (2)  DEF(OFCB) POS(213) INIT(32767);

you put them before the NO-MORE-PARMS marker. Remember to adjust the
length of the FCB and the position of the marker.