Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Programming Guide


Running IGYTCARA

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 need to 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 in the fields that are shown in lowercase letters (accounting information, volume serial number, unit name, cluster prefix). These examples use the name IGYTCAR.MASTFILE; you can use another name if you want to.

  1. 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.

  2. 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.V4R1M0.SIGYSAMP,DISP=SHR
    //COBOL.SYSIN   DD DSN=IGY.V4R1M0.SIGYSAMP(IGYTCARA),DISP=SHR
    //GO.SYSOUT     DD SYSOUT=A
    //GO.COMMUTR    DD DSN=your-prefix.IGYTCAR.MASTFILE,DISP=SHR
    //GO.LOCCODE    DD DSN=IGY.V4R1M0.SIGYSAMP(IGYTCODE),DISP=SHR
    //GO.UPDTRANS   DD DSN=IGY.V4R1M0.SIGYSAMP(IGYTRANX),DISP=SHR
    //GO.UPDPRINT   DD SYSOUT=A,DCB=BLKSIZE=133
    //

related tasks  
Processing VSAM files


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)