DEV Community

Discussion on: What's the Betamax of your field?

Collapse
 
jbull328 profile image
John Bull • Edited

IBM I-Series. Still in heavy use at my new employer. Apparently it was the Bee's Knees 25 years ago. But they hired me to help modernize, so here we go.

It uses some language called RPG... I never heard of it before I came on board.

Collapse
 
deciduously profile image
Ben Lovy

Thanks for the rabbit hole.

This looks...less than ergonomic:

     H main(GetCustInf)
     D ARMSTF1       E DS
     P GetCustInf      B
     D GetCustInf      PI                  extpgm('CUS001')
     D  inCusNo                            like(arCNum) const
     D  outName                            like(arName)
     D  outAddr1                           like(arAdd1)
     D  outAddr2                           like(arAdd2)
     D  outCity                            like(arCity)
     D  outState                           like(arStte)
     D  outZip                             like(arZip)
      /free
       exec sql select arName, arAdd1, arAdd2, arCity, arStte, arZip
                into  :outName, :outAddr1, :outAddr2, :outCity, :outState,
                      :outZip
                from   ARMSTF1
                where  arCNum = :inCusNo
                fetch first 1 row only
                with CS
                use currently committed;
      /end-free
     P GetCustInf      E
Collapse
 
jbull328 profile image
John Bull

Ha, You are a legend for diving into that Rabbit Hole!

Thread Thread
 
deciduously profile image
Ben Lovy

Or I need better hobbies :)

Collapse
 
hydroweaver profile image
Karan

I loved the command language, but never understood RPGLE!