IBM SC34-4499-03 manual Example of a build script for a link, DCB=RECFM=FB,LRECL=80,BLKSIZE=3200

//*------------------------------------------------------

//* 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 ®le that can be returned from MVS and loaded into TeamConnection. You can later extract the ®le 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:

vINCLUDE DDNAME(MEMBER)

vINCLUDE DDNAME

Chapter 13. Working with MVS build scripts and builders 171