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?
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
Differentiate between PCT and FCT.
Define transient data?
Define exec cics retrieve?
Explain the difference between pseudo-conversational and conversational?
Explain the difference between a symbolic map and physical map?
For protecting a transaction using the transaction security function, the two things that must be done are?
Receive consists of buffer option in it. What is the significance of this option?
mention the option (along with argument type) used in a cics command to retrieve the response code after execution of the command?
Explain how do you delete item 3 in a five-item tsq?
which is the cics control program that provides communication services between user written application programs and terminals?
What is the use of the program list table?
What do you mean by CEMT?
Can you use occurs in bms map?
What is the tcp in the cisc?
Explain the difference between exec cics handle condtion and an exec cics ignore command?