Reading variable block files AIX cobol
From: kprasann (ashprav_at_rediffmail.com)
Date: 10/12/04
- Next message: Pete Dashwood: "Re: OT: The Ultimate in Outsourcing"
- Previous message: Pete Dashwood: "Re: Creative Javascript writing (was: OFF Topic)"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Mon, 11 Oct 2004 20:21:25 -0400
When trying to read a VB file from AX cobol program, the read terminates
when encountering a null (x'00') in the record and the record gets
truncated. But the read is fine for a FB file! Anyone aware of this, pls
help. Thanks!
sample code(declaration section alone)
---------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. filepgm.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MY-IN-FILE ASSIGN TO NAT-INPUTFILE
ORGANIZATION IS LINE SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS WS-IFSCODE.
SELECT MY-OUT-FILE ASSIGN TO NAT-OUTPUTFILE
ORGANIZATION IS LINE SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS WS-OFSCODE.
*------------------------------------------------------*
DATA DIVISION.
FILE SECTION.
FD MY-IN-FILE
RECORDING MODE IS V
RECORD IS VARYING
LABEL RECORDS ARE STANDARD.
01 MY-IN-FILE-RECORD PIC X(8).
FD MY-OUT-FILE
RECORDING MODE IS V
RECORD IS VARYING
LABEL RECORDS ARE STANDARD.
01 MY-OUT-FILE-RECORD PIC X(8).
- Next message: Pete Dashwood: "Re: OT: The Ultimate in Outsourcing"
- Previous message: Pete Dashwood: "Re: Creative Javascript writing (was: OFF Topic)"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
