PN67035: PROG752 ON ASREAD

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Problem occurs on GDDM V2.3, V3.1, and V3.1.1.
  This exec demonstrates the problem when one field ends in the bo
  right hand corner of the screen and the attribute byte for anoth
  the top left hand corner.  This demonstration is a very much cut
  version of an actual customer problem.  The problems are:
  */ The top field has the wrong attribute.  It is protected cyan
  of unprotected green.  This is demonstrated by the first ASREAD
  /**/
  Address command "GDDMREXX INIT"
  Address GDDM
  D. = 0; D.1.1 = 9; D.1.2 = 3; D.1.3 = 6
  /* status     row   column   width   bundle   index     */
  D.2.1=9; D.2.2=1; D.2.3=2;  D.2.4=1; D.2.5=2; D.2.6=1
  D.3.1=9; D.3.2=32; D.3.3=72; D.3.4=9; D.3.5=2; D.3.6=1
  I. = 0; I.1.1 = 0; I.1.2 = 2; I.1.3 = 4
  I.2.1 = 0; I.2.2 = 0
  'APDEF 1 3 6 .D. . "XXXX0XXXX" 2 4 .I. 1'
  'ASREAD . . .'
  'APMOD 1 3 6 .D. . "XXXXXXXXX" 2 4 .I. 1'
  'ASREAD . . .'
  Address command "GDDMREXX TERM"
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Invalid field attribute.                *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When using HPA, (High Performance Alphanumerics), e.g. as with
  AS, a field in the top left hand corner(row 1 column 2) may have
  the wrong attribute,e.g. protected instead of unprotected. This
  occurs when a field finishes in the last column of the bottom
  row.
  

Problem conclusion

• A correction has been made to the code that detects end of
  device buffer.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UN73168 UN73169 PN68108 PN68109

Modules/Macros

• ADMDQDMR ADMDRDMR
  

Fix information

• Fixed component name

  GDDM/MVS V3

• Fixed component ID

  569516701

Applicable component levels

• R100 PSY UN73168

     UP95/02/23 P F502

• R110 PSY UN73169

     UP95/02/23 P F502

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.