[open-cobol-list] another program that doesn't compile

[David Korn]

cc: address@hidden 
Subject: another program that doesn't compile
--------

This could be related to the last problem.  Here is another program
that doesn't compile.

prog6.cob:15: parse error, unexpected '('

=========================prog6.cob=======================
       IDENTIFICATION DIVISION.
       PROGRAM-ID.     PROG6.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TR10-UPS-RESP-MSG.
           05  TR10-CNTRC-HDR-REC.
               10  TR10-RECORD-TYPE       PIC X(2) VALUE SPACES.
                   88 TR10-HEADER             VALUE '00'.
       01  WS-MISC-VARIABLES.
           05  WS-RESP-LEN               PIC S9(4)  COMP.
           05  WS-RESP-OFFSET-1          PIC S9(7)  COMP-3 VALUE ZERO.
       01  WS-RESP                  PIC X(1500000). 
       PROCEDURE DIVISION.
       MOVE TR10-UPS-RESP-MSG
              (WS-RESP-OFFSET-1:(LENGTH OF TR10-CNTRC-HDR-REC + 16))
             TO WS-RESP (WS-RESP-OFFSET-2:
                         (LENGTH OF TR10-CNTRC-HDR-REC + 16)).
=========================end prog6.cob=======================

David Korn
address@hidden