Filter
Top Products
//*------------------------------------------------------
//* PROGRAM: cobolcmp.jcl
//* IBM COBOL for MVS
//* Compile Only
//*
//*------------------------------------------------------
//COBOLCMP EXEC PGM=IGYCRCTL,PARM='&TCPARM'
//*
//* INPUT FILES WITH EXTENSION CBL
//*
//SYSIN DD TCEXT=CBL,DISP=(NEW,DELETE),
// SPACE=(32000,(30,10)),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//*
//* COPY FILES WITH EXTENSION CPY
//*
//SYSLIB DD TCEXT=CPY,DISP=(NEW,KEEP),
// SPACE=(32000,(30,30,30)),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//*
//SYSPRINT DD TCEXT=TCOUT,DISP=(NEW,DELETE),
// SPACE=(32000,(30,30)),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=3990)
//SYSLIN DD TCEXT=OBJ,UNIT=SYSDA,
// DISP=(NEW,DELETE),SPACE=(32000,(30,10)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//
Example of a build script for a link
Because MVS load modules are not easily transferable, TeamConnection provides a
sample build script program that reads linkage editor SYSLIN control statements. This
script produces a single file that can be returned from MVS and loaded into
TeamConnection. You can later extract the file and transport it to MVS, where it can be
link edited to produce an executable load module.
The next example shows this sample build script, named fhbtclnk.jcl, which is shipped
with the TeamConnection client.
You can use either of the following for an INCLUDE control statement for the
FHBTCLNK program:
v INCLUDE DDNAME(MEMBER)
v INCLUDE DDNAME
Chapter 13. Working with MVS build scripts and builders 171