Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
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?

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What are the ways fot initiating a transaction?

953


What is the use of mdt (modified data tag)?

1039


What is the pcp in the cics?

924


How ENQ and DEQ used in CICS?

1434


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?

1097


What is the main function of the sign-on table?

1069


Explain the primary significance of intra-partition and extra-partition tdqs ?

1067


Sync points cannot be requested by the application programs? State true or false

1152


Explain the difference between a package and a plan.

1051


Can you define attribute byte?

1020


Explain the difference between intra partition tdq and extra partition tdq?

991


How errors are handled in CICS programs?

1116


What does a cics translator do?

1432


What are the recoverable cics resources?

1012


What is the meaning of the enq command?

1078