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

Question

나는 직업 이름 (superset)을 갖는 pds (예 : A)가 있습니다. 다른 하위 작업 번호 (하위 집합)가있는 다른 pds (B라고 말함)가 있습니다.

JCL을 사용하여 다른 파일 C에 A-B를 찾는 가장 좋은 방법은 무엇입니까?

Answer 1

SYNCORT JOINKEYS를 사용해보십시오는 이 example 당신이 필요 거의이다. 아래의 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해야합니다. 나머지는 그림과 같이 과 같이 작동해야합니다.