Progres 4GL Sample Query, how to fetch the data in excel.
In the below Query we have used the join of two tables i.e ih_hist and idh_his, you can replace them as per need.
output to "test-sachin3.xls".
put unformatted
"part " "~011"
"invoice nbr" "~011"
"qty ord" "~011"
"qty inv " "~011"
"price" "~011"
"pod_line " "~011"
"ih inv date" "~011"
"ih ord date" "~011"
"ih req date" "~011"
"ih ship date" "~011"
"ih due date" "~011"
"idh due date" "~011"
"idh per date " "~011"
"idh req date" "~011"
"idh sob date" "~011"
SKIP.
FOR EACH ih_hist WHERE ih_cust = ih_cust:
for each idh_hist where idh_part = '120620'and idh_inv_nbr = ih_inv_nbr:
put unformatted
idh_part "~011"
idh_inv_nbr "~011"
idh_qty_ord "~011"
idh_qty_inv "~011"
idh_price "~011"
idh_prodline "~011"
ih_inv_date "~011"
ih_ord_date "~011"
ih_req_date "~011"
ih_ship_date "~011"
ih_due_date "~011"
idh_due_date "~011"
idh_per_date "~011"
idh_req_date "~011"
idh_sob_rev "~011"
skip.
end.
END.
end.
output to "test-sachin3.xls".
put unformatted
"part " "~011"
"invoice nbr" "~011"
"qty ord" "~011"
"qty inv " "~011"
"price" "~011"
"pod_line " "~011"
"ih inv date" "~011"
"ih ord date" "~011"
"ih req date" "~011"
"ih ship date" "~011"
"ih due date" "~011"
"idh due date" "~011"
"idh per date " "~011"
"idh req date" "~011"
"idh sob date" "~011"
SKIP.
FOR EACH ih_hist WHERE ih_cust = ih_cust:
for each idh_hist where idh_part = '120620'and idh_inv_nbr = ih_inv_nbr:
put unformatted
idh_part "~011"
idh_inv_nbr "~011"
idh_qty_ord "~011"
idh_qty_inv "~011"
idh_price "~011"
idh_prodline "~011"
ih_inv_date "~011"
ih_ord_date "~011"
ih_req_date "~011"
ih_ship_date "~011"
ih_due_date "~011"
idh_due_date "~011"
idh_per_date "~011"
idh_req_date "~011"
idh_sob_rev "~011"
skip.
end.
END.
end.
Comments