IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error in my output: ABEND=S000 U0999


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jjacome266

New User


Joined: 26 Jan 2006
Posts: 12

PostPosted: Thu Jan 11, 2007 12:40 am
Reply with quote

: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
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Jan 11, 2007 2:01 am
Reply with quote

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.... icon_question.gif
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
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Thu Jan 11, 2007 2:05 am
Reply with quote

Where did you find message BPXP017I in question?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Jan 11, 2007 2:27 am
Reply with quote

PeD wrote:
Where did you find message BPXP017I in question?

GC28-1785-14
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4651
Location: Raleigh, NC, USA

PostPosted: Thu Jan 11, 2007 2:27 am
Reply with quote

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
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Thu Jan 11, 2007 2:36 am
Reply with quote

Sorry, I know that, but I mean in jjacome266's question?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Jan 11, 2007 9:00 am
Reply with quote

Hellp,

Please post your jcl. We'll be better able to help if we can see what you submitted.
Back to top
View user's profile Send private message
jjacome266

New User


Joined: 26 Jan 2006
Posts: 12

PostPosted: Fri Jan 12, 2007 11:06 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Jan 13, 2007 2:45 am
Reply with quote

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
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Jan 14, 2007 7:45 am
Reply with quote

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
View user's profile Send private message
Paul Hunter

New User


Joined: 02 Apr 2008
Posts: 2
Location: Yonkers, NY

PostPosted: Wed Apr 02, 2008 6:07 pm
Reply with quote

Was there ever a resolution to this problem? I am encountering the same issue.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Apr 02, 2008 10:02 pm
Reply with quote

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
View user's profile Send private message
Paul Hunter

New User


Joined: 02 Apr 2008
Posts: 2
Location: Yonkers, NY

PostPosted: Wed Apr 02, 2008 10:12 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Apr 02, 2008 10:20 pm
Reply with quote

Hello,

Quote:
We found the solution to our abend:
Thank you for posting that your issue is resolved.

d
Back to top
View user's profile Send private message
doczee

New User


Joined: 28 Aug 2008
Posts: 1
Location: USA

PostPosted: Thu Aug 28, 2008 6:01 am
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Aug 28, 2008 6:42 am
Reply with quote

What's the SAS output look like? U0999 can be a SAS error so seeing what SAS output could help.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 28, 2008 6:54 am
Reply with quote

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 icon_wink.gif ).
Back to top
View user's profile Send private message
Bandita Bahubalendra

New User


Joined: 08 May 2008
Posts: 15
Location: Bangalore

PostPosted: Wed Dec 17, 2008 3:37 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Wed Dec 17, 2008 3:43 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Dec 17, 2008 8:50 pm
Reply with quote

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
View user's profile Send private message
Bandita Bahubalendra

New User


Joined: 08 May 2008
Posts: 15
Location: Bangalore

PostPosted: Thu Dec 18, 2008 6:22 pm
Reply with quote

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
View user's profile Send private message
Bandita Bahubalendra

New User


Joined: 08 May 2008
Posts: 15
Location: Bangalore

PostPosted: Thu Dec 18, 2008 6:25 pm
Reply with quote

hi Dick,

Can you please suggest me where the mistake i have done?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Thu Dec 18, 2008 6:30 pm
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Dec 18, 2008 6:31 pm
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Dec 18, 2008 6:59 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Jes2 command output All Other Mainframe Topics 4
No new posts WER999A - UNSUCCESSFUL SORT 8ED U Ab... SYNCSORT 5
No new posts Generate output lines (SYSIN card for... DFSORT/ICETOOL 4
No new posts the system or user abend SF0F R=NULL COBOL Programming 0
No new posts Conditional replace values in output ... DFSORT/ICETOOL 3
Search our Forums:

Back to Top