× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. COBOL400-L
  3. July 2002

RE: Help with Compiler Errors

This is a multi-part message in MIME format.
--
Hi Eric

These error messages can be ignored. Program will be created even if
these error messages are listed. But, if you want them out of error
listing, you can do the following:-

*   12  MSGID: LBL0650  SEVERITY: 00  SEQNBR:  002100
         Message . . . . :   Blocking/Deblocking for file
           'EMPLOYEE-PAY-FILE' will be performed by compiler-generated
           code.
Not an error at all. Severity is zero.

*   36  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  005000
         Message . . . . :   Delimiter for literal is not correct.
           Literal accepted.
 *   40  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  006100
         Message . . . . :   Delimiter for literal is not correct.
           Literal accepted.
 *   41  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  006400
         Message . . . . :   Delimiter for literal is not correct.
          Literal accepted.
*   50  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  008000
        Message . . . . :   Delimiter for literal is not correct.
          Literal accepted.

Use double quotes (") instead of single quotes (').

Thanks & Regards
Shiva
Wipro Technologies (Finance & Insurance)
Electronics City, Bangalore, India

-----Original Message-----
From: cobol400-l-admin@midrange.com
[mailto:cobol400-l-admin@midrange.com] On Behalf Of Eric Tubbs
Sent: Wednesday, July 24, 2002 11:02 AM
To: cobol400-l@midrange.com
Subject: Help with Compiler Errors

Greetings all,

As of this summer quarter, I am new to the programming language of COBOL
& RPG.  Currently, I am a Distance Education (DE) student at a local
community college. This post to the group is not to ask you to do my
homework for me.  I believe the homework has been written up, but I am
having trouble with the following compliing error messages below:

I have included the physical file and the source code listing for you to
look at if you dont mind. If someone could point me in the right
direction, I would appreciate the help immmensly.


  5769CB1 V4R4M0  990521            AS/400 COBOL Messages
TUBBS/CHPT0
   STMT
 *   12  MSGID: LBL0650  SEVERITY: 00  SEQNBR:  002100
         Message . . . . :   Blocking/Deblocking for file
           'EMPLOYEE-PAY-FILE' will be performed by compiler-generated
           code.
 *   36  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  005000
         Message . . . . :   Delimiter for literal is not correct.
           Literal accepted.
 *   40  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  006100
         Message . . . . :   Delimiter for literal is not correct.
           Literal accepted.
 *   41  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  006400
         Message . . . . :   Delimiter for literal is not correct.
          Literal accepted.
*   50  MSGID: LBL0014  SEVERITY: 10  SEQNBR:  008000
        Message . . . . :   Delimiter for literal is not correct.
          Literal accepted.


EMPPAYPF

        *************** Beginning of data
*************************************
0001.00
***********************************************************
0002.00       *                Employee Pay File
*
0003.00       *            Physical File -- EMPPAYPF
*
0004.00       *         Key Sequence - Employee Number
*
0005.00
***********************************************************
0006.00
0007.00                                             UNIQUE
0008.00      A          R EMPPAYR                   TEXT('Employee Pay
Record')
0009.00      A            EMPLOYEENO     9S 0
ALIAS(EP_EMPLOYEE_NUMBER)
0010.00      A            STORENO        4S 0
ALIAS(EP_STORE_NUMBER)
0011.00      A            FIRSTNAME     15A         ALIAS(EP_FIRST_NAME)
0012.00      A            MIDDLEINIT     1A
ALIAS(EP_MIDDLE_INITIAL)
0013.00      A            LASTNAME      15A         ALIAS(EP_LAST_NAME)
0014.00      A            DEPARTMENT     3S 0       ALIAS(EP_DEPARTMENT)
0015.00      A            HOURLYRATE     5P 2
ALIAS(EP_HOURLY_RATE)
0016.00      A            HRSWORKED      3P 1
ALIAS(EP_HOURS_WORKED)
0017.00      A            SALES          5P 0       ALIAS(EP_SALES)
0018.00      A          K EMPLOYEENO
        ****************** End of data
****************************************

CHPT0205

        *************** Beginning of data
************************************
0001.00        IDENTIFICATION DIVISION.
0002.00
0003.00        PROGRAM-ID. CHPT0205.
0004.00
0005.00
0006.00        ENVIRONMENT DIVISION.
0007.00
0008.00        INPUT-OUTPUT SECTION.
0009.00
0010.00        FILE-CONTROL.
0011.00             SELECT EMPLOYEE-PAY-FILE
0012.00                 ASSIGN TO DISK-EMPPAYPF.
0013.00
0014.00             SELECT HOURS-WORKED-REPORT-FILE
0015.00                 ASSIGN TO PRINTER-QPRINT.
0016.00
0017.00        DATA DIVISION.
0018.00
0019.00        FILE SECTION.
0020.00
0021.00        FD   EMPLOYEE-PAY-FILE
0022.00                 RECORD CONTAINS 55 CHARACTERS.
0023.00
0024.00        01   EMPLOYEE-PAY-RECORD.
0025.00             05  EP-EMPLOYEE-NUMBER          PIC 9(9).
0026.00             05  EP-STORE-NUMBER             PIC 9(4).
0027.00             05  EP-FIRST-NAME               PIC X(15).
0028.00             05  EP-MIDDLE-INITIAL           PIC X(1).
0029.00             05  EP-LAST-NAME                PIC X(15).
0030.00             05  EP-DEPARTMENT               PIC 9(3).
0031.00             05  EP-HOURLY-RATE              PIC 9(3)V99
PACKED-DECIMAL.
0032.00             05  EP-HOURS-WORKED             PIC 9(2)V9
PACKED-DECIMAL.
0033.00             05  EP-SALES                    PIC 9(5)
PACKED-DECIMAL.
0034.00
0035.00        FD   HOURS-WORKED-REPORT-FILE
0036.00                 RECORD CONTAINS 80 CHARACTERS.
0037.00
0038.00        01   PRINT-RECORD-OUT.
0039.00             05                              PIC X(10).
0040.00             05  DL-EMPLOYEE-NUMBER          PIC 9(9).
0041.00             05                              PIC X(5).
0042.00             05  DL-LAST-NAME                PIC X(15).
0043.00             05                              PIC X(5).
0044.00             05  DL-HOURS-WORKED             PIC 9(2).9.
0045.00             05                              PIC X(32).
0046.00
0047.00        WORKING-STORAGE SECTION.
0048.00
0049.00        01   WS-CONTROL-FIELDS.
0050.00             05  ARE-THERE-MORE-RECORDS      PIC X(3)    VALUE
'YES'.
0051.00
0052.00        PROCEDURE DIVISION.
0053.00
0054.00        000-MAIN-MODULE.
0055.00
0056.00            OPEN INPUT  EMPLOYEE-PAY-FILE
0057.00                 OUTPUT HOURS-WORKED-REPORT-FILE.
0058.00
0059.00            READ EMPLOYEE-PAY-FILE
0060.00                AT END
0061.00                    MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
0062.00            END-READ
0063.00            PERFORM 200-PROCESS-RECORD-RTN
0064.00                UNTIL ARE-THERE-MORE-RECORDS = 'NO '.
0065.00
0066.00            CLOSE EMPLOYEE-PAY-FILE
0067.00                  HOURS-WORKED-REPORT-FILE.
0068.00
0069.00            STOP RUN.
0070.00
0071.00        200-PROCESS-RECORD-RTN.
0072.00
0073.00            MOVE SPACES TO PRINT-RECORD-OUT.
0074.00            MOVE EP-EMPLOYEE-NUMBER TO DL-EMPLOYEE-NUMBER.
0075.00            MOVE EP-LAST-NAME TO DL-LAST-NAME.
0076.00            MOVE EP-HOURS-WORKED TO DL-HOURS-WORKED.
0077.00            WRITE PRINT-RECORD-OUT.
0078.00            READ EMPLOYEE-PAY-FILE
0079.00                AT END
0080.00                    MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
0081.00            END-READ.


Thanks,

Eric
--
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

Save up to $160 by signing up for NetZero Platinum Internet service.
http://www.netzero.net/?refcd=N2P0602NEP8

_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

--
**************************Disclaimer************************************

Information contained in this E-MAIL being proprietary to Wipro Limited is
'privileged' and 'confidential' and intended for use only by the individual
 or entity to which it is addressed. You are notified that any use, copying
or dissemination of the information contained in the E-MAIL in any manner
whatsoever is strictly prohibited.

***************************************************************************

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.