| IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
Mahan Kondapalli
Joined: 01 Nov 2007
Posts: 1
Location: Hyderabad
|
| Posted: Wed Aug 06, 2008 5:20 pm Post subject: Overlay First 2bytes of a record thru Sort??? |
|
|
Hello,
I have a file with 'n' number of records,where in the first 2 bytes of every record can be any thing from '00' to 99'.I need to have all records with '36' in first 2bytes.Can any body suggest how to go ahead?? |
|
| Back to top |
|
Frank Yaeger
Joined: 15 Feb 2005
Posts: 4613
Location: San Jose, CA
|
| Posted: Wed Aug 06, 2008 10:52 pm Post subject: |
|
|
You can use a DFSORT job like the following to do what you asked for:
Code:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB)
//SORTOUT DD DSN=... output file (FB)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(1:C'36')
/*
If your input file is VB, change the INREC statement to:
Code:
INREC OVERLAY=(5:C'36')
|
|
| Back to top |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|
