The following procedure compiles, link-edits, and runs
the IGYTCARA program. If you want only to compile or only to compile
and link-edit the program, you must change the IGYWCLG cataloged procedure.
To run IGYTCARA under z/OS®,
use JCL to define a VSAM cluster and compile the program. Insert the
information specific to your system and installation (accounting information,
volume serial number, unit name, cluster prefix) in the fields that
are shown in lowercase letters. These examples use the name IGYTCAR.MASTFILE;
you can use another name if you want to.
- Use this JCL to create the required VSAM cluster:
//CREATE JOB (acct-info),'IGYTCAR CREATE VSAM',MSGLEVEL=(1,1),
// TIME=(0,29)
//CREATE EXEC PGM=IDCAMS
//VOL1 DD VOL=SER=your-volume-serial,UNIT=your-unit,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE your-prefix.IGYTCAR.MASTFILE -
FILE(VOL1) -
PURGE
DEFINE CLUSTER -
(NAME(your-prefix.IGYTCAR.MASTFILE) -
VOLUME(your-volume-serial) -
FILE(VOL1) -
INDEXED -
RECSZ(80 80) -
KEYS(16 0) -
CYLINDERS(2))
/*
To remove any existing cluster, a DELETE
is
issued before the VSAM cluster is created.
- Use the following JCL to compile, link-edit, and run the
IGYTCARA program:
//IGYTCARA JOB (acct-info),'IGYTCAR',MSGLEVEL=(1,1),TIME=(0,29)
//TEST EXEC IGYWCLG
//COBOL.SYSLIB DD DSN=IGY.V6R2M0.SIGYSAMP,DISP=SHR
//COBOL.SYSIN DD DSN=IGY.V6R2M0.SIGYSAMP(IGYTCARA),DISP=SHR
//GO.SYSOUT DD SYSOUT=A
//GO.COMMUTR DD DSN=your-prefix.IGYTCAR.MASTFILE,DISP=SHR
//GO.LOCCODE DD DSN=IGY.V6R2M0.SIGYSAMP(IGYTCODE),DISP=SHR
//GO.UPDTRANS DD DSN=IGY.V6R2M0.SIGYSAMP(IGYTRANX),DISP=SHR
//GO.UPDPRINT DD SYSOUT=A,DCB=BLKSIZE=133
//