Re: Compiling Errors - Record Contains

From: Eric Tubbs <eatubbs@email.com>
sorry, Eric, I was wrong, TRANSAMNT *is* Zoned (the "s"; I misread that)

0006.00
0007.00      A          R CUSTTRANR                 TEXT('Customer
Transaction Report')
0008.00      A            FIRSTNAME     10A         ALIAS(CT_FIRST_NAME)
0009.00      A            MIDDLEINIT     1A         ALIAS(CT_MIDDLE_INITIAL)
0010.00      A            LASTNAME      15A         ALIAS(CT_LAST_NAME)
0011.00      A            TRANSMONTH     9A
ALIAS(CT_TRANSACTION_MONTH)
0012.00      A            TRANSAMNT      7S 2
ALIAS(CT_TRANSACTION_AMOUNT)
        ****************** End of data
****************************************


0019.00        FILE-CONTROL.
0020.00             SELECT CUSTOMER-TRANSACTION-FILE
0021.00                 ASSIGN TO DISK-CUSTTRANPF.

0030.00        FD  CUSTOMER-TRANSACTION-FILE
0031.00                RECORD CONTAINS 42 CHARACTERS.
0032.00
0033.00        01  CUSTOMER-TRANSACTION-RECORD.
0034.00            05  CT-FIRST-NAME               PIC X(10).
0035.00            05  CT-MIDDLE-INITIAL           PIC X(01).
0036.00            05  CT-LAST-NAME                PIC X(15).
0037.00            05  CT-TRANSACTION-MONTH        PIC X(09).
0038.00            05  CT-TRANSACTION-AMOUNT       PIC 9(07)V99
PACKED-DECIMAL.

but here you think it is packed decimal. Make that DISPLAY (or simply
omit the type. Also the picture is not consistent with the DDS where
you say 7S 0.

Clean this up, make everything consistent and your problem will
go away.