Greetings from a not so sunny but forecast to be a very wet Ireland.......
When calling the program, are you calling it passing in the three
parameters? Have you tried calling it passing in the 05 name instead of
the three 10 level names? I've seen this cause errors when getting Cobol
to call a CL program, if the CL program only have one variable in the PGM
section.
HTH
JP
Bank of Ireland - Enterprise Solutions & Services.
Please log all calls with the helpdesk first, phone: 01 638 6316.
t:+353 (0)1 616 7909
f:+353 (0)1 856 0315
Bank of Ireland incorporated in Ireland with Limited Liability.
Registered Office - Head Office, Lower Baggot Street, Dublin 2. Registered
Number - C-1
Bank of Ireland is regulated by the Financial Regulator in Ireland and
authorised by the Financial Services Authority in the UK.
Security Classification - Amber Confidential to Bank of Ireland Group Staff
and authorised third parties ; Not for further distribution.
|---------+------------------------------->
| | "RWMunday" |
| | <rwmunday@earthlink.|
| | net> |
| | Sent by: |
| | cobol400-l-bounces@m|
| | idrange.com |
| | |
| | |
| | 07/08/2009 01:52 |
| | Please respond to |
| | COBOL Programming on|
| | the iSeries/AS400 |
| | |
|---------+------------------------------->
>------------------------------------------------------------------------------------------------------------------------------|
| |
| To: "'COBOL Programming on the iSeries/AS400'" <cobol400-l@xxxxxxxxxxxx> |
| cc: |
| Subject: [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 queue
which was written in 1993 and has no documentation. I attempted to rewrite
it in RPG /Free but gave up and tried a different approach... modify an
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 does
precisely what is necessary to get this number from the data queue. My
problem is that it doesn't work and gives a really nasty error when one of
the internal routines makes a call to an outside program and passes parms.
While running it through debug and checking the values of each field each
step of the way, I discovered that elements of the parms in the offending
call `do not exist`. They are arranged thus:
05 Parm-Field-One.
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 other
two list as "Identifier Does Not Exist". I thought it may have been the
positioning of subfields two and three but I have another parm field with
four elements... it finds one and four but two and three do not exist.
My clone has all of the necessary elements of the original which works.
Why
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
(company directive).
Thanks,
Robert Munday
Munday Software Consultants
Montgomery, AL
On assignment in Jacksonville, FL
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/cobol400-l.
<PRE>
**************************
</PRE>
This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify us immediately at MailMonitor@xxxxxxxxxxx and delete this E-mail from your system. Thank you. It is possible for data transmitted by email to be deliberately or accidentally corrupted or intercepted. For this reason, where the communication is by email, the Bank of Ireland Group does not accept any responsibility for any breach of confidence which may arise through the use of this medium. This footnote also confirms that this email message has been swept for the presence of known computer viruses.
<PRE>
Bank of Ireland incorporated in Ireland with Limited Liability.
Registered Office - Head Office, Lower Baggot Street, Dublin 2.
Registered Number - C-1.
</PRE>
Bank of Ireland is regulated by the Financial Regulator in Ireland and authorised by the Financial Services Authority in the UK.
<PRE>
**************************
</PRE>
midrange.com
