Skip to content

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

re: 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 w...

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)
       exec sql select arName, arAdd1, arAdd2, arCity, arStte, arZip
                into  :outName, :outAddr1, :outAddr2, :outCity, :outState,
                from   ARMSTF1
                where  arCNum = :inCusNo
                fetch first 1 row only
                with CS
                use currently committed;
     P GetCustInf      E

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

code of conduct - report abuse