× 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.



This is why I always put in a

CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)

at the beginning of all my system startup programs, this way I know I get a job log and I can see all the details in the job log if anything happens in my startup. I want to know if things go right or not, especially if there are a lot of MONMSG CPF0000 . I wrote an article on this in September 2009 in my newsletter, it's the 2nd article for more details. http://www.itechsol.com/newsletters/2009-09.html

Pete

--
Pete Massiello
iTech Solutions
http://www.itechsol.com
http://www.iInTheCloud.com




-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of optional info0rmation
Sent: Wednesday, October 09, 2013 8:48 PM
To: 'Midrange Systems Technical Discussion'
Subject: V5R4 CLP question

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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


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.