re: What's the Betamax of your field? VIEW POST

FULL DISCUSSION
 

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.

 

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
 
 

I loved the command language, but never understood RPGLE!

code of conduct - report abuse