[Info-vax] DIBOL-11

[Kevin Monceaux]

On Mon, Mar 13, 2023 at 02:17:27PM -0700, Pizza RAC via Info-vax wrote:
> On Sunday, March 12, 2023 at 12:35:04 PM UTC-4, bill wrote:
> > On 3/12/2023 9:17 AM, Pizza RAC wrote: 
> >
> > I suspect you haven't done all that much RPG. While it wouldn't be 
> > my first choice, it is better at what it does than many of the more 
> > current ego languages. 
> > 
> false - I used rpg III for 6 months on an as400 between PDP and Vax/Alpha
> DIBOL - it was menu city reports worse environment ever

Thankfully it has evolved a bit since RPG III.  Free format RPG on the
platform formerly known as the AS/400 isn't too bad.  A excerpt from an
active tape list report program I cobbled together at my previous
employer's:

       DoU SQLCode <> 0;

           Exec SQL
               Fetch Next
               From TapCtgCsr1
               Into :TapCtgLstDS, :QA1AMMDS;

           If SQLCodE <> 0;
               Leave;
           EndIf;

           CurrentSlot = %Dec(RDLoc:2:0);

           If CurrentSlot > 11 and PreviousSlot <= 11;
               LibMagazin = 'Right';
               Write SltOrdSep;
           EndIf;

           LibSlot    = CurrentSlot;
           VolSer     = RDMID;
           SystemID   = RDSysN;
           VolDesc    = TMText;

           Write SltOrdDtl;

           LibMagazin = '';

           PreviousSlot = CurrentSlot;

       EndDo;

All of the above is best taken with a few grains of salt.  I'm a pre-novice
at free format RPG at best, and was learning some of the little I know while
coding the above.





-- 

Kevin
http://www.RawFedDogs.net
http://www.WacoAgilityGroup.org
Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.