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.
//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
|
Copyright © 2013 CA.
All rights reserved.
|
|