|
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 
|
|
