1. Categories >> Software >> MainFrame >> IBM MainFrame >> CICS
  2. Suggest New Category

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?

Question Posted / girish12

Answers were Sorted based on User's Feedback



I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

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

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

Answer / guest

With the help of PICOUT 9999 in DFHMDF.

Is This Answer Correct ?    4 Yes 2 No

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

Answer / veena

In Attrib=(UNPROT,FSET,NUM),

Num in the Attrib gives zeroes when digits are entered.

Is This Answer Correct ?    0 Yes 0 No

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

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

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

Answer / kavin

just move low-values to map variables.

Is This Answer Correct ?    0 Yes 0 No

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

Answer / girish kumar

code like this for the addtion.

functional num value of (input field1)
finctional num value of (input field2)

example.

functional num value(IN1)
functional num value(IN2)
SUM=ADD THE ABOVE TO FIELDS

TRY THIS IT WILL REALLY WORKS

NOTE= give the picture clause is ALPHA NUMARIC

Is This Answer Correct ?    0 Yes 2 No

I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, i..

Answer / y@$w@nth

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=z(3)9,
PICIN=z(3)9

Correct me if i am wrong

Is This Answer Correct ?    0 Yes 3 No

Post New Answer

More CICS Interview Questions

Explain the usage of language in the ppt entry?

0 Answers  

Can we define an alternate index on VSAM/RRDS ?

2 Answers   IBM,

Define cedf?

0 Answers  

What is meant by PPT and what are its uses?

0 Answers  

How would you resolve an ASRA abend?

2 Answers   IBM,




Explain the difference between the into and the set option in the exec cics receive map command?

0 Answers  

What is the EIB parameter and the CICS command used to implement Pseudo-Conversational technique using single PCT ? Single PPT entry?

1 Answers   IBM,

Explain how to handle exceptional conditions in CICS.

1 Answers   IBM,

Can you define cics task?

0 Answers  

What is the attribute byte?

2 Answers   IBM,

Explain cedf transaction commands?

0 Answers  

Can you define mapset?

0 Answers  

For more CICS Interview Questions Click Here
Categories