IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error with defining file-names as not defined


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Mon Oct 23, 2006 6:35 pm
Reply with quote

these are my errors

74 IGYPS2121-S "COMPANY-NAME-E" WAS NOT DEFINED AS A DATA-NAME. THE

78 IGYPS2121-S "EMPLOYEE-TITLE-OUT" WAS NOT DEFINED AS A DATA-NAME.

79 IGYPS2121-S "OUPUT-LINE" WAS NOT DEFINED AS A DATA-NAME. THE STA

79 IGYPS2121-S "EMPLOYEE-LINE-OUT" WAS NOT DEFINED AS A DATA-NAME.

80 IGYPS2122-S "EMPLOYEE-DATA-IN" WAS NOT DEFINED AS A FILE-NAME. T


and this is my 74, 78, 79, 80

000074 MOVE COMPANY-NAME-IN TO COMPANY-NAME-E
000075 MOVE STREET-ADDRESS-IN TO STREET-ADDRESS-OUT
000076 MOVE CITY-STATE-ZIP-IN TO CITY-STATE-ZIP-OUT
000077 MOVE EMPLOYEE-NAME-IN TO EMPLOYEE-NAME-OUT
000078 MOVE EMPLOYEE-TITLE-IN TO EMPLOYEE-TITLE-OUT
000079 WRITE OUPUT-LINE FROM EMPLOYEE-LINE-OUT
000080 READ EMPLOYEE-DATA-IN
000081 AT END

if anyone can help me out plz do
thx alot and sorry if it has this similar thread was posted but i couldn't find it.
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Mon Oct 23, 2006 8:13 pm
Reply with quote

Did you define all these variables in your Working Storage ??
Back to top
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Wed Oct 25, 2006 12:26 am
Reply with quote

this my working storage

WORKING-STORAGE SECTION.
01 MORE-INPUT PIC X(1) VALUE "Y".

01 COMPANY-NAME-OUT.
05 COMPANY-NAME-OUT PIC X(15).
05 STREET-ADDRESS-OUT PIC X(15).
05 CITY-STATE-ZIP-OUT PIC X(15).
05 EMPLOYEE-NAME-OUT PIC X(20).
05 EMPLOYES-TITLE-OUT PIC X(15).

01 HEADING-LINE-1.
05 COMPANY-NAME PIC X(7) VALUE "COMPANY".
05 STREET-ADDRESS PIC X(14) VALUE "STREET ADDRESS".
05 CITY-STATE-ZIP PIC X(14) VALUE "CITY STATE ZIP".
05 EMPLOYEE-NAME PIC X(13) VALUE "EMPLOYEE NAME".
05 EMPLOYEE-TITLE PIC X(14) VALUE "EMPLOYEE TITLE".
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Wed Oct 25, 2006 12:46 am
Reply with quote

COMPANY-NAME-E : Dont find in your working storage
EMPLOYEE-TITLE-OUT : You have defined it as EMPLOYES-TITLE-OUT
OUPUT-LINE : Dont find in your working storage
EMPLOYEE-LINE-OUT : Dont find in your working storage
EMPLOYEE-DATA-IN : Dont find in your working storage

Why not to make a search in the code and check yourself that what you have defined and what you are using.
Back to top
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Wed Oct 25, 2006 1:38 am
Reply with quote

yea i got it
u were right priyesh.agrawal thanks atlot
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 1
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top