Interested to Buy Any Domain ? << Click Here >> for more details...
The below is the declaration for a variable ws
01 ws pic 9(3).
if you want to insert space how will you do that.
in which level u should do it
- 3 Answers
- 7500 Views
- ADP, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / sdexcellent@yahoo.co.in
01 ws-new redifines ws pic x(3).
in level 01 only
| Is This Answer Correct ? | 7 Yes | 2 No |
Answer / praveen bejjanki
The Question itself is not clear for me,
My understanding is to Insert space in the variable WS.
Then use move stmt as follows
Move space/spaces to WS.
Correct me if i'm wrong.
| Is This Answer Correct ? | 0 Yes | 0 No |
What are different data types in cobol?
01 xxx pic 9(4). 01 yyy pic 9(6). move 123456 into yyy. move yyy to xxx. display yyy. what would be the value of yyy
Hi Guys, I have faced one interview question if I have requirement to add 5 new columns to existing table what are prerequisite do i need to take.
Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.
What is the difference between index and subscript?
01 a pic 9(3) value is 123 01 b pic 9(6) move a to b wht will be the value ? and 01 a pic x(6) value is abc 01 b pic x(3) move a to b wht will be the value ?
can we use the two 01 level in file discription ?
I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
In a file if a column account number conatain value 0001234.. how can we move the value to another variable without zero. value may contain any type such as 00123405. we need the value 1234 or 12305. how can we do that in cobol. Please help.
What are various search techniques in cobol? Explain.
What are the different open modes available in cobol?
which generation language is cobol
COBOL 
