Support COBUG |
|
 |
|
|
|
|
| |
|
Fujitsu [
return
] |
|
From |
Message |
mayagopi
2/28/2006
20:52:26
|
 Subject: blanks in records
Message:
Hi,
I have entered variable which is
"02 Name pic x(15)" If i enter the record "raja"
which is having only 4 characters but it is asking remainging 11 characters to enter.
How to get rid of this blank spaces.
Can any one me help out .
identification division.
program-id. cos.
environment division.
data division.
working-storage section.
01 dept.
05 value1 pic x(06).
05 value2 pic s9(10) comp-3.
05 value3 pic s9(10).
procedure division.
display 'Enter the name : '
accept value1.
display 'Enter the sal : '
accept value2.
Display value1.
move value2 to value3.
display value3.
stop run.
regards,
Gopalakrishnan.V
|
|
|
|
|
|
|
|
|
|
|
[ Go to Top of Page ]
|
|
|
|
COBOL Forums |
Try our forums for help!
Let the COBUG members help you.
Post your issues!
|
|
|
COBOL Job Resources |
Here are references to a wealth of
job resources, including job listing sites, resume preparation, and interview questions.
|
|
|
Job and Resume Matchmaker! |
Employers submit your COBOL job openings.
Job seekers submit your resumes.
|
|
|
Join COBUG! |
Become a part of the COBUG community today.
Join Now ...
|
|
|
Call for User Group Leaders! |
We are looking for user group
leaders to help organize and coordinate a local COBOL user group.
|
|
|
