IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Access ESDS in reverse order


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
cmohanraj

New User


Joined: 04 Apr 2005
Posts: 15

PostPosted: Mon Apr 04, 2005 12:09 pm
Reply with quote

Can i Access an ESDS from last record to first?
if yes pls explain me with code
Back to top
View user's profile Send private message
Kingsingh

New User


Joined: 11 Mar 2005
Posts: 9

PostPosted: Mon Apr 04, 2005 12:43 pm
Reply with quote

Through CICS u can access from last to first using STARTBR , READPREV
Back to top
View user's profile Send private message
cmohanraj

New User


Joined: 04 Apr 2005
Posts: 15

PostPosted: Fri Apr 08, 2005 10:40 pm
Reply with quote

Thanks kings but i wanna do it in batch.
pls do explain me with coding
Back to top
View user's profile Send private message
somasundaran_k

Active User


Joined: 03 Jun 2003
Posts: 134

PostPosted: Sat Apr 09, 2005 12:06 am
Reply with quote

cmohanraj

Use SORT or FILEAID to reverse the order of the records and read sequentially from the beginning.
To reverse the order of the records you can use the following SORT solution. Assuming the LRECL is 80.

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=INPUT FILE,
//            DISP=SHR
//SORTOUT  DD DSN=OUTPUT REVERSED FILE,
//            DISP=(NEW,CATLG,DELETE),         
//            UNIT=SYSDA,                       
//            SPACE=(CYL,(5,5),RLSE)       
//SYSIN DD *
  INREC FIELDS=(1,80,SEQNUM,8,ZD)   
  SORT FIELDS=(81,8,ZD,D)         
  OUTREC FIELDS=(1,80)             
/*


Then use your program to read/process the OUTPUT REVERSED FILE.

hth
-Som
Back to top
View user's profile Send private message
cmohanraj

New User


Joined: 04 Apr 2005
Posts: 15

PostPosted: Mon Apr 11, 2005 2:06 pm
Reply with quote

thankyou.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts CICS Access to RACF CICS 2
No new posts Access library name in REXX CLIST & REXX 6
No new posts access library name in REXX CLIST & REXX 2
No new posts vsam file access JCL & VSAM 12
No new posts DB2 Load - Sort Or order BY DB2 1
Search our Forums:

Back to Top