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
 
How to write 0 using outrec

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
sprikitik

New User


Joined: 29 Jan 2007
Posts: 61
Location: Makati City, Philippines

PostPosted: Thu Oct 18, 2018 2:55 pm    Post subject: How to write 0 using outrec
Reply with quote

Hello, good afternoon everybody.
can you please give me an idea how to write 0 (pic clause S9(8)) and S9(9)V99) using outrec?

Thank you very much!
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8732
Location: Welsh Wales

PostPosted: Thu Oct 18, 2018 3:44 pm    Post subject:
Reply with quote

What have you tried so far, and what errors / deviations from expected output are you getting.
Back to top
View user's profile Send private message
sergeyken

Active User


Joined: 29 Apr 2008
Posts: 377
Location: Maryland

PostPosted: Fri Oct 19, 2018 1:33 am    Post subject:
Reply with quote

I asked a few questions to clarify unclear post by the TS, but my post has been silently deleted. Now I have to repeat it more detailed.

The term
Quote:
write 0 (pic clause S9(8)) and S9(9)V99) using outrec
can have various meanings.

1) writing 0 as constant in OUTREC, corresponding to PIC S9(8) can be either C'000000{', or X'F0F0F0F0F0F0F0C0'
2) 0 as constant of PIC S9(9)V99 can be either C'0000000000{', or X'F0F0F0F0F0F0F0F0F0F0C0'
3) a zero field converted in OUTREC as PIC S9(8) must use ...,TO=ZD,LENGTH=8,... parameters
4) a zero field converted as PIC S9(9)V99 must use ...,TO=ZD,LENGTH=11,...

I appeal to moderators to stop removing my posts, one after another.
(Mod : The deleted 'clarifying question' was whether the TS wanted to write '0' by hand or by a program)
Back to top
View user's profile Send private message
sergeyken

Active User


Joined: 29 Apr 2008
Posts: 377
Location: Maryland

PostPosted: Fri Oct 19, 2018 4:56 am    Post subject:
Reply with quote

sergeyken wrote:

1) writing 0 as constant in OUTREC, corresponding to PIC S9(8) can be either C'000000{', or X'F0F0F0F0F0F0F0C0'
2) 0 as constant of PIC S9(9)V99 can be either C'0000000000{', or X'F0F0F0F0F0F0F0F0F0F0C0'
3) a zero field converted in OUTREC as PIC S9(8) must use ...,TO=ZD,LENGTH=8,... parameters
4) a zero field converted as PIC S9(9)V99 must use ...,TO=ZD,LENGTH=11,...

I appeal to moderators to stop removing my posts, one after another.
(Mod : The deleted 'clarifying question' was whether the TS wanted to write '0' by hand or by a program)

"Write by hand" assumes #1-2 above, while "write by program" assumed conversion of a value as in #3-4 above.
I tried to use "non-technical therminology" because there is no chance that TS can understand this updated explanation.
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 -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts OUTREC w. several IFTHEN variants Auryn DFSORT/ICETOOL 2 Thu Jul 19, 2018 8:11 pm
No new posts OUTREC OVERLAY different to INCREC ge... Joerg.Findeisen SYNCSORT 8 Fri Apr 27, 2018 2:11 am
No new posts write multiple lines in PS file in cobol Balu5491 COBOL Programming 7 Wed Mar 07, 2018 10:27 am
No new posts WRITE to VSAM giving duplicate RC picus_mf CICS 1 Fri Feb 23, 2018 2:52 pm
No new posts how to add the amount for duplicate r... SRUTHI DRAVIDAMANI COBOL Programming 9 Wed Feb 21, 2018 7:21 pm

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