Previous Topic: Executing DBOMP Assembler ProgramsNext Topic: Assembling and Executing Under Z/VSE


Assembling and Executing Under z/OS

z/OS/Central Version

The following is the JCL for assembling and executing DBOMP Assembler programs using the transparency, in a z/OS operating system, under the central version.

Assemble/Execute DBOMP Assembler Program Using the Transparency (IMBSBRDG) (z/OS)
//ASMTABLE    EXEC ASMA90
//ASM.SYSLIB    DD DISP=SHR,DSN=yourHLQ.CAGJSRC
//              DD DISP=SHR,DSN=imbs.srclib
//ASM.SYSIN     DD DISP=SHR,DSN-yourHLQ.CAGJSRC(imbstab)
//LKED.SYSLMOD  DD DISP=SHR,DSN=imbs.loadlib(imbstab)
//*
//ASMPROG       EXEC ASMA90
//ASM.SYSLIB    DD DISP=SHR,DNS=cfms.srclib
//ASM.SYSIN     DD *
  DBOMP program statements
  END
/*
//LKED.SYSLMOD  DD DISP=SHR,DSN=user.loadlib(pgmname)
//LKED.IDMSLIB  DD DISP=SHR,DSN=idms.loadlib
//LKED.IMBSLIB  DD DISP=SHR,DSN=imbs.loadlib
  INCLUDE IDMSLIB(IDMS)
  INCLUDE IMBSLIB(IMBSBRDG
  INCLUDE IMBSLIB(imbstab)
  INCLUDE IMBSLIB(IMBSEQ)
/*
//RUNPROG    EXEC PGM=pgmname 
//STEPLIB      DD DSN=user.loadlib,DISP=SHR
               DD DSN=idms.dba.loadlib,DISP=SHR
               DD DSN=idms.loadlib,DISP=SHR
additional JCL for application program, as required 
//SYSOUT       DD SYSOUT=A
//SYSUDUMP     DD SYSOUT=A
//SYSCTL       DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS      DD *
DMCL=dmcl-name 
Other SYSIDMS parameters, as appropriate 
/*
program input, as required

Include as many STEPLIB DD statements as there are libraries containing program, CA IDMS DBOMP Transparency Transparency, and CA IDMS/DB load modules.

Note: If you are going to use the transparency frequently under the central version, consider making IMBSPROC and any applicable subschemas resident. Assemble and link IMBSEQ as described previously and include it on the link edit of the application. For more information on optional SYSIDMS runtime parameters, see the CA IDMS Common Facilities Guide.

z/OS/Local Mode

To run the same job in local mode, substitute the following statements after the //STEPLIB statement:

//STEPLIB      DD DSN=user.loadlib,DISP=SHR
//             DD DSN=imbs.loadlib,DISP=SHR
//             DD DSN=idms.dba.loadlib,DISP=SHR
//             DD DSN=idms.loadlib,DISP=SHR
//sysjrnl  DD DSN=idms.tapejrnl,DISP=(NEW,PASS),
//                UNIT=tape 
//userdd       DD DSN=database,DISP=(OLD,PASS)
//SYSIDMS      DD *
DMCL=dmcl-name 
additional SYSIDMS parameters, as appropriate 
/*
additional database file assignments, as required 
additional JCL for application program, as required 
//SYSOUT       DD SYSOUT=A
//SYSUDUMP     DD SYSOUT=A
program input, as required

Explanation of Variables

yourHLQ.CAGJMAC

Dataset name for CA IDMS/DB macro library

imbs.srclib

Dataset name for the transparency or CA IDMS/DB source library containing IMBS customizing macro

disk

Symbolic device name for disk unit

&.&object.

Temporary dataset name for IMBSTAB object module

imbs.srclib(imbstab)

Dataset name for user parameters input to IMBS customizing macro

idms.dba.loadlib

Dataset name for the load library containing the DMCL and database name table load modules

idms.loadlib

Dataset name for the load library containing CA IDMS executable modules

imbs.loadlib

Dataset name for the transparency or CA IDMS/DB load library containing transparency modules

imbstab

Dataset name for link edited output from IMBS macro

cfms.maclib

Dataset name for user macro library

user.loadlib

Dataset name for load library containing DBOMP application program

pgmname

Name of DBOMP application program

dmcl-name

Name of the CA IDMS DMCL describing the CA IDMS files used by the transparency

sysjrnl

DD name for CA IDMS/DB journal file

idms.tapejrnl

Dataset name for CA IDMS/DB journal file

tape

Symbolic device name for CA IDMS/DB journal file

userdb

DD name for CA IDMS/DB database file

user.userdb

Dataset name for CA IDMS/DB database file

sysctl

Dataset name for the SYSCTL file

CA IDMS DBOMP Transparency database procedure