
Students' Guide to
Program
Design
b Solution algorithm
Mainline
Sequential-Update-Program
Initialize-Variable-Fields
Read-Transaction-Record
Read-Old-Master-Record
set current-record-status to 'inactive'
DOWHILE End-of-Job = false
Select-Current-Record
DOWHILE transaction-record-key = current-record-key
Applv-Transaction-to-Current-Record
ENDDO
IF current-record-status = 'active' THEN
Write-Current-Record
set current-record-status to 'inactive'
ENDIF
ENDDO
Write-Report-Totals
END
Subordinate modules
1 Initialize-Variable-Fields
set total-transaction-recs to zero
set total-old-master-recs to zero
set total-new-master-recs to zero
set total-error-rec ...