Re: [MI400] BLOBs and CLOBs

["Leif Svalgaard" <leif@xxxxxxxx>]

----- Original Message ----- 
From: James H H Lampert <jamesl@xxxxxxxxxxx>
To: <mi400@xxxxxxxxxxxx>
Sent: Thursday, January 08, 2004 3:36 PM
Subject: [MI400] BLOBs and CLOBs


> 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!)
> 
> 
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>