How to declare if emp-name = AAAAA""BBB in working-storage
section. After display emp-name should print like AAAAA""BB
- 6 Answers
- 7716 Views
- Polaris, I also Faced
- E-Mail Answers
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 |
can we use 77 level no for Redefines?if we use give an example?
if i am reading a file with some 50000 records and moving to a DB2 table and suddenly the program abends in between, is there anyway i could restart from the exact record at which the job failed once the program restarts.
when SE37 SB37 and sd37 occurs how to increase the volume , primary quantity and secondary quantity?
What is the difference between performing a SECTION and a PARAGRAPH?
what is amode(24), amode(31), rmode(24) and rmode(any)?
is this below syntax correct? CALL 'subprg' using A,B Please help
77 I pic 99 value 5 Perorm para-A I times. Para -A. move 10 to I. How many times the para-A will be executed.?
i am a btech cs 2009 passout. i am opting for mainframe course. is it good to do this course? pls. anyone suggest me
How can you add a particular field/coloumn in copybook?
what are decleratives in cobol?
What is XDC ?
How to concatenation one or more string?
COBOL 
