RAKF0011I not correct in ICHSFR00

[robprins]

Hi,
I found an issue in ICHSFR00 after the update of the STC and PROD users.
In routine WTOPROD, the jobname is incorrect place in msg RAKF0011I
You placed ASCBJBNI in the WTO, but ASCBJBNI is a pointer to the job name.

The correct code of WTOPROD is below:

WTOPROD  MVC   WORKWTO(REALWTOL),REALWTO INIT WTO                   @10 07599500
         MVC   WORKWTO+4(60),WTOMSG11 MOVE MESSAGE                  @10 07599600
         ICM   R2,B'1111',PSAAOLD  GET ASCB                         @10 07599700
         BZ    WTOPROD1            NO ASCB                          @10 07599710
         ICM   R2,B'1111',ASCBJBNI-ASCB(R2)                         @10 07599720
         BZ    WTOPROD1            NO JOBNAME FILLED IN             @10 07599730
         MVC   WORKWTO+4+WTMSG11J(8),0(R2)    MOVE JOB NAME         @10 07599800
WTOPROD1 WTO   MF=(E,WORKWTO)      ISSUE MESSAGE                    @10 07599850
         BR    R10                 RETURN                           @10 07599860