PM23761: INCORRECT OUTPUT, MON LIST OR LIST ON SUBSCRIPTED PL/I STRUCTURE

APAR status

• Closed as duplicate of another APAR.

Error description

• MON LIST or simply LIST on a subscripted structure, gives the
  wrong output:
  Example:
    ADAC1: PROC OPTIONS(MAIN);
    DCL 01 BLAUT,
           05 GRUPPE(3),
             10 FALL_NR              PIC '(6)9',
             10 TS_USER_ID           CHAR(8);
    DCL 1 P_X   DEC FIXED(2);
    P_X = 2;
    BLAUT.GRUPPE(P_X).TS_USER_ID = 'BLAUT';
    END;
  Debug the program: step to the stmt:
       BLAUT.GRUPPE(P_X).TS_USER_ID = 'BLUNT';
  Now, use LIST or MON LIST  BLAUT.GRUPPE(P_X).TS_USER_ID
  The output using LIST is:
  BLAUT.GRUPPE ( P_X ) =>  TS_USER_UD was somehow ignore
  (but this is valid PLI)
     BLAUT.GRUPPE.FALL_NR
        BLAUT.GRUPPE.FALL_NR(1)   ......
        BLAUT.GRUPPE.FALL_NR(2)   ......
        BLAUT.GRUPPE.FALL_NR(3)   ......
     BLAUT.GRUPPE.TS_USER_ID
        BLAUT.GRUPPE.TS_USER_ID(1)   '........'
        BLAUT.GRUPPE.TS_USER_ID(2)   '........'
        BLAUT.GRUPPE.TS_USER_ID(3)   '........'
  
  instead of:
  BLAUT.GRUPPE(PX_X).TS_USER_ID  = '........'
  

Local fix

Problem summary

Problem conclusion

Temporary fix

Comments

• Please install UK62414 to receive the solution for
  this APAR.
  This APAR is a duplicate of PM23044
  

APAR Information

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

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

Fix information

Applicable component levels