//ULIA     JOB   (),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),REGION=4M
//*
//STEP1 EXEC HLASMCL,
//     PARM.C=('RENT')
//C.SYSLIB  DD DISP=SHR,DSN=SYS1.MACLIB
//          DD DISP=SHR,DSN=IMS710.ADFSMAC
//C.SYSIN   DD *
DFSIMS70 CSECT
*
*    THE DFSPRP MACRO GENERATES THE DRA STARTUP TABLE
*        THERE ARE A FEW MORE POSSIBLE PARMS
         DFSPRP DSECT=NO,               GENERATE                        X
               FUNCLV=1,                FUNCTION LEVEL                  X
               DDNAME=CCTLDD,           DDNAME FOR DRA RESLIB           X
               DSNAME=IMS1210.SDFSRESL, DSNAME FOR DRA RESLIB           X
               DBCTLID=
IMSC,            DBCTL IDENTIFIER                X
               USERID=,                 USERID                          X
               MINTHRD=2,               MIN NUMBER OF THREADS           X
               MAXTHRD=7,               MAX NUMBER OF THREADS           X
               TIMER=60,                IDENTIFY TIMER VALUE DEFAULT    X
               FPBUF=5,                 NUMBER OF FP BUFFERS PER THREAD X
               FPBOF=5,                 NUMBER OF FP OVERFLOW BUFFERS   X
               SOD=A,                   SNAP DATASET OUTPUT CLASS       X
               AGN=,                    APPLICATION GROUP NAME          X
               TIMEOUT=60,              DRATERM TIMEOUT VALUE           X
               IDRETRY=0,               IDENTIFY RETRY COUNT            X
               CNBA=10                  TOTAL FP NBA BUFFERS FOR CCTL
        END
//L.SYSLMOD DD DSN=ABC.A.LOAD(DFS
IMSC0),
//             DISP=SHR