Jack, I don't know the exact format of the two files. Did you check (I mean by eyes) the field position are ok ? Is the first SKIP correct ?
Best regard. Max Il giorno gio 15 feb 2024 alle ore 16:35 Jack Zukt < 0000059cd493dd41-dmarc-requ...@listserv.ua.edu> ha scritto: > 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 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
