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
- 10183 Views
- I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
Receive consists of buffer option in it. What is the significance of this option?
Explain the difference between dfhcommarea and tsq?
when you compile a cics program, the (pre) compiler puts an extra chunk of code. Where does it get included and that is it called? What is its length?
Can you explain exec cics handle condition command?
Name the command which is used to release a record on which exclusive control is gained?
Highlight the points of differences between XCTL and START?
What are some of the cics commands associated with interval control?
Define an aica abend?
What will happen if some program tries to process a queue on which an ENQ command has been issued by some other program?
What is cics load command?
Explain the difference between using the read command with into option and set option?
What is the main function of the sign-on table?
Name the three ways available for a program to position the cursor on the screen?
What is meant by an AICA ABEND?
What is the eib?
