Re: Prototype error

Ron,

The last P-spec is GETDATE.

BTW, I would use SETLL over CHAIN.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 8-7-05 at 13:59 RPower@xxxxxxxxxx wrote:

>What am I doing wrong?  I'm trying to create a procedure for building a 
>customer id, and I'm not getting anywhere.
>I get the error:
>*RNF7535 30      2 The type and attributes of the parameter do not match those
>                   of the prototype.  
>
>Here's my code for the prototype and procedure:
>
>     D Create_CustId   PR            22
>     D  inStreet                      4S 0
>     D  inCivic                      10
>     D  inUnit                        5 
>
>         Wccustid = Create_Custid(Wcstreet#:Wccivic#:Wcunit); 
>
>     P Create_CustId   B
>     D Create_CustId   PI            22
>     D  inStreet                      4S 0
>     D  inCivic                      10
>     D  inUnit                        5
>      // Local fields
>     D Cust_Id         ds            22
>     D  Cust_Street                   4    Overlay(Cust_Id:*Next)
>     D  Cust_Civic                   10    Overlay(Cust_Id:*Next)
>     D  Cust_Unit                     5    Overlay(Cust_Id:*Next)
>     D  Cust_Seq                      3    Overlay(Cust_Id:*Next)
>     D retField        s             22
>     D Valid                           N
>      /FREE
>         Cust_Street = %Editc(inStreet:'X');
>         Cust_Civic = inCivic;
>         Cust_Unit = inUnit;
>         Seq = 1;
>         Cust_Seq = %Editc(Seq:'X');
>         retField = Cust_Id;
>         // Check that we don't already have this id, if we do, increase the 
> seq number portion
>         Valid = *Off;
>         DoW Valid = *Off;
>           Chain retField Wcustomer;
>           If %Found(Wcustomer);
>             Seq += 1;
>             Cust_Seq = %Editc(Seq:'X');
>             retField = Cust_Id;
>           Else;
>             Valid = *On;
>           EndIf;
>         EndDo;
>         Return retField;
>      /END-FREE
>     P GetDate         E