// JOB QA41007 QVIEW 4.1.7 APAR QA41007
* QVIEW 4.1.7, Issued by PRP on August 05, 2004
* Status=VERIFIED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Ensure QVIEW expiration/un-licensed messages displayed.
* Change QVIEW so that it will allow the SPI Common Interface to
* display QVIEW expiration and/or un-licensed useage messages
* without requiring a reply, even if within 10 days of
* expiration. Also, correct text of QVIEW message QVW0013I to
* reflect that only 25 days of un-licensed useage are permitted.
* :SPIPTFAC 'Conditions Required for Application of PTF' You may
* apply this APAR at any time. Since this APAR is being applied
* to a relocatable module, MSHP will require some compiler work
* files. Ensure that there is label information for IJSYSLN,
* IJSYS01, and IJSYS04, and that SYSLNK, SYS001, and SYS004 are
* assigned. After APAR processing is complete, re-link the
* affected program(s). Then use CEMT or CSMT to tell CICS that
* -------------------------------------------------------------------
* Conditions for applying APAR:
* Example: CEMT S PR(phasename) NEW -- or -- CSMT
* NEW,PGRMID=phasename :exmp.
// PAUSE *** Enter CANCEL to bypass APAR.  Press ENTER to apply.
// LIBDEF CL,TO=IJSYSRS,FROM=IJSYSRS (target lib) MVT/VSE systems only.
// DEFINE GETVIS=200K                             MVT/VSE systems only.
// EXEC MSHP,SIZE=900K
CORRECT 1975-41-QVW:QA41007 /* 1975-QVW-01-041:QA41007 for VSE/SP */
AFFECTS PHASE=QVWSPI$A
ALTER 33 07:FF
AFFECTS MODULE=Q41MAIN                 /*                            */
                                       /* FIX AT DEBUG+X'3A'         */
ALTER 9E42 92A030CE     : 928830CE     /*     MVI  SDCOP1,#SDCO1CR+NR*/
                                       /* FIX AT DEBUG+X'42'         */
ALTER 9E4A 920030CF     : 920030D0     /*     MVI  SDCOP3,X'00'      */
                                       /* FIX AT SPIEX90+X'38'       */
ALTER 9F22 F871A00030C3 : D201A00930C3 /*     MVC  READKEY+1(2),SDCUL*/
ALTER 9F28 960FA007     : 92F0A008     /*     MVI  READKEY,C'0'      */
ALTER 9F2C F321A008A006 : 070007000700 /*     NOP  0                 */
                                       /*                            */
AFFECTS PHASE=Q41MSGS                  /*                            */
                                       /* FIX AT QVW0013+X'2B'       */
ALTER  3BD F3F0         : F2F5         /*     DC   C'25'             */
/*
/&