If STRDBG command shows no source but only message "Source not available."
STRDBG PGM(MyLibrary/MyPGM) UPDPROD(*YES) OPMSRC(*YES)
Display Module Source
Program: CMPUSRPRF Library: ADMDEVTOD Module: CMPUSRPRF
(Source not available.)
Bottom
Debug . . .
There is a simple sollution. Program has to be compiled with correctly setup option DBGVIEW before command STRDBG is used.
Debugging view . . . . . . . . . DBGVIEW *SOURCE