i am trying to compile a copybook, the copybook is:
EDIT Z80076.SAMPLE.SANDEEP(F040860) - 01.03 Columns 00001 00072
Command ===> Scroll ===> PAGE
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 01 WS-RECORD.
000002 05 WS-NAME PIC X(26).
000003 05 WS-NUMBER PIC 9(10).
000004 05 WS-AGE PIC 9(02).
****** **************************** Bottom of Data ****************************
Command ===> Scroll ===> PAGE
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 01 WS-RECORD.
000002 05 WS-NAME PIC X(26).
000003 05 WS-NUMBER PIC 9(10).
000004 05 WS-AGE PIC 9(02).
****** **************************** Bottom of Data ****************************
on compile submission the Max CC is 0008 and the error is:
ZWB
PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.3.0 P200319 CBLNAM01 Date 04
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6---
000001 01 WS-RECORD.
==000001==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000002 05 WS-NAME PIC X(26).
==000002==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000003 05 WS-NUMBER PIC 9(10).
==000003==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000004 05 WS-AGE PIC 9(02).
==000004==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.3.0 P200319 CBLNAM01 Date 04
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6---
000001 01 WS-RECORD.
==000001==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000002 05 WS-NAME PIC X(26).
==000002==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000003 05 WS-NUMBER PIC 9(10).
==000003==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
of the next entry.
000004 05 WS-AGE PIC 9(02).
==000004==> IGYDS1022-E A data-name or file-name definition was found outside of
DIVISION". Scanning was resumed at the next area "A" it
please help out.
many thanks,
sandeep.