Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error with defining file-names as not defined

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Error with defining file-names as not defined
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: 1452
Location: Chicago, IL

PostPosted: Mon Oct 23, 2006 8:13 pm    Post subject: Re: problems with defining file-names
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    Post subject: Re: problems with defining file-names
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: 1452
Location: Chicago, IL

PostPosted: Wed Oct 25, 2006 12:46 am    Post subject: Re: problems with defining file-names
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts RFE: DB2 support for mixed case names. Pedro DB2 0 Tue Jul 04, 2017 1:32 am
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us