Interested to Buy Any Domain ? << Click Here >> for more details...
I have a Field which is of size 9(4). In the Screen if I enter
the value for this field as 1234, it showing it as Valid. But if
I enter only one or two digits, zeros should be appended in the
remaining places. For example: When u enter 1 in the screen the
output should be 0001. When you enter 12, output should be 0012.
How to achieve this in the program?
- 7 Answers
- 10200 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / y@$w@nth
Sorry for the above answer i thought zeros should be supressed.
When at the time of defining the field in the map we can
code PICOUT option for eg:
SUPFIELD DFHMDF POS=(**,**),
LENGTH=4,
ATTRIB=(UNPROT,FSET),
PICOUT='9(4)',
PICIN='9(4)'
If zeros should be supressed then code following
SUPFIELD DFHMDF POS=(**,**),
LENGTH=4,
ATTRIB=(UNPROT,FSET),
PICOUT='z(3)9',
PICIN='z(3)9'
Correct me if i am wrong
| Is This Answer Correct ? | 8 Yes | 0 No |
Answer / veena
In Attrib=(UNPROT,FSET,NUM),
Num in the Attrib gives zeroes when digits are entered.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / girish kumar
IN THE MAP JUST U CODE PICIN AS X(LENGTH) AND NEVER CODE THE
ANYTHING IN THE "INITIAL" JUST GIVE A BLANK SPACE.
FOR EX: IF YOU ARE DOING ADDITION USE
FUNCTION NUM VALUES(NO1I) PIC X(5).
FUNCTION NUM VALUES(NO2I) PIC X(5).
THEN COMPUTE NO1I + NO2I.
CODE LIKE THIS IN APPLICATION PROGRAM
I GET THE EXACT RESULT.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / girish kumar
code like this for the addtion.
functional num value of (input field1)
finctional num value of (input field2)
example.
functional num value(IN1)
functional num value(IN2)
SUM=ADD THE ABOVE TO FIELDS
TRY THIS IT WILL REALLY WORKS
NOTE= give the picture clause is ALPHA NUMARIC
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / y@$w@nth
When at the time of defining the field in the map we can code
PICOUT option for eg:
SUPFIELD DFHMDF POS=(**,**),
LENGTH=4,
ATTRIB=(UNPROT,FSET),
PICOUT=z(3)9,
PICIN=z(3)9
Correct me if i am wrong
| Is This Answer Correct ? | 0 Yes | 3 No |
Explain the difference between a package and a plan.
What is the most common way of building queue-id of a TSQ? (Name the constituents of the Queue ID).
when an apllication is invoked via the exec cics start command with the from option, how does the application gain access to the common area?
Explain the difference between and exec cics xctl and exec cics start command?
What is the difference between LINK and XCTL ?
how to code the following map using occours clause? all the three fields have different length. ename eno addr 1) _______ _________ __________ 2) _______ _________ __________ 3) _______ _________ __________ 4) _______ _________ __________ 5) _______ _________ __________ 6) _______ _________ __________
Do you receive the attribute byte in the symbolic map?
What does it mean when EIBCALEN is equal to 1 and other values?
define the field with ic in the bms map.
Can you simply check if length = 0 for checking if a field was modified?
How do you fire a batch job from a CICS transaction ?
What is the difference between getting the system time with EIBTIME and ASKTIME command?
COBOL 
