//IBMUSERD JOB 'TRAIN-RIGHT',MSGCLASS=H,CLASS=S,                        00010000
// NOTIFY=&SYSUID                                                       00020000
//*                                                                     00030000
//PRIVPROC JCLLIB ORDER=(DSN910.PROCLIB)                                00040000
//JOBLIB  DD DSN=DSN910.DB9G.RUNLIB.LOAD,DISP=SHR                       00050000
//        DD DSN=DSN910.SDSNLOAD,DISP=SHR                               00060000
//*                                                                     00070000
//SETVARS SET SRCLIB=&SYSUID..SQLB.LIB                                  00080000
//*                                                                     00090000
//CDBTRAIN EXEC PGM=IKJEFT01,REGION=2048K                               00100000
//SYSTSPRT DD SYSOUT=*                                                  00110000
//SYSTSIN  DD *                                                         00120000
 DSN SYSTEM(DB9G)                                                       00130000
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA91)                                   00140000
//SYSPRINT DD SYSOUT=*                                                  00150000
//SYSUDUMP DD SYSOUT=*                                                  00160000
//SYSIN    DD DSN=&SRCLIB(CDBTRAIN),DISP=SHR                            00170000
//*                                                                     00180000
//CSUPP   EXEC PGM=IKJEFT01,REGION=2048K                                00190000
//SYSTSPRT DD SYSOUT=*                                                  00200000
//SYSTSIN  DD *                                                         00210000
 DSN SYSTEM(DB9G)                                                       00220000
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA91)                                   00230000
//SYSPRINT DD SYSOUT=*                                                  00240000
//SYSUDUMP DD SYSOUT=*                                                  00250000
//SYSIN    DD DSN=&SRCLIB(CSUPP),DISP=SHR                               00260000
//*                                                                     00270000
//LSUPP EXEC DSNUPROC,SYSTEM=DB9G,UID=&SYSUID.A,UTPROC=''               00280000
//DSNUPROC.SORTWK01 DD DSN=&&TEMP1,                                     00290000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00300000
//DSNUPROC.SORTWK02 DD DSN=&&TEMP2,                                     00310000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00320000
//DSNUPROC.SORTWK03 DD DSN=&&TEMP3,                                     00330000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00340000
//DSNUPROC.SORTWK04 DD DSN=&&TEMP4,                                     00350000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00360000
//DSNUPROC.SYSREC DD DSN=&SRCLIB(DATASUPP),DISP=SHR                     00370000
//DSNUPROC.SYSUT1 DD DSN=&&TEMP5,                                       00380000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00390000
//DSNUPROC.SORTOUT DD DSN=&&TEMP6,                                      00400000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00410000
//DSNUPROC.SYSERR DD DSN=&&TEMP7,                                       00420000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00430000
//DSNUPROC.SYSMAP DD DSN=&&TEMP8,                                       00440000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00450000
//DSNUPROC.SYSIN DD DSN=&SRCLIB(ULODSUPP),DISP=SHR                      00460000
//*                                                                     00470000
//CPART   EXEC PGM=IKJEFT01,REGION=2048K                                00480000
//SYSTSPRT DD SYSOUT=*                                                  00490000
//SYSTSIN  DD *                                                         00500000
 DSN SYSTEM(DB9G)                                                       00510000
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA91)                                   00520000
//SYSPRINT DD SYSOUT=*                                                  00530000
//SYSUDUMP DD SYSOUT=*                                                  00540000
//SYSIN    DD DSN=&SRCLIB(CPART),DISP=SHR                               00550000
//*                                                                     00560000
//LPART EXEC DSNUPROC,SYSTEM=DB9G,UID=&SYSUID.A,UTPROC=''               00570000
//DSNUPROC.SORTWK01 DD DSN=&&TEMP1,                                     00580000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00590000
//DSNUPROC.SORTWK02 DD DSN=&&TEMP2,                                     00600000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00610000
//DSNUPROC.SORTWK03 DD DSN=&&TEMP3,                                     00620000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00630000
//DSNUPROC.SORTWK04 DD DSN=&&TEMP4,                                     00640000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00650000
//DSNUPROC.SYSREC DD DSN=&SRCLIB(DATAPART),DISP=SHR                     00660000
//DSNUPROC.SYSUT1 DD DSN=&&TEMP5,                                       00670000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00680000
//DSNUPROC.SORTOUT DD DSN=&&TEMP6,                                      00690000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00700000
//DSNUPROC.SYSERR DD DSN=&&TEMP7,                                       00710000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00720000
//DSNUPROC.SYSMAP DD DSN=&&TEMP8,                                       00730000
//     UNIT=SYSDA,SPACE=(16384,(20,20),,,ROUND)                         00740000
//DSNUPROC.SYSIN DD DSN=&SRCLIB(ULODPART),DISP=SHR                      00750000
//                                                                      00760000