I'm writing some code that will be copied into Cobol programs:
Within the code that's copied (into many different programs), how can I find
out the name of the program that this code has been copied into? I've
looked at the Cobol Special Registers, and at all the Cobol Functions that I
could find, but don't see any reference to the name that is the operand of
the PROGRAM-ID statement.
You don't mention where or when or why you want to do this.
You can use ISPF's SEARCH FOR feature (3.13 or 1.14?) against your source lib. Search for "DIAG001". This will return all uses of "COPY DIAG001" (and maybe some other uses of it) along with the member name of the using program.
You can edit the Searcg for listing to extract only copy symts and module names.