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

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