Clarion 5.5PE legacy application import procedure



  • 1. EIP - catch "after delete record"
    Hi all ! I have original EIP browse. I need to catch "after delete record". Where is this embed point ? Thanks ! forex
  • 2. UNC Path
    Hopefully noone knows as I use it all the time. "Olumide Orukotan" < XXXX@XXXXX.COM > skrev i melding news: XXXX@XXXXX.COM ... > hello everyone i have a problem with one of my application i am trying to > run it locally and get off my data from the server , i am using map drive > but one of the computer has got a UNC path do any one know of any problems > with this > > -- > Olu > >
  • 3. Create File Problem
    I'm running Cpe5.5g under winxp. --------------------------------------------- QuickFileName = Clip(FilesPath)&'BcInput.QCK' Close(QuickOut) Create(QuickOut) If error() stop('error11 Createing quickout = '&error()) Close(QuickOut) If error() stop('error22 closing after error on creating quickout = '&error()) .!end if .!end if Open(QuickOut,WriteOnly+DenyAll) ---------------------------------------------------------------------------- The file is ascii and I have the Create attribute on it. The first first stop gives me an Access Denied error The 2nd stop gives me a File Not Open error. Why would I get an access denied on the Create?? This problem is intermittent but persistent. Is this a threading problem??
  • 4. New CapeSoft Accessory
    That one is new new DLL version (damn lunatic landing)! <bg> Jaco Venter "Simon Brewer" < XXXX@XXXXX.COM > wrote in message news: XXXX@XXXXX.COM ... > Nor could I Bruce - here's a picture moments later....<vbg> > > "Bruce Johnson" < XXXX@XXXXX.COM > wrote in message > news: XXXX@XXXXX.COM ... > > Sorry, I couldn't resist <bg>... > > > > Bruce > > > > > > > > >

Clarion 5.5PE legacy application import procedure

Postby chuck.simmerson » Fri, 21 Nov 2003 05:40:28 GMT


I have a TPS data file that stores signals received from a modem.
Most of the time the previous record contains the Caller ID information and
its protocol would be type 4.
If the signal is a type P, I would like to look at the previous record see
if it it is a type 4 then make sure the account number matches the current
record in memory. If both conditions are true assign the date and time from
this previous record to the record in memory and then save the record in
memory as the last record in the file.

I wondering if by reading the previous record if my current variables in
memory ((SLRW:Protocol, etc) will be overwritten without me assigning new
values to them. I am not getting any compile errors. In otherwords, I only
want to replace the values of SLRW:DATE & SLRW:Time if there are values
found in the previous record.

Are there any errors in my logic?

Thank you in advance.


Part of a case statement

   SLRW:PROTOCOL = CLIP(SUB(RxString,1,1))  !Assignment
   SLRW:RECEIVER = CLIP(SUB(RxString,2,2))  !Assignment
   SLRW:LINE_NO  = CLIP(SUB(RxString,4,1))  !Assignment
                       SLRW:FIELD_4 = CLIP(SUB(RxString,6,11))
                       PREVIOUS(SLRMessages)                !new code **
read previous record **
                       Loc:Protocol = SLRW:Protocol
                       Loc:ReceiverAccountNumber =
                       Loc:DateReceived = SLRW:Date
                       Loc:TimeReceived = SLRW:Time
                       IF SLRW:PROTOCOL = '4' AND
LEFT(CLIP(SUB(SLRW:FIELD_4,3,4))) = Loc:ReceiverAccountNumber
                            SLRW:TIME = Loc:DateReceived
                            SLRW:DATE = Loc:TimeReceived
                                SLRW:TIME  = CLOCK()
                                SLRW:TIME  = INT(SLRW:TIME / 6000) * 6000 +
                                SLRW:DATE = TODAY()
                       END!IF                               !end of new code
                       SLRW:FIELD_6   = '-'
                       SLRW:FIELD_7   =
CLIP(SUB(RxString,17,Len(RxString)-17)) !Assignment
                       SLRW:Imported   = 1
                       ELSIF CLIP(SLRW:PROTOCOL) = 'S' !not supported
                          ELSE              !if non digital format
                          SLRW:FIELD_4  = CLIP(SUB(RxString,5,16))
                          SLRW:TIME     =
DEFORMAT(CLIP(SUB(RxString,21,5)),@T1) !Assignment
                          SLRW:FIELD_6  = CLIP(SUB(RxString,26,1))
                          SLRW:DATE     =
DEFORMAT(CLIP(SUB(RxString,27,8)),@D5) !Assignment
                          SLRW:TERMNTR  = CLIP(SUB(RxString,35,1))
                          SLRW:Imported = 1
                   ADD(SLRMessages)                !
                   ADD(SLRQueue)                   !!Add message to the
                   Display(?List)                  !!

Re: Clarion 5.5PE legacy application import procedure

Postby Charles Maples » Fri, 21 Nov 2003 06:08:14 GMT

i Chuck
Yes all the fields would change to the previous record I would suggest that
you create an alias in the dictionary for that table and use it to find the
info in the previous row

"chuck.simmerson" < XXXX@XXXXX.COM > wrote in message
news: XXXX@XXXXX.COM ...

Similar Threads:

1.Removing preceding zero's in clarion 55 legacy procedure

Hi Timo:

Thank you for the help.
I only had to make one change.

SIGW:UserNumber = LEFT(FORMAT(SUB(SLRW:FIELD_6,12,4)@n_4))

Because without the left on the outside, if I started with 0002 I was ending
up with three spaces in front of the 2.

Have a great weekend.


"Timo Lahtinen" < XXXX@XXXXX.COM > wrote in
message news: XXXX@XXXXX.COM ...
> SIGW:UserNumber = FORMAT(CLIP(LEFT(SUB(SLRW:FIELD_6,12,4))),@n_4)
> Did not test it works like in above. If not, do your CLIP... in work
> variable first and then
> FORMAT from there.
> Timo Lahtinen
> Helsinki   Finland
> "chuck.simmerson" < XXXX@XXXXX.COM > wrote in message
> news: XXXX@XXXXX.COM ...
> > Hi!
> >
> > I am parsing through a string using the sub function.
> >    SIGW:UserNumber = CLIP(LEFT(SUB(SLRW:FIELD_6,12,4)))
> > It returns a value in the following format:
> > Have           Need
> > 0001           1
> > 0023           23
> > 0100           100
> > 1023           1023
> >
> > Is there a way to remove the preceding zeros?
> >
> > Thank you in advance.
> >
> > Chuck
> >
> >
> >
> >
> >

2.Clarion 6 legacy to Clarion 6 ABC


I'm looking for make rules to convert a big application in Clarion 6
legacy to ABC.

I saw there was a possibility to do that with the version 5, is it
possible with version 6 too?

The aim after this conversion is to pass to the version 7...

I dunno if I'm seeking in the good direction...

(Feel a bit lost ;-))

Thanks for your help

3.Convert Clarion 5 Legacy app to Clarion 7

I have applications generated in Clarion 5 legacy code (not ABC) that
I want to use in Clarion 7. Can this be done? Is the conversion

4.ABC EXE using Legacy DLLs (procedures)

5.update procedure in legacy code and WinXP problem

Hello All,

We have an old application that hangs sometimes when a record is being
deleted from one table. The procedure is just a simple Insert/Update/Delete
one made using standard legacy template. It hangs only when the application
is run under WinXP.
While I was trying to troubleshoot I found some (IMHO) strange legacy code
produced by the template.

  IF LocalRequest = DeleteRecord
    IF StandardWarning(Warn:StandardDelete) = Button:OK
        LocalResponse = RequestCancelled
        IF RIDelete:UurMut()
          CASE StandardWarning(Warn:DeleteError)
          OF Button:Yes
          OF Button:No OROF Button:Cancel
          LocalResponse = RequestCompleted
    DO ProcedureReturn

I wonder what the purpose is of the LOOP block in this code, because I can't
see any good reason for it.
Can somebody enlighten me about it?

Thanks in advance,
Ivo Ivanov
Modest Automatisering BV

6. Clarion 5 Legacy- Link to Web Site

7. clarion legacy to abc

8. Clarion 5 Legacy App- Show Pictures

Return to clarion


Who is online

Users browsing this forum: No registered users and 47 guest