Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 1 Answers
- 3360 Views
- CSC, I also Faced
- E-Mail Answers
Answer / mahesh satya
variable pic 9(08).
perform varying I from 1 by 1 until I < 8 or found
IF VARIABLE(I:1) not = 0 then
compute actual = 8 - I
move VARIABLE(I: actual) to NEW_VARIABLE
set found to true
end-if
end-perform
| Is This Answer Correct ? | 0 Yes | 0 No |
Define REDEFINE clause and Is it possible to have the redefine clause anywhere in the working storage section for a data name?
TYPES OF SORTINGS. which is more prefarable.
How to read records in reverse order in flat file? I know we can do it by reading all records into an array.... Then read records in reverse order by using subscript or index but can any body give me the exact code.
How do you differentiate between cobol and cobol-ii?
I have a sequential file of 100 records. How do I load the records into a two dimensional array ?
What are the differences bitween cobol and cobol-2?
What is the use of intialize verb?
Syntax for JCLLIB & JOBLIB???
What the difference is between continue and next sentence?
Which of the following files can be OPENed in all the 4 modes? The four modes are INPUT, I-O, OUTPUT and EXTEND. (a) INDEXED (b) RELATIVE (c) SEQUENTIAL (d) All of the above
IDENTIFICATION DIVISION. PROGRAM-ID. MOVEPGM. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-I PIC 9(2). PROCEDURE DIVISION. A1000-MAIN-PARA. PERFORM PARA-X WITH TEST BEFORE UNTIL WS-I= 5 STOP RUN. PARA-X. DISPLAY "BEST2". I m getting error s722,while executing the program, seems getting in loop, can anybody tell me why
What rules are followed by the search verb.
COBOL 
