DSNTEJ5A
THIS JOB.
//**********************************************************************00010000
//* NAME = DSNTEJ5A *00020000
//* *00030000
//* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION *00040000
//* PHASE 5 *00050000
//* ASSEMBLE DSNTIAC *00060000
//* *00070000
//* Licensed Materials - Property of IBM *00080000
//* 5635-DB2 *00090000
//* (C) COPYRIGHT 1982, 2006 IBM Corp. All Rights Reserved. *00100000
//* *00110000
//* STATUS = Version 9 *00120000
//* *00130000
//* FUNCTION = THIS JOB: *00140000
//* 1) ASSEMBLES THE CICS FRONT END FOR THE SQLCA *00150000
//* FORMATTER ROUTINE, DSNTIAC *00160000
//* 2) OPTIONALLY ASSEMBLES A SAMPLE RESOURCE CONTROL TABLE*00170000
//* 3) OPTIONALLY BUILDS CICS CSD DEFINITIONS FOR THE DB2 *00180000
//* SAMPLES *00190000
//* *00200000
//**********************************************************************00210000
//JOBLIB DD DSN=DSN!!0.SDSNEXIT,DISP=SHR 00220000
// DD DSN=DSN!!0.SDSNLOAD,DISP=SHR 00230000
// DD DSN=CICSTS.SDFHLOAD,DISP=SHR 00240000
//* 00250000
//* STEP 1: CICS TRANSLATE 00260000
//PH05AS01 EXEC PGM=DFHEAP1$ 00270000
//STEPLIB DD DSN=CICSTS.SDFHLOAD,DISP=SHR 00280000
//SYSPRINT DD SYSOUT=* 00290000
//SYSUDUMP DD SYSOUT=* 00300000
//SYSPUNCH DD DSN=&&CICSOUT, 00310000
// DISP=(NEW,PASS), 00320000
// UNIT=SYSDA,SPACE=(400,(100,100)), 00330000
// DCB=BLKSIZE=400 00340000
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSNTIAC), 00350000
// DISP=SHR 00360000
//* 00370000
//* STEP 2: ASSEMBLE DSNTIAC 00380000
//PH05AS02 EXEC PGM=ASMA90,PARM='NOOBJECT,DECK', 00390000
// COND=(4,LT,PH05AS01) 00400000
//SYSIN DD DSN=&&CICSOUT,DISP=(OLD,PASS) 00410000
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00420000
// DD DSN=DSN!!0.SDSNMACS,DISP=SHR 00430000
// DD DSN=DSN!!0.SDSNSAMP,DISP=SHR 00440000
// DD DSN=CICSTS.SDFHMAC,DISP=SHR 00450000
//SYSPUNCH DD DSN=&&OBJMOD(DSNTIAC), 00460000
// DISP=(,PASS), 00470000
// UNIT=SYSDA,SPACE=(TRK,(10,1,1)), 00480000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00490000
//SYSPRINT DD SYSOUT=* 00500000
//SYSUDUMP DD SYSOUT=* 00510000
//SYSUT1 DD UNIT=SYSDA,SPACE=(800,(500,500),,,ROUND) 00520000
//SYSUT2 DD UNIT=SYSDA,SPACE=(800,(500,500),,,ROUND) 00530000
//SYSUT3 DD UNIT=SYSDA,SPACE=(800,(500,500),,,ROUND) 00540000
//* 00550000
//* STEP 3: LINK-EDIT DSNTIAC IF THE ASSEMBLER 00560000
//* RETURN CODE IS 4 OR LESS 00570000
//* 00580000
//PH05AS03 EXEC PGM=IEWL, 00590000
// PARM='LIST,XREF,RENT,LET,AMODE=31,RMODE=ANY', 00600000
// COND=(4,LT,PH05AS02) 00610000
//SYSLIB DD DSN=DSN!!0.SDSNLOAD, 00620000
// DISP=SHR 00630000
// DD DSN=CICSTS.SDFHLOAD, 00640000
// DISP=SHR 00650000
//OBJLIB DD DSN=&&OBJMOD,DISP=(OLD,DELETE) 00660000
//SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSNTIAC),DISP=SHR 00670000
//SYSPRINT DD SYSOUT=* 00680000
//SYSUDUMP DD SYSOUT=* 00690000
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,50)) 00700000
//SYSLIN DD * 00710000
INCLUDE SYSLIB(DFHEAI) 00720000
INCLUDE OBJLIB(DSNTIAC) 00730000
NAME DSNTIAC(R) 00740000
//* 00750000
//* STEP 4: GENERATE INPUT TO RESOURCE CONTROL TABLE ASSEMBLY 00760000
//* 00770000
//*PH05AS04 EXEC PGM=IEBGENER,COND=(4,LT) 00780000
//*SYSPRINT DD SYSOUT=* 00790000
//*SYSIN DD DUMMY 00800000
//*SYSUT2 DD DSN=&&TEMPPDS(MACROS), 00810000
//* DISP=(,PASS), 00820000
//* UNIT=SYSDA,SPACE=(400,(200,100,5)), 00830000
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 00840000
//*SYSUT1 DD DSN=DSN!!0.SDSNSAMP(DSN8FRCT),DISP=SHR 00850000
//* 00860000
//* STEP 5: ASSEMBLE THE RESOURCE CONTROL TABLE 00870000
//* 00880000
//*PH05AS05 EXEC PGM=ASMA90, 00890000
//* PARM='SYSPARM(INITIAL),DECK,NOOBJECT,FLAG(0)', 00900000
//* COND=(4,LT,PH05AS04) 00910000
//*SYSLIB DD DSN=CICSTS.SDFHMAC,DISP=SHR 00920000
//* DD DSN=DSN!!0.SDSNMACS,DISP=SHR 00930000
//* DD DSN=SYS1.MACLIB,DISP=SHR 00940000
//*SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) 00950000
//*SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) 00960000
//*SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) 00970000
//*SYSPUNCH DD DSN=&&OBJMOD, 00980000
//* DISP=(,PASS), 00990000
//* UNIT=SYSDA,SPACE=(400,(100,100)), 01000000
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 01010000
//*SYSPRINT DD SYSOUT=* 01020000
//*SYSIN DD DSN=&&TEMPPDS(MACROS),DISP=(OLD,PASS) 01030000
//* 01040000
//* STEP 6: ADD OBJECT DECK TO TEMPORARY PDS 01050000
//* 01060000
//*PH05AS06 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(4,LT,PH05AS05) 01070000
//*SYSPRINT DD DUMMY 01080000
//*SYSUT2 DD DSN=&&TEMPPDS,DISP=(OLD,PASS) 01090000
//*SYSIN DD DSN=&&OBJMOD,DISP=(OLD,DELETE) 01100000
//* 01110000
//* STEP 7: LINK-EDIT THE RESOURCE CONTROL TABLE 01120000
//* 01130000
//*PH05AS07 EXEC PGM=IEWL,PARM='LIST,XREF,LET,NCAL',COND=(4,LT,PH05AS06)01140000
//*SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50)) 01150000
//*SYSPRINT DD SYSOUT=* 01160000
//*SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD,DISP=SHR 01170000
//*SYSPUNCH DD DSN=&&TEMPPDS,DISP=(OLD,PASS) 01180000
//*SYSLIN DD DSN=&&TEMPPDS(LNKCTL), 01190000
//* DISP=(OLD,PASS) 01200000
//* 01210000
//* STEP 8: CREATE SAMPLE DEFINITIONS IN THE CICS CSD 01220000
//* 01230000
//*PH05AS08 EXEC PGM=DFHCSDUP 01240000
//*STEPLIB DD DSN=CICSTS.SDFHLOAD,DISP=SHR 01250000
//*DFHCSD DD DSN=CICSTS.DFHCSD,DISP=SHR 01260000
//*SYSPRINT DD SYSOUT=* 01270000
//*SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8FRDO),DISP=SHR 01280000