[Firebird-checkins] CVS: interbase/isql show.e,1.1.1.1,1.2

[Frank Schlottmann-G. <fs...@us...>]

Update of /cvsroot/firebird/interbase/isql
In directory slayer.i.sourceforge.net:/tmp/cvs-serv10206/interbase/isql

Modified Files:
	show.e 
Log Message:
Change in show.e to use CHARACTER_LENGTH instead of FIELD_LENGTH in
SHOW PROCEDURE


Index: show.e
===================================================================
RCS file: /cvsroot/firebird/interbase/isql/show.e,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** show.e	2000/08/03 20:49:25	1.1.1.1
--- show.e	2000/11/19 07:02:49	1.2
***************
*** 20,23 ****
--- 20,28 ----
   * All Rights Reserved.
   * Contributor(s): ______________________________________.
+  * $Log$
+  * Revision 1.2  2000/11/19 07:02:49  fsg
+  * Change in show.e to use CHARACTER_LENGTH instead of FIELD_LENGTH in
+  * SHOW PROCEDURE
+  *
   */
  
***************
*** 3233,3240 ****
                  break;
                  }
! 
  	if (((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR)) &&
  	    !FLD.RDB$CHARACTER_LENGTH.NULL)
! 	    sprintf (lenstring, "(%d)", FLD.RDB$FIELD_LENGTH);
  	else
  	    sprintf (lenstring, "");
--- 3238,3247 ----
                  break;
                  }
! /* Use RDB$CHARACTER_LENGTH instead of RDB$FIELD_LENGTH
!    FSG 19.Nov.2000
! */     
  	if (((FLD.RDB$FIELD_TYPE == FCHAR) || (FLD.RDB$FIELD_TYPE == VARCHAR)) &&
  	    !FLD.RDB$CHARACTER_LENGTH.NULL)
! 	    sprintf (lenstring, "(%d)", FLD.RDB$CHARACTER_LENGTH);
  	else
  	    sprintf (lenstring, "");