//XTRNTHCA JOB (XXX),TWSTEC,MSGCLASS=X,CLASS=F, 00010000 // NOTIFY=&SYSUID 00020000 /*JOBPARM S=* 00030000 //***************************************************** 00003207 //** PACK DATASETS TO ONE VIA TSO TRANSMIT. *** 00003207 //** THE OUTPUT DATASET WILL BE TRANFERRED VIA FTP *** 00003207 //***************************************************** 00003207 //DEL EXEC PGM=IEFBR14 00110000 //XMIT DD DSN=HLQ.INST.XMIT, 00170000 // DISP=(MOD,DELETE,DELETE), 00170000 // SPACE=(TRK,(0,0)) 00170000 //ALLOC EXEC PGM=IEFBR14 00110000 //OPCOUT DD DSN=HLQ.INST.XMIT, 00170000 // DISP=(,CATLG,DELETE), 00170000 // SPACE=(CYL,(5,2,46)), 00170000 // UNIT=SYSDA, 00170000 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO) 00170000 //XMIT EXEC PGM=IKJEFT01,REGION=6M 00050000 //SYSTSPRT DD SYSOUT=* 00150000 //FBJCL DD DSN=HLQ.INST.XMIT(FBJCL),DISP=SHR 00170000 //MQM DD DSN=HLQ.INST.XMIT(MQM),DISP=SHR 00170000 //TESTAD DD DSN=HLQ.INST.XMIT(TESTAD),DISP=SHR 00170000 //CKPT DD DSN=HLQ.INST.XMIT(CKPT),DISP=SHR 00170000 //FETCHLIB DD DSN=HLQ.INST.XMIT(FETCHLIB),DISP=SHR 00170000 //EQQOPCAP DD DSN=HLQ.INST.XMIT(EQQOPCAP),DISP=SHR 00170000 //PARMLIB DD DSN=HLQ.INST.XMIT(PARMLIB),DISP=SHR 00170000 //PROCLIB DD DSN=HLQ.INST.XMIT(PROCLIB),DISP=SHR 00170000 //CLIST DD DSN=HLQ.INST.XMIT(CLIST),DISP=SHR 00170000 //ISPPENU DD DSN=HLQ.INST.XMIT(ISPPENU),DISP=SHR 00170000 //ISPPDEU DD DSN=HLQ.INST.XMIT(ISPPDEU),DISP=SHR 00170000 //SYSTSIN DD * 00150000 XMIT LOCAL.XTRNTHC DS('HLQ.INST.FALLBACK.JCL') + 00160000 OUTDDNAME(FBJCL) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.MQM') + 00160000 OUTDDNAME(MQM) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.TEST.AUFTRAG') + 00160000 OUTDDNAME(TESTAD) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.TESTPLAN.CKPT') + 00160000 OUTDDNAME(CKPT) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.BASIS.PARMLIB') + 00160000 OUTDDNAME(PARMLIB) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.CLIST') + 00160000 OUTDDNAME(CLIST) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.FETCHLIB') + 00160000 OUTDDNAME(FETCHLIB) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.EQQOPCAP') + 00160000 OUTDDNAME(EQQOPCAP) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.PROCLIB') + 00160000 OUTDDNAME(PROCLIB) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.ISPPENU') + 00160000 OUTDDNAME(ISPPENU) NOLOG XMIT LOCAL.XTRNTHC DS('HLQ.INST.PROD.ISPPDEU') + 00160000 OUTDDNAME(ISPPDEU) NOLOG /* 00170000