How to declare if emp-name = AAAAA""BBB in working-storage
section. After display emp-name should print like AAAAA""BB
Answers were Sorted based on User's Feedback
Answer / sukhwinder singh
IDENTIFICATION DIVISION.
PROGRAM-ID. M3TUD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VARS PIC X(10) VALUE 'AAAAA""BBB'.
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY WS-VARS(1:9).
stop run.
Is This Answer Correct ? | 11 Yes | 0 No |
Answer / premil
IDENTIFICATION DIVISION.
PROGRAM-ID. M3TUD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VARS PIC X(10) VALUE 'AAAAA""BBB'.
01 WS-VAR1 PIC X(9).
PROCEDURE DIVISION.
0000-MAIN.
MOVE WS-VARS TO WS-VAR1.
DISPLAY WS-VAR1.
stop run.
Is This Answer Correct ? | 8 Yes | 4 No |
Answer / reena
IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAR1 PIC X(10) VALUE 'AAAAA""BBB'.
01 VAR2 REDEFINES VAR1 PIC X(9).
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY VAR2.
STOP RUN.
Is This Answer Correct ? | 5 Yes | 2 No |
Answer / jaanu
IDENTIFICATION DIVISION.
PROGRAM-ID. M3TUD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VARS PIC X(9) VALUE 'AAAAA""BBB'.
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY WS-VARS.
stop run.
Is This Answer Correct ? | 3 Yes | 1 No |
Answer / srivatsa
IDENTIFICATION DIVISION.
PROGRAM-ID. M3TUD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VARS PIC X(10) VALUE 'AAAAA""BBB'.
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY WS-VARS(1:9).
stop run.
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / arun
IDENTIFICATION DIVISION.
PROGRAM-ID. M3TUD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VARS PIC X(10) VALUE 'AAAAA""BBB'.
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY WS-VARS
.
SYSOUT
AAAAA""BBB
Is This Answer Correct ? | 5 Yes | 9 No |
What is rmode(any) ?
How to increase the logical record length of existing PS file?
how we separate the cobol cics statements from cobol&cics programming?
Write a program to explain size error.
Consider the following COBOL entries 05 X PIC 99 VALUE 10. ADD 40 X TO X. COMPUTE X = 3 * X - 40. The result in X is
What is the meaning of 'Eject' verb in cobol?
can u plz expain me how to declare dynamic array? what is the meaning of depending on clause in dynamic array?
TYPES OF SORTINGS. which is more prefarable.
What is file status 92?
WHY LRECL NEEDS TO BE 4 EXTRA THEN THE COBOL FILE LENGTH & WHAT IT CONTAIN IN THAT LENGTH
What is a SSRANGE and NOSSRANGE?
Suppose, file A has 100 records and file B has 500 records. We want to write records common to both A and B into file C and records which are present only in either A or B into another file D. What should be the logic of Cobol program to achieve this?
7 Answers Bank Of America, Mind Tree,