----- Message from "RWMunday" <rwmunday@xxxxxxxxxxxxx> on Thu, 6 Augqueue
2009 20:52:31 -0400 -----
"'COBOL Programming on the iSeries/AS400'" <cobol400-l@xxxxxxxxxxxx>
[COBOL400-L] Identifier Does Not Exist
Greeting from sunny Florida.
I'm a trained but infrequent COBOL programmer working in a multilingual
shop. I must utilize a routine to get a sequence number from a data
which was written in 1993 and has no documentation. I attempted torewrite
it in RPG /Free but gave up and tried a different approach... modify andoes
existing functioning COBOL program and call it from my RPG program. By
copying out only the routines I needed, I've created a program which
precisely what is necessary to get this number from the data queue. Myof
problem is that it doesn't work and gives a really nasty error when one
the internal routines makes a call to an outside program and passesparms.
While running it through debug and checking the values of each fieldeach
step of the way, I discovered that elements of the parms in theoffending
call `do not exist`. They are arranged thus:other
10 Subfield-One Pic X(10) Value("PROGRAM")
10 Subfield-Two Pic X(10) Value("*LIBL")
10 Subfield-Three Pix X(10) Value("*ALL")
When I run the program through debug, subfield one is blank and the
two list as "Identifier Does Not Exist". I thought it may have been thewith
positioning of subfields two and three but I have another parm field
four elements... it finds one and four but two and three do not exist.Why
My clone has all of the necessary elements of the original which works.
would 10 level defined fields not be available to my program?
If you reply after 7am eastern Friday, please write to me at
RMunday@xxxxxxxxxxxxx as I do not have access to online e-mail at work
Munday Software Consultants
On assignment in Jacksonville, FL
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.