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
 

 

The initilaized value are changed to blank in runtime

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

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Tue Jun 16, 2009 12:12 pm    Post subject: The initilaized value are changed to blank in runtime
Reply with quote

Hi,

I have a REENTRANT module in which i have a sSTATIC UNALIGNED structure somehting like
DCL 1 testssa STATIC UNALIGNED,
3 SGN CHAR (8) INIT('TESTSEGM'),
3 SGA CHAR(1) INIT('*'),
3 SGC CHAR(1) INIT('-'),
3 SGP CHAR(1) INIT('('),
3 SGK CHAR (8) INIT('CFEILD '),
3 SGO CHAR(2) INIT(' ='),
3 SGV CHAR (27)INIT(' '),
3 SGE CHAR(1) INIT(')');

But at run time the SGN field has only ' SEGM' as value first four characters 'TEST' are getting replaced with blank can any one help me what might be the root cause for this.
And i never used testssa or any of its fields in the left side of the assigment operations.

Thanks
krishna
Back to top
View user's profile Send private message

bauer

New User


Joined: 03 Mar 2009
Posts: 26
Location: germany

PostPosted: Tue Jun 16, 2009 8:58 pm    Post subject:
Reply with quote

Any based variable which references your structure?
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 Need help in Finding who changed the ... steve-myers JCL & VSAM 6 Wed Jan 27, 2016 9:01 pm
No new posts OVERLAY several fields if non-blank autobox DFSORT/ICETOOL 5 Fri Jul 10, 2015 12:42 pm
No new posts Easytrieve Report: Advanced blank Lin... Raj Vatsav CA Products 6 Mon Jul 06, 2015 2:59 pm
No new posts how to replace blank " " wi... italo_pm CLIST & REXX 8 Mon Apr 13, 2015 11:21 pm
No new posts Create runtime members (DB2 related) ... Manshadi IBM Tools 1 Sat Jan 10, 2015 9:27 pm


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