CICS Validation

I have cics screen on which I have defined a variable as account number pic X(10) . and in my program I need to accept them into Pic 9(10).
I need to validate the screen and in the program
for below conditions.
If the user enters A1234 then the program should not accept this.
If the user enters 1234 and a space and 5 then also it should not accept.
if the user enters 3 or 4 spaces and then enters 1234 and then spaces then the program should treat this as valid entry and then continue executing the program.

How do you validate all the conditions in single para.

from ur query i feel that u wanna to accept only numners.

give NUM option for that particular input field in CICS Map.

hey i feel what uma had written will only solve the problem partially...what will happen in 2nd and 3rd case...correct me if i am wrong....

Supriya,
The normal technique is as follows:
1. Accept the input as VARIABLE X(10) and then redefine it to a 9(10).
2. Define the edit criteria in your program for the conditions you have specified. If VARIABLE IS NUMERIC etc etc.
3. To support your 3rd case, you can also use LEFT JUSTIFIED or scan for spaces.

In any case, the best way is to use X(10). You can use 9(10) from the start, however, you have to take care of preventing S0C7s.

Good luck and let us know which technique you followed.

Thanks,
-PK

[QUOTE=supriya_saraswat;29481]I have cics screen on which I have defined a variable as account number pic X(10) . and in my program I need to accept them into Pic 9(10).
I need to validate the screen and in the program
for below conditions.
If the user enters A1234 then the program should not accept this.
If the user enters 1234 and a space and 5 then also it should not accept.
if the user enters 3 or 4 spaces and then enters 1234 and then spaces then the program should treat this as valid entry and then continue executing the program.

How do you validate all the conditions in single para.[/QUOTE]

u can perform numerical test in the para validating the input, the condition failing on which u can inspect the input for leading spaces and still pass the condition.. unstring the spaces and the field seperately and move the field into 9() item.:)