Frank Swarbuck on IBM Mainframe Discussion List <[email protected]>
wrote on 12/05/2011 11:43:27 AM:
> Can DFSORT be used to do the following?
> ...
Frank,
If I understand correctly what you want to do, you can use a DFSORT
JOINKEYS job like the
following to do it. Note the use of ? in REFORMAT as an indicator.
//SORT1 EXEC PGM=SORT
//SYMNAMES DD *
CHR-PAN-ACCOUNT,6,19,CH
CHR-PIC-CNT,1223,1,PD
CHR-ISSUE-CNT,1224,1,PD
CHR-CNT-DATE,1228,3,PD
CHR-FEE-BILL-AMT,1234,2,PD
CHS-PAN-ACCOUNT,1,19,CH
CHS-CNT-DATE,20,3,PD
CHS-PIC-CNT,23,2,PD
CHS-ISSUE-CNT,25,2,PD
CHS-FEE-BILL-AMT,27,3,PD
INT-CHR-PAN-ACCOUNT,1,19,CH
INT-CHR-CNT-DATE,*,3,PD
INT-CHR-PIC-CNT,*,1,PD
INT-CHR-ISSUE-CNT,*,1,PD
INT-CHR-FEE-BILL-AMT,*,2,PD
INT-CHS-CNT-DATE,*,3,PD
INT-CHS-FEE-BILL-AMT,*,3,PD
INT-FLAG,*,1,CH
//SYMNOUT DD SYSOUT=*
//CHFIN DD DISP=SHR,DSN=DVFJS.CVSC.CVSCHF
//CHSIN DD DISP=SHR,DSN=DEVA.CVSC.CHS
//CHSOUT DD DISP=SHR,DSN=DEVC.CVSC.CHS
//SYSIN DD *
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION
JOINKEYS F1=CHFIN,FIELDS=(CHR-PAN-ACCOUNT,A),SORTED,NOSEQCK
JOINKEYS F2=CHSIN,FIELDS=(CHS-PAN-ACCOUNT,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1
REFORMAT FIELDS=(F1:CHR-PAN-ACCOUNT,CHR-CNT-DATE,
CHR-PIC-CNT,CHR-ISSUE-CNT,CHR-FEE-BILL-AMT,
F2:CHS-CNT-DATE,CHS-FEE-BILL-AMT,?)
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)
OPTION COPY
OUTREC IFTHEN=(WHEN=(INT-FLAG,EQ,C'1'),
BUILD=(INT-CHR-PAN-ACCOUNT,
INT-CHR-CNT-DATE,
INT-CHR-PIC-CNT,TO=PD,LENGTH=2,
INT-CHR-ISSUE-CNT,TO=PD,LENGTH=2,
INT-CHR-FEE-BILL-AMT,TO=PD,LENGTH=3)),
IFTHEN=(WHEN=(INT-FLAG,EQ,C'B'),
BUILD=(INT-CHR-PAN-ACCOUNT,
INT-CHS-CNT-DATE,
INT-CHR-PIC-CNT,TO=PD,LENGTH=2,
INT-CHR-ISSUE-CNT,TO=PD,LENGTH=2,
INT-CHS-FEE-BILL-AMT,TO=PD,LENGTH=3))
OUTFIL FNAMES=CHSOUT,FTOV
/*
Frank Yaeger - DFSORT Development Team (IBM) - [email protected]
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
