I created two module then bound them to an executable PROGB. When executed, i get "Pointer not set for location referenced. " This should be so simple to fix but I do not see the issue. Thoughts?
PROGRAM PROGB -calling program
Ctl-Opt DEBUG OPTION(*SRCSTMT);
D PROGA PR Extpgm('PROGA')
D 2 0
D 9 0
D $Xacmp s 2 0
$Xacmp = 1;
Callp PROGA($Xacmp);
dsply %char($Xacmp);
*inlr = *on ;
PROGRAM PROGA -called program
Ctl-Opt DEBUG OPTION(*SRCSTMT);
D PROGA pr
D $Xacmp 2 0
D PROGA pi
D $Xacmp 2 0
$Xacmp = 02;
return;
CRTRPGMOD MODULE(*LIBL/PROGA) SRCFILE(*LIBL/QRPGLESRC) DBGVIEW(*ALL
CRTRPGMOD MODULE(*LIBL/PROGB) SRCFILE(*LIBL/QRPGLESRC) DBGVIEW(*ALL
CRTPGM PGM(*LIBL/PROGB) MODULE(*LIBL/PROGA *LIBL/PROGB) BNDSRVPGM((*N *IMMED)) ACTGRP(*NEW)
STRDBG PGM(*LIBL/PROGB) UPDPROD(*YES)
CALL PGM(*LIBL/PROGB)
*PS: SORRY ABOUT THE FIXED LOCATIONS BEING WIPED OUT.
Thank for you responses. I gave up on this version and rewrote in RPGILE always free and it worked the first time.
PROGRAM PROGB -calling program
Ctl-Opt DEBUG OPTION(*SRCSTMT);
D PROGA PR Extpgm('PROGA')
D 2 0
D 9 0
D $Xacmp s 2 0
$Xacmp = 1;
Callp PROGA($Xacmp);
dsply %char($Xacmp);
*inlr = *on ;
PROGRAM PROGA -called program
Ctl-Opt DEBUG OPTION(*SRCSTMT);
D PROGA pr
D $Xacmp 2 0
D PROGA pi
D $Xacmp 2 0
$Xacmp = 02;
return;
CRTRPGMOD MODULE(*LIBL/PROGA) SRCFILE(*LIBL/QRPGLESRC) DBGVIEW(*ALL
CRTRPGMOD MODULE(*LIBL/PROGB) SRCFILE(*LIBL/QRPGLESRC) DBGVIEW(*ALL
CRTPGM PGM(*LIBL/PROGB) MODULE(*LIBL/PROGA *LIBL/PROGB) BNDSRVPGM((*N *IMMED)) ACTGRP(*NEW)
STRDBG PGM(*LIBL/PROGB) UPDPROD(*YES)
CALL PGM(*LIBL/PROGB)
*PS: SORRY ABOUT THE FIXED LOCATIONS BEING WIPED OUT.
Thank for you responses. I gave up on this version and rewrote in RPGILE always free and it worked the first time.
Comment