How to delete leading spaces/blank in COBOL ?
Example:- 01 data-name-1 pic x(220) " English is a
language".
I would like to delete leading spaces.
Answers were Sorted based on User's Feedback
Answer / varun v
Yes, we can use "Inspect Tallying" for the same.
Wroking storage Variable:
01 WS-VAR PIC X(15) VALUE ' COBOL'.
01 WS-VAR-FINAL PIC X(15).
01 WS-TALLY1 PIC 9(02) VALUE ZERO.
Procedure Dvision:
Inspect WS-VAR Tallying WS-TALLY1 for leading spaces
Move WS-VAR(WS-TALLY1+1 : 15-WS-TALLY1) to
WS-VAR-FINAL.
Now WS-INSPECT-FINAL should have
Value 'COBOL'.
Is This Answer Correct ? | 50 Yes | 12 No |
Answer / xyz
USe the Inspect Clause , get the number of the leading
spaces in the Count variable. Use the reference move then.
Is This Answer Correct ? | 32 Yes | 5 No |
Answer / naveen
You have many options.
1. Use Reference modification if you want a COBOL program.
2. INSPECT will also do.
3. Use SORT, OUTREC option, it will also work.
Is This Answer Correct ? | 8 Yes | 1 No |
Answer / varun v
I agree with Ans # 1 also.
But I think "Inspect Tallying" is the effective one as
there is no manual calculation is required for finding the
exact length of the second variable field(CHR6 in Ans #1)
is required.
Is This Answer Correct ? | 7 Yes | 3 No |
Answer / arne royce tiangson
I CAN FIND THE WRITE OUTPUT.. PLEASE EXPLAIN THIS CODE
'MOVE WS-USERID-TEMP(WS-TALLY + 1 : ) TO WS-LS-USERID'
THNX
Is This Answer Correct ? | 1 Yes | 2 No |
Answer / prasanth
Wroking storage Variable:
01 WS-VAR PIC X(15) VALUE ' COBOL'.
01 WS-VAR-FINAL PIC X(15).
01 WS-TALLY1 PIC 9(02) VALUE ZERO.
Procedure division
INITIALIZE WS-TALLY
MOVE ID-TBL-IMMS OF TBL TO WS-USERID-TEMP
INSPECT WS-USERID-TEMP TALLYING WS-TALLY
FOR LEADING SPACE
MOVE WS-TALLY TO WS-TEMP
IF WS-TALLY IS NOT ZERO
MOVE WS-USERID-TEMP(WS-TALLY + 1 : ) TO WS-LS-USERID
Is This Answer Correct ? | 6 Yes | 10 No |
Answer / minarul
you can do this by defining another varible with JUSTIFIED
RIGHT clause. then move the value from data-name-1 to that
varible. You have to define the picture clause of that
varible with proper length : below code will exactly do
that:
01 data-name-1 pic x(220) " English is a language".
01 CHR6 PIC X(217) JUSTIFIED RIGHT.
now do a move from data-name-1 to CHR6 and then disolay
the content of CHR6
Is This Answer Correct ? | 20 Yes | 33 No |
1)what is the maximum limit for occurs? Eg: 01 A PIC X(10) OCCURS N TIME. What is the max value for N?
can we use the two 01 level in file discription ?
How can you get the ksds file records into your cobol program?
What rules are followed by the search verb.
WE HAVE 5 DIFFERENT RECORDING MODE IN COBOL.FIXED, FIXEDBLOCK, VARIABLE, VARIABLEBLOCK AND UNDEFINED. WHAT IS THE DIFFERENCE AMONG ALL AND WHICH TYPE OF FORMAT SHOULD BE USED WHEN
What is Alternate Index ? How is it different from regular index ?
What is 66 level number and where it is used in real time by software developers?
2 Answers ITC Indian Tobacco Company, TCS,
is it possible to rename 01 level?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
Can a Search can be done on a table with or without Index?
What is perform what is varying?