Hi Kolusu, Thank you very much for your input. The input file already is a subset of 0404 records, and the SUM FIELDS=NONE was the culprit. Once again the trouble come from copying a previously used JCL and not cleaning it properly. Now, if you will not mind, I have another question regarding this JCL. As I stated previously, I am trying to find out all the dataset profiles that have group1 and group2 on its access list with ALTER authority. I have come up with two different JCL two get the desired result. The one I posted previously does a first sort to get the group1 and group2 records into two datasets, and then does a second step with the JOINKEYS statement.
The second one has only one step, with JNF1CNTL and JNF2CNTL cards for record selection: //IN1 DD DISP=SHR,DSN=&HLQ..RACF.IRRDBU00.T0404 //IN2 DD DISP=SHR,DSN=&HQL..RACF.IRRDBU00.T0404 //SYMNAMES DD * DSN,10,44,CH GRP,62,08,CH STG,C'GPRFSTG' CICS,C'GPRFCICS' ACC,71,08,CH ALTER,C'ALTER' READ,C'READ' //SYSIN DD * JOINKEYS F1=IN1,FIELDS=(DSN,A,ACC,A) JOINKEYS F2=IN2,FIELDS=(DSN,A,ACC,A) REFORMAT FIELDS=(F1:DSN) OPTION COPY OUTFIL FNAMES=OUT,VTOF,BUILD=(1,44) /* //JNF1CNTL DD * INCLUDE COND=(ACC,EQ,ALTER,AND,GRP,EQ,STG) /* //JNF2CNTL DD * INCLUDE COND=(ACC,EQ,ALTER,AND,GRP,EQ,CICS) /* This last one has only one step but it reads the same input file once for each INx card. The first one reads the input file only once, but it has two steps, and the first step created files have to be read on the second step. Now, my question is, is there a way to do this with only one step and reading the input file only once? Regards, Jack On Fri, 15 Sept 2023 at 15:30, Sri h Kolusu <skol...@us.ibm.com> wrote: > >>> I am using for the INPUT a subset of a type 0404 records from a > IRRDBU00 output file. In the first step I am crating two files with > > Jack, > > Not clear if you still need help , but the INCLUDE COND does not have the > include for type 0404 records, unless you already filtered your input. > > Can you please run the following. > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SYMNAMES DD * > TYP,05,04,CH > DSN,10,44,CH > GRP,62,08,CH > ACC,71,08,CH > //SORTIN DD DISP=SHR,DSN=Your.RACF.IRRDBU00.file > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION VLSCMP > INCLUDE COND=(TYP,EQ,C'0404',AND, > ACC,EQ,C'ALTER',AND, > (GRP,EQ,C'GPRFCICS',OR, > GRP,EQ,C'GPRFSTG')) > > SORT FIELDS=(DSN,A,ACC,A) > > OUTFIL REMOVECC,VTOF,BUILD=(80X), > SECTIONS=(DSN,ACC, > TRAILER3=(DSN,C'|', > ACC,C'|', > GRP,C'|', > COUNT,C'|')) > /* > > Now check the results and look at the count column to see any value is > greater than 1. If it has a value greater than 1 , then your SUM > FIELDS=NONE will eliminate such records. > > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
