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
Explain what is the massinsert option?
what is the difference between a package and a plan. How does one bind 2 versions of a cics transaction with the same module name in two different cics regions that share the same db2 subsystem?
when a task suspends all the handle conditions via the push command, how does the task reactivate all the handle conditions?
Kindly specify the pic clause for the data type of length option field type of data fields?
Explain the difference between dfhcommarea and tsq?
What is the comaera (communication area)?
What are the common tables in cics and their usage?
Can you define mdt?
specify the requirements for automatic task initiation. (Mention the control table, it is entries and the corresponding procedure division cics command).?
What are the types of processes to create a map in cics?
In a CICS program, how will you read a VSAM file?
Define an asra?
What is the comaera?
What are the terms cics generally means?
What is interval control?