Program Re-engineering

This example is a real program re-engineering example using the SILK Cobol CASE Tool.

It is interesting to contrast the Cope and SILK tables, and the Cobol code they generate. There is a difference of philosophy here. SILK generates easily maintained Cobol code. Cope assumes you will write and maintain tables, and you will never ever read the Code.

'What! Never?'
'No, never.'
'What! Never?'
'-- Hardly ever.'

*Test-PPays-Commission.   Note decision table.
      *    n y y y y y y y y y  is PPays-Commision.
      *    - x x x x x x x x x  Add 1 to Comm-Counter-Sw.
      *    - n y y y y y y y y  is Two-Nets-Read.
      *    - - 1 1 2 2 2 2 2 -  is ..-Read.  One-Comm, Two-Comms.
      *    - - - - y y n n n -  is PPays-Active.
      *    - - y n y n - - - -  is PPays-Credit.
      *    - - - - - - y y n -  is PPays-Reversed.
      *    - - - - - - y n - -  is PPays-Debit.
      *    - - 1 2 - - - - - -  Add PPays-Amt-Recvd to
      *                         WS10-Comm-..-Accum-T,
      *                         WS10-Comm-..-Accum-P. Credit, Debit.
      *    - - x - - - - - - -  Multiply -1 by PPays-Amt-Recvd.
      *    - - x x - - - - - -  Move PPays-Amt-recvd to WS10-Amt-Edit.
      *    - - x x - - - - - -  Move WS10-Amt-Edit to Detl-Comm-Amt.
      *    - - - - 1 - 2 - - -  Add PPays-Amt-Posting to
      *                         WS10-Post-..-Accum-Rec.  Credit, Debit.
      *    - - - - - x - x - -  Display spaces.
      *    - - - - - 1 - 2 - -  Display
      *                         "!!!!!!!!!  2nd Com of .. TRX not ..".
      *                                       Active, Reversed;  CR, DB.
      *    - - - - - x - x - -  Display Spaces.
      *    1 2 - - - - - - - -  Display ...
      *                         "More than two commission records read",
      *                    "Commission read but not two nets before it".
      *    x x - - - - - - - -  Display "for same day and time stamp".
      *    x x - - - - - - - -  Call "ABEND" using WS99-Abend-Parms.

This page has been accessed times since 16th June 1999.