SORT OUTREC - Sort card for multiple members in SORTIN

[charan_Hyd]

I have a pds and inside the pds i have 20 members.

In each member i have some set of records.

I need to get 3 characters from the input record if the starting letter is M.

I need to get these characters from all pds members.

from one member means i can give the below jcl

Code: Select all

//FIXBCBAD EXEC PGM=SORT                                  
//SYSPRINT DD SYSOUT=*                                    
//SYSOUT   DD  SYSOUT=*                                   
//SORTIN   DD  DSN=C000214.TEST.PDS(MEm1),DISP=SHR              
//SORTOUT  DD  DSN=C000214.TEST.PS4,DISP=SHR              
//SYSIN    DD  *                                          
   INCLUDE COND=(1,1,CH,EQ,C'M')                          
   SORT FIELDS=COPY                                       
   OUTREC FIELDS=(2:3,2)                                  
//*                                                       

if i need to implement the above sort card in all pds members
what i need to give


Thanks,

[Frank Yaeger]

Just concatenate the members. Here's an example with DFSORT:

Code: Select all

//FIXBCBAD EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=C000214.TEST.PDS(MEm1),DISP=SHR
//       DD DSN=C000214.TEST.PDS(MEm2),DISP=SHR
//       DD DSN=C000214.TEST.PDS(MEm3),DISP=SHR
...
//SORTOUT DD DSN=C000214.TEST.PS4,DISP=SHR
//SYSIN DD *
  INCLUDE COND=(1,1,CH,EQ,C'M')
  SORT FIELDS=COPY
  OUTREC FIELDS=(2:3,2)
//*