RE: [C400-L] QMHSNDPM and V5R1

["Hall, Philip" <phall@xxxxxxxx>]

Bob,

> I've got an application that has been running fine for years.  Now all
> of a sudden, a customer who just upgraded to V5R1 is getting MCH3601
> Pointer not set for location referenced errors.

Check that, if being used, the structure for the error_code parameter is
zeroed and set properly i.e. the line memset(&err_code, 0,
sizeof(err_code)); in the code below;

  Error_Code_Struct  err_code;
  char               msg_key[4];
  char               tmp_msg_id[7];
  char               tmp_msg_type[10];
  char               tmp_to_msgq[10];

    memset(&err_code, 0, sizeof(err_code));

    /* copy parms to AS/400 API format... */
    memcpy(tmp_msg_id, msg_id, sizeof(tmp_msg_id));
    memcpy(tmp_msg_type, msg_type, sizeof(tmp_msg_type));
    memcpy(tmp_to_msgq, to_msgq, sizeof(tmp_to_msgq));

    /* send message... */
    QMHSNDPM(tmp_msg_id,
             "QCPFMSG   QSYS      ",
             msg_data,
             strlen(msg_data),
             tmp_msg_type,
             tmp_to_msgq,
             stack_lvl,
             msg_key,
             &err_code);