removing the duplicate record and picking up the last entery

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
pinaki_atha
Member
Posts: 1
Joined: Wed Nov 01, 2006 4:01 pm
Location: Kolkata

removing the duplicate record and picking up the last entery

Post by pinaki_atha » Wed Nov 01, 2006 5:16 pm

There is a log file (ESDS) which will contain information records. When ever the information is updated online (CICS) one log entry created. I need to select the latest entry from the log file to prepare the extract file (sequential file). The information record does not contain any field that signifies the latest entry. So I need to pick up the last entry that has been entered. How I can do this using jcl? I don't have provision to write program.
Babu

srilkrishy
Member
Posts: 3
Joined: Sun May 21, 2006 11:26 pm

Post by srilkrishy » Fri Nov 10, 2006 2:49 am

So,you want to delete the last record from the input file,correct ?

Thanks
Krishy

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Fri Nov 10, 2006 3:18 am

Babu,

If you want to write the last record in the VSAM input file to an output file, you can use a DFSORT job like this:

Code: Select all

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (VB or VSAM)
//SORTOUT DD DSN=... output file (VB or VSAM)
//SYSIN    DD    *
* Reformat record to:
* |RDW|seqnum|data|
  INREC BUILD=(1,4,5:SEQNUM,8,ZD,13:5)
* Sort descending on seqnum to get last record
* as first record.
  SORT FIELDS=(5,8,ZD,D)
* Keep the last record and reformat record back to:
* |RDW|data|
  OUTFIL ENDREC=1,BUILD=(1,4,5:13)
/*
If you want to do something else, you need to explain more clearly what you want to do. An example of the input records and expected output records would help.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others