ESDS Question



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

ESDS Question

Postby srimaruthi001 » Wed Jul 23, 2008 5:11 pm

I'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...........

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.     


srikantha.s
srimaruthi001
 
Posts: 1
Joined: Wed Jul 23, 2008 4:59 pm
Has thanked: 0 time
Been thanked: 0 time

Re: 01 level redefined 10 times.

Postby dick scherrer » Thu Jul 24, 2008 5:25 am

Hello srikanth and welcome to the forums,

When you have a queston, please start a new topic for your question rather than posting a reply to some existing topic.

Change your SELECT for the esds to reflect an esds - something like:
"assign to ut-as-dd". and recompile. Was there some reason you chose open i-o?

Please post the jcl/control statements from where you defined the vsam file.

Please post the execution jcl for the program.

Please post any/all diagnostic nfo generated by the run.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post