a pesquisa se de seqüência de caracteres a partir de um pds está presente em outro pds

Question

Eu tenho um pds (dizer) de ter jobnames (subconjunto).Eu tenho um outro pds (digamos B) ter o menor número de jobnames (subconjunto).

melhor forma encontrar um a-B em outro arquivo C usando JCL ?

Answer 1

Tente usar SYNCORT JOINKEYS, este exemplo é muito bonito o que você precisa.O JCL abaixo é um exemplo específico. AF1 é o Superconjunto de arquivo (Um), contendo todos os nomes de trabalho, AF2 é o Subconjunto arquivo de (B). SORTOUT conterá a diferença (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
/*

Se você executar este, SORTOUT conterá os seguintes dados:

J000002 
J000005 
J000006 
J000007 
J000009 
J000012 

Nota:Você terá que refomat o JOB cartão para qualquer que seja a sua instalação requer.O resto deve funcionar muito bonito como ilustrado.