Re: [MI400] ROWID

[Allen Hartley <hartley@xxxxxxxxxxxxxxxxxxx>]

Gene,

I tried that, but still get the error when I try to write to the file.  
Here is a copy of the code.

         DCL DD .U03RECL BIN(2) 
INIT(01)                                       ;   
         DCL DD .U03RLEN BIN(2) INIT(32766)          /* LENGTH OF 
RECORD */    ;   
         DCL DD USRID BIN(2) INIT(165);
         DCL DD USRLEN BIN(2) INIT(5)            ;   
         DCL DD USRFLG CHAR(1) 
INIT(X'80')                                     ;   
         DCL DD .U03SQCK BIN(2) 
INIT(06)                                       ;   
         DCL DD .U03SEQK CHAR(1) INIT(X'00')         /* USER SETS IN 
OVERRIDE*/;   
         DCL DD LNKID BIN(2) INIT(166);
         DCL DD LNKLEN BIN(2) INIT(5)            ;   
         DCL DD LNKFLG CHAR(1) 
INIT(X'80')                                     ;   
         DCL DD LOBID BIN(2) INIT(167);
         DCL DD LOBLEN BIN(2) INIT(5);
         DCL DD LOBFLG CHAR(1) INIT(X'80');
         DCL DD VIEWDP BIN(2) INIT(03);
         DCL DD VIEWDT CHAR(1) INIT(X'80')    ;   
         DCL DD * CHAR(3) INIT(X'003C80')            
/*ZARVSEQ*/               ;   
         DCL DD .U03END CHAR(2) INIT(X'7FFF')        /* END OF UFCB */ 
;           
                                                         
Thanks
Allen

Gene_Gaunt@xxxxxxxxxxxxxxx wrote:

> Use parameter value '165' in your UFCB variable parameter area to open a
> file with a UDT:
>
> <UFCB snip>
> dcl dd Udt_Parm_Id      bin(2)  init(165);
> dcl dd Udt_Parm_Length  bin(2)  init(5);
> dcl dd Udt_Parm_Flag    char(1)  init(x'80');
> </UFCB snip>
>
> We've talked through this twice before on MI400, in Nov 2002 and Jan 2004.
> Search the archives for CPF28A.
>
> _______________________________________________
> 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.
>
>
>