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

RE: RPG Array's - Please Help



   Yip I use a RPG program with an array to pass driver information to an
   outside company, being more than one driver there is more than one
   record, my initial thinking was to use the array as an output to pass
   the information so that the info can be passed in one single call, in
   my rpgle program I specify the array as DIM(100).
   My rpgle program then uses a pcml file, the complaint I had in doing
   this was that let's say there is only one driver change, the data the
   outside company receives will have 1 record with data and 99 records
   with none,
   And not being an rpg specialist I have not been able to change my rpg
   program to have a variable in the DIM(VARIABLE),
   Now reading up on this it seems there is a way of doing it with the
   pcml file, but this I have also not been able to get working
   Giel
   -----Original Message-----
   From: [1]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Alan Campin
   Sent: 10 October 2012 07:07 AM
   To: HTTPAPI and FTPAPI Projects
   Subject: Re: RPG Array's - Please Help
   I would be happy to send it to but based on what I have seen of this
   thread, I don't think that is what you are looking for.
   As I understand this you have a web service written in Java that wants
   to call a program on the AS/400. Is that correct?
   If yes, you are using PCML to build the call to the AS/400 programs and
   you want to pass arrays of data to the AS/400?
   First of all, let me say that I don't believe in using PCML to pass
   array or other information to the AS/400. It just gets too complicated.
   What I have done at my present company is to abstract the interface
   away but that is probably too complex for you.
   What I would suggest is to use XML. Just build an XML string with your
   data and pass all the requests that way so that interface is always the
   same.
   In the receiving AS/400 you just receive a single varchar string (a
   Varying Character field) say 32K in size. In your receiving program,
   you just use EXPAT, or SAX or XML-INTO to parse the XML and process.
   Using this method, you can pass any kind of data no matter how complex.
   The sending program and receiving programs just have to agree on what
   the XML looks like.
   All this assumes that I have understood you situation correctly. Have I
   understand the problem?
   On Tue, Oct 9, 2012 at 9:50 PM, Giel van der Merwe <
   Giel.vanderMerwe@xxxxxxxxxx> wrote:
   > Hi there alan, could I impose and ask if you can send me the demo
   > program,
   > I am still finding it hard to get rid of the redundant data as seen
   > below(notice the blank data records):
   > aubaxfrResponse
   > return
   > _P0RTN (string):
   > _YM01
   > _WDCAN2 (decimal): 0
   > _WDCIN2 (decimal): 0
   > _WDDGTX (string):
   > _WDF0NB (decimal): 0
   > _YM01
   > _WDCAN2 (decimal): 0
   > _WDCIN2 (decimal): 0
   > _WDDGTX (string):
   > _WDF0NB (decimal): 0
   > .
   > .
   > .
   > .
   > .
   > -----Original Message-----
   > From: [2][1]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   > [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Alan
   Campin
   > Sent: 08 October 2012 05:02 PM
   > To: HTTPAPI and FTPAPI Projects
   > Subject: RE: RPG Array's - Please Help
   > Are you needing a dynamic array? Not clear what you are asking. I
   have
   > a demo program that shows how to create dynamic arrays if you are
   > interested.
   > -----Original Message-----
   > From: [3][2]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   > [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Giel van
   > der Merwe
   > Sent: Monday, October 08, 2012 8:45 AM
   > To: [4][3]ftpapi@xxxxxxxxxxxxxxxxxxxxxx
   > Subject: RPG Array's - Please Help
   > I am using a RPG program with an array to pass information out via a
   > web service deployed on my AS400, but I don't have the now-how to
   make
   > the array flexible, because right now I specify the array with 200
   > records, when the web service runs, it creates 200 records although
   > there might only be data in the first 2 records.
   > Any advice or where I can start looking for - how to do
   > Giel van der Merwe
   >
   #######################################################################
   > ##############
   > The provisions of Sections 11,12, and 13 of the Electronic
   > Communications and Transactions Act, 25 of 2002, in so far as
   > e-contracting is concerned is expressly excluded and contracted out
   by
   > Barloworld South Africa (Pty) Ltd ("Barloworld") and no data message
   or
   > electronic communication will be recognised as having legal
   contractual
   > status as per the aforementioned provisions under any circumstances.
   > All contracts concluded by Barloworld, its Business Units, Divisions
   > and Subsidiaries will only be legally binding and recognised once
   > reduced to physical writing and physically signed by a duly
   authorised
   > representative of Barloworld.
   > All other provisions of the Electronic Communications and
   Transactions
   > Act, 25 of 2002 are accepted.
   >
   #######################################################################
   > ##############
   > Note:
   > This message is for the named person's use only. It may contain
   > confidential, proprietary or legally privileged information. No
   > confidentiality or privilege is waived or lost by any
   mistransmission.
   > If you receive this message in error, please immediately delete it
   and
   > all copies of it from your system, destroy any hard copies of it and
   > notify the sender. You must not, directly or indirectly, use,
   disclose,
   > distribute, print, or copy any part of this message if you are not
   the
   > intended recipient. Avis and any of its subsidiaries each reserve the
   > right to monitor all e-mail communications through its networks.
   > Any views expressed in this message are those of the individual
   sender,
   > except where the message states otherwise and the sender is
   authorized
   > to state them to be the views of any such entity.
   > Thank You.
   >
   #######################################################################
   > ##############
   > -----
   > No virus found in this message.
   > Checked by AVG - [4]www.avg.com
   > Version: 2013.0.2677 / Virus Database: 2591/5812 - Release Date:
   > 10/05/12
   >
   -----------------------------------------------------------------------
   > This is the FTPAPI mailing list. To unsubscribe, please go to:
   > [5]http://www.scottklement.com/mailman/listinfo/ftpapi
   >
   >
   ----------------------------------------------------------------------
   > -
   >
   > [6][cid:112101005501801501@mail41.mimecast.co.za]
   >
   >
   ______________________________________________________________________
   > _
   >
   > The provisions of Sections 11,12, and 13 of the Electronic
   > Communications and Transactions Act, 25 of 2002, in so far as
   > e-contracting is concerned is expressly excluded and contracted out
   by
   > Barloworld South Africa (Pty) Ltd ("Barloworld") and no data message
   or
   > electronic communication will be recognised as having legal
   contractual
   > status as per the aforementioned provisions under any circumstances.
   > All contracts concluded by Barloworld, its Business Units, Divisions
   > and Subsidiaries will only be legally binding and recognised once
   > reduced to physical writing and physically signed by a duly
   authorised
   > representative of Barloworld.
   >
   > All other provisions of the Electronic Communications and
   Transactions
   > Act, 25 of 2002 are accepted.
   >
   >
   ______________________________________________________________________
   > _
   >
   > Note:This message is for the named person's use only. It may contain
   > confidential, proprietary or legally privileged information. No
   > confidentiality or privilege is waived or lost by any
   mistransmission.
   > If you receive this message in error, please immediately delete it
   and
   > all copies of it from your system, destroy any hard copies of it and
   > notify the sender. You must not, directly or indirectly, use,
   > disclose, distribute, print, or copy any part of this message if you
   > are not the intended recipient. Avis and any of its subsidiaries each
   > reserve the right to monitor all e-mail communications through its
   > networks.Any views expressed in this message are those of the
   > individual sender, except where the message states otherwise and the
   > sender is authorized to state them to be the views of any such
   entity.
   > Thank You.
   >
   >
   ______________________________________________________________________
   > _
   >
   > References
   >
   > 1. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   > 2. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   > 3. mailto:ftpapi@xxxxxxxxxxxxxxxxxxxxxx
   > 4. [5]http://www.avg.com/
   > 5. [6]http://www.scottklement.com/mailman/listinfo/ftpapi
   > 6.
   >
   [7]https://mail41.mimecast.co.za/mimecast/click?account=CSA20A3&code=b5
   8e
   > 4302dc89bd4ab414ff4cbf07c1f3
   >
   >
   ----------------------------------------------------------------------
   > - This is the FTPAPI mailing list. To unsubscribe, please go to:
   > [8]http://www.scottklement.com/mailman/listinfo/ftpapi
   >
   ----------------------------------------------------------------------
   > -
   >
   >

   [9][cid:112101008493308801@mail41.mimecast.co.za]
   _______________________________________________________________________

   The provisions of Sections 11,12, and 13 of the Electronic
   Communications and Transactions Act, 25 of 2002, in so far as
   e-contracting is concerned is expressly excluded and contracted out by
   Barloworld South Africa (Pty) Ltd ("Barloworld") and no data message or
   electronic communication will be recognised as having legal contractual
   status as per the aforementioned provisions under any circumstances.
   All contracts concluded by Barloworld, its Business Units, Divisions
   and Subsidiaries will only be legally binding and recognised once
   reduced to physical writing and physically signed by a duly authorised
   representative of Barloworld.

   All other provisions of the Electronic Communications and Transactions
   Act, 25 of 2002 are accepted.
   _______________________________________________________________________

    Note:This message is for the named person's use only.  It may contain
      confidential, proprietary or legally privileged information.  No
   confidentiality or privilege is waived or lost by any mistransmission.
   If you receive this message in error, please immediately delete it and
    all copies of it from your system, destroy any hard copies of it and
       notify the sender.  You must not, directly or indirectly, use,
    disclose, distribute, print, or copy any part of this message if you
    are not the intended recipient. Avis and any of its subsidiaries each
     reserve the right to monitor all e-mail communications through its
        networks.Any views expressed in this message are those of the
    individual sender, except where the message states otherwise and the
   sender is authorized to state them to be the views of any such entity.
                                  Thank You.
   _______________________________________________________________________

References

   1. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   2. mailto:[1]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   3. mailto:[2]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   4. mailto:[3]ftpapi@xxxxxxxxxxxxxxxxxxxxxx
   5. http://www.avg.com/
   6. http://www.scottklement.com/mailman/listinfo/ftpapi
   7. https://mail41.mimecast.co.za/mimecast/click?account=CSA20A3&code=b58e
   8. http://www.scottklement.com/mailman/listinfo/ftpapi
   9. https://mail41.mimecast.co.za/mimecast/click?account=CSA20A3&code=d2c302e7712f60e6e12b58571b94e87e

GIF image

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------