// JOB GA72258 DOCS 7.2.258 APAR GA72258
* DOCS 7.2.258, Issued by PRP on February 27, 2006
* Status=VERIFIED Type=REQUIRED
* -------------------------------------------------------------------
* Problem: Supress CORCMD if DOCS terminal is suspended.
* Supress diagnostic CORCMD when DOCS terminal is suspended.  The APAR also adds
* an indicator message when the response to a CP command has been truncated.
*
* This APAR resolves a problem reported in call 238983.
* -------------------------------------------------------------------
* Conditions for applying APAR:
* This APAR may be applied at any time, however its effect will
* not be experienced until the next time the system is IPL'ed.
// 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-72-DOC:GA72258 /* 1975-DOC-01-072:GA72258 for VSE/SP */
AFFECTS PHASE=DOCS$A
ALTER 12E 12:FF
AFFECTS PHASE=$DOCSICS               /* AT ALERT20+X'06'           */
ALTER 2A9E 4100002F : 47F0B1E8       /*     B   ALERT30 NO CORCMD  */
                                     /* AT ALERT50+X'22'           */
ALTER 2B5C 4820E008 : 41200000       /*     LA  R2,0    ONLY DOCS01*/
                                     /* AT ALERT50+X'2E'           */
ALTER 2B68 94FA1000 : 96001000       /*     OI  0(R1),0 LEAVE POST */
                                     /*                            */
AFFECTS PHASE=$DOCSIUC               /* AT A2000                   */
ALTER  E70 00002000 : 00001000       /*A4K  DC  (4*1024)           */
                                     /* PATCH 1                    */
ALTER  FA6 AFA6AFA8 : 9200AF7B       /*PAT1 MVI TSW,X'00'          */
ALTER  FAA AFAAAFAC : 4780AFB6       /*     BC  0,OK               */
ALTER  FAE AFAEAFB0 : 58F0AE70       /*     L   15,A4K             */
ALTER  FB2 AFB2AFB4 : 92FFAF7B       /*     MVI TSW,X'FF'          */
ALTER  FB6 AFB6AFB8 : 80009635       /*OK   SSW ENAB               */
ALTER  FBA AFBA     : 07F8           /*     BR  LINK               */
                                     /* PATCH 2                    */
ALTER  FBC AFBCAFBE : 9500AF7B       /*PAT2 CLI TSW,X'00' TRUNC?   */
ALTER  FC0 AFC0AFC2 : 4780B652       /*     BE  TOVM30    NO-      */
ALTER  FC4 AFC4AFC6 : 41C00800       /*     LA  RC,2048   POINT TO */
ALTER  FC8 AFC8AFCA : 41CCA800       /*     LA  RC,2048(RC,RA) PAT3*/
ALTER  FCC AFCCAFCE : 47F0C1BE       /*     B   PAT3               */
                                     /* PATCH 3                    */
ALTER 11BE B1BEB1C0 : 9200AF7B       /*PAT3 MVI TSW,X'00' RESET SW */
ALTER 11C2 B1C2B1C4 : 5820B720       /*     L   R2,TOVMSAVE+(R2*4) */
ALTER 11C6 B1C6B1C8B1CA:D24220159888 /*     MVC HCDATA,NULLS       */
ALTER 11CC B1CCB1CEB1D0:D2022015AEAF /*     MVC HCDATA+0(3),CPPREFI*/
ALTER 11D2 B1D2B1D4B1D6:D2112018C1EE /*     MVC HCDATA+3(18),TLIT  */
ALTER 11D8 B1D8B1DA : 41F00015       /*     LA  RF,3+18            */
ALTER 11DC B1DCB1DE : 40F02070       /*     STH RF,HCDATASZ        */
ALTER 11E0 B1E0B1E2 : 58F094B4       /*     L   RF,@DSS            */
ALTER 11E4 B1E4B1E6 : 41100024       /*     LA  R1,$DSSDPSC        */
ALTER 11E8 B1E8     : 058F           /*     BALR LINK,RF           */
ALTER 11EA B1EAB1EC : 47F0B652       /*     B   TOVM30             */
ALTER 11EE B1EEB1F0 : '  ..'         /*TLIT DC  C'  ....>TRUNCATED!*/
ALTER 11F2 B1F2B1F4 : '..>T'         /*                            */
ALTER 11F6 B1F6B1F8 : 'RUNC'         /*                            */
ALTER 11FA B1FAB1FC : 'ATED'         /*                            */
ALTER 11FE B1FE     : '! '           /*                            */
                                     /* AT TOVM18+X'1C'            */
ALTER 36E4 80009635 : 4D80AFA6       /*     BAS LINK,PAT1          */
                                     /* AT TOVM18+X'44'            */
ALTER 370C 4770B394 : 47F0B394       /*     B   *+8    USE R15 LEN */
                                     /* AT TOVM18+X'5A'            */
ALTER 3722 41F0F010 : 41F0F00F       /*     LA  R15,15(,R15) ROUND */
                                     /* AT TOVM25+X'06'            */
ALTER 390A 47D0B652 : 47D0AFBC       /*     B   PAT2               */
                                     /* AT TOVM26-X'04'            */
ALTER 392A 47F0B652 : 47F0AFBC       /*     B   PAT2               */
/*
/&