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 INVALID RECFM FOR DDNAME SYSLIN AND C... sandeep kumar302 All Other Mainframe Topics 7 Fri Apr 27, 2018 6:07 pm
No new posts OUTREC OVERLAY different to INCREC ge... Joerg.Findeisen SYNCSORT 8 Fri Apr 27, 2018 2:11 am
No new posts Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am
No new posts How syntax check at Bind time is diff... Poha Eater DB2 5 Wed Mar 21, 2018 9:16 pm
No new posts Invalid XML character while producing... nikhil.bhole IBM Tools 4 Tue Mar 20, 2018 1:24 am

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