We need to develop PF3 key functionality from PBM000A program(EGL) to COMSEC Menu.
When we press PF3 key in PBML00 screen control should be sent to "PRIMARY OPTIONS MENU".
I am calling PBM00-TSFR-PGM() function when pressing PF3 key in PBM000A program.
sysVar.transferName = "PBMEXIT";
transfer to transaction sysVar.transferName passing PBMREC1 ;
end // end PBM00-TSFR-PGM()
Record PBMREC1 type basicRecord
3 DATA char(500);
end // end PBMREC1
I have attached the source code for PBMEXIT Program and PBMEXIT PSB.
I compiled the program PBMEXIT and link edited. Also copied the load modules to the correct library where PBM000A will look for load module.
I refreshed the IMS region and pressed PF3 key from PBML00 screen.
Getting the abend as shown below.
1GU CALL STATUS CODE=
SPA LENGTH= 0
SPA TRAN CODE=
PBMEXIT PROGRAM ERROR INSERT SPA IO_PCB.STATUS_CODE=QF
PBMEXIT PROGRAM ERROR INSERT MOD IO_PCB.STATUS_CODE=QH
Kindly help us to resolve this issue.
Please let us know the reason for this abend and how to resolve this issue.
Thanks for your help & support in advance.