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
- 10184 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 |
What are the six different types of argument values in COBOL that can be placed in various options of a CICS command?
With the use of an alternate index, how is a VSAM file accessed?
An XCTL uses more CPU time than LINK (True or False)
kindly specify the pic clause for the following:any bll cell, data type of length option field, hhmmss type of data fields?
What is the abend command?
How does COBOL11 and CICS release 1.7 provide for exceptional and how does that differ from VS COBOL and earlier CICS release?
What is the EIB (execute interface block)?
Name three ways the Modified Data Tag can be set on?
What is EIB. How it can be used?
How can we code a program such that we will never get a MAPFAIL error?
Can you access ESDS files from CICS ?
How to differenciate the given coding is pseudo conversational? (except EIBCALEN condition)
COBOL 
