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

Can you explain primary aspect of cics?

1090


Explain how pa key is different from pf key?

1070


What is meant by a ‘Transid’ ?

1002


Highlight the difference between a symbolic map and physical map?

1044


In a CICS program, how will you read a VSAM file?

1070


What does the 'cebr:cics' transactions do?

961


What is meant by an AICA ABEND?

1107


Explain ceci transaction commands?

955


How do you use altindxs in batch, cics programs?

988


Can you explain communication area?

976


What is the common work area?

918


Can you explain multitasking and multithreading?

1071


Explain the difference between the xctl and link commands?

1031


What does the 'cedf:cics' transactions do?

987


When would you use abend command?

1091