CPAPAXTL - Performance Alerts List extract

This JCL runs the CICS PA Performance Alerts List extract using a FORM to generate the FIELDS operand. SEVERITY(ALL) indicates that all transactions will be included in the extract.
Figure 1. Sample JCL CPAPAXTL -Performance Alerts List extract
//CPAPAXTL JOB ,CLASS=A,NOTIFY=&SYSUID
//CICSPA   EXEC PGM=CPAMAIN,REGION=4M,PARM=NOSTAE
//STEPLIB  DD  DSN=CPA.V3R2M0.SCPALINK,DISP=SHR
//SYSPRINT DD  SYSOUT=*                                   
//*                                                
//* HDB Register                                   
//CPAHDBRG DD  DISP=SHR,DSN=<CICSPA.HDB.Register>
//*                                                       
//* SMF Input Files                                     
//SMFIN001 DD  DISP=SHR,DSN=<SMF.Input.DSN.applid1>       
//* Extract Data Sets                        
//CPAOEX01 DD DSN=<user.extract.output.file>,
//            DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(10,10)) 
//* Command Input                 
//SYSIN    DD  *                                          
 CICSPA IN(SMFIN001),                                     
        APPLID(<applid1>),                                
            LIST(OUTPUT(EXPT0001),                                    
                DDNAME(CPAOEX01),                                     
                DELIMIT(';'),                                         
                LABELS,                                               
                ALERTDEF(<alertdefinitionname>),                      
                SEVERITY(ALL),               
                FIELDS(TRAN,                 
                       STYPE,                
                       TERM,                 
                       USERID,               
                       RSYSID,               
                       PROGRAM,              
                       TASKNO,               
                       STOP(TIMET),          
                       RESPONSE,             
                       RESPONSE,             
                       DISPATCH(TIME),       
                       CPU(TIME),            
                       CPU(TIME,SEV),        
                       SUSPEND(TIME),        
                       SUSPEND(TIME,SEV),    
                       SUSPEND(COUNT,SEV),   
                       DISPWAIT(TIME),       
                       FCWAIT(TIME),         
                       FCAMCT,               
                       IRWAIT(TIME)))        
/*