Philip,

Might be the problem.  I'm using:
Qus_EC_t  error = {sizeof(Qus_EC_t)};

Which probably only sets the Bytes_Provided to zero.

I'll give it a try!

Bob


-----Original Message-----
From: c400-l-admin@midrange.com [mailto:c400-l-admin@midrange.com]On
Behalf Of Hall, Philip
Sent: Wednesday, October 17, 2001 4:43 PM
To: 'c400-l@midrange.com'
Subject: RE: [C400-L] QMHSNDPM and V5R1

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);
_______________________________________________
This is the C programming iSeries / AS400 (C400-L) mailing list
To post a message email: C400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/c400-l
or email: C400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/c400-l.



This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].