Quantcast
Channel: Visual COBOL
Viewing all articles
Browse latest Browse all 5819

Forum Post: 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 5819

Trending Articles



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