Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
Took me some digging in our old systems but this came up:
| Code: |
//$$DBA41 JOB AH000583,
// $$DBA4,
// NOTIFY=$$DBA4,CLASS=1,
// MSGLEVEL=(1,1)
//*
//*
//*******************************************************************
//* *
//* MODULE-NAME: FSNUATCI *
//* *
//* DESCRIPTIVE NAME: BMP JOB - (SAMPLE ONLY - SEE REMARK BELOW) *
//* *
//* *
//* COPYRIGHT: 5655-002 (C) COPYRIGHT IBM CORP. 1984,1996 *
//* LICENSED MATERIALS - PROPERTY OF IBM *
//* SEE COPYRIGHT INSTRUCTIONS, G120 - 2083 *
//* *
//* STATUS: Application Support Facility Version 3 Release 2 *
//* *
//* FUNCTION: RUN BATCH DOCUMENT COMPOSITION (FSNBTCHI) *
//* *
//* NOTES: THIS FILE IS CUSTOMIZED AT INSTALLATION TIME *
//* *
//* MODULE-TYPE: EXECUTION - JCL *
//* *
//* CHANGE ACTIVITY: NONE *
//* *
//* *
//* MODULE-TYPE: EXECUTION - JCL *
//* *
//* CHANGE ACTIVITY: NONE *
//* *
//*******************************************************************
//* *
//* REMARK : CHANGE ALL LINES WHICH CONTAIN A <====== AT THE END *
//* THAT THEY FIT IN YOUR SYSTEM *
//* *
//* *
//* CHANGE: THE PARM STATEMENT IN THE EXEC CARD TO *
//* CONTAIN: THE CHECKPOINT ID WHEN RESTARTING *
//* THE NAME OF IMS SYSTEM *
//* THE NAME OF THE DB2 SUBSYSTEM *
//* *
//* *
//* CHANGE: YOUR_DBNAME1 TO THE DS NAME FOR THE *
//* YOUR_DBNAME2 DL/I DATA BASE REFER- *
//* ENCED IN PDP, PVP, *
//* OR DCP *
//* *
//* *
//* CHANGE: YOUR_DSNAME_SIBINPUT TO THE DS NAME FOR THE *
//* INPUT DATA SET *
//* CONTAINING YOUR SIBS *
//* *
//*******************************************************************
//* *
//* *
//* CHANGE: YOUR_DSNAME_SIBINPUT TO THE DS NAME FOR THE *
//* INPUT DATA SET *
//* CONTAINING YOUR SIBS *
//* *
//*******************************************************************
//*
//INBATCH PROC IDX='SYST.ASF.V320',
// ID2='SYST.ASF.V320',
// OUT='*'
//*
//BATCHI EXEC PGM=DFSRRC00,
// REGION=4096K,
// PARM=(BMP,FSNBTCHI,FSNBTCHI,,,,0,,,,,,,I410,,DB2H) <======
//*
//STEPLIB DD DSN=SYS1.RESLIB,DISP=SHR
// DD DSN=&IDX..SFSNLOD0,DISP=SHR
//*
//DFSESL DD DSN=SYS1.RESLIB,DISP=SHR
//*
//DFSRESLB DD DSN=SYS1.RESLIB,DISP=SHR
//*
//IMS DD DSN=$$ALL4.Q.DBDLIB,DISP=SHR
// DD DSN=$$ALL4.Q.PSBLIB,DISP=SHR
//*
//PROCLIB DD DSN=$$ALL12.Q.PROCLIB,DISP=SHR
//*
//DFSRESLB DD DSN=SYS1.RESLIB,DISP=SHR
//*
//IMS DD DSN=$$ALL4.Q.DBDLIB,DISP=SHR
// DD DSN=$$ALL4.Q.PSBLIB,DISP=SHR
//*
//PROCLIB DD DSN=$$ALL12.Q.PROCLIB,DISP=SHR
//*
//IEFRDER DD DUMMY,
// DCB=(BLKSIZE=3968,LRECL=3964,RECFM=VB,BUFNO=4)
//*
//IEFRDER2 DD DUMMY,
// DCB=(BLKSIZE=3968,LRECL=3964,RECFM=VB,BUFNO=2)
//*
//IMSLOGR DD DUMMY
//*
//SYSPRINT DD SYSOUT=&OUT
//FSNLIST DD SYSOUT=&OUT
//PLIDUMP DD SYSOUT=&OUT
//SYSUDUMP DD DUMMY
//*
//IMSERR DD DUMMY
//IMSUDUMP DD DUMMY
//*
//FSNCLL DD DSN=&ID2..IMS.CLL,DISP=SHR
//FSNCLLX DD DSN=&ID2..IMS.CLLX,DISP=SHR
//*
//FSNGIL DD DSN=&ID2..IMS.GIL,DISP=SHR
//FSNGILX DD DSN=&ID2..IMS.GILX,DISP=SHR
//FSNCLLX DD DSN=&ID2..IMS.CLLX,DISP=SHR
//*
//FSNGIL DD DSN=&ID2..IMS.GIL,DISP=SHR
//FSNGILX DD DSN=&ID2..IMS.GILX,DISP=SHR
//FSNGXL DD DSN=&ID2..IMS.GXL,DISP=SHR
//FSNGXLO DD DSN=&ID2..IMS.GXLO,DISP=SHR
//*
//FSNUPL DD DSN=&ID2..IMS.UPL,DISP=SHR
//FSNUPLX DD DSN=&ID2..IMS.UPLX,DISP=SHR
//*
//*USRDB1 DD DSN=YOUR_DBNAME1,DISP=SHR <======
//*USRDB2 DD DSN=YOUR_DBNAME2,DISP=SHR <======
//*
//SIBINP DD DSN=YOUR_DSNAME_SIBINPUT,DISP=SHR <======
//*
//FSNLRR DD DSN=&IDX..IMS.BATCH.LRR,DISP=SHR
//*
//SIBOUT DD DSN=&IDX..IMS.BATCH.SIBOUT,DISP=SHR
//*
//*FSNXTRA DD DSN=SYST.ASF.V320.BTCHI.FSNXTRA,DISP=SHR
//*
// PEND
//*
//INBATCH EXEC INBATCH
//*
//BATCHI.DFSVSAMP DD *
8192,10
/*
//*
// PEND
//*
//INBATCH EXEC INBATCH
//*
//BATCHI.DFSVSAMP DD *
8192,10
/*
// |
|
|
