//VIT902E JOB (111400000),                                              JOB00133
//      'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A,
//      NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//*   Report Element counts within each processor group
//*   VIT902.JCL.CSV(EXAMPLEG)
//*-------------------------------------------------------------------
//*   STEP 1 -- EXECUTE CSV UTILITY
//*-------------------------------------------------------------------
//STEP1    EXEC PGM=NDVRC1,REGION=4M,
//         PARM='BC1PCSV0'
//STEPLIB  DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTU
//         DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTH
//         DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQLOAD
//CONLIB   DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQLOAD
//BSTIPT01 DD *
LIST ELEMENT
'*'
     FROM ENVIRONMENT  SMPLTEST  SYSTEM  '*' SUBSYSTEM '*'
          TYPE  '*'
          STAGE NUMBER '*'
     TO DDNAME 'TABLE'
     OPTIONS   SEARCH   RETURN ALL   PATH PHYSICAL .
//TABLE    DD DSN=&&EXTRACTM,
//      DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS),
//      DISP=(MOD,PASS),
//      SPACE=(CYL,(5,5),RLSE)
//C1MSGS1  DD SYSOUT=*
//BSTERR   DD SYSOUT=*
//*--------------------------------------------------------------------
//SHOWME  EXEC PGM=IEBGENER,REGION=1024K
//SYSPRINT  DD SYSOUT=*                           MESSAGES
//SYSUT1   DD  DSN=&&EXTRACTM,DISP=(OLD,PASS)
//SYSUT2    DD SYSOUT=*                           OUTPUT FILE
//SYSIN    DD DUMMY                               CONTROL STATEMENTS
//SYSUDUMP DD SYSOUT=*
//*
//*--------------------------------------------------------------------
//*-- Read CSV file of Endevor Element information --------------------
//*--------------------------------------------------------------------
//TEST003  EXEC PGM=IRXJCL,COND=(4,LT),
//         PARM='ENBPIU00 PARMLIST'
//SYSEXEC  DD DISP=SHR,DSN=VIT902.REXX
//         DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQCLS0
//TABLE    DD  DSN=&&EXTRACTM,DISP=(OLD,DELETE)
//PARMLIST DD *
  NOTHING    NOTHING  OPTIONS  0
  NOTHING    NOTHING  OPTIONS2 A
  MODEL      REPORT   OPTIONS3 1
//OPTIONS  DD *
  $Table_Type = "CSV"
  Count.    = 0
  ListC1PRGRP  = ''
  cnt# = 0
//OPTIONS2 DD *
  PROC_GRP_NAME = Strip(PROC_GRP_NAME)
  Count.PROC_GRP_NAME = Count.PROC_GRP_NAME + 1
  If WordPos(PROC_GRP_NAME,ListC1PRGRP) = 0 then, +
     ListC1PRGRP = ListC1PRGRP PROC_GRP_NAME
//OPTIONS3 DD *
  Do grp# = 1 to Words(ListC1PRGRP); +
     PROC_GRP_NAME = Word(ListC1PRGRP,grp#) ; +
     cnt# = Count.PROC_GRP_NAME ; +
     PROC_GRP_NAME = Left(PROC_GRP_NAME,8); +
     x = BuildFromModel(MODEL); +
  End;
  $SkipRow = 'Y'
//MODEL    DD *
  Processor Group &PROC_GRP_NAME used &cnt# times
//NOTHING  DD DUMMY
//REPORT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DISPLAYS DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*--------------------------------------------------------------------