|
View previous topic :: View next topic
|
| Author |
Message |
prabeesh
Currently Banned
New User
Joined: 07 Dec 2006
Posts: 9
Location: chennai
|
|
|
|
FD PRAB-FILE
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 0 RECORDS
RECORD CONTAINS 52 CHARACTERS
DATA RECORD IS PRAB-REC.
01 PRAB-REC.
02 FILLER PIC X(10).
02 PRAB-KEY PIC X(4).
02 FILLER PIC X(38).
I defined a file section like this for a file . After compiling I got an error like this
"THE "LABEL" CLAUSE WAS PROCESSED AS COMMENTS FOR THIS FILE DEFINITION."
"THE "BLOCK CONTAINS" CLAUSE WAS PROCESSED AS COMMENTS FOR THIS FILE DEFINITION." |
|
| Back to top |
|
 |
prav_06
Warnings : 1
Active User
Joined: 13 Dec 2005
Posts: 154
Location: The Netherlands
|
|
|
|
Hi Prabesh,
I had copied your code and compiled the same , i did not get any error for this code try to recompile the pgm and check if u could provide the entire error message(Spool display) it would be more useful . Please find my spool display below
P 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 PRAV
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+-
000001 ID DIVISION.
000002 PROGRAM-ID. PRAV.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT PRAB-FILE ASSIGN TO DD1.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD PRAB-FILE
000009==> IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "
000010 LABEL RECORDS ARE STANDARD
000011 BLOCK CONTAINS 0 RECORDS
000012 RECORD CONTAINS 52 CHARACTERS
000013 DATA RECORD IS PRAB-REC.
000014 01 PRAB-REC.
000015 02 FILLER PIC X(10).
000016 02 PRAB-KEY PIC X(4).
000017 02 FILLER PIC X(38).
000018 WORKING-STORAGE SECTION.
000019 77 WS-VAR1 PIC X(5) VALUE 'MADAM'.
000020 77 WS-VAR2 PIC X(5).
000021 77 WS-A PIC X(1).
000022 77 WS-B PIC X(1).
000023 77 WS-C PIC X(1).
000024 77 WS-D PIC X(1).
000026 PROCEDURE DIVISION.
000027 PARA1.
000028 OPEN INPUT PRAB-FILE.
000029 CLOSE PRAB-FILE.
000030 UNSTRING WS-VAR1 INTO
000031 WS-A
000032 WS-B
000033 WS-C
000034 WS-D
000035 WS-E.
000036 STRING WS-E WS-D WS-C WS-B WS-A DELIMITED BY SIZE
000037 INTO WS-VAR2.
000038 DISPLAY WS-VAR2.
000039 IF WS-VAR1 = WS-VAR2 THEN DISPLAY 'ITS A PALINDROME'
000040 1 ELSE DISPLAY 'ITS NOT A PALINDROME'.
000041 STOP RUN.
5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 PRAV Date 01
"M" preceding a data-name reference indicates that the data-name is modified
efined Cross-reference of data names References
Cheer's,
Thamilzan. |
|
| Back to top |
|
|
donevin
New User
Joined: 07 Jun 2005
Posts: 70
Location: South Africa
|
|
|
|
| You sure it's not warnings? |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Both warnings because it is a VSAM file.
| Quote: |
The LABEL RECORDS clause indicates the presence or absence of labels. If it is not specified for a file, label records for that file must conform to the system label specifications.
For VSAM files, the LABEL RECORDS clause is syntax checked, but it has no effect on the execution of the program. COBOL label processing, therefore, is not performed. |
| Quote: |
| The BLOCK CONTAINS clause can be omitted when the associated File Control entry specifies a VSAM file; the concept of blocking has no meaning for VSAM files; the clause is syntax checked, but it has no effect on the execution of the program. |
|
|
| Back to top |
|
|
|
|
