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.

Write the code implementing the perform … varying.

1025

---

what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

9035

---

what are decleratives in cobol?

2219

---

) what is the difference between AID and HANDLE AID?

2110

---

What is the difference between structured cobol programming and object alternativelyiented cobol?

1209

---

What is the usage of comp fields in cobol?

1147

---

what is difference between cobol and cobol/400

22769

---

What happens when we move a comp-3 field to an edited (say z (9). Zz-)?

1341

---

i need a small 3d program using inline and outline.

2178

---

In COBOL programming, what is PERFORM? What is VARYING?

1100

---

What kind of error is trapped by on size error option?

1189

---

What are the different types of condition in cobol and write their forms.

1078

---

There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.

1390

---

What is the problem of ordered sequential files access?

1130

---

How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

5327

---