Joined: 25 Nov 2010 Posts: 70 Location: Sivakasi, India
This is my COBOL program :
SELECT FILE1 ASSIGN TO DDNAME1.
LABEL RECORDS ARE STANDARD.
BLOCK CONTAINS 6 RECORDS.
01 REC1 PIC IS X(80).
01 FLAG PIC IS X(1) VALUE IS 'N'.
88 EOF VALUE 'Y'.
05 VAR1 PIC IS X(80).
OPEN INPUT FILE1.
PERFORM UNTIL EOF
READ FILE1 AT END MOVE 'Y' TO FLAG
NOT END DISPLAY REC1
While compiling this program, i am getting MAXCC = 12 with the following msgs.
"LABEL" was invalid. Scanning was resumed at the next area "A" item, level-number, or the start of the next clause.
"BLOCK" was invalid. Scanning was resumed at the next area "A" item, level-number, or the start of the next
The purpose of adding these statements was, i was told by my friend that " if the file was initially created with the DCB parameter BLKSIZE=400 bytes and if we refer this file in our COBOL prgm and include BLOCK CONTAINS 6 RECORDS for it (6 * 80 = 480 bytes-which is more than the actual block size in which with the file was created initially), there will be an error". To test this i was trying to write this. But above was the error.
This is the version i am using :
IBM Enterprise COBOL for z/OS 4.2.0