470,619 Members | 1,841 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 470,619 developers. It's quick & easy.

CA-Clipper to mysql help??

Can anyone help me create a sql querry with the following clipper/dbase code
or help me understand what the hell it means???
If you can help please don't hesitate to contact me at
ma***********@magma.ca.
remove the NOSPAM from my e-mail.

Thanks in advance to all of you that take the time to look at this post!!
Here is the code:

STATIC FUNCTION Termination

@ ++nL,01 SAY 'Terminations: '
SELECT 2
SET INDEX TO ( 'j:\files\hris\'+cPrevHRIS+'si' )
SELECT 3
SET INDEX TO ( 'j:\files\hris\st'+cStaff+'sin' )
SET FILTER TO END # CTOD('')
SELECT 1
SET INDEX TO
SET RELATION TO SIN INTO ( cPrevHRIS ), SIN INTO ( 'st'+cStaff )
SET FILTER TO END # CTOD('') .AND. RIGHT(TYPE,3) = 'REG' .AND. ;
2->END = CTOD('') .AND. 3->(EOF())
COPY TO ( 'f:\files\dbval\terminat' )
IF !OpenFiles({{ 15, { 'f:\files\dbval\terminat' }, 'Terminations', .T.,
0 }})
BREAK
ENDIF
SET RELATION TO SIN INTO ( 'dldm' )
DELETE FOR 11->(FOUND())
PACK
REPLACE LEVEL WITH SearchDl( SIN ) ALL
@ nL,30 SAY LASTREC() PICT '99,999'
USE
SELECT 3; SET INDEX TO; SET FILTER TO
SELECT 2; SET INDEX TO
SELECT 1; SET RELATION TO; SET FILTER TO

RETURN NIL

Jul 20 '05 #1
0 1041

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

reply views Thread by Dmitry Akselrod | last post: by
4 posts views Thread by Dave Patton | last post: by
1 post views Thread by Printronix | last post: by
4 posts views Thread by =?Utf-8?B?SGVyYg==?= | last post: by
reply views Thread by =?Utf-8?B?ZGF2aWRjaHVnaGVz?= | last post: by
3 posts views Thread by Marcin Jurczuk | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.