Interested to Buy Any Domain ? << Click Here >> for more details...
here is my requirement
A1 is alphanumeric with value 'A1B2C3D4' as defined below
05 A1 PIC X(8) VALUE IS 'A1B2C3D4'
but i need to have A2,A3 as ABCD & 1234 repectively......
A2 = ABCD
A3 = 1234
Can you please explain me what are the different ways to do it?
- 2 Answers
- 7739 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / mainframe guy
You can also do it this way:
DATA DIVISION
01 A1 VALUE 'A1B2C3D4'
05 A1-CHAR PIC X(01) OCCURS 8.
01 A2 PIC X(04) VALUE SPACES.
01 A3 PIC X(04) VALUE SPACES.
01 I PIC 9(02) VALUE ZEROS.
01 J PIC 9(02) VALUE ZER0S.
01 K PIC 9(02) VALUE ZEROS.
PROCEDURE DIVISION.
MOVE 1 TO I J K
PERFORM VARYING I FROM 1 BY 1 UNTIL WS-I > 8
IF A-CHAR(I) IS NUMERIC
MOVE A-CHAR(I) TO A3(K:1)
ADD 1 TO K
ELSE
MOVE A-CHAR(I) TO A2(J:1)
ADD 1 TO J
END-IF
END-PERFORM
Now you will have A2 = ABCD and A3 = 1234
This method can be used only if you want to seperate numbers
from alphabets. Otherwise, the previous solution has to be used.
| Is This Answer Correct ? | 2 Yes | 0 No |
Post New Answer View All Answers
What is redefines clause in COBOL?
Have you used comp and comp-3 in your project? And how?
What kind of error is trapped by on size error option?
What is the compute verb? How is it used?
Difference between array and sub-script ?
What is amode(31)
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
Explain what you understand by passing by value.
how do you reference the printer file formats from cobol programs
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
HOw can I get the negative sign while deduct high value from low value
explain sorting techniques in cobol program?
What is the usage of comp fields in cobol?
Discuss about changing dataset name in proc.
Are you comfortable in cobol or jcl?
