IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to write 0 using outrec


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
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
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: 8797
Location: Welsh Wales

PostPosted: Thu Oct 18, 2018 3:44 pm
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

Senior Member


Joined: 29 Apr 2008
Posts: 2019
Location: USA

PostPosted: Fri Oct 19, 2018 1:33 am
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

Senior Member


Joined: 29 Apr 2008
Posts: 2019
Location: USA

PostPosted: Fri Oct 19, 2018 4:56 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
No new posts Compare two files with a key and writ... SYNCSORT 3
No new posts JCL to write the log on to a PDS file JCL & VSAM 10
No new posts COBOL - create and write to output fi... COBOL Programming 0
Search our Forums:

Back to Top