When I saw this, I had to post something. I'm sure this is a great product, but man is that code ugly!!!!
|
What is ASNA's Visual RPG for .NET? |
It's not your father's problem, don't use your father's RPG to solve it! |
|
ASNA's Visual RPG for .NET (AVR.NET) is an RPG compiler that "snaps" into Microsoft's Visual Studio.NET. It generates 100% Microsoft Intermediate Language (MSIL) and connects Windows and browser-based applications directly to your iSeries-AS/400 servers (with support for the Microsoft SQL Server "Yukon" coming soon). AVR.NET empowers your RPG programming teams to create robust and secure enterprise applications with a modern development environment. RPG programmers can learn the basics of AVR.NET in just a few days and in short order be creating world-class applications. These applications can be as simple as a Windows-based graphical data entry program or scale all the way to sophisticated Web services performing business-to-business transactions across the Internet. |
Code Sample
DclDB Production DBName( "ASNADB" )
DclDiskFile Cust + Type( *Input ) + Org( *Indexed ) + File( "ASNA_Example_Files/CMMasterL2" ) + DB( Production ) + ImpOpen( *No ) DclMemoryFile CustMem + DbDesc( Production ) + FileDesc( "ASNA_Example_Files/CMMasterL2" ) + ImpOpen( *No ) + RnmFmt( RCustMem ) Connect Production Open Cust Open CustMem
SetLL Cust Key( *START ) ExSr FillGrid
BegSr FillGrid DclFld Rows Type( *Integer ) Len( 4 ) Inz( 16 ) CustMem.DataSet.Clear()
Do FromVal( 1 ) ToVal( Rows ) Read Cust If ( %EOF( Cust ) ) Leave EndIf Write RCustMem EndDo
CustGrid.DataSource = CustMem.DataSet CustGrid.SetDataBinding( CustMem.dataSet, "RCMMastL2" ) EndSr
12:48:00 AM
|
|