how to code in cobol while using variable block file?
Answer / ravi
INDENTIFICATION DIVISION.
PROGRAM-ID. PGM1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM
OBJECT-COMPUTER. IBM
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT INPUT-VB-FILE ASSIGN TO DISK.
DATA DIVISION.
FILE-SECTION.
FD INPUT-VB-FILE
01 INPUT-VB-FILE
RECORDING MODE IS V
RECORD CONTAINS 1000 CHARACTERS <---This should be the max
size of the record in whole file.
BLOCK CONTAINS 0 RECORDS.
| Is This Answer Correct ? | 2 Yes | 8 No |
How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English is a language". I would like to delete leading spaces.
what is the use of keep and pass in disp
Sending data is aplhabetic size 7 (value 3000), I wantated this value to be stored in database, which is defined as s9(7)v9(2)comp-3.
have in 100 records in a file i want to read first 3 records and skip next 3 records and agan i want to read 3 records and again i want to skip 3 records...
2 Answers ITC Indian Tobacco Company, PNP, TCS,
How arrays can be defined in COBOL?
can we use 77 level no for Redefines?if we use give an example?
what is the diff b/w select stsmt and cursor ?
Can a REDEFINES clause be used along with an OCCURS clause? if yes, 01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES PIC X(1) VALUE 'A'. 03 WS-EX REDEFINES WS-TABLE-EL PIC X(5). What can you expect? if no,why?
How to retrive the 9th records out of ten records using the cobol program ?
Can we put move statement in COBOL copybook
I try to use some column names in my cobol progorm but these column not in db2 table ..when do i get error ..while bind time or runtime?
What is redefines clause in COBOL?