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?
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
how do you reference the ksds vsam file formats from cobol programs
Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc
Write a program to explain size error.
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
HOw can I get the negative sign while deduct high value from low value
how to move the records from file to array table. give with code example
how do you reference the variable unblock file formats from cobol programs
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
What is the default value(s) for an initialize? What keyword will allow for an override of the default?
What type of SDLC u followed? Why?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
How do u write test cases?
What is Pic 9v99 Indicates in COBOL?
In which area will you utilize 88 level items in cobol?
What is a SSRANGE and NOSSRANGE?