Can we move SPACES to numeric field and ZEROES to
alphabetic field? If yes what are the way doing this?
- 6 Answers
- 41674 Views
- T systems, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / siva
yes, we can move accordingly thru REDEFINES clause.
Example :
01 WS-A PIC 9(5).
01 WS-AR REDEFINES WS-A PIC X(5).
01 WS-B PIC A(5).
01 WS-BR REDEFINES WS-B PIC X(5).
MOVE 12345 TO WS-A.
MOVE SPACES TO WS-AR.
MOVE 'ABCDE' TO WS-B.
MOVE ZEROES TO WS-BR.
WS-A, WS-AR contains spaces and WS-B, WS-BR contains
zeroes.
| Is This Answer Correct ? | 19 Yes | 1 No |
Answer / chakri
Sriram we can move numeric data items to alphanumeric data
items and vice versa. But when we do arithmetic operations
then only it will throw error if we move alphanumeric data
items to numeric items.
| Is This Answer Correct ? | 9 Yes | 5 No |
Answer / maneendra
Hi all,
I am adding one more point to all.
we can move spaces to numeric field without using redefines
also. it can be possible by Reference modification(The
compiler will then treat your WS-NUM field as alphanumeric.
The field length is not necessary).
sample prog and results are:
IDENTIFICATION DIVISION.
PROGRAM-ID. SPATONUM.
AUTHOR. MANEENDRA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 99.
01 WS-STR REDEFINES WS-NUM PIC XX.
PROCEDURE DIVISION.
MOVE ZEROS TO WS-NUM.
DISPLAY 'BEFORE:', WS-NUM.
MOVE SPACES TO WS-NUM(1:).
DISPLAY 'AFTER:', WS-NUM.
STOP RUN.
OUTPUT:
BEFORE:00
AFTER:
For moving numeric field to Alphanumeric field, we can pass
it directly.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / guest
Chakri, you are wrong. Only Numeric data can be moved to
alphanumeric variable. The reverse is not possible.
One way of doing it is using Redefines clause.
| Is This Answer Correct ? | 6 Yes | 5 No |
we can move the numeric to alphanumeric or alphabetic and
vive versa only using the redefines.
this concept is useful when you want to have only one copy
book field need to change to num/aplha for particular
program.
| Is This Answer Correct ? | 1 Yes | 0 No |
9(2).99 how many bytes take? Why . consider as a byte?
Have you code any new programs in COBOL ? What is the functionality of the programs?
If i initialize the 01 level variable in array, will it initialize all the array elements (occurs)?
ID DIVISION. PROGRAM-ID. PLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 VAR1 PIC 9(2). 01 VAR2 PIC X(2). PROCEDURE DIVISION. ACCEPT VAR2. MOVE VAR2 TO VAR1. STOP RUN. if i give 'PI' in var2 then what will b output of progr. any abend?????
how to transfer the file from pc to mainframe??
Write some characteristics of cobol as means of business language.
What is the problem of ordered sequential files access?
what is dynamic array in cobol? what is the difference b/w array and table in cobol?
What are the rules of the move verb?
What is diff betn PS and ESDS file? What is the diffrent compiler options in cobol and there discription? What is retrive nth maximum salary from salary DB2 table. Can we redefine COM-3 variable with varchar variable?
what is the maximum error code in mainframe
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
COBOL 
