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



How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English ..

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

Post New Answer

More COBOL Interview Questions

Program A calls program B. Will the working storage variables declared in program B be initialized every time it is called by program A or will the values be retained until the end of program A?

7 Answers  


can any one give good example for cond 88 level number and for renames pls urgent dudes ?

3 Answers   DELL,


How to define a array dynamically.....

5 Answers   Fidelity,


Describe the difference between subscripting and indexing ?

2 Answers  


Define cobol?

0 Answers  






What R 2 of the common forms of the EVALUATE STATEMENT ?

1 Answers   Cap Gemini,


if a>b continue display x. dispaly y. end-if display 1 display 2. display 3. what should be my output ?

3 Answers  


How do define dynamic array in cobol.

0 Answers  


What is file status 39 ?

10 Answers   JPMorgan Chase,


If we put three reads in COBOL in the same para one after the other, to read a PS file,will it read the same record thrice or it will read three records sequentially? For example : Input File 01 02 03 Para 900 Read infile Display Infile rec Read infile Display infile rec Read infile Display infile rec. What will be the output?

2 Answers  


INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?

0 Answers  


Extract only those records from a PS file which are having word 'TEXT' in the records using COBOL? The word TEXT is not present in a particular position in all the records.

2 Answers   RBS,


Categories