Creating the Send Control file (HULFT.QUEUE)
An example of using a JOB statement and AMS commands to create the Send Control file (HULFT.QUEUE) is shown below.
Example of JCL
//QUEVSAM JOB CLASS=A,MSGCLASS=B
//*------< VSAM DEFINE CLUSTER >---------------------------------------
//DEFCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE HULFT.QUEUE
DEFINE CLUSTER -
(NAME(HULFT.QUEUE) -
INDEXED) -
DATA -
(NAME(HULFT.QUEUE.DATA) -
KEYS(61 0) -
VOLUMES(HUL001) -
CYLINDERS(1 1) -
SHAREOPTIONS(4 3) -
RECORDSIZE(7600 7600) -
CONTROLINTERVALSIZE(26624)) -
INDEX -
(NAME(HULFT.QUEUE.IDX) -
VOLUMES(HUL001) -
CYLINDERS(1 1) -
SHAREOPTIONS(4 3))
//*------< FILE CREATE >---------------------------------------
//XRCREATE EXEC PGM=XRCREATE
//STEPLIB DD DSN=HULFT.LOAD,DISP=SHR
//XRLOG DD DUMMY
//XRLOG1 DD DUMMY
//XRLOG2 DD DUMMY
//XRFILE DD DUMMY
//XRHOST DD DUMMY
//XRQUE DD DSN=HULFT.QUEUE,DISP=SHR
//XRCNTL DD DUMMY
//XROPLC1 DD DUMMY
//XROPLC2 DD DUMMY
//XROPLF1 DD DUMMY
//XROPLF2 DD DUMMY
//SYSUDUMP DD SYSOUT=*
//
|
DD Name |
Value |
Description |
|---|---|---|
|
STEPLIB |
HULFT.LOAD |
HULFT load module library |
|
XRQUE |
HULFT.QUEUE |
Send Control File |
|
Parameter Name |
Value |
Description |
|---|---|---|
|
NAME |
HULFT.QUEUE |
Send Control File |
|
NAME |
HULFT.QUEUE.DATA |
Send Control file data component entry name |
|
VOLUMES |
HUL001 |
Volume name |
|
CYLINDERS |
(*1) |
Capacity |
|
NAME |
HULFT.QUEUE.IDX |
Send Control file index component entry name |
|
*1 |
: |
(primary secondary) |