Re: Search for a string using SORT
- From: Howard Brazee <howard@xxxxxxxxxx>
- Date: Thu, 09 Feb 2006 07:16:53 -0700
On Thu, 9 Feb 2006 13:41:21 +0000 (UTC), docdwarf@xxxxxxxxx () wrote:
I did not read this as a question, Mr Brazee, I read it as a
suggestion/tip... and it was a new one to me, too. I've used batch SUPERC
jobs to do this in the past, eg:
Here's some compare JCL I've used that you might find interesting.
//TBEB EXEC PGM=IEFBR14
//SORTOUT DD DSN=UMS.D44201.TEMP,
// DISP=(MOD,DELETE),SPACE=(TRK,0)
//SORTSTEP EXEC PGM=SORT
//SORTIN DD DSN=,DISP=SHR
// DD DSN=UMS.D44201.LAMV.LOAN.MASTER,DISP=SHR
//*DFSPARM DD DSN=UMS.TEST.DATA(DYNALLOC),DISP=SHR
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,82,,CONTIG)
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,82,,CONTIG)
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,82,,CONTIG)
//SORTOUT DD DSN=UMS.D44201.TEMP,
// UNIT=DEVEDISK,
// SPACE=(CYL,(75,15),RLSE),
// DCB=(RECFM=FB,LRECL=1200,BLKSIZE=12000),
// DISP=(NEW,CATLG,DELETE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(01,1010,A),
FORMAT=CH
SUM FIELDS=NONE ELIMINATE DUPLICATES
//SUPERC EXEC PGM=ISRSUPC, *
// PARM=(DELTAL,LINECMP,
// ' NOSEQ',
// '')
//NEWDD DD DSN=UMS.D44201.LLDJ.MSTRFILE,
// DISP=SHR
//OLDDD DD DSN=UMS.D44201.LAMV.LOAN.MASTER,
// DISP=SHR
//OUTDD DD SYSOUT=(*)
//SYSIN DD *
OFOCUS COLS 1101:1115
NFOCUS COLS 1101:1115
LSTCOLM 1101:1115
/*
//
CMPCOLM 30:60,75
HTTP://PUBLIBZ.BOULDER.IBM.COM/CGI-BIN/BOOKMGR_OS390/BOOKS/ISPZU220/APPENDIX1
.
- Follow-Ups:
- References:
- Search for a string using SORT
- From: mftips@xxxxxxxxx
- Re: Search for a string using SORT
- From: Howard Brazee
- Re: Search for a string using SORT
- From:
- Search for a string using SORT
- Prev by Date: Re: Search for a string using SORT
- Next by Date: Re: Search for a string using SORT
- Previous by thread: Re: Search for a string using SORT
- Next by thread: Re: Search for a string using SORT
- Index(es):
Relevant Pages
|