PowerExchange for CDC and Mainframe
- PowerExchange for CDC and Mainframe 10.5.3
- All Products
//*******************************************************************/ //* */ //* SAMPLE JCL TO:- */ //* */ //* CAPTURE IDMS JOURNAL FILE INFORMATION AND INPUT STREAM */ //* INTO FOR DTLULOGC LOG FILE CATALOG ROUTINE. */ //* */ //* NORMALLY THE SYSIN INPUT STREAM WOULD BE A PDS MEMBER. */ //* */ //* THIS NEEDS TO BE INTEGRATED INTO THE END USERS JOURNAL */ //* ARCHIVING PROCEDURE, WHICH MAY BE DIFFERENT FROM SITE TO SITE. */ //* */ //* A MECHANISM WILL NEED TO BE ESTABLISHED TO REPLACE THE DATASET */ //* SPECIFIED VIA THE LOGFILE DD STATEMENT WITH THE LOGFILE */ //* WHICH IS CURRENTLY THE OBJECT OF THE USERS ARCHIVING PROCEDURE */ //* AND OUR CATALOG OPERATION */ //* */ /********************************************************************/ //INCS1 INCLUDE MEMBER=GENBULK //DTLULCAT EXEC PGM=DTLULCAT //STEPLIB DD DISP=SHR,DSN=DTLUSR.V800B14.LOADLIB //DTLCFG DD DISP=SHR,DSN=DTLUSR.V800B14.RUNLIB(DBMOVER) //DTLKEY DD DISP=SHR,DSN=DTLUSR.V800B14.RUNLIB(LICENSE) //DTLMSG DD DISP=SHR,DSN=&HLQ..DTLMSG,FREE=CLOSE //DTLLOG DD SYSOUT=* //LOGFILE DD DISP=SHR,DSN=DTLUSR.IDMS.E15SP0.OFF.LOADED.JOURNAL1 //SYSPRINT DD SYSOUT=* //SYSPUNCH DD DSN=&&LOGDATA, // DISP=(,PASS), // SPACE=(CYL,(2,1),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //SYSIN DD * IDMS_VERSION=15 FILE_TYPE=C MEDIA_TYPE=D MEDIA_CONTENT=BI SERVICE=IDMSE150 INSTANCE_IDENTIFIER=XYLOGSID /* //DTLULOGC EXEC PGM=DTLULOGC //STEPLIB DD DISP=SHR,DSN=DTLUSR.V800B14.LOADLIB //DTLCFG DD DISP=SHR,DSN=DTLUSR.V800B14.RUNLIB(DBMOVER) //DTLKEY DD DISP=SHR,DSN=DTLUSR.V800B14.RUNLIB(LICENSE) //DTLSGN DD DISP=SHR,DSN=DTLUSR.V800B14.RUNLIB(SIGNON) //DTLMSG DD DISP=SHR,DSN=&HLQ..DTLMSG //LOGSCAT DD DISP=SHR,DSN=DTLUSR.V800B14.V1.LOGSCAT //DTLLOG DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //REPORT DD SYSOUT=* //EXPORT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=&&LOGDATA