ESDS Question
Posted: Wed Jul 23, 2008 5:11 pmI'm facing some problems while submitting the following cobol code.
here I'm copying the contents of a ps file to an esds dataset.
But while executing this cobol program I'm getting MAXCC=12, don't know why.
So please some body help in this case, to sort this issue.
I am able to do the same job with the KSDS file, but not with the ESDS.
ALSO IF CAN SOME BODY REFER SOME GOOD SITES TO DOWNLOAD COBOL PROGRAMMING AND CICS BOOKS.
THE CODE IS...........
srikantha.s
here I'm copying the contents of a ps file to an esds dataset.
But while executing this cobol program I'm getting MAXCC=12, don't know why.
So please some body help in this case, to sort this issue.
I am able to do the same job with the KSDS file, but not with the ESDS.
ALSO IF CAN SOME BODY REFER SOME GOOD SITES TO DOWNLOAD COBOL PROGRAMMING AND CICS BOOKS.
THE CODE IS...........
IDENTIFICATION DIVISION.
PROGRAM-ID. PS2ESDS.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
FILE STATUS IS FS
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC PIC X(80).
FD OUTFILE.
01 OUTREC PIC X(80).
WORKING-STORAGE SECTION.
01 WS-REC PIC X(80).
77 EOF PIC X.
PROCEDURE DIVISION.
PARA-1.
OPEN INPUT INFILE.
OPEN I-O OUTFILE.
PERFORM PROCESS-PARA.
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
PROCESS-PARA.
READ INFILE INTO WS-REC.
WRITE OUTREC FROM WS-REC.
END-WRITE.
PROGRAM-ID. PS2ESDS.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
FILE STATUS IS FS
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC PIC X(80).
FD OUTFILE.
01 OUTREC PIC X(80).
WORKING-STORAGE SECTION.
01 WS-REC PIC X(80).
77 EOF PIC X.
PROCEDURE DIVISION.
PARA-1.
OPEN INPUT INFILE.
OPEN I-O OUTFILE.
PERFORM PROCESS-PARA.
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
PROCESS-PARA.
READ INFILE INTO WS-REC.
WRITE OUTREC FROM WS-REC.
END-WRITE.
srikantha.s