× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



As previous explained RTVCLSRC will get you new line numbers. Look for the statement

STRSBS ZMPLUS

This is the statement that is failing. I suspect that there will be no MONMSG beneath this statment as there are beneath nearly every other statement in the program. Oops!


- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 10/9/2013 8:47 PM, optional info0rmation wrote:
*This message was transferred with a trial version of CommuniGate(r) Pro*
Good evening



Here is the situation



V5R4 System

QSTRUP in QGPL is defined in sysval

System is IPLed and the QSTRUP aborts on line 73



Message ID . . . . . . : CPA0701 Severity . . . . . . . : 99

Message type . . . . . : Inquiry

Date sent . . . . . . : 09/06/13 Time sent . . . . . . : 21:35:13



Message . . . . : CPF1010 received by QSTRUP at 7300. (C D I R)

Cause . . . . . : Control language (CL) program QSTRUP in library QGPL

detected an error at statement number 7300. Message text for CPF1010 is:

Subsystem name ZMPLUS active.

Recovery . . . : This inquiry message can be avoided by changing the

program. Monitor for the error (MONMSG command) and perform error recovery

within the program. To continue, choose a reply value.

Possible choices for replying to message . . . . . . . . . . . . . . . :

C -- Cancel the CL program.

D -- Dump the CL program variables and cancel the CL program.

I -- Ignore the failing command.





I looked at the QCLSRC in QGPL for QSTRUP and looked for line 73

There was no line 73 It ended at line 63



I know the problem, source and object are not the same



I did a RTVCLSRC and named it QSTRUP2

I went in and looked at the source code and the 2 source codes were the
same.



I compiled QSTRUP2 and the printout of the compiled program only shows 63
lines



How can I have a program abort on line 73 with only 63 lines in the total
program?



Thanks in advance



Dave Willenborg

FNTS

Omaha NE


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.