Portal | Manuals | 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
 
Junk data in sign field, how to fix
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Apr 13, 2007 8:29 pm    Post subject:
Reply with quote

My question is what if you have a negative value in a field (-).??
then you are making it a postive value (+).

I would check all the fields in the table for a valid SIGN and display
the RECORD KEY of any fields that were in ERROR in a REPORT so
that someone could look at the record and determine if the value
should be a (+) or a (-) value.

simple test.

SPECIAL-NAMES.
CLASS VALID-PACVALS IS '0' THRU '9', '-', '+'.

if DATABASE-field VALID-PACVALS
bypass this record
else
move record-key to report
end-if
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Apr 13, 2007 8:37 pm    Post subject:
Reply with quote

The sorry thing is, from what I can tell, is that he is causing the error by his move to an edit field and back. The "junk" he finds is his own doing... icon_rolleyes.gif
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Apr 13, 2007 8:40 pm    Post subject:
Reply with quote

Yes if there are moving the +ZZZ to the database field they are
causing there own problem.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19254
Location: Inside the Matrix

PostPosted: Fri Apr 13, 2007 8:43 pm    Post subject:
Reply with quote

One more time. . . .

If we can see the actual content of the bad field(s), we will surely be able to offer recommendations.

There may be nothing wrong (but i suspect there is) or as Bill suggests - whatever is wrong is self-inflicted.

And surely flipping the sign from a '+' to a '-' would be a very bad thing to do. . .
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
Goto page Previous  1, 2
Page 2 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SUSBSCRIPT WITH SIGN IN PIC CLAUSE RIGICDS32 COBOL Programming 3 Wed Jun 24, 2020 5:49 pm
No new posts Write 9(07) comp-3 data into output file clearskynot DFSORT/ICETOOL 4 Thu Apr 16, 2020 11:00 pm
No new posts Typing the CENT sign ยข on mainframe,... Rod Hittle All Other Mainframe Topics 2 Wed Apr 15, 2020 7:06 pm
No new posts Outrec IFTHEN builds data in wrong po... saikarthik94 DFSORT/ICETOOL 6 Sun Mar 01, 2020 2:14 pm
No new posts Data set not migrated even though all... upendrasri JCL & VSAM 10 Sat Feb 22, 2020 12:26 pm

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