Creating the Send and Receive Log file (HULFT.LOG)

An example of using a JOB statement and AMS commands to create the Send and Receive Log file (HULFT.LOG) is shown below.

Example of JCL

//LOGVSAM JOB CLASS=A,MSGCLASS=B
//DEFCLSTR EXEC PGM=IDCAMS                                                      
//SYSPRINT DD SYSOUT=*                                                          
//SYSIN DD *                                                                    
     DEFINE CLUSTER                                                   -         
            (NAME(HULFT.LOG)                                          -         
             INDEXED                                                  -         
             REUSE)                                                   -         
            DATA                                                      -         
            (NAME(HULFT.LOG.DATA)                                     -         
             KEYS(59 0)                                               -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3)                                        -         
             RECORDSIZE(1600 1600)                                    -         
             CONTROLINTERVALSIZE(26624))                              -         
            INDEX                                                     -         
            (NAME(HULFT.LOG.IDX)                                      -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3))                                                 
            DEFINE CLUSTER                                            -         
            (NAME(HULFT.LOG.PATH1)                                    -         
             INDEXED                                                  -         
             REUSE)                                                   -         
            DATA                                                      -         
            (NAME(HULFT.LOG.PATH1.DATA)                               -         
             KEYS(59 59)                                              -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3)                                        -         
             RECORDSIZE(1600 1600)                                    -         
             CONTROLINTERVALSIZE(26624))                              -         
            INDEX                                                     -         
            (NAME(HULFT.LOG.PATH1.IDX)                                -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3))                                                 
            DEFINE CLUSTER                                            -         
            (NAME(HULFT.LOG.PATH2)                                    -         
             INDEXED                                                  -         
             REUSE)                                                   -         
            DATA                                                      -         
            (NAME(HULFT.LOG.PATH2.DATA)                               -         
             KEYS(9 118)                                              -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3)                                        -         
             RECORDSIZE(1600 1600)                                    -         
             CONTROLINTERVALSIZE(26624))                              -         
            INDEX                                                     -         
            (NAME(HULFT.LOG.PATH2.IDX)                                -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3))                                                 
//*------< FILE CREATE         >---------------------------------------         
//XRCREATE EXEC PGM=XRCREATE                                                    
//STEPLIB  DD DSN=HULFT.LOAD,DISP=SHR                                           
//XRLOG    DD DSN=HULFT.LOG,DISP=SHR                                            
//XRLOG1   DD DSN=HULFT.LOG.PATH1,DISP=SHR                                      
//XRLOG2   DD DSN=HULFT.LOG.PATH2,DISP=SHR                                      
//XRFILE   DD DUMMY                                                             
//XRHOST   DD DUMMY                                                             
//XRQUE    DD DUMMY                                                             
//XRCNTL   DD DUMMY                                         
//XROPLC1  DD DUMMY                                                             
//XROPLC2  DD DUMMY                                                             
//XROPLF1  DD DUMMY                                                             
//XROPLF2  DD DUMMY                                                             
//SYSUDUMP DD SYSOUT=*                                                          
//*------< LOGCNT >---------------------------------------                      
//XRLOGCNT EXEC PGM=XRLOGCNT                                                    
//STEPLIB  DD DSN=HULFT.LOAD,DISP=SHR                                           
//XRLOG    DD DSN=HULFT.LOG,DISP=SHR                                            
//XRLOG1   DD DSN=HULFT.LOG.PATH1,DISP=SHR                                      
//XRLOG2   DD DSN=HULFT.LOG.PATH2,DISP=SHR                                      
//XRCRD    DD *                                                                 
LOGCNT=ALL                                                                      
//XRPRINT  DD SYSOUT=*                                                          
//SYSOUT   DD SYSOUT=*                                                          
//SYSUDUMP DD SYSOUT=*                                                          
//                                                                              

DD Name

Value

Description

STEPLIB

HULFT.LOAD

HULFT load module library

XRLOG

HULFT.LOG

Send and Receive Log File ID Key File

XRLOG1

HULFT.LOG.PATH1

Send and Receive Log Host Name Key File

XRLOG2

HULFT.LOG.PATH2

Send and Receive Log Date Key File

Parameter Name

Value

Description

NAME

HULFT.LOG

Send and Receive Log File ID Key File

NAME

HULFT.LOG.DATA

Send and Receive Log File ID Key file data component entry name

VOLUMES

HUL001

Volume name

CYLINDERS

(*1)

Capacity

NAME

HULFT.LOG.IDX

Send and Receive Log File ID Key file index component entry name

NAME

HULFT.LOG.PATH1

Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH1.DATA

Send and Receive Log Host Name Key file data component entry name

NAME

HULFT.LOG.PATH1.IDX

Send and Receive Log Host Name Key file index component entry name

NAME

HULFT.LOG.PATH2

Send and Receive Log Date Key File

NAME

HULFT.LOG.PATH2.DATA

Send and Receive Log Date Key file data component entry name

NAME

HULFT.LOG.PATH2.IDX

Send and Receive Log Date Key file index component entry name

*1

:

(primary secondary)