//DOGPROC PROC DOGS='HWINS01.JCL.DOGSORT',                              00010000
//            REQUEST='KEN CALDWELL'                                    00020000
/*                                                                      00030000
//STEP0    EXEC PGM=IEFBR14                                             00040000
//DD1      DD DSN=&DOGS,DISP=(MOD,DELETE),                              00050000
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00060000
//*                                                                     00070000
//STEP1    EXEC PGM=DOGPGM,                                             00080000
//         PARM='&REQUEST'                                              00090000
//STEPLIB  DD DSN=HWINS01.A.LOAD,DISP=SHR                               00100000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00110000
//SYSOUT   DD SYSOUT=*                                                  00120000
//DOGRPT   DD SYSOUT=*                                                  00130000
//DOGFILE  DD DSN=HWINS01.JCL.CLASS(DOGDATA),DISP=SHR                   00140000
//DOGSORT  DD DSN=&DOGS,DISP=(NEW,CATLG),                               00150000
//            UNIT=SYSDA,SPACE=(TRK,(1,1)),                             00160000
//            DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0                      00170000
//                                                                      00180000