Re: V5R4 CLP question

RTVCLSRC will renumber the source.
So if original pgm did this :

1.00
1.11
2.37
....
72.00
73.00 some cmd that blows up
74.00

you will get 7300 in the error msg.

This command should get you the job log of the startup job. Look for the error in there.
WRKSPLF SELECT(*ALL *ALL *ALL QSTRUPJD)

And I would always monitor msg any user code in the startup.

Jim Franz

----- Original Message ----- From: "optional info0rmation" <ldwopt@xxxxxxx>
To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
Sent: Wednesday, October 09, 2013 8:47 PM
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.