FileMaker Pro Custom Functions

/* Zoned Decimal Number to Number String © 2008 Jeff Hoffman, A Byte of Data, Dallas, TX USA Format ZonedDecToNumString ( numberIn ; decimalPlaces ) Parameters numberIn - a zoned decimal text string or text field decimalPlaces - the number of decimal places in the resulting decimal number string Data type returned text Data Returned Returns a decimal number string with the appropriate sign from a zoned decimal number, or "?" if an invalid zoned decimal number is input. Background EBCDIC was devised in 1963 and 1964 by IBM and was announced with the release of the IBM System/360 line of mainframe computers. It was created to extend the Binary-Coded Decimal encoding that existed at the time. It is an 8-bit character encoding, in contrast to, and developed separately from, the 7-bit ASCII encoding scheme. Interestingly, IBM was a chief proponent of the ASCII standardization committee. However, IBM did not have time to prepare ASCII peripherals (such as card punch machines) to ship with its System/360 computers, so the company settled on EBCDIC at the time. At the time it was devised, EBCDIC made it relatively easy to enter data into a computer with punch cards. Since punch cards are no longer used on mainframes, EBCDIC is used in modern mainframes solely for backwards compatibility. It has no real technical advantage over ASCII-based code pages, and there are some aspects of EBCDIC which make it much less pleasant to work with than ASCII (such as a non-contiguous alphabet). All IBM mainframe peripherals and operating systems (except Linux on zSeries or iSeries) use EBCDIC as their inherent encoding, so if you need to import data that was exported from an IBM mainframe system, you may need to convert zoned decimal numbers to ASCII so that it is usable by other systems. Modern mainframes (such as IBM zSeries) include processor instructions, at the hardware level, to accelerate translation between character sets. Version 1.0 September 25, 2008 */ Let ( [ code = Right ( numberIn ; 1 ) ; pos = Position ( "{ABCDEFGHI}JKLMNOPQR" ; code ; 1 ; 1 ); numberIn = Left ( numberIn; Length ( numberIn ) - 1 ) & Choose ( pos-1 ; "0"; "1"; "2"; "3"; "4"; "5"; "6"; "7"; "8"; "9"; "0"; "1"; "2"; "3"; "4"; "5"; "6"; "7"; "8"; "9" ) ] ; Case ( pos < 11 and pos ≠ 0; If ( decimalPlaces = 0; numberIn; Left ( numberIn; Length ( numberIn ) - decimalPlaces ) & "." & Right ( numberIn ; decimalPlaces ) ); pos > 10 and pos ≠ 0; If ( decimalPlaces = 0; "-" & numberIn; "-" & Left ( numberIn ; Length ( numberIn ) - decimalPlaces ) & "." & Right ( numberIn ; decimalPlaces ) ); "?") )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.