Initialise Printer:

1. Initialise printer as line printer in portrait mode.

Init Report:

1. Set Current Date and Time.
2. Get Report Parameters, RunControl values.

Generate Main Report using EDS:

1. Generate report using EDS (Event Driven Sqr's) Methodology.
2. Open Input file, abort if unsucessful.
3. Ignore employees with tax less than 700.
4. Initialise EDS system with MAIN Report Type as 'Pay'.
5. Read each record from input stream (pay csv file).
6. Submit each record to EDS System.
7. Exit EDS system on end of input stream data.

End Of Report Event:

1. Print Grand Totals and number of records processed from input stream.

Terminate:

1. Set end of report flag.

1. Demo06.sqr

1. d:\sqrplus\sqr\sqrp-eds.sqc

    01  BEGIN-PROGRAM
        02  INIT-REPORT 
        02  REPORT 
            03  SRIT-EDS-BEGIN-PAY 
            03  SQRP-EDS-GET-FLD-BY-NUM 
            03  SRIT-EDS-PROCESS-PAY 
            03  SRIT-EDS-END-PAY 
            03  SRIT-EDS-NEW-LINE 
            03  END-OF-REPORT 
        02  TERMINATE 
        02  BEGIN-HEADING (indirect call) 
            03  SQRP-EDS-PRINT-TXT-RJUST 
        02  BEGIN-FOOTING (indirect call) 

1. Procedure Name: MY-PAY-INIT-VARIABLES Procedure Description: Initialise variables Procedure Type: Global Arguments/Parameter: SLNO. Variable Mode N/A None Not Applicable Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Initialise variables: Called by EDS System. Initialise variables used in detail section. This is required as detail section reports data that is built from multiple records from the input stream.

2. Procedure Name: MY-PAY-SKIP Procedure Description: Skip Input Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 #SKIP By Reference Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Skip Test: Called by EDS System. Tell EDS to include qualified employees in the report. Include if tax is >= 700 or leave data is found for the employee.

3. Procedure Name: PAY-BEFORE-COMPANY Procedure Description: Company Before Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Company Before Event: Called by EDS System when Value in company changes. Force new page but not first time. Print Company code and Description.

4. Procedure Name: PAY-BEFORE-PAYGROUP Procedure Description: Paygroup Before Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $PAYGROUP By Value 3 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Paygroup Before Event: Called by EDS System when Value in Paygroup changes. Print Paygroup Code and Description.

5. Procedure Name: PAY-BEFORE-DEPT Procedure Description: Department Before Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $PAYGROUP By Value 3 $DEPT By Value 4 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Department Before Event: Called by EDS System when Value in Department changes. Print Department Code and Description.

6. Procedure Name: MY-PAY-DETAIL-SECTION Procedure Description: Print Detail Section Procedure Type: Global Arguments/Parameter: SLNO. Variable Mode N/A None Not Applicable Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Print Detail Section: Called by EDS System to print detail section. Print detail section fields. Call Leave Sub Report to report leave data.

7. Procedure Name: PAY-AFTER-COMPANY Procedure Description: Company After Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Company After Event: Called by EDS System after Value in Company changes. Print Company Totals and reset after printing.

8. Procedure Name: PAY-AFTER-PAYGROUP Procedure Description: Paygroup After Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $PAYGROUP By Value 3 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Paygroup After Event: Called by EDS System after Value in Paygroup changes. Print PayGroup Totals and reset after printing.

9. Procedure Name: PAY-AFTER-DEPT Procedure Description: Department After Event Procedure Type: Local Arguments/Parameter: SLNO. Variable Mode 1 $COMPANY By Value 2 $PAYGROUP By Value 3 $DEPT By Value 4 $EFFDT By Value Database Tables: SLNO. Table Name Access Mode Remarks 1 None N/A Not Applicable Processing: Department After Event: Called by EDS System after Value in Department changes. Print Department Totals and reset after printing.