I have requirement to invoke the existing MPP IMS Online program through a BMP batch process, where reading the transaction details from a input file and write it to IMS Queue per transaction data layout, this will trigger the existing IMS online screen program and get the response for IMS-DB enquiry per I/O layout for the BMP program.
Here I followed below steps in a batch program via BMP process-
Code:
1. Setup transaction data for Online program
CALL PLITDLI (ARG3, CHNG, ALT_PTR, 'TRANCODE ');
2. Insert transaction data to the IMS Queue
CALL PLITDLI (ARG3,ISRT,ALT_PTR,IOAREA);
3. Read the response in batch program
CALL PLITDLI (ARG3,GU,IO_PTR,IOAREA);
My program is failing at 3rd step when reading the response from IMS Queue with Status Code = 'AD'
Note: I am using a existing PSB which is doing I/O operation for ALT_PTR with PCB option 'MODIFY = 'Y'
Can anyone please suggest if I am missing anything or what could be reason for the error.
I have requirement to invoke the existing MPP IMS Online program through a BMP batch process, where reading the transaction details from a input file and write it to IMS Queue per transaction data layout, this will trigger the existing IMS online screen program and get the response for IMS-DB enquiry per I/O layout for the BMP program.
Here I followed below steps in a batch program via BMP process-
Code:
1. Setup transaction data for Online program
CALL PLITDLI (ARG3, CHNG, ALT_PTR, 'TRANCODE ');
2. Insert transaction data to the IMS Queue
CALL PLITDLI (ARG3,ISRT,ALT_PTR,IOAREA);
3. Read the response in batch program
CALL PLITDLI (ARG3,GU,IO_PTR,IOAREA);
My program is failing at 3rd step when reading the response from IMS Queue with Status Code = 'AD'
Note: I am using a existing PSB which is doing I/O operation for ALT_PTR with PCB option 'MODIFY = 'Y'
Can anyone please suggest if I am missing anything or what could be reason for the error.
Also, how we know if my MPP program is triggered after ISRT function put message to Queue successfully ( STATUS CODE = ' ') ?
Thanks for the reply. Now the BMP batch process is completing successful i.e the job completed with MAXCC = 0.
But the online transaction program(which should start with transaction trigger) is not getting started, means through my BMP batch program I am inserting the transaction data to IMS Queue through CHG, ISRT and reading IOAREA through GU DLI call, but as a result getting same message as input not the expected output enquiry data.
I put some display statement in Online program to check if program initiated once transaction TRAN1 is added to queue. But no display statement found in online IMSLOG.
Also, check the /for dis tran TRAN1 and seeing the ENCQT count is increasing on every run. That means my transaction is writing to IMS Queue but the associate online transaction program is not getting started and when reading this IOARA through GU call reading the same Input transaction data.
The Online IMS log showing the log of BMP process as started and stopped.
Can I get any suggestion on - why the online program is not getting initiated though the Transaction is getting inserted to IMS Queue.
