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:
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,
where arCNum = :inCusNo
fetch first 1 row only
use currently committed;
P GetCustInf E
Ha, You are a legend for diving into that Rabbit Hole!
Or I need better hobbies :)
I loved the command language, but never understood RPGLE!
We're a place where coders share, stay up-to-date and grow their careers.
We strive for transparency and don't collect excess data.