Pointer not set for location referenced

[PHUATEST]

Using RPG OK but convert to RPGLE not OK.

After convert from RPG to RPGLE, the error message "Pointer not set for location referenced" appear upon perform the RPGLE.

Please help and advise.

[jamief]

may we see some of the code? It seems to be a PARM thing!


jamie

[littlepd]

When I get this message, it usually means that the program is expecting to receive an input parameter that I did not pass to it when I called it. The detail text of the message should point to the variable, or the line of code in the program that contains the variable, that is causing you the problem.

[PHUATEST]

OK & TQ.
I will try to debug it.

[PHUATEST]

I have did the debug found after perform Indicator "01" for 1st record the step will goto end of source and give the above msg. Now, i will using back to RPG instead of RPGLE.

[PHUATEST]

I have few program same error ocurrs when convert from RPG to RPGLE (CVTRPGSRC). Normally 1) I will use back the original RPG program. 2) Create New RPGLE and re-do the RPG logic instead of using CVTRPGSRC. Any advise to avoid re-do/new in RPGLE.

[Zdenko]

Hi

We did CVTRPGSRC many years ago, but can't remember such troubles.
Must be a CALL problem anyway.
Check parameters on CALL.
Everything I remember, we had to comment/remove FREE opcodes.

[PHUATEST]

TQ for reply/help.
1) No FREE opcodes on RPG/RPGLE.
2) Check the parameter on CALL OK upon debug (CLLE and RPGLE).
3) I using CLLE to CALL the RPGLE.

Code on CLLE in summary:
OVRDBF FILE(FILE01) SHARE(*YES)
OPNQRYF FILE((FILE01)) QRYSLT(&QRY01)
KEYFLD((FIELD01))
CALL PGM(PGM01) PARM(&P01 &P02 &P03 &P04 &P05)
CLOF OPNID(FILE01)
DLTOVR FILE(*ALL)

[DeadManWalks]

Please show us the definitions for the variables in the Clle.
Please show us the *Entry PList for the RPG along with the definition of the parameters.

Thanks.

[PHUATEST]

I checked so many time, no problem on parm.


RPGLE Source
C************************************************* **************
C *ENTRY PLIST
C PARM P01 8
C PARM P02 30
C PARM P03 30
C PARM P04 3
C PARM P05 6

CLLE Source
DCL VAR(&P01) TYPE(*CHAR) LEN(8)
DCL VAR(&P02) TYPE(*CHAR) LEN(30)
DCL VAR(&P03) TYPE(*CHAR) LEN(30)
DCL VAR(&P04) TYPE(*CHAR) LEN(3)
DCL VAR(&P05) TYPE(*CHAR) LEN(6)
CALL PGM(PGM01) PARM(&P01 &P02 &P03 &P04 &P05)

[jamief]

YOu posted the CL that calls your RPG but not the RPG.
This is where the problem is not in your CL.

jamie

[PHUATEST]

Did i need to upload my entire source code (Old source CLP&RPG, Converted Source New source CLLE & RPGLE) and how?

[jamief]

no just the *plist to your RPG...The error is in your RPG not the CL.


jamie

[littlepd]

How to include source code in your posts.

[DeadManWalks]

Hi PHUATEST. I looked over the parms and they look good. My next thought is that you either the rpg or cl is not in your library list. So you are calling a program but it is really the old program with different Plists. Maybe?

[Zdenko]

Hi

What about different versions of the program in different libraries,
which are included in Yours *LIBL.
Mybe not the same program, but the same name ?

Try WRKOBJ OBJ(*ALL/PGMNAME) OBJTYPE(*PGM).

[PHUATEST]

Thank for reply.
1) Checked the program and *libl, all in good.
2) I have debug the RPGLE program line by line and explain in my previous mail, please refer to #5.
3) The program run in RPG mode Ok but convert to RPGLE (CVTRPGSRC) then the error message appear. Why? is the limitation convert from RPG and RPGLE?
4) Maybe the RPG itself not using correct/proper programming (old program, previous programmer done it).

[jamief]

we still didnt see your plist in rpg.

thanks
jamie

[PHUATEST]

Sorry to miss out the plist

RPGLE PLIST
0098.00      C     *ENTRY        PLIST                                                       
0099.00      C                   PARM                    $RPTCD            8                 
0100.00      C                   PARM                    $TITL1           30                 
0101.00      C                   PARM                    $TITL2           30                 
0102.00      C                   PARM                    BRID              3                 
0103.00      C                   PARM                    RPTDTE            6

RPG PLIST
0115.00      C           *ENTRY    PLIST                                        
0116.00      C                     PARM           $RPTCD  8                     
0117.00      C                     PARM           $TITL1 30                     
0118.00      C                     PARM           $TITL2 30                     
0119.00      C                     PARM           BRID    3                     
0120.00      C                     PARM           RPTDTE  6

[jamief]

Im going to say its not the plist.....
Im totally lost!

jamie