Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

Method return value

$
0
0

Is there another way of returning a value back to the calling method other than using the set statement.  For example

method-id GetUserTypes() returning #list as type List[type TO_Queue] public
       local-storage section.
       01  userType type List[type TO_Queue] value new Type List[type TO_Queue].


           perform using conn as type MySqlConnection = new MySqlConnection(type DALUtility::GetSQLConnection("conn"))
           invoke conn::Open()
               perform using cmd as type MySqlCommand = new MySqlCommand("UserRights", conn)
                   set cmd::CommandType to type CommandType::StoredProcedure
                       perform using rdr as type MySqlDataReader = cmd::ExecuteReaderExtended()
                           perform until not rdr::Read
                               invoke userType::Add(new TO_Queue
                                      (
                                           property UserTypes = rdr::GetString("Type")
                                      ))
                           end-perform
                       end-perform
               end-perform
           end-perform
           set #list to userType

 

versus like we do in C# by simply writing    return userType.


Viewing all articles
Browse latest Browse all 4356

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>