Error in my output: ABEND=S000 U0999

jjacome266 · New User Joined: 26 Jan 2006 Posts: 12

:oops: Hi everyone

I am getting this error everytime that I am running one of my JCL. Please I heard any ideas what to do.

Thanks The message is as follows

-JOBNAME STEPNAME PROCSTEP PROGRAM RC EXCP CONN
-A143516C JS10 PASSMP GIMSMP 00 254 373
+ERROR: OPTION NOT RECOGNIZED - *
BPXP018I THREAD 0B278D9000000000, IN PROCESS 16777440, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 000003E7, AND REA
00000000.
IEF450I A143516C PASSAS JS10 - ABEND=S000 U0999 REASON=000000
TIME=12.07.52

William Thompson · Posted: Thu Jan 11, 2007 2:01 am

That's a good one, the best I can get is the BPX msg but the last one listed in the latest manual I could find is one short....

PeD · Posted: Thu Jan 11, 2007 2:05 am

Where did you find message BPXP017I in question?

William Thompson · Posted: Thu Jan 11, 2007 2:27 am

superk · Posted: Thu Jan 11, 2007 2:27 am

The description I found using IBM LookAt z/OS Message Help for z/OS V1R7 is this:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M362/SPTDP0817S

PeD · Posted: Thu Jan 11, 2007 2:36 am

Sorry, I know that, but I mean in jjacome266's question?

dick scherrer · Posted: Thu Jan 11, 2007 9:00 am

Hellp,

Please post your jcl. We'll be better able to help if we can see what you submitted.

jjacome266 · New User Joined: 26 Jan 2006 Posts: 12

dick scherrer · Posted: Sat Jan 13, 2007 2:45 am

Hello,

You might try removing the comment info from this line

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Jose,

You might also want to verify that your STEPLIB requires libraries from 2 versions of SAS as the JCL indicates.

I can't see any direct bearing on your problem from this, but you never know.

Paul Hunter · Posted: Wed Apr 02, 2008 6:07 pm

Was there ever a resolution to this problem? I am encountering the same issue.

dick scherrer · Posted: Wed Apr 02, 2008 10:02 pm

Hello Paul and welcome to the forums,

Do you also recieve the same "* option not recognized" as the orignal post or do you have somethng different?

It may help if you post your jcl and the diagnostic info the system presented.

Paul Hunter · Posted: Wed Apr 02, 2008 10:12 pm

We found the solution to our abend: the SAS license had expired. Applying the renewal SETINIT resolved the issue. No SAS o/p appeared in the jobs that failed, just the abend. We looked at the last one that ran and saw that the license was expiring.

dick scherrer · Posted: Wed Apr 02, 2008 10:20 pm

Hello,

doczee · New User Joined: 28 Aug 2008 Posts: 1 Location: USA

Robert Sample · Posted: Thu Aug 28, 2008 6:42 am

What's the SAS output look like? U0999 can be a SAS error so seeing what SAS output could help.

dick scherrer · Posted: Thu Aug 28, 2008 6:54 am

Hello Dick and welcome to the forums,

As with the previous post of this abend, might there be a license renewal problem? Has anyone verified the liecnse is current?

As this is a User abend, there may be more info in one of the sysout datasets or the saslist file.

When posting jcl, control statements, data, etc, it is good to use the "Code" tag (near the top of the reply panel). I've "coded" your post. Notice how it improves readability. "Code"d text is posted with a fixed font rather than a proportional font (like the reply editor). There is a sl a Preview so one may see how their post will appear to the forum. When you are satisfied with the appearance, click Submit (else your post is gone

).

Bandita Bahubalendra · New User Joined: 08 May 2008 Posts: 15 Location: Bangalore

Hi everyone,

i am getting this error while running the jcl.
The message is as follows..

BPXP018I THREAD 1935988000000002, IN PROCESS 16778097, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 000003E7, AND REASON CODE
00000000.
BPXP018I THREAD 1932A76000000000, IN PROCESS 16778097, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 040003E7, AND REASON CODE
00000000.
IEF450I NBKJIUE1 MICS CPED0100 - ABEND=S000 U0999 REASON=00000000
TIME=22.57.40
SMF001I COMP=U0999 CPED0100 MICS PGM=MACTL CPU=00:00:00.55
IEF404I NBKJIUE1 - ENDED - TIME=22.57.40

Can anyone please give a faster reply to this one
below is the screen shot of my jcl

enrico-sorichetti · Posted: Wed Dec 17, 2008 3:43 pm

dick scherrer · Posted: Wed Dec 17, 2008 8:50 pm

Hello,

Bandita Bahubalendra · New User Joined: 08 May 2008 Posts: 15 Location: Bangalore

Hi Dick,

Thanks for your information,i am ferry sorry as i forgot to copy/paste the code.
Below is the code for my JCL,

000100 //NBKJIUE1 JOB CLASS=0,MSGCLASS=U,NOTIFY=&SYSUID
000300 //P01 JCLLIB ORDER=(NBKJIUE.PROCS)
000400 //*#JI,BD=02028,ED=02033
000500 //*+JBS BIND SYS7L01.PERM
000600 //*#JEND
000700 //CPED0100 EXEC CPESHRE,
000800 //* RSIZE=128M,
000900 // SORT='200,50',
001000 // WORK='3500,50'
001100 //SASLIST DD SYSOUT=*
001200 //SASLOG DD SYSOUT=*
001300 //WORK1 DD UNIT=SYSALLDA,SPACE=(CYL,(&WORK))
001400 //DASDUSES DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
001500 // DSN=NBKJIUE.DASD7L.USED.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
001600 //DASDUSED DD RECFM=FBA,LRECL=133,DISP=(,CATLG),

//CPED0100 EXEC CPESHRE,
//* RSIZE=128M,
// SORT='200,50',
// WORK='3500,50'
//SASLIST DD SYSOUT=*
//SASLOG DD SYSOUT=*
//WORK1 DD UNIT=SYSALLDA,SPACE=(CYL,(&WORK))
//DASDUSES DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.USED.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDUSED DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.USED.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDOLDS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.OLD.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDOLDD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.OLD.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDLRGS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.LARGE.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDLRGD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.USED.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDUSED DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.USED.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDOLDS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.OLD.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDOLDD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.OLD.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDLRGS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.LARGE.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDLRGD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.LARGE.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDBLKS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.BLOCK.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDBLKD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.BLOCK.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDALLS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.ALL.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDALLD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.LARGE.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDLRGD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.LARGE.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDBLKS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.BLOCK.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDBLKD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.BLOCK.DETAIL(+1),SPACE=(CYL,(1,20),RLSE)
//DASDALLS DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.ALL.SUMMARY(+1),SPACE=(CYL,(1,20),RLSE)
//DASDALLD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.ALL.DETAIL(+1),SPACE=(CYL,(300,20),RLSE)
//DASDRNKD DD RECFM=FBA,LRECL=133,DISP=(,CATLG),
// DSN=NBKJIUE.DASD7L.RANK.DETAIL(+1),SPACE=(CYL,(300,20),RLSE)
//DASDIN DD DSN=NBKJIUE.CA7.SUPPORT.JCLLIB,DISP=SHR
//SYSIN DD *
OPTIONS SOURCE SOURCE2
ERRORABEND BUFNO=100 BUFSIZE=0 SORTPGM=SORT;
DATA WORK1.DEVPOOL ; SET DETAIL.VCADAA01 (IN=NONVSAM)
DETAIL.VCA_VS01 (IN=VSAM);
IF DSORG = 'VS' AND NONVSAM = 1 THEN DELETE;
/* IF DAAALLSP NE 0; */
KEEP DAAALLSP DAAUSESP ORGSYSID STORNAME DSNAME CREATEDT RECFM LRECL
BLKSIZE DSORG GROUP TYPE DAAREFDT CREDATE REFDATE
Q1 Q2 Q3 Q4 Q5 MONTH DAY YEAR ENV;
Q1 = SCAN(DSNAME,1);
Q2 = SCAN(DSNAME,2);
Q3 = SCAN(DSNAME,3);
Q4 = SCAN(DSNAME,4);
Q5 = SCAN(DSNAME,5);
GROUP = 'OTHER ';
TYPE = 'NONVSAM ';
IF DSORG = 'VS' THEN TYPE = 'VSAM';
CREDATE = CREATEDT;
REFDATE = DAAREFDT;
IF CREDATE = . AND REFDATE ¬= . THEN CREDATE = REFDATE;
IF REFDATE = . AND CREDATE ¬= . THEN REFDATE = CREDATE;
IF REFDATE = . AND CREDATE = . THEN DELETE;

/***********************************************************/;
/*********** INCLUDE HLQ TO SELECT *********/;
/***********************************************************/;
%INCLUDE DASDIN(DASDHLQ);

/***********************************************************/;
/*********** INCLUDE LPAR TO REPORT ON *********/;
/***********************************************************/;
%INCLUDE DASDIN(DASDLPAR);

FORMAT CREDATE REFDATE MMDDYY10.;

/***********************************************************/;
/*********** SORT ALL SELECTED RECORDS *********/;
/***********************************************************/;

PROC SORT DATA=WORK1.DEVPOOL;
BY DSNAME CREDATE STORNAME REFDATE RECFM ENV
LRECL BLKSIZE DSORG GROUP TYPE Q1 Q2 Q3 Q4 Q5;
/***********************************************************/;
/*********** SUMMARIZE BY DATASET NAME *********/;
/***********************************************************/;

PROC UNIVARIATE NOPRINT DATA=WORK1.DEVPOOL;
BY DSNAME CREDATE STORNAME REFDATE RECFM ENV
LRECL BLKSIZE DSORG GROUP TYPE Q1 Q2 Q3 Q4 Q5;
VAR DAAALLSP DAAUSESP ;
OUTPUT OUT=WORK1.UNIDEVPL SUM=MBALLOC MBUSED ;

/***********************************************************/;
/*********** DEFINE ALL DATASETS ***************************/;
/*********** CNT + 1 INDICATES OLD '.......1' **********/;
/***********************************************************/;
DATA DEVALL ;
SET WORK1.UNIDEVPL;
MONTH = MONTH(CREDATE);
DAY = DAY(CREDATE);
YEAR = YEAR(CREDATE);
CNT = 0;
FLAG = PUT(1,IB1.);
/* COST OF DASD PER MEGABYTE */ ;
MBCOST = .00455 ;
CDATE=DATE();
DAYS = CDATE - CREDATE;
DAYSREF = CDATE - REFDATE;
DAYCOST = MBALLOC * MBCOST ;
TOTCOST = DAYS * DAYCOST;
DIFF = MBALLOC-MBUSED;
DIFCOST = DIFF * MBCOST;
TDIFCOST = DAYS * DIFCOST;
IF MBALLOC > 0 THEN PER = MBUSED / MBALLOC;
IF MBALLOC = 0 THEN PER = 0;
FORMAT CDATE MMDDYY10. DAYCOST TOTCOST DIFCOST DOLLAR15.2;

/***********************************************************/;
/*********** DEFINE DATASETS THAT ARE INEFFICIENTLY BLOCKED*/;
/*********** CNT + 2 INDICATES OLD '......1.' **********/;
/***********************************************************/;
BESTBLK = 0;
RECLGTH = 0;
BESTBLK = BLKSIZE;
BLKSAVE = BESTBLK;
RECLGTH = LRECL;
IF RECLGTH > 0 THEN ORDER = BESTBLK / RECLGTH;
IF RECLGTH > 0 THEN BESTBLK = INT(27998/RECLGTH) * RECLGTH;
IF RECFM =:'V' THEN BESTBLK = 27998;
IF (ORDER < 1.5 AND DSORG=:'P' AND RECFM ¬=:'U') AND
/* VTOC FOR VOLUME */
(Q2 NE: 'VTOCIX') AND
/* HALF TRACK BLOCKING */
(RECFM =: 'V' AND BLKSIZE NE 27998) AND
/* HOGAN CHECKPOINTS */
((LRECL NE 4096) OR
(Q1 = 'BOST' AND LRECL = 4096 AND RECFM = 'F' AND MBALLOC > .1))
THEN CNT = CNT + 2 ;
/***********************************************************/;
/*********** DEFINE DATASETS THAT ARE LARGE ****************/;
/*********** CNT + 16 INDICATES OLD '...1....' **********/;
/***********************************************************/;
IF MBALLOC > 890 THEN CNT = CNT + 16;

/***********************************************************/;
/*********** DEFINE DATASETS THAT ARE OVERALLOCATED ******/;
/*********** CNT + 8 INDICATES OLD '....1...' **********/;
/***********************************************************/;
IF MBALLOC > 200 AND PER <= .5 THEN CNT = CNT + 8;

/***********************************************************/;
/*********** DEFINE DATASETS THAT ARE OLD *****************/;
/*********** CNT + 4 INDICATES OLD '.....1..' **********/;
/***********************************************************/;
IF (DSORG =: 'P' AND DSORG NE 'PO' AND DAYSREF > 20) OR
(DSORG =: 'V' AND Q1 NE: 'DBIT' AND
Q2 NE 'CICS' AND DAYSREF > 20) OR
(DSORG =: 'V' AND Q2 = 'CICS' AND DAYSREF > 150) OR
(DSORG =: 'V' AND Q1 =: 'DBIT' AND DAYSREF > 150) THEN
CNT = CNT + 4;
CNT = CNT + 1;
FLAG = PUT(CNT,IB1.);

/***********************************************************/;
/*********** PROCESS DATASETS FLAGGED BLOCKSIZE ***********/;
/***********************************************************/;

DATA DEVBLK; SET DEVALL;
IF FLAG = '......1.'B;
PROC SORT DATA=DEVBLK; BY ENV TYPE Q1 STORNAME MONTH DAY;

PROC UNIVARIATE NOPRINT DATA=DEVBLK;
BY ENV TYPE Q1 STORNAME ;
VAR MBALLOC MBUSED TOTCOST DAYCOST DIFCOST TDIFCOST DAYS;
OUTPUT OUT=DEVBLKSU SUM=SUMMBA
SUMMBU SUMTCOST SUMDCOST SUMUCOST STDFCOST NOOFDAYS N=COUNT;
PROC SORT DATA=DEVBLKSU; BY ENV Q1 TYPE STORNAME ;

PROC PRINTTO NEW PRINT=DASDBLKS;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVBLKSU;
BY ENV Q1 TYPE STORNAME; ID ENV Q1 TYPE STORNAME;
VAR COUNT SUMMBA SUMMBU SUMDCOST SUMTCOST;
LABEL Q1='APPLICATION'
COUNT ='NUMBER*DATASETS'
NOOFDAYS = 'AGE OF DSNS*IN DAYS'
STORNAME='STORAGE*GROUP*NAME'
SUMMBA = 'TOTAL*MEGABYTES*ALLOCATED'
SUMMBU = 'TOTAL*MEGABYTES*USED'
SUMTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
SUMDCOST = 'DAILY COST*MB ALLOCATED'
SUMUCOST = 'DAILY COST*MB USED'
STDFCOST = 'TOTAL COST*MB USED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD5SBLKS - SUMMARY OF APPLS WITH INEFFICIENT BLKSIZES';

PROC PRINTTO NEW PRINT=DASDBLKD;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVBLK;
BY ENV Q1 TYPE STORNAME ;
VAR DSNAME RECFM LRECL BLKSIZE MBALLOC MBUSED DAYCOST TOTCOST;
LABEL Q1='APPLICATION'
MBUSED = 'MEGABYTES*USED'
RECFM = 'RECORD*FORMAT'
LRECL = 'LOGICAL*RECORD*LENGTH'
BLKSIZE = 'BLOCK*SIZE'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2;
TITLE 'DASD7LBLKD - DETAIL OF DATASETS WITH INEFFICIENT BLKSIZE';

***********************************************************/;
*********** PROCESS DATASETS FLAGGED OLD ******************/;
***********************************************************/;

DATA DEVOLD; SET DEVALL;
IF FLAG = '.....1..'B;

PROC SORT DATA=DEVOLD; BY ENV Q1 TYPE STORNAME MONTH DAY;

PROC UNIVARIATE NOPRINT DATA=DEVOLD;
BY ENV Q1 TYPE STORNAME ;
VAR MBALLOC MBUSED TOTCOST DAYCOST DIFCOST TDIFCOST DAYS DAYSREF;
OUTPUT OUT=DEVOLDSU SUM=SUMMBA
SUMMBU SUMTCOST SUMDCOST SUMUCOST STDFCOST NOOFDAYS SUMDAYRF
N=COUNT;

PROC SORT DATA=DEVOLDSU; BY ENV Q1 TYPE STORNAME ;
PROC PRINTTO NEW PRINT=DASDOLDS;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVOLDSU;
BY ENV Q1 TYPE STORNAME; ID ENV Q1 TYPE STORNAME;
VAR COUNT SUMMBA SUMMBU SUMDCOST SUMTCOST;
LABEL Q1='APPLICATION'
COUNT ='NUMBER*DATASETS'
NOOFDAYS = 'AGE OF DSNS*IN DAYS'
SUMDAYRF = 'LAST REF*IN DAYS'
STORNAME='STORAGE*GROUP*NAME'
SUMMBA = 'TOTAL*MEGABYTES*ALLOCATED'
SUMMBU = 'TOTAL*MEGABYTES*USED'
SUMTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
SUMDCOST = 'DAILY COST*MB ALLOCATED'
SUMUCOST = 'DAILY COST*MB UNUSED'
STDFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD7LUSES - SUMMARY OF OLD DATASETS BASED ON LAST REFERENCE';

PROC PRINTTO NEW PRINT=DASDOLDD;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVOLD;
BY ENV Q1 TYPE STORNAME;
VAR DSNAME CREDATE DAYSREF DAYS MBALLOC MBUSED DAYCOST TOTCOST ;
LABEL Q1='APPLICATION'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
DAYSREF = 'LAST REF*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
MBUSED = 'MEGABYTES*USED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2;
TITLE 'DASD7LUSED - DETAIL OF OLD DATASETS BASED ON LAST REFERENCE';

/***********************************************************/;
/*********** PROCESS DATASETS FLAGGED OVERALLOCATED ***/;
/***********************************************************/;

DATA DEVUSE; SET DEVALL;
IF FLAG = '....1...'B;

PROC SORT DATA=DEVUSE; BY ENV Q1 TYPE STORNAME MONTH DAY;

PROC UNIVARIATE NOPRINT DATA=DEVUSE;
BY ENV Q1 TYPE STORNAME ;
VAR MBALLOC MBUSED TOTCOST DAYCOST DIFCOST TDIFCOST DAYS;
OUTPUT OUT=DEVUSESU SUM=SUMMBA
SUMMBU SUMTCOST SUMDCOST SUMUCOST STDFCOST NOOFDAYS N=COUNT;
PROC SORT DATA=DEVUSESU; BY ENV Q1 TYPE STORNAME ;

PROC PRINTTO NEW PRINT=DASDUSES;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVUSESU;
BY ENV Q1 TYPE STORNAME; ID ENV Q1 TYPE STORNAME;
VAR COUNT SUMMBA SUMMBU SUMDCOST SUMTCOST;
LABEL Q1='APPLICATION'
COUNT ='NUMBER*DATASETS'
NOOFDAYS = 'AGE OF DSNS*IN DAYS'
STORNAME='STORAGE*GROUP*NAME'
SUMMBA = 'TOTAL*MEGABYTES*ALLOCATED'
SUMMBU = 'TOTAL*MEGABYTES*USED'
SUMTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
SUMDCOST = 'DAILY COST*MB ALLOCATED'
SUMUCOST = 'DAILY COST*MB UNUSED'
STDFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD7LUSES - SUMMARY OF DATASETS > 200 MB AND < 50% USED';

PROC PRINTTO NEW PRINT=DASDUSED;
PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVUSE;
BY ENV Q1 TYPE STORNAME ;
VAR DSNAME CREDATE DAYSREF DAYS MBALLOC MBUSED DAYCOST TOTCOST ;
LABEL Q1='APPLICATION'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
DAYSREF = 'LAST REF*IN DAYS'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
MBUSED = 'MEGABYTES*USED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2;
TITLE 'DASD7LUSED - DETAIL OF DATASETS > 200 MB AND < 50% USED';

/***********************************************************/;
/*********** PROCESS DATASETS FLAGGED AS LARGE *************/;
/***********************************************************/;
DATA DEVLRG; SET DEVALL;
IF FLAG = '...1....'B;

PROC SORT DATA=DEVLRG; BY ENV Q1 TYPE STORNAME MONTH DAY;

PROC UNIVARIATE NOPRINT DATA=DEVLRG;
BY ENV Q1 TYPE STORNAME ;
VAR MBALLOC MBUSED TOTCOST DAYCOST DIFCOST TDIFCOST DAYS;
OUTPUT OUT=DEVLRGSU SUM=SUMMBA
SUMMBU SUMTCOST SUMDCOST SUMUCOST STDFCOST NOOFDAYS N=COUNT;

PROC SORT DATA=DEVLRGSU; BY ENV Q1 TYPE STORNAME ;

PROC PRINTTO NEW PRINT=DASDLRGS;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVLRGSU;
PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVLRGSU;
BY ENV Q1 TYPE STORNAME; ID ENV Q1 TYPE STORNAME;
VAR COUNT SUMMBA SUMMBU SUMDCOST SUMTCOST;
LABEL Q1='APPLICATION'
COUNT ='NUMBER*DATASETS'
NOOFDAYS = 'AGE OF DSNS*IN DAYS'
STORNAME='STORAGE*GROUP*NAME'
SUMMBA = 'TOTAL*MEGABYTES*ALLOCATED'
SUMMBU = 'TOTAL*MEGABYTES*USED'
SUMTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
SUMDCOST = 'DAILY COST*MB ALLOCATED'
SUMUCOST = 'DAILY COST*MB UNUSED'
STDFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD7LLRGS - SUMMARY OF DATASETS > 890 MB BY APPL';

PROC PRINTTO NEW PRINT=DASDLRGD;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVLRG;
BY ENV Q1 TYPE STORNAME ;
VAR DSNAME CREDATE DAYSREF DAYS MBALLOC MBUSED DAYCOST TOTCOST ;
LABEL Q1='APPLICATION'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
DAYSREF = 'LAST REF*IN DAYS'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
MBUSED = 'MEGABYTES*USED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2;
TITLE 'DASD7LLRGD - DETAIL OF DATASETS > 890 MB BY APPL';

/***********************************************************/;
/*********** PROCESS ALL DATASET *************/;
/***********************************************************/;
DATA DEVTOT; SET DEVALL;
IF FLAG = '.......1'B;

/***********************************************************/;
/*********** INCLUDE SELECT FOR PROD QUALIFIER *********/;
/***********************************************************/;
%INCLUDE DASDIN(DASDSELP);

/***********************************************************/;
/*********** INCLUDE SELECT FOR TEST QUALIFIER *********/;
/***********************************************************/;
%INCLUDE DASDIN(DASDSELT);

PROC SORT DATA=DEVTOT; BY ENV Q1 QUAL;
PROC UNIVARIATE NOPRINT DATA=DEVTOT;
BY ENV Q1 QUAL ;
VAR MBALLOC MBUSED TOTCOST DAYCOST DIFCOST TDIFCOST DAYS;
OUTPUT OUT=DEVTOTSU SUM=SUMMBA
SUMMBU SUMTCOST SUMDCOST SUMUCOST STDFCOST NOOFDAYS N=COUNT;

PROC SORT DATA=DEVTOTSU; BY ENV Q1 QUAL;

PROC PRINTTO NEW PRINT=DASDALLS;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVTOTSU;
BY ENV Q1 QUAL ; ID ENV Q1 QUAL;
VAR COUNT SUMMBA SUMMBU SUMDCOST SUMTCOST;
LABEL Q1='APPLICATION'
QUAL='QUALIFIER'
COUNT ='NUMBER*DATASETS'
NOOFDAYS = 'AGE OF DSNS*IN DAYS'
STORNAME='STORAGE*GROUP*NAME'
SUMMBA = 'TOTAL*MEGABYTES*ALLOCATED'
SUMMBU = 'TOTAL*MEGABYTES*USED'
SUMTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
SUMDCOST = 'DAILY COST*MB ALLOCATED'
SUMUCOST = 'DAILY COST*MB UNUSED'
STDFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD7LTOTS - SUMMARY OF ALL DATASETS';

PROC PRINTTO NEW PRINT=DASDALLD;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVTOT;
STDFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS';
SUM COUNT SUMMBA SUMMBU SUMTCOST SUMDCOST ;
FORMAT SUMTCOST SUMDCOST SUMUCOST STDFCOST DOLLAR15.2;
TITLE 'DASD7LTOTS - SUMMARY OF ALL DATASETS';

PROC PRINTTO NEW PRINT=DASDALLD;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=DEVTOT;
BY ENV Q1 QUAL ;
VAR DSNAME CREDATE DAYSREF DAYS MBALLOC MBUSED DAYCOST TOTCOST ;
LABEL Q1='APPLICATION'
QUAL='QUALIFIER'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
DAYSREF = 'LAST REF*IN DAYS'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
MBUSED = 'MEGABYTES*USED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2;
TITLE 'DASD7LTOTD - DETAIL OF ALL DATASETS';

PROC RANK DATA=DEVTOT DESCENDING OUT=RANKOUT;
RANKS RANK;
VAR MBALLOC;
BY ENV Q1;
DATA RANKIN; SET RANKOUT;
IF RANK <= 50;
PROC PRINTTO NEW PRINT=DASDRNKD;

PROC SORT DATA=RANKIN; BY ENV Q1 RANK;

PROC PRINT NOOBS UNIFORM SPLIT='*' WIDTH=MIN DATA=RANKIN;
BY ENV Q1 ;
VAR DSNAME CREDATE DAYSREF DAYS RANK MBALLOC MBUSED DAYCOST TOTCOST ;
LABEL Q1='APPLICATION'
QUAL='QUALIFIER'
STORNAME='STORAGE*GROUP*NAME'
DSNAME = 'DATASET NAME'
CREDATE = 'DATASET*CREATION*DATE'
DAYSREF = 'LAST REF*IN DAYS'
RANK = 'DATASET*RANKING'
TOTCOST = 'TOTAL COST*MB ALLOCATED*TIMES NO.DAYS'
DAYCOST = 'DAILY COST*MB ALLOCATED'
DIFCOST = 'DAILY COST*MB UNUSED'
TDIFCOST = 'TOTAL COST*MB UNUSED*TIMES NO.DAYS'
DAYS = 'AGE OF DSN*IN DAYS'
MBALLOC = 'MEGABYTES*ALLOCATED'
MBUSED = 'MEGABYTES*USED'
DIFF = 'MEGABYTES*UNUSED';
SUM MBALLOC TOTCOST DAYCOST MBUSED;
FORMAT CREDATE DATE7. TOTCOST DAYCOST DIFCOST TDIFCOST DOLLAR15.2
RANK 3.0;
TITLE 'DASD7LRNKD - TOP 50 LARGEST DATASETS BY APPLICATION';
**************************** Bottom of Data ***********************

Bandita Bahubalendra · New User Joined: 08 May 2008 Posts: 15 Location: Bangalore

hi Dick,

Can you please suggest me where the mistake i have done?

enrico-sorichetti · Posted: Thu Dec 18, 2008 6:30 pm

Your first post was simply the alert messages for a user 999 abend

what does the SAS manual say about it??
before people lose time to look at Your code

Robert Sample · Posted: Thu Dec 18, 2008 6:31 pm

There should be SAS messages as to what error was generated -- look for ERROR: and post all such lines (in BBcode format please).

Robert Sample · Posted: Thu Dec 18, 2008 6:59 pm

And by the way, the BPXP018I messages are normal when a SAS job blows up -- SAS doesn't clean up its Unix System Services threads when it abends, so you normally get these messages if the job doesn't complete normally. All you've posted so far basically says a SAS job blew up -- but the reason for it will be in the SAS log.