PowerExchange for CDC and Mainframe
- PowerExchange for CDC and Mainframe 10.5.3
- All Products
//DTLUSR01 JOB 'ADA',MSGLEVEL=1, // CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID //* //DTL JCLLIB ORDER=(DTLUSR.V951.RUNLIB) //* // SET HLQ=DTLUSR.V951 //* //URDMO PROC HLQ=&HLQ //* //STEP1 EXEC PGM=DTLURDMO, // REGION=64M,TIME=NOLIMIT //STEPLIB DD DSN=CEE.SCEERUN,DISP=SHR // DD DSN=&HLQ..LOADLIB,DISP=SHR //*DTLCAMAP DD DSN=&HLQ..DTLCAMAP, //* DISP=SHR //* //DTLMSG DD DSN=&HLQ..DTLMSG,DISP=SHR //DTLCFG DD DSN=&HLQ..RUNLIB(DBMOVER),DISP=SHR //DTLKEY DD DSN=&HLQ..RUNLIB(LICENSE),DISP=SHR //DTLSGN DD DSN=&HLQ..RUNLIB(SIGNON),DISP=SHR //DTLLOG DD SYSOUT=* //DATAMAP DD DSN=&HLQ..V1.DATAMAPS,DISP=SHR //DTLCAMAP DD DSN=&HLQ..V1.DTLCAMAP,DISP=SHR //DTLREPOS DD DSN=&HLQ..V1.REPOS,DISP=SHR //DTLAMCPR DD DSN=&HLQ..V1.CCT,DISP=SHR //SYSUDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* // PEND //* //* //* EXECUTE THE PROCEDURE //* //DTLLSTN EXEC URDMO //* //SYSIN DD * REPORTDEST STDOUT; USER DTLUSR; EPWD 095E463AC1C5D5B8; TARGET DTLUSR; SOURCE NODE1; OUTPUT DTLUSR.V951.V1.DATAMAPS.TESTMIGR; DETAIL; DM_COPY; SELECT AM=ADABAS; //*