Hi all,
I have two files created using IRRDBU00. One has type 220 records, TSO
segments, the other one has type 200 records, base userid information.
For the userids on the 220 type records, I want to get from the 200 type
records the userid, user name; last logon date; default group left four
characters.
Unfortunately all that I am getting is an empty file.
This is the JCL that I am using:
//*
//SET#HLQ SET HLQ=&SYSUID
//SET#HLQS SET HLQS=&HLQ..RACF.IRRDBU00.CGDPLEX
//*
//APAGA01 EXEC PGM=IEFBR14
//SORTOUT DD DSN=&HLQ..I#01701.TXT,
// DISP=(MOD,DELETE),SPACE=(TRK,(1))
//*
//SORT001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
XRDW,1,04,ZD
SKIP,1
XTYP,1,04,ZD
SKIP,1
XUSR,*,08,CH
NAME,75,20,CH
SKIP,1
GRP4,*,04,CH
SKIP,1
LDAT,114,10,CH
*
/*
//IN1 DD DISP=SHR,DSN=&HLQS..T0220
//IN2 DD DISP=SHR,DSN=&HLQS..T0200
//OUT01 DD DSN=&HLQ..I#01701.TXT,
// DISP=(NEW,CATLG),
// RECFM=FB,LRECL=45,
// SPACE=(TRK,(15,15),RLSE)
//SYSIN DD *
OPTION COPY
JOINKEYS F1=IN1,FIELDS=(XUSR,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(XUSR,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F2:5,140)
OUTFIL FNAMES=OUT01,
BUILD=(1:XUSR, * 08
X, * 01
NAME, * 20
X, * 01
LDAT, * 10
X, * 01
GRP4) * 04
/*
//*
What is it that I am doing wrong?
Regards
Jack
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
