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
 

 

Invalid DEFINED - string overlay, compilation problem

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

New User


Joined: 10 Jun 2006
Posts: 1

PostPosted: Wed Apr 18, 2007 2:00 am    Post subject: Invalid DEFINED - string overlay, compilation problem
Reply with quote

Hi,

Can anybody help me to solve this IBM1385I E compilation problem?
I have the following declaration:

Code:
DCL  MY_DATA_A   CHAR(50),
        1 MY_DATA DEF MY_DATA_A,
           2 TEXT1      CHAR(5),
           2 TEXT2      CHAR(5),
           2 SEM_A      BIT(1) ALIGNED,
           2 MESS        CHAR(15),
           2 SEM_B      FIXED BIN(15) UNAL,
           2 MESS_X    CHAR(22);

I shouldn't use these ALIGNED and UNAL attributes?
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 Apr 18, 2007 2:17 am    Post subject:
Reply with quote

Hello,

Did you happen to look in your Fine Manual?

One may be found at http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.entpli4.doc/ibmc2mst10.htm
Back to top
View user's profile Send private message
delly999

New User


Joined: 12 Jan 2007
Posts: 13
Location: Ontario, Canada

PostPosted: Fri May 11, 2007 12:22 am    Post subject: Re: Invalid DEFINED - string overlay, compilation problem
Reply with quote

Try declaring the SEM_A as 8 Bits(1 byte) and unalign the structure. If you need to use only the first Bit in SEM_A, please use the SUBSTR function.

DCL MY_DATA_A CHAR(50),
1 MY_DATA DEF MY_DATA_A UNALIGNED,
2 TEXT1 CHAR(5),
2 TEXT2 CHAR(5),
2 SEM_A BIT(8) ,
2 MESS CHAR(15),
2 SEM_B FIXED BIN(15),
2 MESS_X CHAR(22);
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
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
This topic is locked: you cannot edit posts or make replies. Checking wether a string starts from ... sundaram.naveen CLIST & REXX 9 Thu Oct 06, 2016 11:56 am


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