다른 PDS에서 PDS의 문자열이있는 경우 검색

Question

나는 JobNames (superset)를 가진 PDS (a)를 가지고있다. 나는 다른 PDS (B)가 덜한 jobNames (하위 집합)를 갖는 것입니다.

JCL을 사용하여 A-B를 다른 파일 C로 찾는 가장 좋은 방법?

Answer 1

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해야합니다.나머지는 거의 일해야합니다 그림과 같이.