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 Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts Overlay the system date Danielle.Filteau SYNCSORT 4 Fri Mar 03, 2017 1:16 am
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm


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