Skip to main content

MySqlParameter

  • February 12, 2017
  • 6 replies
  • 0 views
A
  • Anonymous

How would you write this in .net Cobol as an object initializer.

 

SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

I have so far

method-id LogUserInfo(tro as type TO_Queue) public.
local-storage section.
01 parms type MySqlParameter occurs any.

set parms = new MySqlParameter("@username", tro::UserName)

Where do i take it from here to declare an object initializer?

    6 replies

    D

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    Something like this should do the trick I think:

    declare parms = table of
    (
    new SqlParameter("@first_name", type SqlDbType::VarChar, 50,
    property Value = cust::FirstName)
    new SqlParameter("@last_name", type SqlDbType::VarChar, 50,
    property Value = cust::LastName)
    )
    A
    • Anonymous
    • February 15, 2017

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    Can you declare the table in the local storage section? Say for example 01 parms table occurs any. And then write set parms = ( )
    D

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    Yes, that should be absolutely fine.
    A
    • Anonymous
    • February 15, 2017

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    method-id GetUserInfo (tro as type TO_Queue) returning valid as type Boolean static
    local-storage section.
    01 dict type Dictionary[string, string] value new Type Dictionary[string, string].
    01 parms table occurs any.

    set parms = (
    new MySqlParameter("username", tro::UserName)
    new MySqlParameter("password", type GlobalMethods::Decrypt(tro::Password)::Trim())
    )

    I am getting unknown data description qualifier at 01 parms table occurs any.
    D

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    Ah no, sorry, you need to have:
    01 parms type MySqlParameter occurs any.
    and set parms = table of (...)
    A
    • Anonymous
    • February 15, 2017

    How would you write this in .net Cobol as an object initializer.

     

    SqlParameter[] parameters =
{    
  new SqlParameter("@first_name", SqlDbType.VarChar, 50) { Value = to.FirstName },
  new SqlParameter("@last_name", SqlDbType.VarChar, 50) { Value = to.LastName },
  new SqlParameter("@middle_name", SqlDbType.VarChar, 50) { Value = to.MiddleName },
  new SqlParameter("@empid", SqlDbType.Int) { Value = to.EmpId }
};

    I have so far

    method-id LogUserInfo(tro as type TO_Queue) public.
    local-storage section.
    01 parms type MySqlParameter occurs any.

    set parms = new MySqlParameter("@username", tro::UserName)

    Where do i take it from here to declare an object initializer?
    Thanks Robert! I am teaching myself .net cobol coming from C# and VB.Net so the syntax is still fairly new. I learned COBOL back in the 80's so the .net Cobol is great and I love it better that the old COBOL, but it is still challenging.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement