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
- 10232 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 tables must be updated when adding a new transaction and program?
In which CICS table would you specify the length of the TASK WORK AREA (TWA)?
What does the 'cebr:cics' transactions do?
Native Mode Data Stream (NMDS) is a mixture of Buffer Control Characters(BCC) and text data (True or False)
Explain the difference between pseudo-conversational and conversational?
if we want to add new column in the db2 table.How can add in the copybook?
what is the deadlock?
What is the command which will delete a program LOADed into the main storage using LOAD command?
Explain how do you access the records randomly in tsq?
What is the command used for receiving a map from a terminal?
Why doesn?t CICS use the Cobol Open and Close statements ?
What is the pic clause for the hhmmss type of data fields?
COBOL 
