May 2004
Intermediate to advanced
608 pages
14h 44m
English
book
Using IBM Application Development Tools for z/OS and OS/390
by Joe DeCarlo, Peter Henningsen, Paula Hesketh, Lars-Erik Olsson
Content preview from Using IBM Application Development Tools for z/OS and OS/390
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,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Chapter 28. Scenario 3: Is the error in DB2 data or program logic? 519
Example 28-1 shows the updated code in the CALCULATE-SHARES-SOLD paragraph.
Example 28-1 Coding changes in MYTRADD to correct the error
IF NO-OF-SHARES-DEC IS GREATER THAN NO-SHARES
THEN
MOVE INvaLID-SALE TO RETURN-vaLUE
MOVE TOO-MANY-SHARES-MSG TO COMMENT-FIELD
ELSE
SUBTRACT NO-OF-SHARES-DEC FROM NO-SHARES
GIVING NO-SHARES
MOVE NO-SHARES TO NO-OF-SHARES-DEC
END-IF
.
Figure 28-15 Check the SHARES-OVERFLOW variable
Remember: To enable the corrected programs for CICS, first you have to remove the old
ones. Follow these instructions:
TSO:
Delete the ...
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.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.