CICS RE: CICS ABEND AZCE When LU 6.2 Message > 32767 Bytes

      ID DIVISION.
      PROGRAM-ID. BUG457X.
      ENVIRONMENT DIVISION.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01  MISCELLANEOUS-VARIABLES.
          05 DATA-POINTER         POINTER VALUE NULL.
          05 DATA-RECEIVED        PIC S9(8) COMP VALUE 0.
          05 SENT-SO-FAR          PIC S9(8) COMP VALUE 0.
          05 SENT-AMT             PIC S9(8) COMP VALUE 0.
          05 CUR-STATE            PIC S9(8) COMP VALUE 0.

      01  ALIGNED-VARIABLES COMP SYNC.
          05 MAXIMUM-LENGTH       PIC S9(8) VALUE ZERO.
          05 ACTUAL-LENGTH        PIC S9(8) VALUE ZERO.
          05 CMD-RESP             PIC S9(4) VALUE ZERO.

      01  REPLY-DATA.
          10 BYTES-RECEIVED       PIC ZZZ,ZZ9.
          10 FILLER               PIC X VALUE SPACE.
          10 FILLER               PIC X(15) VALUE
             'BYTES RECEIVED.'.
          10 FILLER               PIC X(32744) VALUE SPACES.

      LINKAGE SECTION.
      01  NONLINK-DATA            PIC X(32767).

      PROCEDURE DIVISION.

     *    RETRIEVE THE REQUEST DATA.
     *    NEED TO ADD PERFORM LOOP TO EOD.
          COMPUTE MAXIMUM-LENGTH = 32763.

          PERFORM UNTIL CUR-STATE = DFHVALUE(SEND)
              MOVE ZERO TO ACTUAL-LENGTH
              EXEC CICS RECEIVE
                SET(DATA-POINTER)
                MAXFLENGTH(MAXIMUM-LENGTH)
                FLENGTH(ACTUAL-LENGTH)
                STATE(CUR-STATE)
                NOTRUNCATE
              END-EXEC

              ADD ACTUAL-LENGTH TO DATA-RECEIVED
          END-PERFORM.
     [...]