Skip to Content
Introduction to the IBM Application Development Tools on z/OS and OS/390
book

Introduction to the IBM Application Development Tools on z/OS and OS/390

by Joe DeCarlo, Sylvie Delahaye, Sergei Litvak, Wilfried Van Hecke
December 2002
Intermediate to advanced content levelIntermediate to advanced
534 pages
12h 14m
English
IBM Redbooks
Content preview from Introduction to the IBM Application Development Tools on z/OS and OS/390
Chapter 13. Scenario 2: Using Debug Tool 409
You found that saving the value of the previously read key value of the Customer
record and checking it with key value immediately after the next read is causing
the problem.
Because the customer has one record for every company in which he holds
shares, the program logic must be changed to check only the CUST-NM of KEYREC.
Saving the CUST-NM field of KEYREC and checking it just after a READ NEXT should
solve the problem.
The changes you make to the program are (the corrected after lines were
commented out):
Before (line 712)
MOVE KEYREC OF CUSTOMER-IO-BUFFER TO WS-CUST-KEY
After (line 713)
MOVE CUST-NM OF CUSTOMER-IO-BUFFER TO WS-CUST-NM
Before (line 723, 724)
PERFORM CALCULATE-SHARE-vaLUE
UNTIL KEY ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Using IBM Application Development Tools for z/OS and OS/390

Using IBM Application Development Tools for z/OS and OS/390

Joe DeCarlo, Peter Henningsen, Paula Hesketh, Lars-Erik Olsson
IBM Problem Determination Tools for z/OS

IBM Problem Determination Tools for z/OS

Rufus Credle, Vikram Manchala, Dana Shelton, Kenichi Yoshimura
IBM z/OS Management Facility V2R1

IBM z/OS Management Facility V2R1

Karan Singh, Richard Davis, Anuja Deedwaniya, Michael Jägering, Redelf Janßen, Michael Morrissey, Neil O'Connor, Conrad Peche, Arunkumar Ramachandran, Richard Walton

Publisher Resources

ISBN: 0738428043Purchase book