Examples

A report is provided below to illustrate uses of statement DO EXTRACT. The report shows the status of accounts receivable for a company. It is formatted as follows:

Every account starts on a new page. An account may span several pages. In this case, the word CONTINUED appears in the STATUS column at the bottom of each page (except the last) for that account.
If an account has an outstanding balance, the balance is printed after the words TOTAL DUE:
If the account has no outstanding balance, the words PAID IN FULL are displayed instead.
The page number is printed at the top of each page, prefixed by the word PAGE. There is a maximum of 60 lines on each page.
Each line of the report starts in column 2. (The first column is reserved for ASA-code control character symbols.)

Note: Column numbering lines have been provided at the top and bottom of the sample report on the next page for your convenience. These lines are not actual report lines.

The following examples are based on this sample report.

Figure 197 Sample Report with DO EXTRACT Examples

---+----1----+----2----+----3--——+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+—

ACCOUNTS RECEIVABLE DEPARTMENT DATE 28/12/99 PAGE 000001

C L I E N T H I S T O R Y D E T A I L FROM 01/01/99 TO 05/05/99

+-------------------------------------------------------------------------------------------------------------------------

| | CJ98443 | 03/03/99 | 245.00| 0.00 |

| | MJ24545 | 05/04/99 | 10344.40| 0.00 |

| | RJ10030 | 01/02/99 | 5329.39| 0.00 |

| | RJ12233 | 02/02/99 | 5000.00| 0.00 |

| | RJ30021 | 03/02/99 | 16670.10| 0.00 |

| | RJ32991 | 02/03/99 | 30300.44| 0.00 |

| | RJ33939 | 03/03/99 | 900.25| 0.00 |

| | RJ38001 | 05/04/99 | 1000.23| 0.00 |

| | RJ93043 | 05/04/99 | 415.89| 0.00 |

+-------------------------------------------------------------------------------------------------------------------------

| TOTALS | | | 70205.70| 0.00 | PAID IN FULL

ACCOUNTS RECEIVABLE DEPARTMENT DATE 28/12/99 PAGE 000002

C L I E N T H I S T O R Y D E T A I L FROM 01/01/99 TO 05/05/99

+-------------------------------------------------------------------------------------------------------------------------

| | 100322 | 02/01/99 | 1000.00 | 1000.00 |

| | 100400 | 02/01/99 | 500.00 | 500.00 |

| | 100405 | 02/01/99 | 500.00 | 500.00 |

| | 100520 | 02/02/99 | 333.34 | 333.34 |

| | 100560 | 02/02/99 | 3000.00 | 3000.00 |

| | 100561 | 02/02/99 | 250.00 | 250.00 |

| | 100678 | 02/02/99 | 1000.00 | 1000.00 |

| | 200001 | 01/03/99 | 250.00 | 250.00 |

| | 200012 | 01/03/99 | 333.33 | 333.33 |

| | 200300 | 01/04/99 | 500.00 | 500.00 |

| | 200456 | 01/04/99 | 500.00 | 500.00 |

| | 202533 | 05/04/99 | 1000.00 | 1000.00 |

| | 300003 | 12/04/99 | 250.00 | 250.00 |

| | 340203 | 26/04/99 | 333.33 | 333.33 |

+------------------------------------------------------------------------------------------------------------------------

| | | | | | CONTINUE

ACCOUNTS RECEIVABLE DEPARTMENT PAGE 000003

C L I E N T H I S T O R Y D E T A I L FROM 01/01/99 TO 05/05/99

+-------------------------------------------------------------------------------------------------------------------------

| | 343211 | 26/04/99 | 500.00 | 500.00 | CONTINUED

| | 350032 | 04/05/99 | 1000.00 | 1000.00 |

| | 520033 | 05/05/99 | 500.00 | 500.00 |

| | 540050 | 05/05/99 | 2000.00 | 2000.00 |

| | 540051 | 05/05/99 | 1000.00 | 1000.00 |

| | 540052 | 05/05/99 | 250.00 | 250.00 |

+-------------------------------------------------------------------------------------------------------------------------

| TOTALS | | | 15000.00 | 15000.00 | TOTAL DUE: 15000.00

ACCOUNTS RECEIVABLE DEPARTMENT DATE 28/12/99 PAGE 000004

C L I E N T H I S T O R Y D E T A I L FROM 01/01/99 TO 05/05/99

+-------------------------------------------------------------------------------------------------------------------------

| | B7003003 | 02/02/99 | 1800.00 | 300.00 |

| | B7003420 | 03/03/99 | 2700.00 | 2700.00 |

| | B7004009 | 05/04/99 | 1500.00 | 1500.00 |

| | B7018700 | 05/05/99 | 500.00 | 500.00 |

+-------------------------------------------------------------------------------------------------------------------------

| TOTALS | | | 5000.00 | 5000.00 | TOTAL DUE: 300.00

1 1 1

---+----1----+----2----+----3--——+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+—

Example 1

String TOTAL DUE: is located and the total amount owed extracted. The rule then stores the total amount owed into Control-M/Analyzer Local variable TOTAL_OWED.

Figure 198 DO EXTRACT Example 1 from Sample Report

LIBRARY : CTB.PROD.RULES RULE : CALCTOT

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

OWNER M18B GROUP ACCOUNTS

UPDATED 05/05/99 - 15:30:05 BY M18B

DESC CALCULATE TOTAL OUTSTANDING BALANCE OWED THE COMPANY

OPTIONS

===========================================================================

EXECUTE GETOWED UPON C

ON SYSOUT PROCST PGMST STEP12 DDNAME ACCREP JOBNM

MODE PG LINECT 0060 DATASTAMP

WHEN LINE 006 - 060 COL 095 - 120 STOP AND/OR

STRING = TOTAL DUE:

DO EXTRACT = TOTAL_OWED

LEVEL 1 LINE +000 COL +011 - +018 PROCESS TYP

DO PRINT = %%TOTAL-OWED F C

WHEN LINE - COL - STOP AND/OR

STRING =

DO

===========================================================================

EXECUTE UPON C

ON

======= >>>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<<< =====

PLEASE FILL IN RULE DEFINITION. 13.47.53

Example 2

A summary report (that provides a list of company names and their financial status) is created.

The company name is extracted from the same line in which the string ACCOUNT was found (for example, Level 1 WHEN statement) using relative column values.
The status of this company is extracted from the same line in which was found the string TOTALS (for example, Level 2 WHEN statement). The actual status is extracted from relative columns.
Figure 199 DO EXTRACT Example 2 from Sample Report

LIBRARY : CTB.PROD.RULES RULE : SUMREP

COMMAND ===> SCROLL===> CRSR

+------------------------------------------------------------------------------+

OWNER M18B GROUP ACCOUNTS

UPDATED 09/09/99 - 15:30:05 BY M18B

DESC SUMMARIZE THE ORIGINAL REPORT

OPTIONS

============================================================================

EXECUTE REPORT UPON C

ON SYSOUT PROCST PGMST STEP01 DDNAME SYSUT2 JOBNM

MODE PG LINECT 0060

DATASTAMP

WHEN LINE 004 - 004 COL 004 - 010 STOP Y AND/OR A

STRING = ACCOUNT

STOP LINE 001 - 006 COL 002 - 010

STRING = .NP.

WHEN LINE 006 - 060 COL 004 - 010<+> STOP AND/OR

STRING = TOTALS

DO EXTRACT = NAME

LEVEL 1 LINE +000 COL +008 - +034 PROCESS TYP

DO EXTRACT = STATUS

LEVEL 2 LINE +000 COL +092 - +116 PROCESS TYP

DO PRINT = %%NAME-%%STATUS F C

DO

PLEASE FILL IN RULE DEFINITION. 14.43.36

Example 3

The average invoice amount for each company is calculated and a report is produced in which the company name and average invoice amount are listed.

An average extraction (TYP=AV) of the invoice amount of each company into a variable is performed (for example, the invoice amount of each line that belongs to the current company is extracted and a "running" average is calculated for this variable).

Figure 200 DO EXTRACT Example 3 from Sample Report

LIBRARY : CTB.PROD.RULES RULE : AVERAGES

COMMAND ===> SCROLL===> CRSR

+------------------------------------------------------------------------------+

EXECUTE CALCAVG UPON C

ON SYSOUT PROCST PGMST STEP01 DDNAME SYSUT2 JOBNM

MODE PG LINECT 0060 DATASTAMP

WHEN LINE 005 - 005 COL 002 - 011 STOP Y AND/OR A

STRING = ACCOUNT

STOP LINE 006 - 060 COL 002 - 015

STRING = TOTALS

WHEN LINE 006 - 006 COL 001 - 020 STOP Y AND/OR A

STRING = ————

STOP LINE 007 - 060 COL 001 - 020

STRING = ————

WHEN LINE L02+001 - 060 COL 070 - 081 STOP AND/OR

STRING = .AL.

DO EXTRACT = FULLNAME

LEVEL 1 LINE +000 COL +008 - +034 PROCESS TYP

DO EXTRACT = SHRTNAME

LEVEL 1 LINE +000 COL +031 - +033 PROCESS TYP

DO BLOCK = CHKNAME ARG SHRTNAME,FULLNAME

DO EXTRACT = AVG%%SHRTNAME C

LEVEL 0 LINE +000 COL +000 - +011 PROCESS TYP AV

PLEASE FILL IN RULE DEFINITION. 14.09.00

Parent Topic

DO EXTRACT: Automated Balancing Statement