Can someone tell me how to do a function I use in vfp in MS Access to be used in an access sql statement
to convert mainframe coded numerics into decimal values

CREATE CURSOR cc1 (mainframe c(19),decnum n(17,2),id I)

INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"a",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"b",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"c",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"d",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"e",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"f",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"g",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"h",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"i",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"{",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"j",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"k",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"l",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"m",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"n",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"o",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"p",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"q",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"r",recno())
INSERT INTO cc1 (mainframe,id) values ("000000012345678901"+"}",recno())

scan

REPLACE decnum WITH (INT(VAL(SUBSTR(mainframe,1,18)+TRANSFORM(MOD(AT(subsTR(mainframe,19),[abcdefghi{jklmnopqr}]),10))))/100)*IIF(AT(subsTR(mainframe,19),[abcdefghi{jklmnopqrs}])<11,1,-1)


ENDSCAN 

browse

*** now this statement should be converted for use in access:
SELECT (INT(VAL(SUBSTR(mainframe,1,18)+TRANSFORM(MOD(AT(subsTR(mainframe,19),[abcdefghi{jklmnopqr}]),10))))/100)*IIF(AT(subsTR(mainframe,19),[abcdefghi{jklmnopqrs}])<11,1,-1) as x1 FROM cc1 WHERE id= 13

Thanks alot

Peter