View previous topic :: View next topic
|
Author |
Message |
jjacome266
New User
.jpg)
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 |
|
Back to top |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
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....
Quote: |
BPXP017I DEBUGGER IS UNTRUSTED AND IS NOT ALLOWED TO DEBUG A PROGRAM CONTROLLED ENVIRONMENT.
Explanation: The debugger is untrusted (not permitted to BPX.DEBUG) and attempted to debug an environment that must stay program controlled, but is not allowed.
System Action: The request is denied.
User Response: Report the message to your security administrator.
Operator Response: None.
Source: OS/390 UNIX System Services kernel (BPX)
Detecting Module: BPXPRECP
Security Administrator Response: The untrusted user attempted to debug a program controlled environment. Determine if the debugger should be allowed to debug a program controlled environment and if so permit them to the BPX.DEBUG facility class profile with READ access. |
|
|
Back to top |
|
 |
PeD
Active User

Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
Where did you find message BPXP017I in question? |
|
Back to top |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
PeD wrote: |
Where did you find message BPXP017I in question? |
GC28-1785-14 |
|
Back to top |
|
 |
superk
Global Moderator

Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
Back to top |
|
 |
PeD
Active User

Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
Sorry, I know that, but I mean in jjacome266's question? |
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hellp,
Please post your jcl. We'll be better able to help if we can see what you submitted. |
|
Back to top |
|
 |
jjacome266
New User
.jpg)
Joined: 26 Jan 2006 Posts: 12
|
|
|
|
Code: |
//*
//* USE ENTRY 'SAS' FOR SAS VERSION 9.0 OR CHECK WITH YOUR SAS SUPPORT
//PASTEST PROC PREFIX=, HI-LEVEL INDEX OF PROWL DATA SETS
// YYMM=, YEAR & MONTH OF TAPE DISTRIBUTION
// ENTRY='SASXAL', SAS ENTRY POINT NAME
// TUNIT=, UNIT NAME FOR TAPE DEVICE
// TVOL=, VOLSER OF PROWL DISTRIBUTION TAPE
// WUNIT=, UNIT NAME FOR DASD WORK DATA SETS
// SASLIB=, SAS LOAD LIBRARY
// SASAUTO=, SAS MACAUTOS LIBRARY
// SASHELP=, SAS SASHELP LIBRARY
// SASMSG= SAS SASMSG LIBRARY
//* LOUT='*' SAS LOG SYSOUT CLASS
//*
//*********************************************************************
//* *
//* P A S T E S T *
//* *
//* THIS INSTREAM PROCEDURE: *
//* *
//* 1) PRODUCES PROWL REPORTS THAT MATCH THE SAMPLES *
//* IN THE PROWL USER'S GUIDE. *
//* *
//* NOTES: THIS PROCEDURE, WHEN EXECUTED SUCCESSFULLY, *
//* VALIDATES THE INSTALLATION OF THE PROWL SYSTEM. *
//* *
//* FILES 16 AND 18 OF THE DISTRIBUTION TAPE ARE READ *
//* BY THIS JOB. *
//* *
//*********************************************************************
//*
//* PRODUCE SAMPLE REPORTS USING THE PROWL IVP DATA SETS
//*
//PASSAS EXEC PGM=&ENTRY,REGION=4096K,DYNAMNBR=10
//*
//STEPLIB DD DISP=SHR,DSN=&SASLIB
//* USE DD STATEMENT BELOW IF USING SAS V8.1 LIBRARIES
// DD DISP=SHR,DSN=&PREFIX..PAS8.SAS810.LOAD /*PROWL LIB*/
//* USE DD STATEMENT BELOW IF USING SAS V8.2 LIBRARIES
// DD DISP=SHR,DSN=&PREFIX..PAS8.SAS820.LOAD
//* USE DD STATEMENT BELOW IF USING SAS V9.0 LIBRARIES
//* DD DISP=SHR,DSN=&PREFIX..SAS900.LOAD /* PROWL LIB */
//* USE DD STATEMENT BELOW IF USING SAS V9.1.3 LIBRARIES
//* DD DISP=SHR,DSN=&PREFIX..SAS913.LOAD /* PROWL LIB */
//*
//LIBRARY DD DISP=SHR,DSN=&PREFIX..PAS.FORMATS /* PROWL FMTS. */
//*
//CONFIG DD DISP=SHR,DSN=&PREFIX..PAS.PARMS(CONFIG)
//*
//WORK DD UNIT=&WUNIT,SPACE=(CYL,(100,20),,,ROUND)
//*
//SASAUTOS DD DISP=SHR,DSN=&SASAUTO
//SASHELP DD DISP=SHR,DSN=&SASHELP
//SASMSG DD DISP=SHR,DSN=&SASMSG
//SASLOG DD SYSOUT=*
//SASLIST DD SYSOUT=*
//*
//*SASLOG DD SYSOUT=&LOUT,
//* DCB=(RECFM=VBA,LRECL=137,BLKSIZE=141)
//*SASLIST DD SYSOUT=&LOUT,
//* DCB=(RECFM=VBA,LRECL=137,BLKSIZE=141)
//SASPARMS DD UNIT=&WUNIT,SPACE=(400,(100,300)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)
//FT15F002 DD UNIT=&WUNIT,SPACE=(400,(100,300)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)
//*
//SORTWK01 DD UNIT=&WUNIT,SPACE=(TRK,(100,300))
//SORTWK02 DD UNIT=&WUNIT,SPACE=(TRK,(100,300))
//SORTWK03 DD UNIT=&WUNIT,SPACE=(TRK,(100,300))
//SORTWK04 DD UNIT=&WUNIT,SPACE=(TRK,(100,300))
//*
//FT96F001 DD UNIT=&WUNIT,SPACE=(TRK,(10,30))
//FT97F001 DD UNIT=&WUNIT,SPACE=(TRK,(10,30))
//FT98F001 DD UNIT=&WUNIT,SPACE=(TRK,(10,30))
//FT99F001 DD UNIT=&WUNIT,SPACE=(TRK,(10,30))
//*
//SOURCE DD DISP=SHR,DSN=&PREFIX..PAS&YYMM..SOURCE
//*
//VENDFMID DD DISP=SHR,DSN=&PREFIX..PAS.PARMS(VENDFMID)
//*
//USRFMID DD DISP=SHR,DSN=&PREFIX..PAS.PARMS(USRFMID)
//*
//PARMS DD DISP=SHR,DSN=&PREFIX..PAS.PARMS
//*
//SYSUDUMP DD SYSOUT=*
//*
//MASTER DD DSN=&&PAS, * TEMP TEST DATA BASE*
// DISP=(,PASS),
// UNIT=&WUNIT,
// DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144),
// SPACE=(TRK,(350,50),RLSE)
//*
//PASIVPI DD DSN=AI.PAS&YYMM..PASIVP, * TAPE -TEST PROWL DATA*
// DISP=OLD,
// UNIT=&TUNIT,
// LABEL=(18,SL,EXPDT=98000),
// VOL=(,RETAIN,SER=&TVOL)
//*
//RUNOPTS DD DUMMY * RUN TIME OPTIONS *
//*
//PROBLEMS DD DSN=&&TEMP, * EXTRACTED PROBLEMS *
// DISP=(,PASS),
// UNIT=&WUNIT,
// DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144),
// SPACE=(TRK,(30,30))
//*
//SMPPUNCH DD DSN=AI.PAS&YYMM..SMPIVP, * TAPE -TEST SMP DATA*
// DISP=OLD,
// UNIT=AFF=PASIVPI,
// LABEL=(20,SL,EXPDT=98000),
// VOL=SER=&TVOL
// PEND
//*
//* EXECUTE THE PASTEST INSTREAM PROCEDURE
//*
//JS10 EXEC PASTEST,PREFIX=SYS2.PROWL,
// YYMM=0610, YEAR & MONTH OF TAPE DISTRIBUTION
// TUNIT=CART, UNIT NAME FOR TAPE DEVICE
// TVOL=PW0610, VOLSER OF PROWL DISTRIBUTION TAPE
// WUNIT=SYSDA, UNIT NAME FOR DASD WORK DATA SETS
// SASLIB=SYS1.SAS.LIBRARY,
// SASAUTO=SYS1.SAS.AUTOLIB,
// SASHELP=SYS1.SAS.SASHELP,
// SASMSG=SYS1.SAS.SASMSG
//* LOUT='*' SAS LOG SYSOUT CLASS
//*
//PASSAS.RUNOPTS DD *
%PASOPTS(TITLE='PROWL RELEASE 6 VALIDATION DATA',
REPORTS=1 2 3 4 6 7
)
/*
//PASSAS.SYSIN DD *
PROC CIMPORT LIBRARY=MASTER INFILE=PASIVPI TAPE;
RUN;
%INCLUDE SOURCE(#PASMAC);
OPTIONS NOSOURCE;
%INCLUDE SOURCE(PASSMP);
%INCLUDE SOURCE(PASSMA);
%LET RPTDATA=PROBLEMS.APARS;
%PASRPTS(&PASRPTS); /* VARIABLE SET BY %PASOPTS */
RUN;
/*
|
*******NOW COMES THE LOG************
Code: |
STMT NO. MESSAGE
3 IEFC001I PROCEDURE PASTEST WAS EXPANDED USING INSTREAM PROCEDURE DEFIN
33 IEF604I EXPDT SUBPARAMETER OF LABEL KEYWORD SPECIFIES ZERO DAYS VALUE
36 IEF604I EXPDT SUBPARAMETER OF LABEL KEYWORD SPECIFIES ZERO DAYS VALUE
ICH70001I ARCHIVE LAST ACCESS AT 10:14:09 ON FRIDAY, JANUARY 12, 2007
IEF236I ALLOC. FOR A143516C PASSAS JS10
IEF237I 05AA ALLOCATED TO STEPLIB
IEF237I 0520 ALLOCATED TO
IEF237I 0520 ALLOCATED TO
IEF237I 0520 ALLOCATED TO LIBRARY
IEF237I 0520 ALLOCATED TO CONFIG
IGD100I 0597 ALLOCATED TO DDNAME WORK DATACLAS ( )
IEF237I 05AA ALLOCATED TO SASAUTOS
IEF237I 05AA ALLOCATED TO SASHELP
IEF237I 05AA ALLOCATED TO SASMSG
IEF237I JES2 ALLOCATED TO SASLOG
IEF237I JES2 ALLOCATED TO SASLIST
IGD100I 0557 ALLOCATED TO DDNAME SASPARMS DATACLAS ( )
IGD100I 054F ALLOCATED TO DDNAME FT15F002 DATACLAS ( )
IGD100I 0517 ALLOCATED TO DDNAME SORTWK01 DATACLAS ( )
IGD100I 05B7 ALLOCATED TO DDNAME SORTWK02 DATACLAS ( )
IGD100I 051C ALLOCATED TO DDNAME SORTWK03 DATACLAS ( )
IGD100I 05B7 ALLOCATED TO DDNAME SORTWK04 DATACLAS ( )
IGD100I 0517 ALLOCATED TO DDNAME FT96F001 DATACLAS ( )
IGD100I 054F ALLOCATED TO DDNAME FT97F001 DATACLAS ( )
IGD100I 0517 ALLOCATED TO DDNAME FT98F001 DATACLAS ( )
IGD100I 0557 ALLOCATED TO DDNAME FT99F001 DATACLAS ( )
IEF237I 0520 ALLOCATED TO SOURCE
IEF237I 0520 ALLOCATED TO VENDFMID
IEF237I 0520 ALLOCATED TO USRFMID
IEF237I 0520 ALLOCATED TO PARMS
IEF237I JES2 ALLOCATED TO SYSUDUMP
IGD100I 051C ALLOCATED TO DDNAME MASTER DATACLAS ( )
IEF237I 0405 ALLOCATED TO PASIVPI
IEF237I JES2 ALLOCATED TO RUNOPTS
IGD100I 0517 ALLOCATED TO DDNAME PROBLEMS DATACLAS ( )
IEF237I 0405 ALLOCATED TO SMPPUNCH
IEF237I JES2 ALLOCATED TO SYSIN
ERROR: OPTION NOT RECOGNIZED - *
BPXP018I THREAD 0B27F70000000000, IN PROCESS 50331822, ENDED
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 000003E7, AND REASON CODE
00000000.
IEF472I A143516C PASSAS JS10 - COMPLETION CODE - SYSTEM=000 USER=0999 REASON=000
IEF285I SYS1.SAS.LIBRARY KEPT
IEF285I VOL SER NOS= MIC005.
IEF285I SYS2.PROWL.PAS8.SAS810.LOAD KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS8.SAS820.LOAD KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS.FORMATS KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS.PARMS KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS07012.T113742.RA000.A143516C.R0148700 DELETED
IEF285I VOL SER NOS= PUB003.
IEF285I SYS1.SAS.AUTOLIB KEPT
IEF285I VOL SER NOS= MIC005.
IEF285I SYS1.SAS.SASHELP KEPT
IEF285I VOL SER NOS= MIC005.
IEF285I SYS1.SAS.SASMSG KEPT
IEF285I VOL SER NOS= MIC005.
IEF285I ARCHIVE.A143516C.JOB06461.D0000103.? SYSOUT
IEF285I ARCHIVE.A143516C.JOB06461.D0000104.? SYSOUT
IEF285I SYS07012.T113742.RA000.A143516C.R0148701 DELETED
IEF285I VOL SER NOS= PUB002.
IEF285I SYS07012.T113742.RA000.A143516C.R0148702 DELETED
IEF285I VOL SER NOS= PUB006.
IEF285I SYS07012.T113742.RA000.A143516C.R0148703 DELETED
IEF285I VOL SER NOS= PUB001.
IEF285I SYS07012.T113742.RA000.A143516C.R0148704 DELETED
IEF285I VOL SER NOS= PUB004.
IEF285I SYS07012.T113742.RA000.A143516C.R0148705 DELETED
IEF285I VOL SER NOS= PUB005.
IEF285I SYS07012.T113742.RA000.A143516C.R0148706 DELETED
IEF285I VOL SER NOS= PUB004.
IEF285I SYS07012.T113742.RA000.A143516C.R0148707 DELETED
IEF285I VOL SER NOS= PUB001.
IEF285I SYS07012.T113742.RA000.A143516C.R0148708 DELETED
IEF285I VOL SER NOS= PUB006.
IEF285I SYS07012.T113742.RA000.A143516C.R0148709 DELETED
IEF285I VOL SER NOS= PUB001.
IEF285I SYS07012.T113742.RA000.A143516C.R0148710 DELETED
IEF285I VOL SER NOS= PUB002.
IEF285I SYS2.PROWL.PAS0610.SOURCE KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS.PARMS KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS.PARMS KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I SYS2.PROWL.PAS.PARMS KEPT
IEF285I VOL SER NOS= MVS003.
IEF285I ARCHIVE.A143516C.JOB06461.D0000105.? SYSOUT
IEF285I AI.PAS0610.PASIVP KEPT
IEF285I VOL SER NOS= PW0610.
IEF285I ARCHIVE.A143516C.JOB06461.D0000101.? SYSIN
IEF285I AI.PAS0610.SMPIVP KEPT
IEF285I VOL SER NOS= PW0610.
IEF285I ARCHIVE.A143516C.JOB06461.D0000102.? SYSIN
IEF373I STEP/PASSAS /START 2007012.1137
IEF374I STEP/PASSAS /STOP 2007012.1137 CPU 0MIN 00.16SEC SRB 0MIN 00.04
IEF285I SYS07012.T113744.RA000.A143516C.R0148713 KEPT
IEF285I VOL SER NOS= PUB005.
IEF285I SYS07012.T113742.RA000.A143516C.PAS.H01 DELETED
IEF285I VOL SER NOS= PUB005.
IEF237I 0517 ALLOCATED TO SYS00002
IEF285I SYS07012.T113744.RA000.A143516C.R0148714 KEPT
IEF285I VOL SER NOS= PUB001.
IEF285I SYS07012.T113742.RA000.A143516C.TEMP.H01 DELETED
IEF285I VOL SER NOS= PUB001.
IEF375I JOB/A143516C/START 2007012.1137
IEF376I JOB/A143516C/STOP 2007012.1137 CPU 0MIN 00.16SEC SRB 0MIN 00.04S
|
|
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
You might try removing the comment info from this line
Code: |
%PASRPTS(&PASRPTS); /* VARIABLE SET BY %PASOPTS */ |
If you want to keep the comment, place it on a separate line.
In additon to the
Code: |
ERROR: OPTION NOT RECOGNIZED - *
BPXP018I THREAD 0B27F70000000000, IN PROCESS 50331822, ENDED |
that was placed in the deallocation info, there may also be something in one of the SYSOUT datasets. |
|
Back to top |
|
 |
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. |
|
Back to top |
|
 |
Paul Hunter
New User
Joined: 02 Apr 2008 Posts: 2 Location: Yonkers, NY
|
|
|
|
Was there ever a resolution to this problem? I am encountering the same issue. |
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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. |
|
Back to top |
|
 |
Paul Hunter
New User
Joined: 02 Apr 2008 Posts: 2 Location: Yonkers, NY
|
|
|
|
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. |
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
We found the solution to our abend: |
Thank you for posting that your issue is resolved.
d |
|
Back to top |
|
 |
doczee
New User
Joined: 28 Aug 2008 Posts: 1 Location: USA
|
|
|
|
Code: |
---- WEDNESDAY, 27 AUG 2008 ----
$HASP971 OS/EM VER 6.1 - JCL CONVERTED BY JES2 ON PRD1
IEF677I WARNING MESSAGE(S) FOR JOB PCICWWBH ISSUED
ICH70001I BSYSID LAST ACCESS AT 12:00:06 ON WEDNESDAY, AUGUST 27, 2008
$HASP373 PCICWWBH STARTED - INIT 6 - CLASS P - SYS PRD1
E48E03I PCICWWBH production run 00385 gen cycle 00000 beginning
IEF403I PCICWWBH - STARTED - TIME=12.00.37
- --TIMINGS (MINS.)--
-JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV
-PCICWWBH ZEKECTL FLUSH 0 0 .00 .00 .3 0
-PCICWWBH DELETE 00 4 69 .00 .00 .0 516
SVM0500I PCICWWBH,DEFINE,DD,PCICS.USAGE.CPU.HOURSTAT INITIALIZED
-PCICWWBH DEFINE 00 9 2 .00 .00 .0 2658
-PCICWWBH STEP01 PROC0010 00 159K 126K .60 .04 6.2 8913K
-PCICWWBH CICSPD01 STEP02 00 450 149 .04 .00 .0 559K
-PCICWWBH STEP01 PROC0010 00 4894 1643 .02 .00 .1 399K
-PCICWWBH CICSPD02 STEP02 00 71 12 .00 .00 .0 43207
BPXP018I THREAD 27A3679000000002, IN PROCESS 50331920, ENDED 267
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 000003E7, AND REASON CODE
00000000.
BPXP018I THREAD 279EB29000000000, IN PROCESS 50331920, ENDED 268
WITHOUT BEING UNDUBBED WITH COMPLETION CODE 040003E7, AND REASON CODE
00000000.
SVM0500I PCICWWBH,STEP01,SASLIST,SYS08240.T120012.RA000.PCICWWBH.HOUR.H01 INIT
S ABENDMSG,P='PCICWWBH - ABEND=S000 U0999 TERMINATED ABNORMALLY'
IEF450I PCICWWBH PROC0010 STEP01 - ABEND=S000 U0999 REASON=00000000 271
TIME=12.07.17 |
JCL is as follows....
Code: |
//PCICWWBH JOB (CPSI,,,IVP),'PCICWWBH',MSGCLASS=P,
// MSGLEVEL=(1,1),CLASS=P,USER=BSYSID
//*
//CPUHSTAT PROC PRMJOBN=,GDGLV=-1
//STEP01 EXEC SASPROD,
// PRMOPTN='MACRO MAUTOSOURCE S=72 S2=72 DQUOTE'
//SASAUTOS DD DISP=SHR,DSN=SYS2.OMEGA.CICS.JMFE.KC2SPROG,VOL=
//SOURCLIB DD DISP=SHR,DSN=SYS2.OMEGA.CICS.JMFE.KC2SPROG
//DAILY DD DISP=SHR,DSN=PCICS.OMEGCICS.&PRMJOBN..WEEKLY(&GDGLV)
//SASLIST DD DSN=&&HOUR,UNIT=TEMPDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,10)),DCB=(RECFM=FB,LRECL=133,DSORG=PS)
//SYSIN DD SUBSYS=(CCSS,
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=00,HRHI=00)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=01,HRHI=01)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=02,HRHI=02)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=03,HRHI=03)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=04,HRHI=04)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=05,HRHI=05)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=06,HRHI=06)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=07,HRHI=07)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=08,HRHI=08)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=09,HRHI=09)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=10,HRHI=10)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=11,HRHI=11)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=12,HRHI=12)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=13,HRHI=13)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=14,HRHI=14)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=15,HRHI=15)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=16,HRHI=16)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=17,HRHI=17)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=18,HRHI=18)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=19,HRHI=19)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=20,HRHI=20)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=21,HRHI=21)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=22,HRHI=22)',
// '%KC2DRP1 (DAILYLO=01,DAILYHI=07,HRLO=23,HRHI=23)')
//*
//STEP02 EXEC PGM=IKJEFT01,REGION=8M,PARM='CICHOUR1'
//SYSEXEC DD DSN=SYS2.COMMON.SYSEXEC,DISP=SHR
//DATEREF DD DSN=PCICS.USAGE.HISTORY.DATE,DISP=SHR
//RESP DD DSN=&&HOUR,DISP=(OLD,DELETE)
//OUTTIME DD DSN=PCICS.USAGE.CPU.HOURSTAT,UNIT=SYSDA,
// SPACE=(CYL,(10,10)),DISP=(MOD,CATLG)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
// PEND
//*
//DELETE EXEC PGM=IEFBR14
//DD DD DSN=PCICS.USAGE.CPU.HOURSTAT,DISP=(MOD,DELETE),
// DCB=(RECFM=FB,DSORG=PS,LRECL=133),UNIT=SYSDA,
// SPACE=(TRK,1)
//*
//DEFINE EXEC PGM=IEFBR14
//DD DD DSN=PCICS.USAGE.CPU.HOURSTAT,DISP=(NEW,CATLG),
// DCB=(RECFM=FB,DSORG=PS,LRECL=133),UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE)
//*
//CICSPD01 EXEC CPUHSTAT,PRMJOBN=CICSPD01
//CICSPD02 EXEC CPUHSTAT,PRMJOBN=CICSPD02
//CICSPD04 EXEC CPUHSTAT,PRMJOBN=CICSPD04
//CICSPD05 EXEC CPUHSTAT,PRMJOBN=CICSPD05
//CICSPD06 EXEC CPUHSTAT,PRMJOBN=CICSPD06
//CICSPD07 EXEC CPUHSTAT,PRMJOBN=CICSPD07
//CICSPCPX EXEC CPUHSTAT,PRMJOBN=CICSPCPX
//CICSPCP2 EXEC CPUHSTAT,PRMJOBN=CICSPCP2
//CICSPD0A EXEC CPUHSTAT,PRMJOBN=CICSPD0A
//*ICSP4A1 EXEC CPUHSTAT,PRMJOBN=CICSP4A1
//CICSPKB0 EXEC CPUHSTAT,PRMJOBN=CICSPKB0
//*
//STEP03 EXEC PGM=SORT,PARM='DYNALLOC=(SYSDA,2)'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTPRT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=PCICS.USAGE.CPU.HOURSTAT
//SORTOUT DD DISP=SHR,DSN=PCICS.USAGE.CPU.HOURSTAT
//SYSIN DD SUBSYS=(CCSS,
// ' SORT FIELDS=(12,8,CH,A,1,10,CH,A,21,4,CH,A,79,2,CH,A)')
//*
//STEP04 EXEC PGM=IKJEFT01,REGION=8M,PARM='CICHOUR2'
//SYSEXEC DD DSN=SYS2.COMMON.SYSEXEC,DISP=SHR
//DATEREF DD DSN=PCICS.USAGE.HISTORY.DATE,DISP=SHR
//INPUT DD DISP=SHR,DSN=PCICS.USAGE.CPU.HOURSTAT
//OUTPUT DD DSN=&&HOUR0,DISP=(NEW,PASS),
// SPACE=(CYL,(10,10)),DCB=(RECFM=FB,LRECL=530,DSORG=PS)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//*
//STEP05 EXEC PGM=SORT,PARM='DYNALLOC=(SYSDA,2)'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTPRT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&&HOUR0
//SORTOUT DD DSN=&&HOUR11,UNIT=TEMPDA,DISP=(NEW,PASS),
// SPACE=(CYL,(10,10)),DCB=*.SORTIN
//SYSIN DD *
SORT FIELDS=(12,13,CH,A)
//*
//STEP06 EXEC PGM=SORT,PARM='DYNALLOC=(SYSDA,2)'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTPRT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=PCICS.USAGE.HISTORY.TRAN(00)
//SORTOUT DD DSN=&&HOUR12,UNIT=TEMPDA,DISP=(NEW,PASS),
// SPACE=(TRK,(10,10)),DCB=*.SORTIN
//SYSIN DD *
SORT FIELDS=(12,13,CH,A)
INCLUDE COND=(16,1,CH,EQ,C'P')
SUM FIELDS=NONE
//*
//STEP07 EXEC PGM=IKJEFT01,REGION=8M,PARM='CICRESP2'
//SYSEXEC DD DSN=SYS2.COMMON.SYSEXEC,DISP=SHR
//RESP DD DSN=&&HOUR11,DISP=(OLD,DELETE)
//RECD DD DSN=&&HOUR12,DISP=(OLD,DELETE)
//OUTPUT DD DSN=&&HOUR1,DISP=(NEW,PASS),
// DCB=(RECFM=FB,LRECL=530,DSORG=PS,BUFNO=30),
// UNIT=SYSDA,SPACE=(TRK,(240,240),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//*
//STEP08 EXEC PGM=SORT,PARM='DYNALLOC=(SYSDA,2)'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTPRT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SORTIN DD DISP=(SHR,PASS),DSN=&&HOUR1
// DD DISP=SHR,DSN=PCICS.USAGE.HISTORY.CPU.HOUR.DAILY(00)
//SORTOUT DD DSN=&&HOUR2,DISP=(NEW,PASS),
// SPACE=(CYL,(10,10)),DCB=(RECFM=FB,LRECL=530,DSORG=PS)
//SYSIN DD SUBSYS=(CCSS,
// ' SORT FIELDS=(12,13,CH,A,1,10,CH,A)',
// ' OMIT COND=(1,4,CH,EQ,C''Date'')')
/*
//STEP09 EXEC PGM=IKJEFT01,REGION=8M,PARM='CICHOUR3'
//SYSEXEC DD DSN=SYS2.COMMON.SYSEXEC,DISP=SHR
//DATEREF DD DSN=PCICS.USAGE.HISTORY.DATE,DISP=SHR
//I//OUTPUT DD DSN=PCICS.USAGE.HISTORY.CPU.HOUR.DAILY(+1),
// SPACE=(CYL,(10,10)),DCB=(RECFM=FB,LRECL=530,DSORG=PS),
// DISP=(NEW,CATLG)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//*
// |
|
|
Back to top |
|
 |
Robert Sample
Global Moderator

Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
What's the SAS output look like? U0999 can be a SAS error so seeing what SAS output could help. |
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 ). |
|
Back to top |
|
 |
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 |
|
Back to top |
|
 |
enrico-sorichetti
Superior Member

Joined: 14 Mar 2007 Posts: 10896 Location: italy
|
|
|
|
Quote: |
Can anyone please give a faster reply to this one |
replying is on ...
voluntary basis,
unpaid
time availability
knowledge
posting style
sarcasm on replies speed will not help to get better answers
it might rather put you in a benevolence range close to 0 |
|
Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
below is the screen shot of my jcl |
I see no jcl. . .
When posting code, jcl, data, or utility control statements do not use screenshot, but rather use copy/paste and the "Code" tag for alignment and readability. Use Preview to see how your post will appear to the forum and when you are satisfied with the way your post is shown, click Submit. Screenshots typically just make a mess and are usually deleted.
In addition to posting the jcl/control statements, also post any other diagnostic info including the message id's. |
|
Back to top |
|
 |
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 *********************** |
|
Back to top |
|
 |
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? |
|
Back to top |
|
 |
enrico-sorichetti
Superior Member

Joined: 14 Mar 2007 Posts: 10896 Location: italy
|
|
|
|
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 |
|
Back to top |
|
 |
Robert Sample
Global Moderator

Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
There should be SAS messages as to what error was generated -- look for ERROR: and post all such lines (in BBcode format please). |
|
Back to top |
|
 |
Robert Sample
Global Moderator

Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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. |
|
Back to top |
|
 |
|
|