beautypg.com

HP XP Command View Advanced Edition Software User Manual

Page 299

background image

//*

//* 3) Submit the JCL and make sure that no error occurs.

//* 4) Remove CHECK operand from ACCEPT and re-submit the JCL to

//* complete.

//*

//*********************************************************************

//ACCEPT EXEC PGM=GIMSMP

//SMPOUT DD SYSOUT=*

//SMPRPT DD SYSOUT=*

//SMPLIST DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SMPWRK1 DD UNIT=SYSDA,

// SPACE=(3120,(0364,0380,500)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)

//SMPWRK2 DD UNIT=SYSDA,

// SPACE=(3120,(0364,0380,500)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)

//SMPWRK3 DD UNIT=SYSDA,

// SPACE=(3120,(0364,0380,500)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)

//SMPWRK4 DD UNIT=SYSDA,

// SPACE=(3120,(0364,0380,500)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)

//SMPWRK6 DD UNIT=SYSDA,

// SPACE=(3120,(0364,0380,500)),

// DCB=(RECFM=FB,BLKSIZE=3120)

//SYSUT1 DD UNIT=SYSDA,SPACE=(3120,(0380,0760))

//SYSUT2 DD UNIT=SYSDA,SPACE=(3120,(0380,0760))

//SYSUT3 DD UNIT=SYSDA,SPACE=(3120,(0380,0760))

//SYSUT4 DD UNIT=SYSDA,SPACE=(3120,(0038,0100)),

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)

//* The following data sets would likely be specified in a

//* cataloged procedure customized for a particular customer.

//SMPPTS DD DISP=SHR,DSN=&PFX..SMPPTS

//SMPLOG DD DISP=MOD,DSN=&PFX..SMPLOG

//SMPLOGA DD DISP=MOD,DSN=&PFX..SMPLOGA

//SMPCSI DD DISP=SHR,DSN=&PFX..SMPCSI.CSI

//GLOBAL DD DISP=SHR,DSN=&PFX..SMPCSI.CSI

//TGT1 DD DISP=SHR,DSN=&PFX..SMPCSI.CSI

//DLIB1 DD DISP=SHR,DSN=&PFX..SMPCSI.CSI

//SMPTLIB DD DISP=SHR,UNIT=3390,VOL=SER=&VSN

//SMPHOLD DD DUMMY

//SMPSCDS DD DISP=SHR,DSN=&PFX..SMPSCDS

//SMPMTS DD DISP=SHR,DSN=&PFX..SMPMTS

//SMPSTS DD DISP=SHR,DSN=&PFX..SMPSTS

//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB

// DD DISP=SHR,DSN=&PFX..SMPMTS

//SMPCNTL DD *

SET BDY(DLIB1).

ACCEPT SELECT(CHKLnnn)

CHECK -----(6)

.

/*

User Guide

299