Saturday, June 21, 2008

CONDITION CHECKING

******************************* CONDITION CHECKING ****************
//MAPL737A JOB NOTIFY=MAPL737,TIME=1,PRTY=15
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME-
(MAPL737.KSK.+
KSDS5)-
INDEXED-
TRACKS(10,10)-
KEYS(4,0) -
FREESPACE(10,20)-
RECORDSIZE(80,80)-
CISZ(4096))
IF LASTCC=0 THEN -
REPRO INDATASET(MAPL737.EMP.KSDS) -
OUTDATASET(MAPL737.KSK.KSDS5)
ELSE -
SET MAXCC=16
/*
//
*********************************************************************888
******************************** CONDITION **********************
//MAPL737A JOB NOTIFY=MAPL737,TIME=1,PRTY=15
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME-
(MAPL737.KSK.+
KSDS6)-
INDEXED-
TRACKS(10,10)-
KEYS(4,0) -
FREESPACE(10,20)-
RECORDSIZE(80,80)-
CISZ(4096))
IF LASTCC=0 THEN -
DO -
REPRO INDATASET(MAPL737.KSK.KSDS) -
OUTDATASET(MAPL737.KSK.KSDS6)
REPRO INDATASET(MAPL737.KSK.KSDS) -
OUTDATASET(MAPL737.KSK.KSDS6) REPLACE
END
ELSE -
SET MAXCC=16
/*
//
*************************************************************

No comments:

'


Ads By CbproAds