PowerHouse activity

[o.kappert@qc.aibn.com]

The startlog should come before the lock as the lock may be critical for 
the complete transaction.  There should also be a endlog(?) to complete 
the transaction block.  The same is true in COBOL programming too !

Olav.



    ------ Original Message ------
    From: byrnejb at harte-lyne.ca
    To: powerh-l at lists.sowder.com
    Sent: Tuesday, August 10, 2021 2:12 PM
    Subject: PowerHouse activity

          I am revisiting some very old Quick code and I have a question 
every now and
  then which I hope to bounce off someone else; who knows PowerHouse.

  PowerHouse here is 8.39 running on MPE/iX 7.5pp5+?? and using Image 
plus a few
  KSAM files.

  In one of the older programs I am looking at I see this construct

  ROCEDURE UPDATE
  BEGIN
  STARTLOG TRANSACTIONS
  LOCK TRANSACTIONS FILE, TRANACCT FILE, TRANDETL FILE,              &
       WORK-ACCT FILE, DISBURSEMENT FILE, ITEM-DISB FILE, ITEMS FILE,&
       DISB-ACCT FILE, ACCOUNTS FILE, REVENUE FILE
  PUT NOTDELETED TRANSACTIONS
  . . .

  In another I see this:

  PROCEDURE UPDATE
    BEGIN
      LOCK ACCOUNTS FILE , GL-ACRU FILE , REQUISITIONS FILE ,        &
           REVENUE FILE , TRANACCT-IN FILE , TRANDETL FILE ,         &
           TRANSACTIONS-IN FILE
  ;# Fetch and calculate accrued work-in-progress update immediately 
before PUT.
      DO INTERNAL ACCRUED-COST
  ;# Despite its name STARTLOG actually begins a transaction block.
      STARTLOG ACCOUNTS
  . . .

  Is there any significance in having the STARTLOG occur before the 
LOCK?

  --
  ***          e-Mail is NOT a SECURE channel          ***
          Do NOT transmit sensitive data via e-Mail
     Unencrypted messages have no legal claim to privacy
   Do NOT open attachments nor follow links sent by e-Mail

  James B. Byrne                mailto:ByrneJB at Harte-Lyne.ca
  Harte & Lyne Limited          http://www.harte-lyne.ca
  9 Brockley Drive              vox: +1 905 561 1241
  Hamilton, Ontario             fax: +1 905 561 0757
  Canada  L8E 3C3

  --
  = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  Mailing list: powerh-l at lists.sowder.com
  Subscribe: 'subscribe' in message body to 
powerh-l-request at lists.sowder.com
  Unsubscribe: 'unsubscribe <password>' in message body to 
powerh-l-request at lists.sowder.com
  https://lists.sowder.com/mailman/listinfo/powerh-l
  This list is closed, thus to post to the list you must be a 
subscriber.
  Add 'site:lists.sowder.com powerh-l' to your search terms to search 
the list archive at Google.