Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : If you want to make your VSAM data set read-only, use INHIBIT with ALTER command. E.g. ALTER XXX.XX.DATA INHIBIT ALTER XXX.XX.INDEX INHIBIT

Google
 
Web mainframegurukul.com

Add leading zeros by using cobol
Goto page 1, 2  Next
 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL
  View previous topic :: View next topic  
Author Message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Sat Jul 14, 2012 8:06 am    Post subject: Add leading zeros by using cobol Reply with quote

hi,

I have a file contains numeric data from 1st position to 9th position. Please see below.

input file:

2
23
456
4256
26879
236984
2457896
23696352
369874544

the maximum length of the numeric data is 9. Now I need to add leading zeros to the above data. The output should get like as I mentioned below.

Output:

000000002
000000023
000000456
000004256
000026879
000236984
002457896
023696352
369874544

Please look into this and should be done only by using cobol.

Regards,
Venky.
Back to top
View user's profile Send private message

DikDude
Moderator


Joined: 22 Jul 2011
Posts: 947
Location: usa

PostPosted: Sat Jul 14, 2012 8:57 am    Post subject: Reply with quote

Use NUMVAL (if you are certain the field will have only valid numbers).
_________________
Have a good one
Back to top
View user's profile Send private message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Sat Jul 14, 2012 6:19 pm    Post subject: Reply with quote

Thanks DikDude,

Can you please give me a example for the file which I have written.

Regards,
Venky.
Back to top
View user's profile Send private message
NicC
Active Member


Joined: 24 Jul 2011
Posts: 505
Location: programmer

PostPosted: Sat Jul 14, 2012 6:36 pm    Post subject: Reply with quote

Why not teach yourself? Look it up in the manual and play until you get the hang of it.
_________________
Regards
Nic
Back to top
View user's profile Send private message
dbzTHEdinosauer
Moderator


Joined: 02 Oct 2006
Posts: 939

PostPosted: Sat Jul 14, 2012 6:40 pm    Post subject: Reply with quote

Converting to numbers (NUMVAL, NUMVAL-C) - COBOL Programming Guide
_________________
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
Back to top
View user's profile Send private message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Mon Jul 23, 2012 8:14 pm    Post subject: Reply with quote

hi,

Thanks Numval is working, but I have one more question see below.

when there is space in between the row, the numval is notworking. Please see the below input file and suggest how to Ignore the space and remaining data should add leading zeros.

Inputfile:

2
23
456
4256
26879

236984
2457896
23696352
369874544


Thanks,
Venky.
Back to top
View user's profile Send private message
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 947
Location: usa

PostPosted: Mon Jul 23, 2012 8:26 pm    Post subject: Reply with quote

If the data contains spaces, skip the record or use some default value - it depends on the requirement of the process.

NUMVAL will only work when the data is a valid numeric.
_________________
Have a good one
Back to top
View user's profile Send private message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Mon Jul 23, 2012 8:57 pm    Post subject: Reply with quote

Thank you,

okay you are saying that I need to skip the record or pass default value,
but the spaces will be located at different rows in particular one column, It is difficult to find the spaces to skip the space records.

Is there is any other logic to Ignore the spaces and add leading zeros to other remaining values. I mean other then Numval???

Thanks once again.

Venky.
Back to top
View user's profile Send private message
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 947
Location: usa

PostPosted: Mon Jul 23, 2012 9:10 pm    Post subject: Reply with quote

You are writing a program. . .

If you want something done, you need to code for it. There are no magic bullets that will "skip over things".

Quote:
It is difficult to find the spaces to skip the space records.
I must be missing something. . . How can it be be difficult to code:
IF THE-FIELD = SPACES
whatever action.
_________________
Have a good one
Back to top
View user's profile Send private message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Mon Aug 06, 2012 7:44 pm    Post subject: Reply with quote

hi,

without using Compute, can you provide me a logic for how to add leading zeros for the given file. Thank you in Advance.

Regards,
Venky.
Back to top
View user's profile Send private message
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 947
Location: usa

PostPosted: Tue Aug 07, 2012 12:48 am    Post subject: Reply with quote

Why are you against COMPUTE? Why even mention COMPUTE - it is not needed for this.

All you should need is to move the value to an output field that is not leading-zero suppressed (i.e. my-non-zero-field pic 9(9).) - unless there is more you have not posted. . .
_________________
Have a good one


Last edited by DikDude on Tue Aug 07, 2012 9:24 pm; edited 1 time in total
Back to top
View user's profile Send private message
Anuj Dhawan
Moderator


Joined: 09 Aug 2008
Posts: 1628
Location: Mumbai, India

PostPosted: Tue Aug 07, 2012 12:33 pm    Post subject: Reply with quote

Why don't you try something instead of just asking, venky?
_________________
Regards,
Anuj
Back to top
View user's profile Send private message
Gurugars
Active Member


Joined: 23 Oct 2010
Posts: 88
Location: Chennai,India.

PostPosted: Tue Aug 14, 2012 3:03 pm    Post subject: Reply with quote

Venky,

Please let us know how exactly your input will be? and how exactly want the output to be?

Until unless getting the clear picture of your problem no one can provide the solution for that!
_________________
Guru:-)

You're never fully dressed without a smile Smile
Back to top
View user's profile Send private message
venky
Member


Joined: 12 May 2012
Posts: 46

PostPosted: Tue Aug 14, 2012 6:12 pm    Post subject: Reply with quote

Hey Guru,

I have mentioned in my first post about input and also output. Please take a look.

I need leading zeros should be added to the input by using cobol(without compute).

Thanks.
Regards,
Venky.
Back to top
View user's profile Send private message
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 947
Location: usa

PostPosted: Tue Aug 14, 2012 9:12 pm    Post subject: Reply with quote

It is hard to believe you do not have this resolved after so long . . .

Did you do as suggested and move the input field to a field defined as pic 9(9)? If not why not. . . Confused

Did you compare the input for blanks and if blank, move zero to it? Again, if not, why not Sad
_________________
Have a good one
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL All times are GMT + 5 Hours
Goto page 1, 2  Next
Page 1 of 2



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Need to put records a Sorting order as mentioned below. 13 Yash1911 2993 Wed Oct 31, 2012 8:18 pm
dbzTHEdinosauer View latest post
No new posts how to deal with the below scenario using iebgener 7 mainframes_6002 3532 Wed Dec 07, 2011 10:34 am
DikDude View latest post
No new posts Coulu someone explain the parameters in the below code? 1 lovely sweety 5646 Thu Jun 09, 2011 3:50 pm
dbzTHEdinosauer View latest post
No new posts Unable to achieve below scenario using ICETOOL 24 sirianangel 17942 Sat Oct 23, 2010 12:45 am
Frank Yaeger View latest post
No new posts Query For IEBPTPCH 2 padmajeet.gaikwad 7702 Mon Oct 26, 2009 10:25 am
padmajeet.gaikwad View latest post
 





Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-6684.html