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
 

 

Where we can use redefine and rename

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
pretty
Currently Banned

New User


Joined: 13 Mar 2006
Posts: 6

PostPosted: Fri May 12, 2006 11:35 pm    Post subject: Where we can use redefine and rename
Reply with quote

Where we can use redefine and rename in a pgm?
Back to top
View user's profile Send private message

rajandhla

Active User


Joined: 18 Oct 2005
Posts: 182
Location: Luton UK

PostPosted: Thu May 18, 2006 7:07 pm    Post subject:
Reply with quote

Redefines and renames are used to reuse the storage space of an existing data item.

redefines ex:
01 Error-Flag-Table Value Spaces.
88 No-Errors Value Spaces.
05 Type-Error Pic X.
05 Shift-Error Pic X.
05 Home-Code-Error Pic X.
05 Work-Code-Error Pic X.
05 Name-Error Pic X.
05 Initials-Error Pic X.
05 Duplicate-Error Pic X.
05 Not-Found-Error Pic X.
01 Filler Redefines Error-Flag-Table.
05 Error-Flag Occurs 8 Times
Indexed By Flag-Index Pic X.

Renames:
The RENAMES clause specifies alternative, possibly overlapping, groupings of elementary data items.
The special level-number 66 must be specified for data description entries that contain the RENAMES clause.
One or more RENAMES entries can be written for a logical record. All RENAMES entries associated with one logical record must immediately follow that record's last data description entry

01 rec.
05 a...
05 b...
05 c...
66 z redefines b through c.....

for more info look in to mauals....

Regards
jai
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Generic rename by pattern‏ Steve Coalbran CLIST & REXX 6 Mon May 30, 2016 9:34 pm
No new posts IEHPROGM - HOW TO RENAME A PDS ? WagnerBil IBM Tools 7 Wed Aug 12, 2015 6:08 pm
No new posts How to use REXX to rename list of VSA... jackzhang75 CLIST & REXX 10 Wed Jun 03, 2015 11:25 pm
No new posts Can i user rexx to rename sequential ... jackzhang75 CLIST & REXX 3 Sat Nov 15, 2014 1:11 am


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