vignesh babu.ts
Currently Banned
New User
Joined: 12 Nov 2010
Posts: 8
Location: Chennai
|
|
|
|
When I tried to convert the file from tape to DASD by giving SORT condition. Here I want to pickup the particular record by using SORT condition.
Job:
| Code: |
//PS010 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=DSRB0015.NAME1.G0120V00
// DD DISP=SHR,DSN=DSRB0015.NAME1.G0120V00
// DD DISP=SHR,DSN=DSRB0015.NAME1.G0121V00
// DD DISP=SHR,DSN=DSRB0015.NAME1.G0122V00
// DD DISP=SHR,DSN=DSRB0015.NAME1.G0123V00
//SORTOUT DD DSN=DSRB0015.NAME1.OUTPUT,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(150,100),RLSE),...
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,VLSHRT
INCLUDE COND=(109,10,CH,EQ,C'BELKK2DDI5'),AND,
(9,6,CH,EQ,C'RAMESH'))
SUM FIELDS=NONE
/*
ABEND:MAXCC=16.
SYSOUT MESSAGE:
WER108I SORTIN : RECFM=FB ; LRECL= 50; BLKSIZE= 27000
WER110I SORTOUT : RECFM=FB ; LRECL= 50; BLKSIZE= 27000
WER250A INCLUDE/OMIT FIELD BEYOND RECORD
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
Thanks,
Vignesh.  |
|
