Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to read the Last Record Read in Enterprise PL/I

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
vivekpant

New User


Joined: 17 Feb 2009
Posts: 5
Location: Mumbai

PostPosted: Wed Feb 18, 2009 2:04 pm    Post subject: How to read the Last Record Read in Enterprise PL/I
Reply with quote

Hi,

Can anyone explain the procedure to read the Last Record Read in the PLIDUMP of the enterprise PL/I.
Back to top
View user's profile Send private message

vivekpant

New User


Joined: 17 Feb 2009
Posts: 5
Location: Mumbai

PostPosted: Mon Mar 23, 2009 4:08 pm    Post subject:
Reply with quote

guys any updates??
Back to top
View user's profile Send private message
Nirav721

New User


Joined: 11 Feb 2008
Posts: 53
Location: NJ

PostPosted: Mon Mar 23, 2009 6:43 pm    Post subject: Reply to: How to read the Last Record Read in Enterprise PL/
Reply with quote

you can always turn off le settings using TRAP(OFF) and let abend-aid give you the current record ... assuming abend-aid is available
Back to top
View user's profile Send private message
vivekpant

New User


Joined: 17 Feb 2009
Posts: 5
Location: Mumbai

PostPosted: Tue Mar 24, 2009 2:48 pm    Post subject:
Reply with quote

Unfortunately, abend-aid is not available. In this case, we have to look in the PLIDUMP and read the last record read, by using the address in the 20th word. in LE, i am not able to locate that 20th word. i needed some help there....
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Mar 24, 2009 8:34 pm    Post subject:
Reply with quote

Hello,

While not very elegant, you could define 2 "eyecatcher" literals and place a working data area between that is the size of a record. Every time a record is read, move the current record to the data area between the 2 eyecatchers.

When you look in the dump, the current record will be between the eyecatchers . . .
Back to top
View user's profile Send private message
vivekpant

New User


Joined: 17 Feb 2009
Posts: 5
Location: Mumbai

PostPosted: Wed Mar 25, 2009 7:33 am    Post subject:
Reply with quote

Yeah, that is one of the methods which i am trying to use. but in the long run it would require that i change all my existing programs (more than 1000) to implement this.. icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Mar 25, 2009 7:52 am    Post subject:
Reply with quote

Hello,

Yup, 1000 or so would be a pain. I was thinking of working on one problem situation - not something generic icon_smile.gif

If this is something you need to do with any regularity, look for info on how to find the dcb for that file in the dump and from there to the specific record. There should be info in the compile to get you started.
Back to top
View user's profile Send private message
vivekpant

New User


Joined: 17 Feb 2009
Posts: 5
Location: Mumbai

PostPosted: Wed Mar 25, 2009 10:05 am    Post subject:
Reply with quote

It was much easier in the 2.3 compiler. If i get something i will post it here, by chance if you get it earlier than i do... please post it too.. icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us