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 [email protected] with the message: INFO IBM-MAIN
