RE: Getting the library name from a CL program

Here's 2 methods from the Archives.  I've always used SNDPGMMSG, but I like
the simplicity of the DMPCLPGM version.

http://archive.midrange.com/midrange-l/199905/msg00085.html
http://archive.midrange.com/midrange-l/199905/msg00123.html

-----Original Message-----
From: Joe Pluta [mailto:joepluta@PlutaBrothers.com]
Sent: Thursday, 15 November, 2001 8:31 AM
To: midrange-l@midrange.com
Subject: Getting the library name from a CL program


Here's a silly question.  I've always been able to get the library a program
was called from in RPG by using the program status data structure.  In a C/S
environment, this is really important, because it allows you to have
multiple environments based on just the library you call your initial
program from.

However, I have never figured out a way to do the same thing from a CL.
Anybody have any sneaky ways of doing this, or do I just use my tried and
true method of wrapping the CL program in an RPG wrapper that determines the
library?

Joe