RUN SUPER.

    hKontainer = DYNAMIC-FUNCTION('getContainerSource':U) NO-ERROR.
    IF VALID-HANDLE(hKontainer)
        THEN Progname = DYNAMIC-FUNCTION('makeProgname':U, INPUT hKontainer     ) NO-ERROR.
        ELSE Progname = DYNAMIC-FUNCTION('makeProgname':U, INPUT THIS-PROCEDURE ) NO-ERROR.