QUOTE(Sharktress @ 3 Oct, 2008 - 04:35 PM)
I get it to compile but I get an error message not sure how to correct
this my code but Iget an error message that in the second to the last line I have an alpha in a numeric not sure how to correct can some please help.
cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. PROBLEM6QUET1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL. SELECT CUSTOMER-FILE-IN ASSIGN TO
'C:\CUSTTRANS.TXT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PRINT-FILE-OUT
ASSIGN TO 'C:\CUSTTRANSOUT'
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD CUSTOMER-FILE-IN.
01 CUSTOMER-IN-REC.
05 IN-INITIAL1 PIC X(1).
05 IN-INITIAL2 PIC X(1).
05 IN-LAST-NAME PIC X(10).
05 IN-MO-TRANSACTION PIC X(2).
05 IN-YR-TRANSACTION PIC X(4).
05 IN-TRANSACTION-AMT PIC 9(6)V99.
05 PIC X(32).
FD PRINT-FILE-OUT.
01 PRINT-REC-OUT PIC X(57).
WORKING-STORAGE SECTION.
01 HEADING-1.
05 PIC X(5) VALUE SPACES.
05 PIC X(4) VALUE 'NAME'.
05 PIC X(5) VALUE SPACES.
05 PIC X(19)
VALUE 'DATE OF TRANSACTION'.
05 PIC X(3) VALUE SPACES.
05 PIC X(21)
VALUE 'AMOUNT OF TRANSACTION'.
01 WS-PRINT-REC-OUT.
05 OUT-INITIAL1 PIC X(1).
05 PIC X VALUE '.'.
05 OUT-INITIAL2 PIC X(1).
05 PIC X VALUE '.'.
05 OUT-LAST-NAME PIC X(10).
05 PIC XXX.
05 OUT-MO-TRANSACTION PIC X(2).
05 PIC X VALUE '/'.
05 OUT-YR-TRANSACTION PIC X(4).
05 PIC X(11).
05 OUT-TRANSACTION-AMT PIC $ZZZ,ZZ9V99.
05 PIC 9(14).
01 ARE-THERE-MORE-RECORDS PIC X(3) VALUE 'YES'.
PROCEDURE DIVISION.
100-MAIN-MODULE.
OPEN INPUT CUSTOMER-FILE-IN
OUTPUT PRINT-FILE-OUT
WRITE PRINT-REC-OUT FROM HEADING-1.
MOVE SPACES TO PRINT-REC-OUT.
WRITE PRINT-REC-OUT.
PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO'
READ CUSTOMER-FILE-IN
AT END
MOVE 'NO' TO ARE-THERE-MORE-RECORDS
NOT AT END
PERFORM 200-PROCESS-ROUTINE
END-READ
END-PERFORM
CLOSE CUSTOMER-FILE-IN
PRINT-FILE-OUT
STOP RUN.
200-PROCESS-ROUTINE.
MOVE IN-INITIAL1 TO OUT-INITIAL1
MOVE IN-INITIAL2 TO OUT-INITIAL2
MOVE IN-LAST-NAME TO OUT-LAST-NAME
MOVE IN-MO-TRANSACTION TO OUT-MO-TRANSACTION
MOVE IN-YR-TRANSACTION TO OUT-YR-TRANSACTION
MOVE IN-TRANSACTION-AMT TO OUT-TRANSACTION-AMT
WRITE PRINT-REC-OUT FROM WS-PRINT-REC-OUT.
The file is attached that I use as an input file.
Compiling your code using HP COBOL V2.8-1286 on OpenVMS I get the following
warning:
77 WRITE PRINT-REC-OUT FROM WS-PRINT-REC-OUT.
..........1
%COBOL-I-ANTRUNC, (1) Truncation in alphanumeric move
Checking sizes, PRINT-REC-OUT is defined as 57 bytes in length and
WS-PRINT-REC-OUT is 59 bytes long.
Jeff
This post has been edited by n8wxs: 4 Oct, 2008 - 07:53 PM
| 