Loop Statement Help

[f_cruz]

I need help in creating a loop statement for the append operation below. It is based on the 'Segment' field. Which can range from 1 through 35. Thank you in advance!

DIM Append as P

a_tbl = table.open("temp1")
append.t_db = "temp"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "top_records(1,"segment = "+chr(92)+""1"+chr(92)+""")"
append.type = "All"
append.m_count = 22
append.m_field1 = "OEL"
append.m_exp1 = "@Temp->OEL"
append.m_field2 = "BREAK"
append.m_exp2 = "@Temp->BREAK"
append.m_field3 = "FULL_NAME"
append.m_exp3 = "@Temp->FULL_NAME"
append.m_field4 = "TITLE"
append.m_exp4 = "@Temp->TITLE"
append.m_field5 = "COMPANY"
append.m_exp5 = "@Temp->COMPANY"
append.m_field6 = "ALTRNT2ADD"
append.m_exp6 = "@Temp->ALTRNT2ADD"
append.m_field7 = "ALTRNT1ADD"
append.m_exp7 = "@Temp->ALTRNT1ADD"
append.m_field8 = "DLVRYADDRS"
append.m_exp8 = "@Temp->DLVRYADDRS"
append.m_field9 = "CITYSTZIP"
append.m_exp9 = "@Temp->CITYSTZIP"
append.m_field10 = "COUNTRY"
append.m_exp10 = "@Temp->COUNTRY"
append.m_field11 = "IMBBRCDDGT"
append.m_exp11 = "@Temp->IMBBRCDDGT"
append.m_field12 = "PRSRTSQNC"
append.m_exp12 = "@Temp->PRSRTSQNC"
append.m_field13 = "Segment"
append.m_exp13 = "@Temp->Segment"
append.m_field14 = "CUSTOM1"
append.m_exp14 = "@Temp->CUSTOM1"
append.m_field15 = "CUSTOM2"
append.m_exp15 = "@Temp->CUSTOM2"
append.m_field16 = "CUSTOM3"
append.m_exp16 = "@Temp->CUSTOM3"
append.m_field17 = "CUSTOM4"
append.m_exp17 = "@Temp->CUSTOM4"
append.m_field18 = "CUSTOM5"
append.m_exp18 = "@Temp->CUSTOM5"
append.m_field19 = "Max_Char"
append.m_exp19 = "@Temp->Max_Char"
append.m_field20 = "Max_Lines"
append.m_exp20 = "@Temp->Max_Lines"
append.m_field21 = "Qty"
append.m_exp121 = "@Temp->Qty"
append.m_field22 = "Info"
append.m_exp22 = "'First record on file'"
append.t_count = 0

a_tbl.append()

a_tbl.close()

'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if

[madtowng]

What is the importance of segment?
How are you determining the loop ?

[f_cruz]

What I am trying to accomplish is getting the 1st record(top_record) of each segment. I can do this by creating the append code 35 times. Changing the 1 to 2 then 3 etc in +chr(92)+""1"+chr(92)+. I would like to create one loop instead that will do this. Is that possible?

[madtowng]

I'm going to hope you have a list of segments in an array I'm going to call segmentArray.

for each seg in segmentArray
<run the append operation>
next

Let me know if I'm on the right track or not.

[f_cruz]

I do not. I was trying a while statement. But it is obviously wrong. I get an error message Script:TEST_LOOP - line:68 a_tbl.append() - Expected value

DIM Append as P
DIM i as N
DIM segment as N

i = 1
WHILE i <= 35

a_tbl = table.open("temp1")
append.t_db = "temp"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "top_records(1,"segment = i)"
append.type = "All"
append.m_count = 22
append.m_field1 = "OEL"
append.m_exp1 = "@Temp->OEL"
append.m_field2 = "BREAK"
append.m_exp2 = "@Temp->BREAK"
append.m_field3 = "FULL_NAME"
append.m_exp3 = "@Temp->FULL_NAME"
append.m_field4 = "TITLE"
append.m_exp4 = "@Temp->TITLE"
append.m_field5 = "COMPANY"
append.m_exp5 = "@Temp->COMPANY"
append.m_field6 = "ALTRNT2ADD"
append.m_exp6 = "@Temp->ALTRNT2ADD"
append.m_field7 = "ALTRNT1ADD"
append.m_exp7 = "@Temp->ALTRNT1ADD"
append.m_field8 = "DLVRYADDRS"
append.m_exp8 = "@Temp->DLVRYADDRS"
append.m_field9 = "CITYSTZIP"
append.m_exp9 = "@Temp->CITYSTZIP"
append.m_field10 = "COUNTRY"
append.m_exp10 = "@Temp->COUNTRY"
append.m_field11 = "IMBBRCDDGT"
append.m_exp11 = "@Temp->IMBBRCDDGT"
append.m_field12 = "PRSRTSQNC"
append.m_exp12 = "@Temp->PRSRTSQNC"
append.m_field13 = "Segment"
append.m_exp13 = "@Temp->Segment"
append.m_field14 = "CUSTOM1"
append.m_exp14 = "@Temp->CUSTOM1"
append.m_field15 = "CUSTOM2"
append.m_exp15 = "@Temp->CUSTOM2"
append.m_field16 = "CUSTOM3"
append.m_exp16 = "@Temp->CUSTOM3"
append.m_field17 = "CUSTOM4"
append.m_exp17 = "@Temp->CUSTOM4"
append.m_field18 = "CUSTOM5"
append.m_exp18 = "@Temp->CUSTOM5"
append.m_field19 = "Max_Char"
append.m_exp19 = "@Temp->Max_Char"
append.m_field20 = "Max_Lines"
append.m_exp20 = "@Temp->Max_Lines"
append.m_field21 = "Qty"
append.m_exp21 = "@Temp->Qty"
append.m_field22 = "Info"
append.m_exp22 = "'First record on file'"
append.t_count = 0


a_tbl.append()

i = i + 1
END WHILE

a_tbl.close()

[Ronald Anusiewicz]

I think your filter is wrong.

append.t_filter = "top_records(1,"segment = (i)" )"

[f_cruz]

I get an error: Extra characters at end of expression when I try: append.t_filter = "top_records(1,"segment = (i)" )"

If I were to make it:
append.t_filter = "top_records(1,"val(Segment)=1")"

It works and gives me the top record but 35 times. Why doesn't it take i = 1

[Ronald Anusiewicz]

Is Segment a character field or a numeric field in the table.
It appears that the variable you are trying to pass to the operation are not being read as variables.

Maybe?

append.t_filter = "top_records(1,\"val(segment) = \" + i )"

[f_cruz]

Segment is a character field in the table.
I don't get an error running your code above but noting is appending to the table.

[madtowng]

My thinking is the append operation is designed to append x number of records in a query to a table.
If it were me in this case, I would ensure the query gets the desired records. Once that happens,
I would use the run_operation command to run the append operation.
This operation can be put inside a loop if that is really the route you want to take.

I can help you setup the loop, but I would need to understand how you are defining the loop.

Feel free to contact me at [email protected] or (608) 345-2697.

[f_cruz]

Thanks for all your help. I finally got it to work. I removed:
DIM i as N
i = 1
and added that info into Define Global Variables

and used the code:
append.t_filter = "top_records(1,"val(segment) = " + i )"

Now how can I add another loop into the script? Or am I better off creating multiple scripts and call them?

[Ronald Anusiewicz]

Not enough information. Sure it can be done.

[f_cruz]

Hello everyone!

So this loop code below works great but a tweak is needed and I was hoping for some help. I am using "WHILE i <= 35" because I am assuming we will not have a job with over 35 segments. Let's say I have a job with only 1 segment. How can i stop the code from looping 35 times when it should just stop at 1. What if I had a job with only 5 segments? Etc....

DIM Append as P
DIM segment as N

WHILE i <= 35

a_tbl = table.open("temp1")
append.t_db = "temp"

append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "top_records(1,"val(segment) = " + i )"
append.type = "All"
append.m_count = 22
append.m_field1 = "OEL"
append.m_exp1 = "@Temp->OEL"
append.m_field2 = "BREAK"
append.m_exp2 = "@Temp->BREAK"
append.m_field3 = "FULL_NAME"
append.m_exp3 = "@Temp->FULL_NAME"
append.m_field4 = "TITLE"
append.m_exp4 = "@Temp->TITLE"
append.m_field5 = "COMPANY"
append.m_exp5 = "@Temp->COMPANY"
append.m_field6 = "ALTRNT2ADD"
append.m_exp6 = "@Temp->ALTRNT2ADD"
append.m_field7 = "ALTRNT1ADD"
append.m_exp7 = "@Temp->ALTRNT1ADD"
append.m_field8 = "DLVRYADDRS"
append.m_exp8 = "@Temp->DLVRYADDRS"
append.m_field9 = "CITYSTZIP"
append.m_exp9 = "@Temp->CITYSTZIP"
append.m_field10 = "COUNTRY"
append.m_exp10 = "@Temp->COUNTRY"
append.m_field11 = "IMBBRCDDGT"
append.m_exp11 = "@Temp->IMBBRCDDGT"
append.m_field12 = "PRSRTSQNC"
append.m_exp12 = "@Temp->PRSRTSQNC"
append.m_field13 = "Segment"
append.m_exp13 = "@Temp->Segment"
append.m_field14 = "CUSTOM1"
append.m_exp14 = "@Temp->CUSTOM1"
append.m_field15 = "CUSTOM2"
append.m_exp15 = "@Temp->CUSTOM2"
append.m_field16 = "CUSTOM3"
append.m_exp16 = "@Temp->CUSTOM3"
append.m_field17 = "CUSTOM4"
append.m_exp17 = "@Temp->CUSTOM4"
append.m_field18 = "CUSTOM5"
append.m_exp18 = "@Temp->CUSTOM5"
append.m_field19 = "Max_Char"
append.m_exp19 = "@Temp->Max_Char"
append.m_field20 = "Max_Lines"
append.m_exp20 = "@Temp->Max_Lines"
append.m_field21 = "Qty"
append.m_exp21 = "@Temp->Qty"
append.m_field22 = "Info"
append.m_exp22 = "'First record on file'"
append.t_count = 0
a_tbl.append()
i = i + 1
a_tbl.close()

end while

Thank you!

[madtowng]

Let's try to get at the needed information.
I'm guessing you have a list of orders, and each order has 1 or more segments.
Where is the main list coming from ?

[f_cruz]

Yes, a list of orders, and each order has 1 or more segments.

The lists will are all dbase (.dbf) files.