[MI400] BLOBs and CLOBs

["James H H Lampert" <jamesl@xxxxxxxxxxx>]

Over a year ago, Gene Gaunt said:

> To get past CPF428A, your UFCB variable area needs one, two, or three of
> the following:

> dcl dd ClobParmId           bin(2) init(167);  -- for CLOBs
> dcl dd ClobParmLength       bin(2) init(5);
> dcl dd ClobParmFlag         char(1) init(X"80");
> /*--*/
> dcl dd DataLinkParmId       bin(2) init(166);  -- for datalinks
> dcl dd DataLinkParmLength   bin(2) init(5);
> dcl dd DataLinkParmFlag     char(1) init(X"80");
> /*--*/
> dcl dd UdtParmId            bin(2) init(165);  -- for user types
> dcl dd UdtParmLength        bin(2) init(5);
> dcl dd UdtParmFlag          char(1) init(X"80");

Dear Gene, Leif, et al.:

Two questions immediately pop into my mind:

1. What about CLOBs?

2. And I put this code *where* in the file control block?

--
JHHL
(who spent a year or so finding and fixing hidden flaws after implementing
nullmap support!)