DSNTEJ1T
THIS JCL LOADS THE SYSIBM.
//**********************************************************************00010000
//* NAME = DSNTEJ1T *00020000
//* *00030000
//* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION *00040000
//* PHASE 1 (LOCAL SITE ONLY) *00050000
//* *00060000
//* LICENSED MATERIALS - PROPERTY OF IBM *00070000
//* 5675-DB2 *00080000
//* (C) COPYRIGHT 1982, 2000 IBM CORP. ALL RIGHTS RESERVED. *00090000
//* *00100000
//* STATUS = VERSION 7 *00110000
//* *00120000
//* FUNCTION = THIS JCL LOADS THE SYSIBM.SYSSTRINGS TABLE WITH ROWS *00130000
//* WHICH DESCRIBE CODE PAGE CONVERSION FROM RS/6000 TO *00140000
//* DB2. *00150000
//* *00160000
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *00170000
//* * NOTE: DO -NOT- RUN THIS JOB AS PART OF THE DB2 INSTALLATION * *00180000
//* * VERIFICATION PROCESS (IVP). USE IT -ONLY- TO ADD * *00190000
//* * CODE PAGE CONVERSION DATA TO SYSIBM.SYSSTRINGS. SEE * *00200000
//* * SEE APPENDIX B OF THE DB2 INSTALLATION GUIDE FOR IN- * *00210000
//* * FORMATION ABOUT ADDING CODE PAGE CONVERSION DATA. * *00220000
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *00230000
//* *00240000
//* NOTICE = *00250000
//* THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE *00260000
//* ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF *00270000
//* A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL *00280000
//* PRODUCT BEING LICENSED AND INSTALLED IN YOUR ENVIRONMENT. *00290000
//* *00300000
//* CHANGE ACTIVITY = *00310000
//**********************************************************************00320000
//* 00330000
//* 00340000
//JOBLIB DD DSN=DSN!!0.SDSNLOAD,DISP=SHR 00350000
//* 00360000
//* LOAD DATA INTO SYSIBM.SYSSTRINGS TABLE 00370000
//PH01TS01 EXEC DSNUPROC,PARM='DSN,DSNTEX' 00380000
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR 00390000
//SORTOUT DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) 00400000
//SORTWK01 DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) 00410000
//SORTWK02 DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) 00420000
//SORTWK03 DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) 00430000
//SORTWK04 DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) 00440000
//DSNTRACE DD SYSOUT=* 00450000
//SYSRECST DD DSN=DSN!!0.SDSNSAMP(DSN8LST), 00460000
// DISP=SHR 00470000
//SYSUT1 DD UNIT=SYSDA,SPACE=(4000,(50,50),,,ROUND) 00480000
//SYSIN DD * 00490000
00500000
LOAD DATA INDDN(SYSRECST) CONTINUEIF(80:80)='X' RESUME(YES) 00510000
INTO TABLE SYSIBM.SYSSTRINGS 00520000
(INCCSID POSITION( 1) INTEGER EXTERNAL(5), 00530000
OUTCCSID POSITION( 7) INTEGER EXTERNAL(5), 00540000
TRANSTYPE POSITION( 13) CHAR(2), 00550000
ERRORBYTE POSITION( 16) CHAR(1) NULLIF(ERRORBYTE=' '), 00560000
SUBBYTE POSITION( 18) CHAR(1) NULLIF(SUBBYTE=' '), 00570000
TRANSPROC POSITION( 20) CHAR(8), 00580000
IBMREQD POSITION( 29) CHAR(1), 00590000
TRANSTAB POSITION( 31) CHAR(256) 00600000
DEFAULTIF(TRANSTYPE='GG')) 00610000
//* 00620000