/* */
TRACE OFF; SIGNAL ON ERROR
/*
----- EXEC MODIFICATIONS ----------- 'USVEXEC' SAMPLE EXEC -------
*/
DBX_LOADLIB_FN = 'dbxlib'
DBX_LOADLIB_FT = 'LOADLIB'
DBX_LOADLIB_FM = '*'
/* */
IDMS_LOADLIB_FN = 'idmslib'
IDMS_LOADLIB_FT = 'LOADLIB'
IDMS_LOADLIB_FM = '*'
/* */
SORT_SORTLIB_FN = 'sortlib'
SORT_SORTLIB_FT = 'TXTLIB'
SORT_SORTLIB_FM = '*'
/* */
USVXTRC_SYSIPT_FN = 'USVXTRC'
USVXTRC_SYSIPT_FT = 'SYSIPT''
USVXTRC_SYSIPT_FM = 'a'
/* */
MAX_RC = 0
/* */
/* */
CALL CREATE_USVXTRC_SYSIPT_FILE
/* */
CALL EXECUTE_USVXTRC
IF USVXTRC_RC > 4
THEN CALL USVXTRC_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
CALL EXECUTE_PUNCHSUB
IF USVXTRC_RC > 4
THEN CALL PUNCHSUB_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
CALL EXECUTE_ALTERSUB
IF USVXTRC_RC > 0
THEN CALL ALTERSUB_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
CALL EXECUTE_LOADSUB
IF USVXTRC_RC > 4
THEN CALL LOADSUB_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
CALL EXECUTE_USVLOAD
IF USVLOAD_RC > 4
THEN CALL USVLOAD_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
IF LOADSUB_RC = 0
THEN CALL EXECUTE_DELTSUB
IF USVXTRC_RC > 5
THEN CALL DELTSUB_ERROR
END
IF USVXTRC_RC > MAX_RC
THEN MAX_RC = USVXTRC_RC
END
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT MAX_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
CREATE_USVXTRC_SYSIPT_FILE:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
SIGNAL OFF ERROR
'ERASE' USVXTRC_SYSIPT_FN USVXTRC_SYSIPT_FT USVXTRC_SYSIPT_FM
SIGNAL ON ERROR
/* */
PUSH 'FFILE'
PUSH
PUSH ' NOCOMPARE'
PUSH ' USEREXIT=user-exit-module-name,'
PUSH ' SRCDBNODE=source-db-node-name,'
PUSH ' SRCDBNAME=source-db-or-segment-name,'
PUSH ' SRCDICTNODE=source-dictionary-node-name,'
PUSH ' SRCDICTNAME=source-dictionary-name,'
PUSH ' SRCDMCL=source-dmcl-name,'
PUSH ' SRCSUB=source-subschema-name,'
PUSH ' TRANSSUB=transient-or-target-subschema-name,'
PUSH ' PASSWORD=dictionary-password,'
PUSH ' SIGNONID=dictionary-userid,'
PUSH ' SPECNAME=selection-criteria-specification-name,'
/* PUSH ' UNLOAD,SRCSUB=source-subschema-name,' */
PUSH ' USERID=userid,'
PUSH ' PROCESS,'
PUSH 'INPUT'
PUSH 'SET LRECL 80'
PUSH 'SET RECFM F'
'XEDIT' USVXTRC_SYSIPT_FN USVXTRC_SYSIPT_FT USVXTRC_SYSIPT_FM ,
'(NOPROFILE NOSCREEN NOMSG'
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_USVXTRC:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' DBX_LOADLIB_FN IDMS_LOADLIB_FN
'FILEDEF EXTRACTS DISK FILE EXTRACTS a'
'FILEDEF COMMFILE DISK FILE COMMFILE a'
'FILEDEF SYNTAX DISK FILE SYNTAX a'
'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
'FILEDEF SYSCTL DISK fn SYSCTL fm'
'FILEDEF SYSIPT DISK' USVXTRC_SYSIPT_FN USVXTRC_SYSIPT_FT USVXTRC_SYSIPT_FM
'FILEDEF SYSLST PRINTER'
'FILEDEF SYSPRINT PRINTER'
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR EXTRACT'
'EXECOS'
'OSRUN USVXTRC'
USVXTRC_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_PUNCHSUB:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
/**********************************************************************/
/*PUNCHSUB - Punch the target-subschema to a work-file based upon * */
/* values from previous step. * */
/**********************************************************************/
/* */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' IDMS_LOADLIB_FN
'FILEDEF SYSPCH DISK FILE DDDLUPD a'
'FILEDEF SYSIPT DISK FILE SYNTAX a'
'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
'FILEDEF SYSCTL DISK fn SYSCTL fm'
'FILEDEF SYSLST PRINTER'
/* */
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR PUNCH SUBSCHEMA'
'EXECOS'
'OSRUN IDMSDDDL PARM=''CVMACH=machine-id'''
USVXTRC_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_ALTERSUB:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
/* */
/**********************************************************************/
/*ALTERSUB - Alter the target subschema contents and create a * */
/* transient working copy of the target-subschema. * */
/**********************************************************************/
/* */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' DBX_LOADLIB_FN IDMS_LOADLIB_FN
'FILEDEF INPUT DISK FILE DDDLUPD a'
'FILEDEF COMMFILE DISK FILE COMMFILE a'
'FILEDEF OUTPUT DISK FILE ALTSUB a'
'FILEDEF SYSLST PRINTER'
'FILEDEF CAIOUT PRINTER'
/* */
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR ALTER SUBSCHEMA'
'EXECOS'
'OSRUN USVSUBZ'
USVXTRC_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_LOADSUB:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
/**********************************************************************/
/*LOADSUB - Add the transient-subschema to the target dictionary * */
/* node using IDMSDDDL. * */
/**********************************************************************/
/* */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' IDMS_LOADLIB_FN
'FILEDEF SYSPCH DUMMY'
'FILEDEF SYSLST PRINTER'
'FILEDEF SYSIPT DISK FILE ALTSUB a'
'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
'FILEDEF SYSCTL DISK fn SYSCTL fm'
/* */
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR RELOAD SUBSCHEMA'
'EXECOS'
'OSRUN IDMSDDDL PARM=''CVMACH=machine-id'''
LOADSUB_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_USVLOAD:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' DBX_LOADLIB_FN IDMS_LOADLIB_FN
'GLOBAL TXTLIB' SORT_SORTLIB_FN
'FILEDEF EXTRACTS DISK FILE EXTRACTS a'
'FILEDEF WORKFILE DISK FILE WORKFILE a'
'FILEDEF COMMFILE DISK FILE COMMFILE a'
'FILEDEF SYNTAX DISK FILE SYNTAX a'
'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
'FILEDEF SYSCTL DISK fn SYSCTL fm'
'FILEDEF SYSLST PRINTER'
'FILEDEF SYSPRINT PRINTER'
'FILEDEF SORTMSG PRINTER'
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR LOAD DATABASE'
'EXECOS'
'OSRUN USVLOAD PARM=''MSGOPT=A'''
USVXTRC_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
EXECUTE_DELTSUB:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
/* */
/**********************************************************************/
/*DELTSUB - Remove the transient-subschema from the target dictionary**/
/* node using IDMSDDDL. * */
/**********************************************************************/
/* */
'FILEDEF * CLEAR'
'GLOBAL LOADLIB' IDMS_LOADLIB_FN
'FILEDEF SYSPCH DUMMY'
'FILEDEF SYSLST PRINTER'
'FILEDEF SYSIPT DISK FILE SYNTAX a'
'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
'FILEDEF SYSCTL DISK fn SYSCTL fm'
/* */
SIGNAL OFF ERROR
SAY 'STARTING CA-IDMS/DATABASE EXTRACTOR DELETE SUBSCHEMA'
'EXECOS'
'OSRUN IDMSDDDL PARM=''CVMACH=machine-id'''
USVXTRC_RC = RC
SIGNAL ON ERROR
RETURN
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
USVXTRC_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
/* */
SAY 'UNACCEPTABLE USVXTRC RETURN CODE' USVXTRC_RC
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
PUNCHSUB_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
/* */
SAY 'UNACCEPTABLE PUNCHSUB RETURN CODE' USVXTRC_RC
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
ALTERSUB_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
/* */
SAY 'UNACCEPTABLE ALTERSUB RETURN CODE' USVXTRC_RC
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
LOADSUB_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
/* */
SAY 'UNACCEPTABLE LOADSUB RETURN CODE' USVXTRC_RC
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
USVLOAD_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
SAY 'UNACCEPTABLE USVLOAD RETURN CODE' USVXTRC_RC
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_RC
/* */
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
DELTSUB_ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
TRACE OFF; SIGNAL OFF ERROR
SAY 'UNACCEPTABLE DELTSUB RETURN CODE' USVXTRC_RC
/* */
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT USVXTRC_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 USVEXEC LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL sortlib'
'FILEDEF * CLEAR'
/* */
EXIT ERROR_RC
|
dbxlib |
The file name of the load library into which you downloaded CA IDMS Extractor. |
|
idmslib |
The file name of the load library which contains your CA IDMS load modules. |
|
sortlib |
The file name of the text library which contains your Sort text files. |
|
fn SYSCTL fm |
The file name, file type, and file mode of the SYSCTL file used by the Central Version (CV) during batch processing. |
|
a |
The file mode for each relevant file. If necessary, change the file name and file type to conform to your site's standards. |
|
Copyright © 2013 CA.
All rights reserved.
|
|