RE: Lost source of old RPG PGM

Gad -

Once upon a time there was a company named Source Retrieval, Inc. which provide software and/or a pay-per-source member service for this.

At the turn of the century I utilized their service for a client in Chicago and successfully retrieved the source from an OPM RPG program. The code was ugly, since the compiles translates loop code into GOTO's with tags, but I was able to edit the retrieved source and make it much like the original structure code.

However, Source Retrieval disappeared into the mist a few years ago and I have not been able to find out what happened to their offerings.

Regards,
Steve Landess
512-289-0387


-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Gad Miron
Sent: Wednesday, September 21, 2022 5:40 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Lost source of old RPG PGM

Hello all

I thought this would not happen to ME but it just did

A developer here just asked me to help him find a source of an OLD OPM RPG program.
Apparently the source is lost for a looong time as digging in several-years-old backups did not unearthed it.
Unfortunately, the PGM object has no debug data (STRDBG displays nothing)

is there a way to retrieve the source from the PGM object (besides dumping) ?


Any help would be gladly received
Gad
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Fmidrange-l&amp;data=05%7C01%7C%7C68e6fa4146a54cfc077108da9bbdac81%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637993536194739327%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=p0nMiIgOODQutERr5%2FpFOwh3iSSmcgD46HAMh8GYKfI%3D&amp;reserved=0
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Fmidrange-l&amp;data=05%7C01%7C%7C68e6fa4146a54cfc077108da9bbdac81%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637993536194739327%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=NBsULCz2u%2F08pLunX7Vec0dw%2FXv5mR2MSf5kRQ4mpgA%3D&amp;reserved=0.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&amp;data=05%7C01%7C%7C68e6fa4146a54cfc077108da9bbdac81%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637993536194739327%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=i8mOB9EAk4f5yU1iV4BGk9aBP12mwxdDLA6G284Qvuo%3D&amp;reserved=0