Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Having a problem FTP'ng to the MF pahiker All Other Mainframe Topics 2 Fri Nov 10, 2017 8:20 pm
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm
No new posts Search for a string in many PDS KARTHIGADEVI CLIST & REXX 5 Fri Sep 08, 2017 2:32 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us