In order to run a VISION:Interface for IMS with VISION:Results as a BMP, you must change the execution parameter from DLI to BMP and point to an appropriate PSB.
The following VISION:Interface for IMS maintenance is required to avoid U0476 abends:
PTF 2003 Access I/O PCB under BMP or do a 'SYNC' or 'CHKP' call to IMS.
PTF 2005 Run VISION:Interface for IMS in a BMP and use all valid commands.
PTF 2006 Do a 'ROLB' function call to IMS.
To determine whether these patches are applied, run a DUMPT against module DYLTDLI:
//S2 EXEC PGM=IMASPZAP,PARM=IGNIDRFULL
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=your.ResultsIMSinterface.loadlib,DISP=SHR
//SYSIN DD *
DUMPT DYLTDLI DYLTDLII
Review the SYSPRINT and note that if they are applied:
PTF 2003 will display value 4780 at location 009E,
PTF 2005 will display value 47F0 at location 02A6,
PTF 2006 will display value 5810 at location 00B6.
Also note that you must use PCB0 in your program to access the I/O PCB.
Here is an example using the function CHKP and moving it to the I/O PCB:
DBDNAME 8 1 VALUE 'DBDACCT '
SEGLEVEL 2 9
STATUSCODE 2 11
PROCOPTS 4 13
FILLER 4 17
SEGNAME 8 21
FBKEYLEN 4 29 BI
NBRSENSEGS 4 33 BI
FBKEY 64 37
MOVE 'PCB0' TO DBDNAME
CALL DYLTDLI USING DYLDLA CHKP PCBNAME RECORD