How to execute VISION:Results IMS Interface as a BMP?

Document ID : KB000022168
Last Modified Date : 14/02/2018
Show Technical Document Details

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:

WORKAREA                                           
   PCBNAME       100                                 
      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