Re: QJOSJRNE API: ILE/C example needed (better with key 7 - IFS)

I tried the same thing and everything I tried crashed also. What I did find
was that I was able to do a SNDJRNE to an object path without an issue.
Worked fine.

May I suggest you just use ILE. Create an CL module and put your SNDJRNE in
the CL module and bind to a C module. Lot simpler than trying to get API to
work.

On Mon, Oct 9, 2017 at 11:15 PM, Zvi Kave <[email protected]> wrote:

>    Hi Mark,
>
>    You are right. I realized that the code I wrote crashes.
>    But because it was not used actually until now, no one complained.
>    I need small ILE C example to see how it worked correctly (V5R3 or
>    higher).
>    I am sure that the following code that I used is not good, but it is
>    better if you have a working example.
>
>    #include <stdio.h>
>    #include <string.h>
>    #include <qjosjrne.h>
>    #include <qusec.h>
>
>    typedef struct {
>      int fillerx;
>      int num_rec;
>      int object_type; /* = 7 */
>      int object_len;  /* = 100 - path name length */
>      char *ppath;
>    } JE_INFO ;
>    union rec
>      {
>       JE_INFO je_info;
>       char rbuf[256];
>      };
>    union rec urec;
>    typedef struct {
>      int ccsid; /* = 0 */
>      char country_id[2]; /* = x'0000' */
>      char language_id[3]; /* = x'000000' */
>      char reserved3[3];
>      int path_type_indicator; /* = 0 */
>      int path_len;  /* = 19 */
>      char path_delimiter[2]; /* = '/' */
>      char reserved10[10]; /* = x'0000...00' */
>      char path_name[19];
>    } PATH_NAME;
>    PATH_NAME path_st;
>    jr_write(char *entryData)
>    {
>             Qus_EC_t errCode;
>             int rc;
>             int size;
>             char objName[10]    = "MYJRN   " ;
>             char objLibrary[10] = "QGPL      ";
>             char qualName[20];
>             short int entryDataLen = 0;
>             char *pErrCode = (char *) &errCode;
>             sprintf(qualName, "%10.10s%10.10s", objName, objLibrary);
>    /*       entryDataLen = sprintf(entryData, "%s", "Good Luck");  */
>             entryDataLen = strlen (entryData);
>             urec.je_info.ppath  = (char *) &path_st.ccsid;
>             urec.je_info.fillerx = 0; /* to avoid file name */
>             urec.je_info.num_rec = 1;
>             urec.je_info.object_type = 7;
>             urec.je_info.object_len  = 51;
>             path_st.ccsid = 0;
>             memset (path_st.country_id, 0, 2);
>             memset (path_st.language_id, 0, 3);
>             memset (path_st.reserved3, 0, 3);
>             path_st.path_type_indicator = 0;
>             path_st.path_len = 19;
>             memcpy (path_st.path_delimiter, "/ ", 2);
>             memset (path_st.reserved10, 0, 10);
>             memcpy (path_st.path_name,
>                     "/SMZVDTA/log/av.log",
>                     path_st.path_len);
>             errCode.Bytes_Provided  = 0;
>             errCode.Bytes_Available = 0;
>             QJOSJRNE(qualName, urec.rbuf, entryData, entryDataLen,
> pErrCode);
>    }
>
>    Thanks,
>
>    Zvi
>
>    On 08/10/2017 18:59, Mark S Waterbury wrote:
>
>      Zvi:
>
>      You asked exactly the same question almost 12 years ago, on
> 17-Nov-2005,
>      on this very list ...  :-o
>
>      What kind of "difficulties" are you having?  Error messages?  At
>      compile-time or at run-time?  What version/release of OS/400 or IBM i?
>
>      Perhaps if you posted  a small snippet or example of source code  to
>      show what you are trying to do, then someone might be able to assist?
>
>      Mark S. Waterbury
>
>      > On 10/8/2017 11:05 AM, Zvi Kave wrote:
>
>            I have dificulties to use QJOSJRNE API key 7 (with IFS path
> name)
>        in
>            ILE/C.
>            If someone can send me an example, I shall appreciate it very
>        much.
>
>            Regards,
>
>            Zvi
> --
> This is the Bare Metal Programming IBM i (AS/400 and iSeries) (C400-L)
> mailing list
> To post a message email: C400-L-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/c400-l
> or email: C400-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/c400-l.
>
>
-- 
This is the Bare Metal Programming IBM i (AS/400 and iSeries) (C400-L) mailing list
To post a message email: C400-L-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/c400-l
or email: C400-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/c400-l.