IDMS ZBIND Exit (CMS Only)

You can write a program named ZBIND that uses standard IBM calling conventions and link-edit it with the Data Adapter IDMSR module (located in the FOCINT LOADLIB on the FOCUS production disk). When a user executes a FOCUS TABLE request against an IDMS database, the IDMS Data Adapter calls the ZBIND exit before issuing the IDMS BIND RUN UNIT command.

A sample COBOL program, located on the tape as filename ZBINDPGM, can be used to check if a user has authorization to access the subschema that is associated with the FOCUS request. There are six parameters passed to the program from the IDMS Data Adapter (see IDMS ZBIND Exit (MVS Only) for further information).

The following EXEC, GENIDMEX can be used to link edit the ZBIND user written program with the IDMSR interface module.

Address 'COMMAND'
Trace 'O' 
'ERASE LINKCTL DATA A'
mode  = ' MODE AMODE(31),RMODE(ANY)'
incl1 = ' INCLUDE EXIT'
incl2 = ' INCLUDE OLDMOD(IDMSR)'
entry = ' ENTRY IDMSR'
name  = ' NAME  IDMSR(R)'

diskio = 'EXECIO 1 DISKW LINKCTL DATA A 0 F 80 ( STRING'
'FILEDEF * CLEAR'
diskio mode
diskio incl1
diskio incl2
diskio entry
diskio name
'FINIS LINKCTL DATA A' 

'FILEDEF exit DISK ZBIND TEXT A'
'FILEDEF oldmod DISK FOCINT LOADLIB A (RECFM U '
'FILEDEF syslmod DISK FOCINT LOADLIB A (CHANGE '
'LKED LINKCTL (LIBE FOCINT DISK MAP LET LIST NCAL SIZE 900K 64K'
Exit 0

where:

exit

Is the file containing ZBIND object code.

oldmod

Is the LOADLIB containing the IDMSR module.

syslmod

Is the LOADLIB to contain the new IDMSR load module.