Printing Running Totals :SQR Program

In order to print Running totals(as shown in below)  using SQR can be done using
Variables and Procedures


Program Outline:
1.Create a SQR file
2.Create HEADING section to create column headings
   begin-heading
   -----
   end-heading

Similarly create Footer using FOOTING section
  begin-footing
   -----
   end-footing
3.Call a procedure
    in our code Procedure "main" called using "do" command from PROGRAM section

4.Build definition for procedure "main" in PROCEDURE section
begin-procedure proc_name

---
end-procedure
5.Select database columns using PARAGRAPH "SELECT"
begin-select
------
end-select
6.Now create procedure to calculate Running sun
---"run_total" is the procedure used in below code to perform running sum

Thats all we done.

 Below is the SQR code:

begin-heading 3   ! Reserves 3 lines for Heading

print 'Customer Details' (1,1) underline bold

print $current-date (1,70) ! Prints Current Date

print 'User :  ' (+1,70)

print $username ()   ! Prints Database Username

print 'State' (3,1)

print 'Cust Num' (,10)

print 'Cust Name' (,20)

print 'Phone' (,53)

print 'Total' (,65)

print 'Running Total' (,75)

end-heading

begin-footing 2

page-number (1,1) 'Page '

last-page () ' of '

end-footing

begin-program

 do main

end-program

begin-procedure main

begin-select distinct    

state (,1)     on-break
 ! on-break will group the remaining data base one this column “state”
cust_num (,10)   
name (,20)       on-break  before=run_total

               ! before=run_total will call the procedure “run_total” before change in the value of “name”

phone

 if &phone = ''

 print 'No Phone' (,53)

 else

 print &phone (,53)

 end-if

Tot (,65)  edit 999

 position (+1)

from customers

order by state

end-select

print 'Final Tot:' (+1,60) bold

print #final_total  (,75) edit 999 bold

print 'Total Rows Selected:  ' (+1,60)

print #sql-count ()

end-procedure

begin-procedure run_total

let #total=#total+&tot

print #total (,75)   edit 999

!position (+3,1)

let #final_total=#total

end-procedure