Hi Massimo & Kolusu, Thank you both for your answers. As Massimo noticed, the first SKIP was wrong. There is no space between the RDW and the record subtype; there are only spaces between columns. My bad. Kolusu, thank you for the improved JCL. And I will take you on your offer. I am really interested in your job that generates the DFSORT symbols for all IRRADU00 & IRRDBU00 record types Regards Jack
On Thu, 15 Feb 2024 at 16:23, Sri h Kolusu <skol...@us.ibm.com> wrote: > Jack, > > Since I don't have the joblog, I cannot verify that the input files are VB > or FB as your symbols xtyp and xusr are looking at positions 1 and 6 which > would be incorrect for VB files. > > Either way here is a modified/optimized version which would give you the > desired results (You don't evenhave to filter the type records before as > the job below reads the output of IRRDBU00 directly) > > PS: I have a job that generates the DFSORT symbols for all IRRADU00 & > IRRDBU00 record types. Let me know if you are interested. > > //SET#HLQS SET HLQS=&HLQ..RACF.IRRDBU00.CGDPLEX > //* > //SORT001 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SYMNAMES DD * > TYPE0200_RDW,1,4,BI > USBD_RECORD_TYPE,*,4,CH > DLM,*,1,CH > USBD_NAME,*,8,CH > USBD_PROGRAMMER,79,20,CH > USBD_DEFGRP_ID,100,8,CH > USBD_LASTJOB_DATE,118,10,CH > TYPE0220_RDW,1,4,BI > USTSO_RECORD_TYPE,*,4,CH > SKIP,1 > USTSO_NAME,*,8,CH > /* > //IN1 DD DISP=SHR,DSN=&HLQS > //IN2 DD DISP=SHR,DSN=&HLQS > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > JOINKEYS F1=IN1,FIELDS=(USTSO_NAME,A),SORTED,NOSEQCK > JOINKEYS F2=IN2,FIELDS=(USBD_NAME,A),SORTED,NOSEQCK > > REFORMAT FIELDS=(F1:USBD_NAME, > DLM, > USBD_PROGRAMMER, > DLM, > USBD_LASTJOB_DATE, > DLM, > USBD_DEFGRP_ID) > /* > //JNF1CNTL DD * > INCLUDE COND=(USBD_RECORD_TYPE,EQ,C'0200') > /* > //JNF2CNTL DD * > INCLUDE COND=(USTSO_RECORD_TYPE,EQ,C'0220') > /* > > 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
