Jon Box's Weblog

 


.NET Articles by the Atomic group

MSDN RDs









Subscribe to "Jon Box's Weblog" in Radio UserLand.

Click to see the XML version of this web page.

Click here to send an email to the editor of this weblog.

 

 

  Friday, October 10, 2003


New site just released by Microsoft of 3rd party analysis


12:17:35 PM    comment []

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    comment []


Click here to visit the Radio UserLand website. © Copyright 2004 Jon Box.
Last update: 8/31/2004; 11:59:53 PM.

October 2003
Sun Mon Tue Wed Thu Fri Sat
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31  
Sep   Nov