Creative, Curious Maker, I have 10 years in Tech, and I am a Software Developer at a mid-sized enterprise. Hardworking and collaborative, likes to help others. Hit me up!
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.
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
Creative, Curious Maker, I have 10 years in Tech, and I am a Software Developer at a mid-sized enterprise. Hardworking and collaborative, likes to help others. Hit me up!
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:
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!