//*******************************************************************/
//*                                                                 */
//* 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