문제
나는 JobNames (superset)를 가진 PDS (a)를 가지고있다. 나는 다른 PDS (B)가 덜한 jobNames (하위 집합)를 갖는 것입니다.
JCL을 사용하여 A-B를 다른 파일 C로 찾는 가장 좋은 방법?
해결책
syncort joinkeys ,
이 예제 는 거의 없습니다
당신이 필요로하는 것.아래의 JCL은 특정 예입니다.AF1
는 모든 작업 이름을 포함하는 superset 파일 (a)입니다. AF2
는 하위 집합입니다
파일 (b).SORTOUT
에는 차이가 포함됩니다 (A-B).
//MYJOB JOB Whatever your job card needs
//AMINUSB EXEC PGM=SYNCSORT,PARM='INCORE=OFF'
//AF1 DD * Superset file 'A'
J000001
J000002
J000003
J000004
J000005
J000006
J000007
J000008
J000009
J000010
J000011
J000012
/*
//BF2 DD * Subset file 'B'
J000001
J000003
J000004
J000008
J000010
J000011
/*
//SORTOUT DD SYSOUT=* 'A' - 'B'
//*
//SORTMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//STATOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,7,A)
JOINKEYS FILE=F2,FIELDS=(1,7,A)
JOIN UNPAIRED,F1,ONLY
REFORMAT FIELDS=(F1:1,7)
OPTION COPY
END
/*
.
이를 실행하면 SORTOUT
에는 다음 데이터가 포함됩니다.
J000002
J000005
J000006
J000007
J000009
J000012
.
참고 : JOB
카드를 설치 해야하는 모든 것에 대해 refomat해야합니다.나머지는 거의 일해야합니다
그림과 같이.
제휴하지 않습니다 StackOverflow