++PTF(ASP1127). /*--------------------------------------------------
ASP1127 100115 ASEB209 Change JPVAKRJR variable in JPR from user to system

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2010

_APARLIST:

ASZ3481 091201 61VASE PS ASEB209 V209 SUGG  OK   OMCSMJPR 100119 S__1127
Change JPVAKRJR from a user variable in JPR to a system variable

       */
++VER(Z038) FMID(ASEB209)
            SUP(ASZ3481).
++SRC(OMCSMJPR).
++SRC(OMCSMJPV).
++MOD(OMCSMJPR).
++MOD(OMCSMJPV).