RE: [MI400] Open a file that contains a LOB field

[Gene_Gaunt@xxxxxxxxxxxxxxx]

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