SQL_PROC_SYS_TABLA_FICHERO_FMT

-- SELECT * FROM syscolumns WHERE ID = 738101670
--EXEC SYS_TABLA_FICHERO_FMT 'A_MIDAS_COMPLEJOS_PEDIDOS'

CREATE PROCEDURE PROC_SYS_TABLA_FICHERO_FMT

 @TABLA VARCHAR(100)

AS

DECLARE @nColumnas INT
DECLARE @iCOLUMNA INT
DECLARE @ID_TABLA INT
--DECLARE @TABLA CHAR(200)
DECLARE @VERSION CHAR(5)
DECLARE @sFILA VARCHAR(500)
DECLARE @SEPARADOR CHAR(5)
-- *********** VARIABLES PARA LOS CAMPOS DE LA TABLA
DECLARE @CAMPO CHAR(150)
DECLARE @LONGITUD INT

SELECT @VERSION = '8.0'
--SELECT @TABLA = 'A_MIDAS_COMPLEJOS_PEDIDOS'

SELECT @ID_TABLA = id FROM sysobjects WHERE name = @TABLA
SELECT @nColumnas = COUNT(*) FROM SysColumns WHERE id = @ID_TABLA

--PRINT @ID_TABLA
PRINT @VERSION
PRINT @nColumnas


-- ******************** CURSOR PARA RECORRER LOS CAMPOS

DECLARE RS CURSOR
FOR SELECT Name,LENGTH FROM SysColumns WHERE ID = @ID_TABLA
OPEN RS

SELECT @iCOLUMNA = 1

FETCH NEXT FROM RS
INTO @CAMPO,@LONGITUD;

WHILE @@FETCH_STATUS = 0
BEGIN

    IF @iCOLUMNA = @nColumnas SELECT @SEPARADOR = '"\n"' ELSE SELECT @SEPARADOR = '"\t"'

    SELECT @sFILA = LTRIM(RTRIM(CONVERT(CHAR,@iCOLUMNA))) + CHAR(9)
    SELECT @sFILA = @sFILA + 'SQLCHAR' + CHAR(9)
    SELECT @sFILA = @sFILA + '0' + CHAR(9)
    SELECT @sFILA = @sFILA + LTRIM(RTRIM(CONVERT(CHAR,@LONGITUD))) + CHAR(9)
    SELECT @sFILA = @sFILA + @SEPARADOR + CHAR(9)
    SELECT @sFILA = @sFILA + LTRIM(RTRIM(CONVERT(CHAR,@iCOLUMNA))) + CHAR(9)
    SELECT @sFILA = @sFILA + LTRIM(RTRIM(@CAMPO)) + CHAR(9)
    SELECT @sFILA = @sFILA + 'Modern_Spanish_CI_AS'

    PRINT @sFILA

    --PRINT CONVERT(CHAR,@iCOLUMNA) + CHAR(9) + 'SQLCHAR'   0   50  "\t"    1   CODIGO  Modern_Spanish_CI_AS

    SELECT @iCOLUMNA = @iCOLUMNA + 1


FETCH NEXT FROM RS
INTO @CAMPO,@LONGITUD;

END
CLOSE RS;
DEALLOCATE RS;