|
When I had a MCH3601 error I took the 'D' option. Turns out that I wasn't passing all the parameters. The program is called from a command and is a homegrown RTVJOBD. No the parameters are not in sequence, meaning I might pass parameters 1, 2 and 5. When I took the D option I noticed other variables. For example, if I had the following: Parm1 Parm2 Parm3 Parm4 Parm5 Parm6 I would also notice ptr.Parm1 ... So I did a IF %ADDR(PARM2)=*null then don't do anything at all with this parameter. A simple move *blanks PARM2 will blow up if you do. Sample code: C Detail BegSr C* We use %addr to see if the field is addressable. This will occur C* when a user uses RTVJOBD and doesn't fill out each and every one C* of the possible values. C If %addr(InlLibl) <> *NULL C Eval InlLibl = *blanks C Eval InlLibl=%subst(JOBD0100: C Offliblst+1: C NbrLibLst*11) C EndIf rattus@enterprise.net on 08/05/99 03:49:20 PM Please respond to MIDRANGE-L@midrange.com@Internet To: MIDRANGE-L@midrange.com@Internet cc: Fax to: Subject: MCH3601 is a stupid error Thank god, I thought it was just me, as our shop is new to ILE. I used RPGILE just to be able to use the longer field lengths available. One CL program called the RPG and all the parameters were OK - MCH3601 occurred after the call - someone suggested using an OVRDBF with the OPNSCOPE parameter set to *JOB (didn't help !) Regards
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN"> <HTML> <HEAD> <META content=text/html;charset=iso-8859-1 http-equiv=Content-Type> <META content='"MSHTML 4.72.3110.7"' name=GENERATOR> </HEAD> <BODY bgColor=#e0e4e0> <DIV><FONT color=#000000 size=2>Thank god, I thought it was just me, as our shop is new to ILE. I used RPGILE just to be able to use the longer field lengths available.</FONT></DIV> <DIV><FONT color=#000000 size=2>One CL program called the RPG and all the parameters were OK - MCH3601 occurred after the call - someone suggested using an OVRDBF with the OPNSCOPE parameter set to *JOB (didn't help !)</FONT></DIV> <DIV><FONT color=#000000 size=2>Regards</FONT></DIV> <DIV><FONT color=#000000 size=2></FONT> </DIV></BODY></HTML>
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
