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
 

 

Redefine Problem

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

New User


Joined: 15 Sep 2008
Posts: 5
Location: India

PostPosted: Tue Sep 16, 2008 11:39 am    Post subject: Redefine Problem
Reply with quote

Hello,
could you please let me know the different scenarios for REDEFINES clause. Like what if
01 WS-TOP PIC X(1)
01 WS-TOP-RED REDEFINES WS-TOP PIC X(2).

what happens when..
01 WS-TOP PIC 9(2)
01 WS-TOP-RED REDEFINES WS-TOP PIC X(2).

01 WS-TOP PIC 9(1)
01 WS-TOP-RED REDEFINES WS-TOP PIC 9(2)

01 WS-TOP PIC X(2)
01 WS-TOP-RED REDEFINES WS-TOP PIC X(1).

01 A PIC X(1)
01 B REDEFINES A X(1).
01 C REDEFINES A X(1).

01 A PIC X(1)
01 B REDEFINES A X(1).
01 C REDEFINES B X(1).

Please let me know if u know any link from i can get more information.
and many other combinations....we are tried by you people...
Thanks in Advance
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 16, 2008 11:49 am    Post subject:
Reply with quote

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/FINDBOOK?filter=COBOL

lists all the COBOL documentation. Pick your version.

depending on your version of COBOL, and compiler error settings, the redefining of a 1 byte field to 2, provides addressing, and when allowed by the compiler, will work - the next 01 is bounded based on the largest definition.
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 SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts Problem with GETMAIN command amitc23 CICS 6 Thu Sep 01, 2016 1:01 pm


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