|
midrange.com
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
