zOs/JCL/TMPSOR
//A540769S JOB (CP00,KE50),
// 'EXECUTE-NI02NT3',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 05/17/2006.11.41.24
//* ENVIRONMENT: ISPF 5.6MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//*--------------------------------------------------------------------
//* FOR JES3 SYSTEMS, COPY AEXIN INPUT STREAM TO TEMPORARY FILE
//*--------------------------------------------------------------------
//BLDXIN1 EXEC PGM=IEBGENER,TIME=1440
//SYSUT2 DD SPACE=(TRK,(1,1)),UNIT=DISK,DISP=(NEW,PASS),
// DSN=&&AEXIN1,
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD *
ACM
SSID DBTF WORKID S100447.NI02NT3
CATRECOVER
DYNWORKUNIT DISK
DASDDOPT ASUDDBTF
CATDOPT ACTDDBTF
RECOVEROPT AFR$OPTS
LOCK EXCLUSIVE
RESTART
//***************************************************
//* CREATED FROM : 'DSN.DBTF.CHG.WKL(NI02NT3E)'
//* CREATE TIME : WED MAY 17 13:51:03 2006
//* RESTART TYPE : RESTART
//* RESTART SEQ NBR: 000400
//***************************************************
//*
//*--------------------------------------------------------------------
//* BMC CHANGE MANAGER EXECUTION
//*--------------------------------------------------------------------
//STEP1 EXEC PGM=AEXEMAIN,REGION=0M,PARM='ACMDDBTF',
// COND=(4,LT),TIME=1440
//STEPLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.LOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//ABNLIGNR DD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//UTPRINT DD DUMMY
//SYSOUT DD DUMMY
//AEXIN DD DSN=&&AEXIN1,DISP=(OLD,DELETE)
//SYSIN DD SPACE=(CYL,(15,15)),UNIT=DISK,DISP=(NEW,DELETE),
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//SYSTSIN DD SPACE=(TRK,(1,1)),UNIT=DISK,DISP=(NEW,DELETE),
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//SYSPRINT DD SPACE=(CYL,(15,15)),UNIT=DISK,
// DISP=(NEW,DELETE)
//SYSTSPRT DD SPACE=(CYL,(5,5)),UNIT=DISK,DISP=(NEW,DELETE),
// DSORG=PS,LRECL=137,BLKSIZE=3155,RECFM=VBA
//ALUIN DD SPACE=(TRK,(1,1)),UNIT=DISK,DISP=(NEW,DELETE),
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//ALUPRINT DD SPACE=(CYL,(5,5)),UNIT=DISK,DISP=(NEW,DELETE)
//AJXPRINT DD SPACE=(CYL,(5,5)),UNIT=DISK,DISP=(NEW,DELETE)
//ACT$MSGS DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.MLIB
//ISPMLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.MLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPSLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.SLIB
//ISPTLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.TLIB
//ISPPLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.PLIB
//AEXPRINT DD SYSOUT=*
//AEXPRINT DD SPACE=(CYL,(15,5)),UNIT=DISK,DISP=(MOD,PASS),
// DSN=&&DIAG,
// DCB=(LRECL=137,BLKSIZE=4096,RECFM=VBA)
//WORKLIST DD DISP=SHR,
// DSN=DSN.DBTF.CHG.WKL(NI02NT3W)
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK05 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK06 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK07 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK08 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK09 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK10 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK11 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK12 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK13 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK14 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK15 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK16 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK17 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK18 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK19 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK20 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK21 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK22 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK23 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//SORTWK24 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE)
//DATAWK01 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK02 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK03 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK04 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK05 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK06 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK07 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK08 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK09 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK10 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK11 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK12 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK13 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK14 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK15 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK16 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK17 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK18 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK19 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK20 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK21 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK22 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK23 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//DATAWK24 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE)
//*--------------------------------------------------------------------
//* END OF JOBSTEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* COPY TEMPORARY WORKLOG FILE TO SYSOUT
//*--------------------------------------------------------------------
//BLDDIA1 EXEC PGM=IEBGENER,COND=EVEN,TIME=1440
//SYSUT1 DD DISP=(OLD,PASS),
// DSN=&&DIAG
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* A C H T U N G ||| Benutzermodifikation(START)
//*--------------------------------------------------------------------
//UNLAUDIT EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DISP=OLD, (NEW,CATLG,DELETE),
// MGMTCLAS=COM#E005,
// DATACLAS=NOMULTI,
// SPACE=(CYL,(2,1),RLSE),
// DSN=DSN.XMLDDL.NI02NT3.D06137.T114124
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM (DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL')
//SYSIN DD *
SELECT ACTION
FROM BMCACT74.V74_AUDIT_LOG X
WHERE DATE = CURRENT DATE
AND PRODUCT = 'AEXACM'
AND NOT EXISTS ( SELECT TIME
FROM BMCACT74.V74_AUDIT_LOG Y
WHERE DATE = CURRENT DATE
AND PRODUCT = 'AEXACM'
AND Y.TIME > X.TIME )
ORDER BY DATE, TIME, SEQUENCE, SESSION_SEQ
;
/*
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//XMLSTEP EXEC CMNOXMLB
//XMLIN DD *
<?xml version="1.0"?>
<service name="CMPONENT">
<scope name="SERVICE">
<message name="CHECKIN">
<header>
<subsys>0</subsys>
<suppressNotify>Y</suppressNotify>
<product>CMN</product>
<format>SPLIT</format>
</header>
<request>
<package>IPC0000148</package>
<applName>IPC0</applName>
<packageId> </packageId>
<component>NI02NT3</component>
<componentType>DDL</componentType>
<chkInSourceLocation>1</chkInSourceLocation>
<sourceStorageMeans>8</sourceStorageMeans>
<sourceLib>DSN.XMLDDL.NI02NT3.D06137.T114124</sourceLib>
<lockAfterChkIn>N</lockAfterChkIn>
<savePriorStagingVersion>N</savePriorStagingVersion>
<changeDesc>Staged by XML Batch Client</changeDesc>
<listCount>1</listCount>
<targetComponent>NI02NT3</targetComponent>
</request>
</message>
</scope>
</service>
//*--------------------------------------------------------------------
//* A C H T U N G ||| Benutzermodifikation(ENDE)
//*--------------------------------------------------------------------