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 How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts sort with previous record anatol DFSORT/ICETOOL 9 Thu Oct 06, 2016 2:36 am
No new posts CICS VSAM RLS READ akodakka CICS 3 Tue Oct 04, 2016 3:09 pm
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm


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