To use the preprocessor with CA ADS, see Parameters.
****************************************************************************** * MODEL JCL FOR EXECUTION OF CA IDMS/DC SORT PREPROCESSORS FOR * * ASSEMBLER, COBOL, AND PLI PROGRAMS IN CA IDMS/DC * * ENVIRONMENT. * * * * CHANGE PGM STATEMENT TO EXECUTE ONE OF THE FOLLOWING: * * * * TPSBCOBI ── COBOL, CA IDMS/DC * * TPSBASMI ── ASSEMBLER, CA IDMS/DC * * TPSBPLII ── PLI, CA IDMS/DC * * TPSBADSI ── ADS, CA IDMS/DC * * * * SYSCTL DD STATEMENT MAY, OPTIONALLY, BE USED FOR * * CA IDMS DICTIONARY USAGE. * ****************************************************************************** //TPSBXXXX EXEC PGM=TPSBXXXX //STEPLIB DD DSN=your.tpsort.loadlib,DISP=SHR // DD DSN=your.idms.loadlib,DISP=SHR //SYSCTL DD DSN=your.idms.sysctl,DISP=SHR //AUDIT DD SYSOUT=a //INPUT DD DSN=your.source.code,DISP=SHR //OUTPUT DD DSN=your.expanded.code,DISP=SHR
Exhibit 5.2: Modelz/OS JCL for Execution of CA IDMS/DC Sort
******************************************************************************
* Sample Z/OS link-edit control cards for inclusion of *
* CA IDMS/DC SORT with Assembler or COBOL programs. *
******************************************************************************
INCLUDE SYSLIB(CICS module) * Include CICS command-level language
INCLUDE SYSLIB(your program) * interface module.
INCLUDE SYSLIB(TPSET) * Include CA IDMS modules as
INCLUDE SYSLIB(IDMS module) * appropriate.
.
.
ENTRY DFHEI1 * Include for CA IDMS/DC programs.
NAME your program(R)
Exhibit 5.3: Sample Z/OS Link Edit Control Statements Assembler or COBOL
****************************************************************************** * Sample Z/OS link-edit control cards for inclusion of * * CA IDMS/DC SORT with PLI programs. * ****************************************************************************** INCLUDE SYSLIB(your program) * INCLUDE SYSLIB(TPSORT) * INCLUDE SYSLIB(TPSET) * Enter these control statements INCLUDE SSSYSLIB(IDMS) * for CA IDMS. ENTRY PLISTART * NAME your program(R) *
Exhibit 5.4: Sample Z/OS Link Edit Control Statements--PLI
// OPTION PARTDUMP // UPSI 00000001 * **** PRIVATE CORE IMAGE LIBRARY WHERE TP/SORT INSTALLED // DLBL DBMS,'your.loadlib' // EXTENT ,volser * FOR DOS/SP USE THE FOLLOWING: // LIBDEF PHASE,SEARCH=(DBMS.sublibrary,IDMS.sublibrary) * FOR Z/VSE USE THE FOLLOWING: // LIBDEF CL,SEARCH=(DBMS,IDMS) * * ************************ REPORT FILE ******************************* * // ASSGN SYS013,SYSLST * * ******* SOURCE CODE INPUT TO PREPROCESSOR ************************** * // ASSGN SYS014,SYSRDR SYNTAX FILE * * ******* PREPROCESSED SOURCE CODE FROM PREPROCESSOR ***************** * ******* USED AS INPUT BY NEXT JOB STEP ***************** * // DLBL OUTPUT,'work.file.output',0,SD // EXTENT SYS015,volser,,,00250,003 // ASSGN SYS015,DISK,VOL=volser,SHR * // EXEC TPSBXXXX,SIZE=(TPSBXXXX,400K) PLACE LANGUAGE SOURCE CODE HERE /* /& SS EOJ
Exhibit 5.5: Model Z/VSE JCL for Execution of CA IDMS/DC Sort
************************************************************************* * Sample Z/VSE link-edit control cards for inclusion of * * CA IDMS/DC SORT with Assembler or COBOL programs. * ************************************************************************* PHASE your-program,* INCLUDE CICS-module * Include CICS command level INCLUDE your-program * language interface module. INCLUDE TPSETC INCLUDE DFHEAI INCLUDE DFHEAI0 INCLUDE IDMS-module * Include CA IDMS modules as ENTRY DFHEI1 * as appropriate.
Exhibit 5.6: Sample Z/VSE Link Edit Control Statements Assembler or COBOL
************************************************************************* * Sample Z/VSE link-edit control cards for inclusion of * * CA IDMS/DC SORT with PL/I programs. * ************************************************************************* PHASE your-program,* INCLUDE your-program INCLUDE TPSETI INCLUDE IDMS ENTRY PLISTART
Exhibit 5.7: Sample Z/VSE Link Edit Control Statements--PLI
/* TPSBEXEC */ /* */ /* KEY TO VARIABLES */ /* ──────────────── */ /* */ /* ca.loadlib The filename of the load library into which */ /* you downloaded CA IDMS Tools. */ /* */ /* idms.loadlib The filename of the load library containing */ /* your IDMS SUBSCHEMA and DMCL modules. */ /* */ /* tpsprogn Change to: TPSBASMI for IDMS/DC-Assembler */ /* TPSBCOBI for IDMS/DC-COBOL */ /* TPSBPLII for IDMS/DC-PLI */ /* */ TRACE OFF; SIGNAL ON ERROR /* */ CA_LOADLIB_FN = 'ca.loadlib' IDMS_LOADLIB_FN = 'idms.loadlib' INPUT_FN = 'input-source-fn' INPUT_FT = 'input-source-ft' INPUT_FM = '*' OUTPUT_FN = 'output-source-fn' OUTPUT_FT = 'output-source-ft' OUTPUT_FM = '*' /* */ /* LINK AND ACCESS MINIDISKS CONTAINING REQUIRED LIBRARIES */ /* */ 'CP SPOOL PRINTER NOCONT CLOSE' 'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF' 'GLOBAL LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN 'FILEDEF AUDIT PRINTER' 'FILEDEF INPUT DISK ' INPUT_FN INPUT_FT INPUT_FM 'FILEDEF OUTPUT DISK ' OUTPUT_FN OUTPUT_FT OUTPUT_FM SIGNAL OFF ERROR SAY 'STARTING CA IDMS/DC SORT PREPROCESSOR' 'EXECOS OSRUN tpsprogn' TPSBXEC_RC = RC 'CP SPOOL PRINTER NOCONT' 'CP CLOSE PRINTER NAME TPSBEXEC LISTING' 'CP SPOOL PRINTER OFF' SAY 'TPSBEXEC FINISHED WITH A RETURN CODE OF' TPSBXEC_RC 'GLOBAL LOADLIB' 'FILEDEF * CLEAR' EXIT TPSBXEC_RC /* */ /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ ERROR: /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ ERROR_RC = RC TRACE OFF; SIGNAL OFF ERROR SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL 'CP SPOOL PRINTER NOCONT' 'CP CLOSE PRINTER NAME TPSBEXEC LISTING' 'CP SPOOL PRINTER OFF' 'GLOBAL LOADLIB' 'FILEDEF * CLEAR' EXIT ERROR_RC /* */
Exhibit 5.8: Z/VM EXEC for CA IDMS/DC Sort Execution ── Asm, COBOL, PLI
|
Copyright © 2013 CA.
All rights reserved.
|
|