Judy85
New User
Joined: 05 Aug 2011 Posts: 17 Location: China
|
|
|
|
Code: |
//STEP01 EXEC PGM=ICETOOL,REGION=0M
//SYSOUT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//* -- Input
//INPUT DD DSN=BIMS.K5100294.APLAPRT.DATA.LOAD(0),DISP=SHR
// DD DSN=BIMS.K5100294.APLA.DATA(0),DISP=SHR
//* -- Output
//VALID DD DSN=&&VALID,
// DISP=(,PASS,DELETE),
// UNIT=(SYSDA,40),SPACE=(CYL,(600,600),RLSE), $$2
// DCB=*.INPUT
//FIRSTF DD DSN=&&FIRSTF,
// DISP=(,PASS),
// UNIT=(SYSDA,40),SPACE=(CYL,(600,600),RLSE), $$2
// DCB=*.INPUT
//OK DD DSN=&&APLA,
// DISP=(,PASS),
// UNIT=(SYSDA,40),SPACE=(CYL,(600,600),RLSE), $$2
// DCB=*.INPUT
//DISCARDF DD DSN=&&DISCARDF,
// DISP=(,PASS),
// UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
// DCB=*.INPUT
//DUPS DD DSN=BIMS.K5100294.APLA.DUPS(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
// DCB=*.INPUT
//*
//SORTWK01 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK02 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK03 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK04 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK05 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK06 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK07 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK08 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK09 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK10 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK11 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK12 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK13 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK14 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK15 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK16 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK17 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK18 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK19 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK20 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK21 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK22 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK23 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK24 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK25 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK26 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK27 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK28 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK29 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK30 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK31 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK32 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK33 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK34 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK35 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK36 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK37 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK38 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK39 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//SORTWK40 DD UNIT=(SYSDA,40),SPACE=(CYL,(800,800),RLSE) $$2
//TOOLIN DD *
COPY FROM(INPUT) USING(DATA)
SELECT FROM(VALID) TO(FIRSTF) ON(12,10,CH) ON(145,7,CH) -
FIRST DISCARD(DUPS)
SORT FROM(FIRSTF) USING(RULE)
//DATACNTL DD *
OUTFIL FNAMES=VALID,INCLUDE=(1,2,CH,EQ,X'0000') => Data Only
OUTFIL FNAMES=DISCARDF,SAVE => Discarded Data
//RULECNTL DD *
SORT FIELDS=(12,10,A,145,7,A,56,4,A,62,7,A),FORMAT=CH
OUTFIL FNAMES=OK => Unique field is TRANDATE + ASN |
This job run daily, but it failed today for 'VOLUME SELECTION HAS FAILED FOR INSUFFICIENT SPACE'. Error log is below:
Code: |
IEC030I B37-04,IFG0554A,K5100294,STEP01,RULEWK04,8728,PRM051,0427041D,SYS1213
+ICE097I 2 K5100294.STEP01 SORT RECOVERING FROM B37 ABEND ON SORTWK DATA SE
IEC030I B37-04,IFG0554A,K5100294,STEP01,RULEWK01,8873,PRM045,0427041D,SYS1213
+ICE097I 2 K5100294.STEP01 SORT RECOVERING FROM B37 ABEND ON SORTWK DATA SE
IEC030I B37-04,IFG0554A,K5100294,STEP01,RULEWK03,8874,PRM046,0427041D,SYS1213
+ICE097I 2 K5100294.STEP01 SORT RECOVERING FROM B37 ABEND ON SORTWK DATA SE
IEC030I B37-04,IFG0554A,K5100294,STEP01,RULEWK01,8873,PRM045,0427041D,SYS1213
+ICE097I 2 K5100294.STEP01 SORT RECOVERING FROM B37 ABEND ON SORTWK DATA SE
IEC030I B37-04,IFG0554A,K5100294,STEP01,RULEWK03,8874,PRM046,0427041D,SYS1213
+ICE097I 2 K5100294.STEP01 SORT RECOVERING FROM B37 ABEND ON SORTWK DATA SE
IGD17272I VOLUME SELECTION HAS FAILED FOR INSUFFICIENT SPACE FOR 114
DATA SET SYS12134.T224631.RA000.K5100294.R0487087
JOBNAME (K5100294) STEPNAME (STEP01 )
PROGNAME (ICETOOL ) DDNAME (RULEWK01)
REQUESTED SPACE QUANTITY = 5019710 KB
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
STORGRPS (LARGE9 SGSP9RAA )
IGD17272I VOLUME SELECTION HAS FAILED FOR INSUFFICIENT SPACE FOR 115
DATA SET SYS12134.T224633.RA000.K5100294.R0487088
JOBNAME (K5100294) STEPNAME (STEP01 )
PROGNAME (ICETOOL ) DDNAME (RULEWK03)
REQUESTED SPACE QUANTITY = 5019710 KB
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
STORGRPS (LARGE9 SGSP9RAA ) |
Code: |
B37-04,IFG0554A,K5100294,STEP01,RULEWK04,8728,PRM051,0427041D,SYS12134.
B37-04,IFG0554A,K5100294,STEP01,RULEWK01,8873,PRM045,0427041D,SYS12134.
B37-04,IFG0554A,K5100294,STEP01,RULEWK03,8874,PRM046,0427041D,SYS12134.
B37-04,IFG0554A,K5100294,STEP01,RULEWK01,8873,PRM045,0427041D,SYS12134.
B37-04,IFG0554A,K5100294,STEP01,RULEWK03,8874,PRM046,0427041D,SYS12134. |
Is there any solution to fix the problem? |
|