Posted by Grant Foraker on January 02, 2007 at 12:59:08:
In Reply to: CFAM upgrade problems posted by Grant Foraker on January 02, 2007 at 12:55:48:
Upload is unreadable. So I'll past the info.
01/02/07 12:01:20 THE REPORTER - GENERATION VSN: 03.01
502/502 COPYRIGHT SIGNATURE SYSTEMS 1987 - 2003
REPORT PREPARATION IN PROGRESS - $ACCT-00 ON RPG #FILES IS ON RPG
INPUT TIME.SHEET.B
ERROR = 43 - ACTUAL INPUT FILE NOT FOUND
PRINTER SP1
TITLE P A C I F I C S H I P R E P A I R
FATAL ERRORS EXIST. CANNOT PROCESS REPORT:
================================================================================
01/02/07 12:34:41 EDUCATING THE REPORTER VSN: 03.01
502/502 COPYRIGHT SIGNATURE SYSTEMS 1987 - 2003
FILE NAME OR ? : TIME.SHEET.B
1. ACTUAL FILE NAME: DL2
2. DIRECTORY:
3. FILE TYPE (K/S/C): K
4. IMAGE FILE (Y/N):
5. RECORD SIZE: 160
6. KEY SIZE: 7
7. TITLE: TIME SHEET INPUT FILE
ENTER OPTION #, D-DELETE OR TAB:
=================================================================================
01/02/07 12:35:57 502/502 WHERE IS FILE VSN: 06.04
WHEREIS COPYRIGHT SIGNATURE SYSTEMS 1987 - 2006 C2K6.375
DIR TYPE REC KEY POS CREATE UPDATE TIME SIZE FILE: DL2
DSK KEY 160 7 01-02-07 01-02-07 11:58 2624
BRE KEY 160 7 01-02-07 01-02-07 11:10 1024
2 FILE(S) FOUND. PRESS TAB:
=================================================================================
File: $ACCT-00, RPG 502/502 2=Stp 4=Lcm 5=Xcm 6=Del 7=Ins 8=Alt 1
41000 INPUT TIME.SHEET.B
41010 PRINTER SP1
41020 TITLE P A C I F I C S H I P R E P A I R
41100 TITLE DAILY HOURS FOR ITEMS '00' / REGISTER# 756
41200 TITLE FOR TIME POSTED ON 12/30/2006
41500 DEFINE ERR = 0;1.0
41600 DEFINE EARN.HOURS.NUM = NUM(EARN.HOURS,ERR);7.2;HOURS
41700 DEFINE EARN.AMOUNT.NUM = NUM(EARN.AMOUNT,ERR);7.2;EARN^AMOUNT
41800 DEFINE REG.HRS = POS('R ',EARN.CODE) * EARN.HOURS.NUM;5.2;ST^HOURS
41900 DEFINE OT.HRS = POS('O ',EARN.CODE) * EARN.HOURS.NUM;5.2;OT^HOURS
42000 DEFINE DT.HRS = POS('D ',EARN.CODE) * EARN.HOURS.NUM;5.2;DT^HOURS
42100 SELECTING IF LINE.NO. NE '00' AND DL2.CANC.FLAG NE 'X' AND
42200 TASK.ID EQ '00 '
42300 SORT ON JOB.NUMBER;EMPLOYEE.NO.
42400 REPORT
42500 USING TIME.B.TO.EMP
42600 PRINT JOB.NUMBER;TASK.ID;CRAFT.NUMBER;EMPLOYEE.NO.;EMPLOYEE.NAME;
42700 EARN.HOURS.NUM;EARN.AMOUNT.NUM
42800 TOTAL EARN.HOURS.NUM;EARN.AMOUNT.NUM
42900 BREAK ON JOB.NUMBER
43000 RUN QREPORTS,,'$MFG02'