In the INPUT block:

Read a report in Page mode (PG) from a file referenced by the SYSUT2 DD statement.

When column 48 is a hyphen, extract the employee details (number, name, and office number) and the specific fields to be checked (annual salary, sick days, vacation days).

Call the CHECK block to determine if the extracted quantities are reasonable. The CHECK block is written at the end of the rule but is executed now because it is called by DO BLOCK.

• After all detail lines have been checked, execute the END block.

  If the error counter is more than zero:

  • Print an error message
  • Use the Shout facility to notify user TSO-M55 that the report is not balanced
  • Terminate with rule status NOTOK and a condition code of 999

  If the error counter is zero:

  • Notify user TSO-M55 that the report is balanced
  • Terminate with rule status OK and condition code 0

  Note: It is important to terminate this block explicitly in case of OK and NOTOK to prevent calling the CHECK block one time too many.

• In the CHECK block, verify that the extracted values of the current employee are valid:
  • Annual salary greater than or equal to 90,000?
  • Sick days less than or equal to 14?
  • Vacation days less than or equal to 31?

If a problem is found, print a message and increment the error counter.

Note: The CHECK block appears at the end of the rule but is executed now for each employee line because it is called by the DO BLOCK statement.