[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

WSDL2RPG Question about WS000101T



   Hi,
   I just installed WSDL2RPG and am trying to test it by using the
   WS000101T example supplied.  Everything looks like it compiled/created
   correctly.
   I assume this process created the HTTP Server WSERVICE.  It is running.
   When I try to run the test program I get this:
      CALL WSDL2RPG/WS000101T
      Retrieved 0 area codes for Boston (MA)
   I changed WS000101T to use Miami FL just to make sure I understood some
   things.  I also uncommitted the enable/disable http api debug log.
   When I run it again I got similar message
      Retrieved 0 area codes for Miami (FL)
   When I look at the log I can see where it returned several values.
   But am not seeing it in the messages of my job.  Why not?
   I assume this is the part of the code that is not working correctly.
      I do not see how the %char pulls a count.
      If I change the 'for x_A1 = 1 to'...
        to 'for x_A1 to 10'
        I get a list but the values are blanks
    B01     if (not ZipCodeSoap_Port_isError());
               // ... get response data from response data structure
               text = 'Retrieved ' +
     // CHANGED: (3)
                       %char(CityStateToZipCodeResponse...
     //
                             .CityStateToZipCodeResult.anyType.x)
      //
                       + ' area codes for ' +
      //
                       parameters.City  + ' (' +
     //
                       parameters.State + ') ';
      //
               sndMsg(text);
     //

     //
    B02        for X_A1 = 1 to
     //
                  CityStateToZipCodeResponse...
      //
                 .CityStateToZipCodeResult.anyType.x;
      //
                  text = %char(X_A1) + '. Zip Code: ' +
      //
                         CityStateToZipCodeResponse...
     //
                         .CityStateToZipCodeResult.anyType.item(X_A1);
     //
                  sndMsg(text);
      //
    E02        endfor;
     // CHANGED: (3)
    X01     else;

   Not sure what to do.  Wanted to test this before going on to my
   assigned project to use Web Services.
   Kerwin Crawford
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------