[Tiny-cobol-users] CVS update 0.63.57

[David E. <de...@us...>]

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