Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
xml-generate

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jzhardy

New User


Joined: 31 Oct 2006
Posts: 85
Location: brisbane

PostPosted: Fri Sep 18, 2020 12:05 pm    Post subject: xml-generate
Reply with quote

I'm having problems getting the XML-GENERATE to render edited numerics correctly.

I have a (large) source structure that contains a variety of numeric edited fields, such as Z(14)9.99 BLANK WHEN ZERO; Z(7)9.99 BLANK WHEN ZERO. etc as well as many PIC X(n) elements.

PIC X(n) elements are being rendered correctly, eg:

Code:
<some_node></some_node>
<another_node>some text</another_node>

(no trailing spaces)

but the numeric edited fields are being rendered as, eg:

Code:
<some_edited_num1><some_edited_num1>
<some_edited_num2>   34.56</some_edited_num2>


(I don't want leading spaces showing for non-zero content)

so, I can simply redefine my input structure to be all PIC X(n), and add some MOVE statements .

or is there a better option ?
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts recursive SQL to generate list jzhardy DB2 5 Sun Apr 07, 2019 8:38 am
No new posts Generate SQL query dynamically using ... vnktrrd DB2 7 Tue Aug 28, 2018 8:11 pm
No new posts COBOL - JSON GENERATE husni1972 COBOL Programming 1 Fri Aug 17, 2018 3:29 am
No new posts Generate and submit JCL and step dyna... vnktrrd DFSORT/ICETOOL 11 Wed Jul 25, 2018 11:31 pm
No new posts How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm

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