Help with import command

[Richard Kreiss]

Thanks for the helpful suggestions. I finally got the read portion of the program working by changing the import parameters and then looping back to get the next line.

This method allow me to use the counter ct as the index for the array fields(9):93.  I can the place the correct value in the real field and do some error checking along the way. I did have to change one real field(98) from (3,.0) to 3,#) as I needed to maintain the ending zero(s) sent.

The left portion of the import is placed in the long variable called heading and the value to the right of the equal sign = is placed in the long variable value; do I can bplace the proper response by using fields(ct)=value;GOTO get_imp excep-t then ct =   "9"  at that point I can post the data to the file which will be used to update other records or create new records( This will be a batch process run a the end of the day.


Richard Kreiss
GCC Consulting





> -----Original Message-----
> From: Filepro-list <filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com>
> On Behalf Of Walter Vaughan Jr via Filepro-list
> Sent: Friday, April 23, 2021 2:01 PM
> To: filepro-list at lists.celestial.com
> Subject: RE: Help with import command
> 
> I dunno.
> 
> It looks to me like you are getting a json file, and I'll admit I am the worlds worst
> on them. However, they have no special power.
> 
> I would either run it through a JSON converter to make it into something more
> importable with filePro16 or just read each line in a loop
> 
> 1) read each line separately
> 2) INSTR (InString) to find the equals sign and then
> 3) Left$ to get the key value
> 4) Right$ to get the data value
> 5) Put the values where you need
> 
> Not as clean as what you are trying to do, but at least you can put in error
> checking at a lower level.
> 
> If you insist on doing it your way, I'd be looking hard at a hex dump of the file.
> What are you really getting for end of line and end of data block values. #x0d,
> #x0a or just single line feeds?
> 
> 
> 
> 
> 
> -----Original Message-----
> From: Filepro-list <filepro-list-bounces+wvaughan=steelerubber.com at lists.celestial.com> On Behalf Of
> Richard Kreiss via Filepro-list
> Sent: Friday, April 23, 2021 11:11 AM
> To: 'filepro-list at lists.celestial.com' <filepro-list at lists.celestial.com>
> Subject: Help with import command
> 
> Below is the file I am trying to import:
> 
> response=1
> responsetext=SUCCESS
> authcode=123456
> transactionid=6174664263
> avsresponse=
> cvvresponse=M
> orderid=
> type=sale
> response_code=100
> 
> The import processing:
>       ◄ If:
>       Then: import ASCII field=(ifile) o=& c== r== f=&
> 17  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If:         NOT field
>       Then:         ERRORBOX "(17) Done reading the file\nThe counter Ct is at
> 18  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If:
>       Then:         ct=ct+"1"
> 19  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If:
>       Then:         im=field(1)
> 20  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If:         IM CO CHR("124")
>       Then:         gosub RMV_124;goto DO_FIEL
> 21  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If:         CT LT "20"
>       Then: goto DO_FIEL
> 22  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> do_fiel◄ If:
> '****************************************************************
> *
>       Then: '* routine to set fierld values
> 23  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If: ct = "1" or ct = "5" or ct = "7" or ct= "9" or ct = "12" or ct = "
>       Then: MSGBOX "The Value of im is \b5"<im<"\nThe counter is at \b6"<ct<"\
> 24  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If: im="response"        'loop back to get the value of the "response"
>       Then: il=im;im="";GOTO get_Imp   'whici is usually a single digit number
> 25  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If: il="Response"                 'value of response in in field
>       Then: fields["1"]=im;il="";im="";GOTO get_imp   'im usually a single num
> 26  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If: im="Success"
>       Then: fields["2"]=im;il="";im="";GOTO get_imp   'im usually a single num
> 27  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>       ◄ If: 'im ="responsetext"
>       Then: 'il=im;CT="3";goto GET_Imp
> 
> Problem is tht the import works properly foe the first two imports but then skips
> the the value to the left of the equal = sign.
> 
> The first import is response (correct) and the second is 1.  The issue I am having
> is that the next value imported is Success and not Responsetext. This is
> happening with each import, the value to expected is not the “header” but the
> value of the header.(the value to the right of the equal sign =).
> 
> Does anyone have an answer as to why I am having this problem and how for fix
> it?
> 
> 
> Richard Kreiss
> GCC Consulting
> 
> 
> 
> -------------- next part --------------
> A non-text attachment was scrubbed...
> Name: winmail.dat
> Type: application/ms-tnef
> Size: 19645 bytes
> Desc: not available
> URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20210423/734166c7/attachment.bin>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes http://mailman.celestial.com/mailman/listinfo/filepro-list
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes http://mailman.celestial.com/mailman/listinfo/filepro-list