Executing the TMDEMO program
In Transparent mode, you can execute the QUICKSTART QSTART program, which executes the application program specified in parameters. All parameter values for QSCTRL1 can be entered directly in the JCL (see the following figure) or online through the QSMENU (QUICKSTART main menu) by using option 4.
//*
//* THIS MEMBER CONTAINS SAMPLE JCL NECESSARY TO EXECUTE A DB2
//* PROGRAM USING QUICKSTART'S TRANSPARENT MODE, WHICH USES
//* QUICKSTART'S CALL ATTACH FACILITY.
//*
//* RUN TMDEMO
//*--------------------------------------------
//STEP1 EXEC PGM=QSTART,REGION=2M
//STEPLIB DD DSN=QSTART.LOADLIB,DISP=SHR
// DD DSN=DSN230.DSNLOAD,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* FOR RESTART TEST, A MINIMUM OF 30,000 RECORDS IS SUGGESTED FOR
//* THE INPUT FILE.
//INFILE DD DSN=MY.INPUT.FILE,DISP=SHR
//OUTFILE DD DSN=MY.OUTPUT.FILE,DISP=(MOD,CATLG,CATLG),
// UNIT=DISK,SPACE=(CYL,(10,10)),DCB=MY.INPUT.FILE
//QSTART DD DSN=HLQ.JOBNAME,
// UNIT=DISK,SPACE=(TRK,0)
//* THE DSNPARMS DD CARD SPECIFIES THE DB2 SUBSYSTEM AND PLAN NAMES
//QSREPT DD SYSOUT=*
//QSCTRL1 DD *
MAINPROG=TMDEMO
DRIVERDD=INFILE
WSRESTORE=FIRST
CALLCKPTAFTER=1000
WSRESTORE=FIRST
DB2=DSN
PLAN=TMDEMO
//
//* THIS MEMBER CONTAINS SAMPLE JCL NECESSARY TO EXECUTE A DB2
//* PROGRAM USING QUICKSTART'S TRANSPARENT MODE, WHICH USES
//* QUICKSTART'S CALL ATTACH FACILITY.
//*
//* RUN TMDEMO
//*--------------------------------------------
//STEP1 EXEC PGM=QSTART,REGION=2M
//STEPLIB DD DSN=QSTART.LOADLIB,DISP=SHR
// DD DSN=DSN230.DSNLOAD,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* FOR RESTART TEST, A MINIMUM OF 30,000 RECORDS IS SUGGESTED FOR
//* THE INPUT FILE.
//INFILE DD DSN=MY.INPUT.FILE,DISP=SHR
//OUTFILE DD DSN=MY.OUTPUT.FILE,DISP=(MOD,CATLG,CATLG),
// UNIT=DISK,SPACE=(CYL,(10,10)),DCB=MY.INPUT.FILE
//QSTART DD DSN=HLQ.JOBNAME,
// UNIT=DISK,SPACE=(TRK,0)
//* THE DSNPARMS DD CARD SPECIFIES THE DB2 SUBSYSTEM AND PLAN NAMES
//QSREPT DD SYSOUT=*
//QSCTRL1 DD *
MAINPROG=TMDEMO
DRIVERDD=INFILE
WSRESTORE=FIRST
CALLCKPTAFTER=1000
WSRESTORE=FIRST
DB2=DSN
PLAN=TMDEMO
//
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*