[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] address@hidden
From: |
David Korn |
Subject: |
[open-cobol-list] address@hidden |
Date: |
Mon Feb 9 16:45:08 2004 |
Here is another program that is failing to compile:
================cut here====================
ID DIVISION.
PROGRAM-ID. PROG3.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-P-SUMM-HDR.
05 FW058R-RESP-TBL OCCURS 100 TIMES
INDEXED BY FW058R-INDEX.
10 FW058R-DSET-NAME PIC X(44).
01 WS-MAX-LENGTH PIC 9(2).
PROCEDURE DIVISION.
MOVE LENGTH OF FW058R-DSET-NAME(FW058R-INDEX) TO
WS-MAX-LENGTH
================cut here====================
prog3.cob:12: parse error, unexpected '(', expecting TO
David Korn
address@hidden
- [open-cobol-list] address@hidden,
David Korn <=