Re: [Ftpapi] YAJL -

Jon

On Nov 2, 2020, at 8:55 AM, Georgeann Rybak <georgeann.rybak@xxxxxxxx> wrote:

No, I appreciate it. I did not read your email carefully, so sorry. I did not know about the YAJLGEN, I am giving that a go now,
I have found and tried to read Scott’s articles and I just get more and more confused about what to use. I thought the DATA-INTO was not the preferred method.

Thanks so much for your help.

Georgeann Rybak

SOFTWARE ENGINEER, INFORMATION TECHNOLOGY
THE AMERICAN REGISTRY OF RADIOLOGIC TECHNOLOGISTS®

DIRECT PHONE & FAX 651.681.3133 | MAIN PHONE 651.687.0048
1255 NORTHLAND DRIVE, ST. PAUL, MN 55120
ARRT.ORG

From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx <ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Monday, November 02, 2020 7:50 AM
To: FTPAPI/HTTPAPI mailing list <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
Subject: Re: [Ftpapi] YAJL -

I can only repeat what I told you before. I used Scott's YAJLGEN utility (in the YAJL library) and it produced a working program. Took me about 2 minutes. It would have taken another 5 to resize the fields to the definitions that you used.

Real easy.

Have you read any articles and studied examples of DATA-INTO (or XML-INTO for that matter since they re so similar) ? It is a lot easier to use than the raw YAJL APIs.

I have written articles on all three topics - they should be accessible from https://authory.com/jonparisandsusangantner

Jon

On Nov 2, 2020, at 6:23 AM, Georgeann Rybak <georgeann.rybak@xxxxxxxx> wrote:

I need this for production and am getting so frustrated.

I started with DATA-INTO and was unable to read anything from this file.

I will try that again.

Thank you

Georgeann Rybak

SOFTWARE ENGINEER, INFORMATION TECHNOLOGY
THE AMERICAN REGISTRY OF RADIOLOGIC TECHNOLOGISTS®

DIRECT PHONE & FAX 651.681.3133 | MAIN PHONE 651.687.0048
1255 NORTHLAND DRIVE, ST. PAUL, MN 55120
ARRT.ORG

From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx <ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Sunday, November 01, 2020 3:17 PM
To: FTPAPI/HTTPAPI mailing list <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
Subject: Re: [Ftpapi] YAJL -

OK - I took your JSON file and ran Scott's YAJLGEN against it and it produced a program that processed the file with no issues.

That program uses DATA-INTO with YAJLINTO which is what I suggested to you before.

If you are doing this just for fun and are trying to learn how to use YAJL then keep going. But if this is the start of a production program you may find the DATA-INTO approach much simpler.

As to your original question though ... to reference any of the elements within "extras" then I _think_ you may need to use its node to establish another loop through its elements. I've never used this approach so I'm not sure about that.

Hard to make suggestions here because I don't know why you are using the loop approach in the first place - unless it is because you only want specific elements. In that case I'd have searched for the element in question (rather than the "is this it?" approach you are using) and then drill down to what I needed.

Difficult to offer more specific advice without knowing where you are headed and why you used the approach you have taken.

The program generated by YAJLGEN works just fine - but the DS field lengths etc. need tweaking - but once it has run then you just use regular RPG to iterate through the bits you want.

On Nov 1, 2020, at 2:36 PM, Georgeann Rybak <georgeann.rybak@xxxxxxxx> wrote:

Sorry here is the JSON file. I need to read the arrt-id from the extras DS. I am able to read the data from the first part of the data DC.

{"rows":1,"offset":0,"limit":20,"message":"ok","data":[{"id":"3697869","status":"active","referenceId":"","firstName":"Minnie","lastName":"Rybak","middleName":null,"email":"georgeann_vogel@xxxxxxxxx","mobile":"","title":"","phone":"","company":"","gender":"","gradSemester":"","gradYear":"0","birthdate":null,"address":"","address2":"","city":"","state":"","postal":"","disasterContact":"0","dateUserAccountExpires":null,"dateAdded":"2020-10-29T07:51:09-05:00","dateUpdated":"2020-10-29T08:36:30-05:00","dateLastLogin":null,"extras":{"arrt-id":"547465","no-arrt-id":"","arrt-credentials":"","additional-discipline-":"","previous-experience":"","privacy-policy":""}}]}

Not sure exactly what you mean by the DS for line idsave = result.list(i).id;

Here is my result DS and I already provide the DS for list – is that what you need?
‘

0135.01 D result         DS                  qualified
0135.02 D    success                     1n
0135.03 D    message                   500a   varying
0137.01 D    errmsg                    500a   varying
0137.02 D    list                             likeds(list_T) dim(999)

Georgeann Rybak

SOFTWARE ENGINEER, INFORMATION TECHNOLOGY
THE AMERICAN REGISTRY OF RADIOLOGIC TECHNOLOGISTS®

DIRECT PHONE & FAX 651.681.3133 | MAIN PHONE 651.687.0048
1255 NORTHLAND DRIVE, ST. PAUL, MN 55120
ARRT.ORG

From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx <ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Sunday, November 01, 2020 12:35 PM
To: FTPAPI/HTTPAPI mailing list <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
Subject: Re: [Ftpapi] YAJL -

We still need the JSON. Plus this is a template - so we still need the definition of the DS that this line:

idsave = result.list(i).id;

refers to. There is no array in your template and the template could not be used as is to create a structure where the array was at the "list" level - which is what result.list(i).id implies.

On Nov 1, 2020, at 1:19 PM, Georgeann Rybak <georgeann.rybak@xxxxxxxx> wrote:

Here is the DS - the field names in the JSON file within the extras have ‘_’ in the name. RPG will not let me use that as a field in the DS so I did not think I could use DATA_Into

Thank you

DCL-DS list_t    qualified template;
   id              VARCHAR(150);
   status          VARCHAR(150);
   referenceId     VARCHAR(150);
   firstName       VARCHAR(150);
   lastName        VARCHAR(150);
   middleName      VARCHAR(150);
   email           VARCHAR(150);
   mobile          VARCHAR(150);
   title           VARCHAR(150);
   phone           VARCHAR(150);
   company         VARCHAR(150);
   gender          VARCHAR(150);
   gradSemester    VARCHAR(150);
   gradYear        INT(10);
   birthdate       VARCHAR(150);
   address         VARCHAR(150);
address2        VARCHAR(150);
city            VARCHAR(150);
state           VARCHAR(150);
postal          VARCHAR(150);
disasterContact VARCHAR(150);
dateUserAccountExpires VARCHAR(150);
dateAdded       VARCHAR(150);
dateUpdated     VARCHAR(150);
datelastLogin   VARCHAR(150);

DCL-DS extras;
  arrtid   VARCHAR(150);
  noarrtid      VARCHAR(150);
  additionaldiscipline VARCHAR(150);
  workextension VARCHAR(150);
  verifycredentials VARCHAR(150);
  primarydiscipline VARCHAR(150);
    jobdescription VARCHAR(150);
    yrsemployed    VARCHAR(150);
    institutiontype VARCHAR(150);
    educationlevel VARCHAR(150);
    examcommittee VARCHAR(150);
    specialprojectscommittee VARCHAR(150);
    practiceanalysiscommittee VARCHAR(150);
    itemwriter     VARCHAR(150);
  END-DS;
END-DS;

Georgeann Rybak

SOFTWARE ENGINEER, INFORMATION TECHNOLOGY
THE AMERICAN REGISTRY OF RADIOLOGIC TECHNOLOGISTS®

DIRECT PHONE & FAX 651.681.3133 | MAIN PHONE 651.687.0048
1255 NORTHLAND DRIVE, ST. PAUL, MN 55120
ARRT.ORG

From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx <ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Sunday, November 01, 2020 10:44 AM
To: FTPAPI/HTTPAPI mailing list <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
Subject: Re: [Ftpapi] YAJL -

It would be helpful to see the DS you are using and the relevant JSON.

P.S. Since you are apparently loading the JSON into a DS, why not just use DATA-INTO with the YAJL-INTO parser?

On Nov 1, 2020, at 9:48 AM, Georgeann Rybak <georgeann.rybak@xxxxxxxx> wrote:

I am able to read the information within the ‘data’ with the code below. My issue is the ‘extras’ is a data structure within the ‘data’ data structure.

I have tried to access the information via result.list.extras(i) and that does not work.

Do I need to change ‘node’ and ‘list’?

Thanks for any help.

node = YAJL_object_find(docNode: 'message');
result.message = YAJL_get_string(node);

list = YAJL_object_find(docNode: 'data');

i = 0;
dow YAJL_ARRAY_LOOP( list: i: node );
  j = 0;
  Dow YAJL_OBJECT_LOOP( node: j: key: val);
     exsr load_data;
  enddo;
enddo;

Begsr load_data;
// Use this bring in the fields we need from the Json file
// -------------------------------------------------------

select;
when key = 'id';
   Result.list(i).id = yajl_get_string(val);
   idsave = result.list(i).id;
when key = 'referenceId';
   Result.list(i).id = yajl_get_string(val);
   refidsave = result.list(i).id;
when key = 'extras';
endsl;
Endsr;

Georgeann Rybak

SOFTWARE ENGINEER, INFORMATION TECHNOLOGY
THE AMERICAN REGISTRY OF RADIOLOGIC TECHNOLOGISTS®

DIRECT PHONE & FAX 651.681.3133 | MAIN PHONE 651.687.0048
1255 NORTHLAND DRIVE, ST. PAUL, MN 55120
ARRT.ORG


--
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi

--
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi

--
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi

--
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi

--
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi