|
[EDI-L Mailing List Archive Home]
[Message List]
[Reply To This Message]
Re: <TECH> Mercator Help
did anyone think of adjusting the type tree to read the correct data
format? all this work around to handle a non-issue that mercator
handles all the time.
wrote:
> I don't pretend to know EDI because I am new to the technology, but I've
> been in I/T for quite some time. I used this code in M/S Access. I hope it
> will help you.
>
> Option Compare Database
>
> Public Function Convert(fld As Variant) As Currency
> Dim strChar As String
> Dim bytNum As Byte
> Dim bytLen As Byte
>
> If IsNull(fld) Then ' If the field is null then return 0
> Convert = 0
> Exit Function
> End If
>
> strChar = Right(fld, 1)
> bytLen = Len(fld)
>
> If Not IsNumeric(strChar) Then ' Evaluate the last character. If
> it's not a number then
> Select Case strChar ' find out what it's converted value
> is and assign it to bytNum.
> Case "}"
> bytNum = 0
> Case "J"
> bytNum = 1
> Case "K"
> bytNum = 2
> Case "L"
> bytNum = 3
> Case "M"
> bytNum = 4
> Case "N"
> bytNum = 5
> Case "O"
> bytNum = 6
> Case "P"
> bytNum = 7
> Case "Q"
> bytNum = 8
> Case "R"
> bytNum = 9
> End Select
>
> Convert = (-(Left(fld, bytLen - 1) & bytNum)) / 100 ' Concantenate the
> numeric characters with the
> ' bytNum variable
> and divide by 100.
> Else
>
> Convert = fld / 100 ' If the last character is a number,
> then divide the value by 100.
>
> End If
>
> End Function
>
>
> Sincerely,
> __________________________________________________
>
> "Its not how much you know, but rather how fast
> you learn, and how open you are to new ideas."
> - Michael Dell 'Direct From Dell' page 145.
> __________________________________________________
>
> MATTHEW P. KILEY ยง
> DELL COMPUTER CORPORATION
> Revenue Services: http://inside.us.dell.com/finance/fg/revenue_services/
> <http://inside.us.dell.com/finance/fg/revenue_services/>
> Finance: CIW Team
> Work: (512) 723 - 5261
>
> -----Original Message-----
> From: Art Douglas (San Dimas) [mailto:
> Sent: Tuesday, January 28, 2003 2:18 PM
> To:
> Subject: RE: [EDI-L] <TECH> Mercator Help
>
>
> Actually, the field is a signed overpunch. That means that the
> representation is the hollerith card equivalent to the numeral with the
> addition of a 12-row punch for positive, or an 11-row punch for negative.
> If you don't know what an 11-row or 12-row is, please refer to your ancient
> DP history text. If you don't know what DP is ...
>
> So, you will need to set up a table of equivalents. A = +1, B = +2, ... I =
> +9, J = -1, K = -2 etc. I can't remember if { is positive or negative zero,
> but } is the opposite. Remember that the sign applies to the entire number,
> but it is stored in the last character.
>
> Maybe the better idea would be to have the MVS guys produce you a file with
> the COBOL "USAGE DISPLAY" and a separate sign and explicit decimal.
>
> Good luck.
>
> Art Douglas
> Manager, eCommerce Systems
> PaperPak
> San Dimas, CA
> 909-971-5025
>
> "There are no victories at bargain prices."
> -- Dwight D Eisenhower
>
>
> -----Original Message-----
> From: Rachel Foerster [mailto:
> Sent: Tuesday, January 28, 2003 11:51 AM
> To:
> Subject: RE: [EDI-L] <TECH> Mercator Help
>
>
> It's been a long time, but the numeric field could be a packed decimal.
> Don't know the solution anymore - but 15 years ago we had to write small
> routines to unpack the data.
>
> Rachel Foerster
> Principal
> Rachel Foerster & Associates, Ltd.
> Professionals in Health Care EDI
> 39432 North Avenue
> Beach Park, IL 60099
> Voice: 847-872-8070
> Fax: 847-872-6860
> eMail:
> http://www.rfa-edi.com <http://www.rfa-edi.com>
>
>
>
> -----Original Message-----
> From: John Nadvornik [mailto:
> Sent: Tuesday, January 28, 2003 12:57 PM
> To:
> Subject: [EDI-L] <TECH> Mercator Help
>
>
> All,
>
> I was wondering if someone could answer what I hope is a simple Mercator
> Question.
>
> I have a flat file being sent to me from a MVS environment the file
> definition is in a COBOL Copy book, so I imported it into a type tree. I'm
> able to map everything correctly, except for the signed fields. The record
> looks like this in notepad
>
> 300 001 00000000AEA0000000000000{QT T 40707
>
> The data between the AE and the QT should be a quantity, but I can not seem
> to get it to map correctly. Does anyone have any suggestions? Please let
> me know if you need more information.
>
>
> Thanks,
> John
>
>
>
> To unsubscribe from this group, send an email to:
>
> Message Identifiers: <SALES>, <JOBS>, <LIST>, <TECH>, <MISC>, <EVENT>,
> <OFF-TOPIC>
> Access the list online at: http://groups.yahoo.com/group/EDI-L
> <http://groups.yahoo.com/group/EDI-L>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
> <http://docs.yahoo.com/info/terms/>
>
>
>
>
> To unsubscribe from this group, send an email to:
>
> Message Identifiers: <SALES>, <JOBS>, <LIST>, <TECH>, <MISC>, <EVENT>,
> <OFF-TOPIC>
> Access the list online at: http://groups.yahoo.com/group/EDI-L
> <http://groups.yahoo.com/group/EDI-L>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
> <http://docs.yahoo.com/info/terms/>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> Yahoo! Groups Sponsor
>
> ADVERTISEMENT
>
> <http://rd.yahoo.com/M=244396.2846622.4218523.2848452/D=egroupweb/S=17050055
> 82:HM/A=1414307/R=0/*https://www.clearcredit.com/registration/default.asp?n=
> b&cpID=c01888p1379&ckID=gen14628>
>
> <http://us.adserver.yahoo.com/l?M=244396.2846622.4218523.2848452/D=egroupmai
> l/S=:HM/A=1414307/rand=789664859>
>
> To unsubscribe from this group, send an email to:
>
> Message Identifiers: <SALES>, <JOBS>, <LIST>, <TECH>, <MISC>, <EVENT>,
> <OFF-TOPIC>
> Access the list online at: http://groups.yahoo.com/group/EDI-L
> <http://groups.yahoo.com/group/EDI-L>
>
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
> <http://docs.yahoo.com/info/terms/> .
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> To unsubscribe from this group, send an email to:
>
> Message Identifiers: <SALES>, <JOBS>, <LIST>, <TECH>, <MISC>, <EVENT>,
<OFF-TOPIC>
> Access the list online at: http://groups.yahoo.com/group/EDI-L
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
--
%%%%%%%%%%%%% cut here %%%%%%%%%%%%%%%
Brian Lehrhoff (
EDI Consultant
Bank of New York
201-913-4506
%%%%%%%%%%%%% cut here %%%%%%%%%%%%%%%
|
 |
Subscribe in XML format
| RSS 2.0 |
|
| Atom 0.3 |
|
|
Cart
