Appendix A. Supporting information 477
End
End
“LMDList ListID(“DataID”) Option(Free)”
intRCode = RC
“LMDFree ListID(“DataID”)”
intRCode = RC
Final: Exit
Components of the Trader application
Table A-1 lists all of the components of the Trader application. Refer to Appendix
C for instructions to download these from the Web.
Table A-1 Components used in the making of this redbook
Name Description
Source code in DEMOS.PDPAK.SOURCE
MYTRADMV COBOL CICS main routine (VSAM)
MYTRADS COBOL CICS subroutine (VSAM)
MYTRADMD COBOL CICS DB2 main routine
MYTRADD COBOL CICS DB2 subroutine
MYTRADMI COBOL CICS IMS main routine
MYTRADI COBOL CICS IMS subroutine
TRADERB Batch COBOL for VSAM data
TRADERD Batch COBOL for DB2 data
TRADERI Batch COBOL for IMS data
Copybooks in DEMOS.PDPAK.COPYLIB
COMPFILE Record layout for the VSAM Company file
COMPANY DCLGEN for the Company table
CUSTOMER DCLGEN for the Customer table
CUSTFILE Record layout for the VSAM Customer file
NEWTRAD BMS Map for the Trader application
TRANFILE Record layout for the sequential Transaction file
478 IBM Application Development Tools for z/OS and OS/390
Check to insure that all the required data sets are generated.
Table A-2 List of data sets included in the zip file
PCB IMS PCB model
DLIUIB IMS DLIUIB without level 01
DLI IMS standard declarations
DLICUST Layouts for both segments of the CUSTOMER
database
DLICOMP Layouts for the segment of the COMPANY
database
Samples in DEMOS.PDPAK.SAMPLES
$README Information about the contents of the data set
CONTACTS Sample contacts file used with the Fault Analyzer
REXX user exit, WAKUP3AM
MYTRADD COBOL subroutine with errors used in Scenario 3
(DB2 data)
SAMPFIL1 Sample file with errors used in Scenario 1
SENDIT2 Fault Analyzer REXX user exit to send abends to
different fault history files
SEQ2PDS1 Sample REXX routine to take multiple sequential
files and create members of a PDS
TRADERB COBOL batch program with errors used in
Scenario 2 (VSAM data)
TRANFILE Sample records used to create the transaction file
WAUP3AM Fault Analyzer REXX user exit to send e-mail after
an abend
Name Description
Company file (Sequential) DEMOS.PDPAK.COMPANY
Customer file (Sequential) DEMOS.PDPAK.CUSTOMER
Transaction file DEMOS.PDPAK.SAMPLES(TRANFILE)
COBOL compiler listings DEMOS.PDPAK.COBLIST
Name Description
Appendix A. Supporting information 479
Debug Tool side files DEMOS.PDPAK.DT.SIDEFILE
Fault Analyzer side files DEMOS.PDPAK.FA.SIDEFILE
JCL DEMOS.PDPAK.JCL
Load library DEMOS.PDPAK.LOAD
BMS Maps DEMOS.PDPAK.MAPS
Name Description
480 IBM Application Development Tools for z/OS and OS/390

Get Introduction to the IBM Application Development Tools on z/OS and OS/390 now with O’Reilly online learning.

O’Reilly members experience live online training, plus books, videos, and digital content from 200+ publishers.