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
 

 

If a parameter is a structure with nonconstant ....

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

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Mon Jun 01, 2009 7:32 pm    Post subject: If a parameter is a structure with nonconstant ....
Reply with quote

Hi,

I am working on the change for old Pl1 sources to accommodate the New Enterprise Pl1 compiler. While compiling of a source with the new enterprise PL1 compiler, have got the following error...
Code:
Message     Statement  Message Description                               
IBM1934I S       1544  If a parameter is a structure with nonconstant     
                       extents, only matching structures are supported as
                       arguments.                                         
 

Following is statement on line 1544
Code:
1544  |                VPAX = AVERAGE(AB611,T611,RTCODE,'ABC');

Following the way variables declared which are used in above statement.
Code:
DCL       VPAX        FIXED BIN(31) INIT(0);
DCL       1 AB611(MAX61),                         
             2 ETS     CHAR(4) INIT((MAX61)(4)' '),
             2 ONST    PIC'(7)9' INIT((MAX61)0);   
DCL       T611        FIXED BIN(31) INIT(0);
DCL       RTCODE               CHAR(4);
DCL       AVERAGE           EXT ENTRY(1 (*),     
                                         2 CHAR(4),
                                         2 FIXED BIN(31)
                                      FIXED BIN(31),
                                      CHAR(*),     
                                      CHAR(*))     
                                RETURNS(FIXED BIN(31));
.
Please..could any one help me to understand the error and possible solution for this.
Thanks
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7931
Location: Bellevue, IA

PostPosted: Mon Jun 01, 2009 7:38 pm    Post subject:
Reply with quote

Does the manual help?
Quote:
IBM1934I S
If a parameter is a structure with nonconstant extents, only matching structures are supported as arguments.
Explanation:

Assign the structure to a temporary and pass the temporary, or omit the parameter description in the entry declaration.
Back to top
View user's profile Send private message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Mon Jun 01, 2009 8:36 pm    Post subject:
Reply with quote

I forgot to tell that I have test "Assign the structure to a temporary and pass the temporary" but this doesn't help. I can not Omit the parameter description in the entry declaration.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7931
Location: Bellevue, IA

PostPosted: Mon Jun 01, 2009 9:20 pm    Post subject:
Reply with quote

Since you're not using a structure now, what happened when you did define a structure, populate it, and pass it?
Back to top
View user's profile Send private message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Tue Jun 02, 2009 9:39 pm    Post subject:
Reply with quote

Thanks Robert for having the concern about my query. I think I have got the solution,
Actually If you will see the first paramerter defined in the external entry AVERAGE
DCL AVERAGE EXT ENTRY(1 (*),
2 CHAR(4),
2 FIXED BIN(31).....
is having the data type FIXED BIN(31) on level2 while in the structure AB611 which is passed first in AVERAGE
VPAX = AVERAGE(AB611......);
having the variable 2 ONST PIC'(7)9' INIT((MAX61)0); on level2 with different datatype format PIC'(7)9'. I have changed this with Fixed Bin(31) as ...
2 ONST FIXED BIN(31) INIT((MAX61)0);
This change removed the error mentioned above.I am testing it against production.Please correct me if I am not on the right track.
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 DDNAME parameter mistah kurtz JCL & VSAM 6 Mon Dec 19, 2016 4:41 pm
No new posts Execessive parameter issue Sumeendar JCL & VSAM 5 Mon Dec 19, 2016 4:35 pm
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
No new posts Copybook structure in Load module Vai123 COBOL Programming 7 Fri Sep 16, 2016 8:29 pm


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