How to archive HISTFILE to a GDG on ESP Workload Automation

Products

• ESP Workload Automation

Issue/Introduction

How to archive the HISTFILE to a GDG file on ESP Workload Automation?

Environment

Component: ESP WORKLOAD AUTOMATION 
Release:   12.0

Resolution

Data in the HISTFILE may be archived to a sequential data set or a GDG data set.

Sample job:   

//STEP1 EXEC PGM=ESP,PARM='SUBSYS(ESPx)'
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *                           
  OPER TRACKING NOSTORE                  
  OPER HISTFILE HIST1 CLOSE              
//*                                    
//STEP2 EXEC PGM=ESP,PARM='SUBSYS(ESPx)'
//SYSPRINT DD SYSOUT=*
//ALLOTEMP DD DSN=hlq.HISTTEMP,DISP=(,CATLG,DELETE),   
// UNIT=SYSDA,SPACE=(CYL,(100,20)),                           
// VOL=SER=volser                                              
//ALLOARCH DD DSN=hlq.HISTARCH(+1),DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(200,20)),                           
// VOL=SER=volser         
//SYSIN DD *
   REPORT                             
   INPUT HIST1 
  COPY SELECT FILE(ALLOTEMP)          
  COPY REJECT FILE(ALLOARCH)         
  CRITERIA RDRON GT TODAY LESS 4 WEEKS
  ENDR                               
//*
//STEP3    EXEC PGM=SORT,COND=(0,NE)           
//SORTWK01 DD   UNIT=SYSDA,SPACE=(CYL,(60,40)) 
//SORTWK02 DD   UNIT=SYSDA,SPACE=(CYL,(60,40)) 
//SORTWK03 DD   UNIT=SYSDA,SPACE=(CYL,(60,40)) 
//SORTWK04 DD   UNIT=SYSDA,SPACE=(CYL,(60,40)) 
//SYSOUT   DD   SYSOUT=*                      
//SORTIN   DD   DISP=SHR,DSN=hlq.HISTTEMP  
//SORTOUT  DD   DISP=SHR,DSN=hlq.HISTTEMP  
//SYSIN    DD   *                              
  SORT FIELDS=(5,18,CH,A),DYNALLOC=SYSDA        
/*                                            
//STEP4    EXEC PGM=IDCAMS,COND=(0,NE)        
//SYSPRINT DD SYSOUT=*                         
//SYSIN    DD *                               
     DELETE hlq.HISTFILE CLUSTER     
     IF LASTCC = 0 THEN                           
     DEFINE CLUSTER                           - 
            (NAME(hlq.HISTFILE)               -      
              CYLINDERS(50,1)                 -       
              FREESPACE(30,30)                -       
              INDEXED                         -       
              KEYS(18,0)                      -        
              REUSE                           -       
              RECSZ(300 32756)                -       
              SHAREOPTIONS(3,3)               -       
              VOLUME(volser)                  -       
             )                                         
/*                                                   
//STEP5    EXEC PGM=IDCAMS,COND=(0,NE)               
//INDD     DD   DISP=SHR,DSN=hlq.HISTTEMP        
//OUTDD    DD   DISP=SHR,DSN=hlq.HISTFILE
//SYSPRINT DD   SYSOUT=*                             
//SYSIN    DD   *                                    
        REPRO INFILE(INDD)   -                              
        OUTFILE(OUTDD)       -                              
        REUSE                                   
/*
//STEP6    EXEC PGM=ESP,PARM='SUBSYS(ESPx)'
//ALLOTEMP DD   DSN=hlq.HISTTEMP,DISP=(OLD,DELETE,DELETE)
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *                            
  OPER HISTFILE HIST1 OPEN                     
  OPER TRACKING STORE                          
/*                                           
//STEP7    EXEC PGM=IDCAMS                   
//SYSPRINT DD   SYSOUT=*                     
//SYSIN    DD   *                             
  LISTCAT ALL ENTRY(hlq.HISTFILE)
/*                                           
//