Hi All,
A new TC update (0.63.57) is available on SF CVS.
Changes:
Updated grammar for DISPLAY to use CONSOLE, SYSOUT, SYSERR.
Added preliminary support for variable length sequential files.
Format 1:
FD PHONE-FILE
RECORD CONTAINS 10 TO 60 CHARACTERS.
01 PHONE-RECORD-10.
05 FILLER PIC X(10).
01 PHONE-RECORD-60.
05 FILLER PIC X(60).
01 PHONE-RECORD-20.
05 FILLER PIC X(20).
...
Format 2:
FD PHONE-FILE
RECORD CONTAINS 10 TO 60 CHARACTERS
DEPENDING ON RECORD-LENGTH.
01 PHONE-RECORD-10.
05 FILLER PIC X(10).
01 PHONE-RECORD-60.
05 FILLER PIC X(60).
01 PHONE-RECORD-20.
05 FILLER PIC X(20).
...
WORKING-STORAGE SECTION.
...
01 RECORD-LENGTH PIC 999.
* 01 RECORD-LENGTH PIC 9(4) COMP-5.
Format 3:
FD PARTS-FILE
RECORD VARYING 26 TO 53 CHARACTERS.
01 PARTS-RECORD.
05 PARTS-PART-INFO PIC X(20).
05 PARTS-BIN-IDX PIC 999.
05 PARTS-BIN-NUMBER PIC X(3)
OCCURS 1 TO 10 TIMES DEPENDING
ON PARTS-BIN-IDX.
...
WRITE PHONE-RECORD-60.
...
WRITE PARTS-RECORD.
...
READ PHONE-FILE
For formats 1 and 3 TC will prefix each record with a 1,2,4 byte
unsigned integer, depending on the maximum record length.
For format 2 the record prefix is defined by the 'DEPENDING ON
identifier-1' FD clause. Identifier-1 can be either in a DISPLAY or
COMP/COMP-5 formats.
The record length prefix is not defined in the COBOL FD record entries,
but is required by non-TC programs.
The identifier-1 must be a unsigned integer, with a maximum defined by
9(9) or 9(9)COMP/COMP-5 thus giving a maximum record length of 10e9 - 1.
Notes:
Better error traps will be added at a later date.
When using format 3 (OCCURS ... DEPENDING ON identifier-1), identifier-1
must be initialized to the minimum otherwise a RTL warning will result
(bug ?).
Sample programs 'test31[abcd].cob' can be found in the 'test.code/t31'
directory.
Please forward any comments, bugs to this list.
David Essex
|
