Employee report
Simple list of all records with the sum at the end
EmpNo	Name	Salary	Hire Date	Retired	
\Scan(A); Calc(A.Salary,A.empno,A.retired)\
\A.empno\	\SepList(", ",A.LastName,A.FirstName)\	$ \A.Salary:# ##0\	\A.HireDate\ 	\IIF(A.Retired)\YES\ENDIIF\	
\EndScan(A)\
Sum of \=Count[A.empno]\ records	$ \=Sum[A.Salary]:# ### ##0\		\=Sum[A.retired]\	
\Info(Printer=HP DeskJet 5600 series)\ \Info(ShowText=Show this text before run)\

Employee report
Simple list of selected records with the sum at the end
Selection: skip retired
\ResetCalc\
EmpNo	Name	Salary	Hire Date	Increased by 15%	
\Scan(A); SkipIf(A.Retired); Calc(A.Salary,A.SInc=A.Salary*1.15,A.empno)\
\A.empno\	\SepList(", ",A.LastName,A.FirstName)\	$ \A.Salary:# ##0\	\A.HireDate\ 	$ \=A.Salary*1.15:# ##0\	
\EndScan(A)\
Sum of \=Count[A.empno]\ records	$ \=Sum[A.Salary]:# ### ##0\		$ \=Sum[A.SInc]:# ### ##0\	

Employee report
Simple list of selected records with the sum at the end and colored some values
\ResetCalc\
EmpNo	Name	Salary	Hire Date	Increased by 15%	
\Scan(A); SkipIf(A.Retired); Calc(A.Salary, A.Sinc=A.Salary*1.15, A.empno)\
\A.empno\	\SepList(", ",A.LastName,A.FirstName)\	\iif(A.Salary<30000)\$ \A.Salary:# ##0\\elseiif\$ \A.Salary:# ##0\\endiif\	\A.HireDate\ 	$ \=A.Salary*1.15:# ##0\	
\EndScan(A)\
Sum of \=Count[A.empno]\ records	$ \=Sum[A.Salary]:# ### ##0\		$ \=Sum[A.SInc]:# ### ##0\	

Employee report
Two lists of selected records with the sum at the end of each and grandsum at the end
List of employees with salary < $ 30 000: \ResetCalc\
EmpNo	Name	Salary	Hire Date	Increased by 10%	
\Scan(A); SkipIf(A.Retired or A.Salary>=30000); Calc(A.Salary,A.empno,A.Sinc=A.Salary*1.1)\
\A.empno\	\SepList(", ",A.LastName,A.FirstName)\	$ \A.Salary:# ##0\	\A.HireDate\ 	$ \=A.Salary*1.10:# ##0\	
\EndScan(A)\
Sum of \=Count[A.empno]\ records	$ \=Sum[A.Salary]:# ### ##0\		$ \=Sum[A.SInc]:# ### ##0\	
List of employees with salary >= $ 30 000: 
EmpNo	Name	Salary	Hire Date	Increased by 20%	
\Scan(A); SkipIf(A.Retired or A.Salary<30000); Calc(A.Salary,A.empno, A.Sinc=A.Salary*1.2)\
\A.empno\	\SepList(", ",A.LastName,A.FirstName)\	$ \A.Salary:# ##0\	\A.HireDate\ 	$ \=A.Salary*1.20:# ##0\	
\EndScan(A)\
Sum of \=Count[A.empno]\ records	$ \=Sum[A.Salary]:# ### ##0\		$ \=Sum[A.SInc]:# ### ##0\	
Total sum:
Sum of \=GrandCount[A.empno]\ records	$ \=GrandSum[A.Salary]:# ### ##0\		$ \=GrandSum[A.SInc]:# ### ##0\