MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

SAS and SMF

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
fonrob
Beginner


Joined: 13 Feb 2004
Posts: 7
Topics: 3
PostPosted: Wed Mar 23, 2005 7:39 pm    Post subject: SAS and SMF Reply with quote
I had a SAS6 job at anouther site that I could run That would show the history of a DSN ussed is there any utilities out there that can use I have tried to use this jcl and it can not find the program. I can see the program in the sys2.parmlib can anyone help

Code:

//XCHN1DS2 JOB (813105),'CHOA',
//             CLASS=X,
//             MSGCLASS=X,
//             TIME=1440,
//             NOTIFY=XCHN1
/*JOBPARM LINES=9999
/*ROUTE PRINT PRT10
//*
//STEP1    EXEC SAS6,
//             REGION=2048K,
//             OPTIONS='MACRO',
//             WORK='90000,5000',
//             LOUT='*',
//             ROUT='*'
//*MF      DD  DISP=SHR,DSN=DMSP.XTCW1.SMF.TYPES
//*MF      DD  DISP=SHR,DSN=SYSP.FM02SMF.DAILY.ACCUM
//SMF      DD  DSN=SYSP.RAWSMF.FM02.DAILY(0),
//             DISP=SHR
//*MF      DD  DISP=SHR,DSN=SYSP.BACKUP.RAWSMF.FM02.DAILY(0)
//*MF      DD  DISP=SHR,DSN=SYSP.RAWSMF.FM02.WEEKLY(0)
//*            DISP=SHR
//*MF       DD DSN=SYSP.RAWSMF.FM02.APR1995,
//*            DISP=SHR
//*MF       DD DSN=SYSP.RAWSMF.FM02.MAY1995,
//*            DISP=SHR
//*MF       DD DSN=SYSP.RAWSMF.FM02.JUN1995,
//*            DISP=SHR
//*MF       DD DSN=SYSP.RAWSMF.FM02.JUL1995,
//*            DISP=SHR
//SYSIN     DD *
 OPTIONS NOSOURCE;
 /********************************************************************/
       %LET DSN1 ='EIMPV.F02R04.SECF';
       %LET FULLHIST = 'Y';             /* Y = I/O, SCRATCH & RENAME */
                                        /* N = SCRATCH & RENAME ONLY */
 /*********************************************************************
 *     REPORT DATASET ACTIVITY ON A FULL OR PARTIAL DATASET NAME.     *
 *     SMF TYPE 14, 15, 61, 64, 65 & 66 ARES USED.                    *
 *     DATE, TIME, SMFID AND JOBNAME ARE INCLUDED.                    *
 *     FULLHIST = 'N' WILL SHOW SCRATCH & RENAME ACTIVITY ONLY.       *
 *                                                     (MLH) 11/18/86 *
 *                                                     REV.  11/10/92 *
 *********************************************************************/
DATA TEMP;
 INFILE SMF MISSOVER;
 LENGTH HISTORY $ 60;
 INPUT @2 TYPE PIB1.@;

 IF TYPE = 14 | TYPE = 15 |
    TYPE = 61 | TYPE = 64 |
    TYPE = 65 | TYPE = 66 ;

 INPUT @3    TIMEDATE SMFSTAMP8.
       @11   SMFID    $CHAR4.
       @15   JOBNAME  $CHAR8.@;

 IF &FULLHIST = 'Y'
   THEN DO;
     IF TYPE = 14 | TYPE = 15
       THEN DO;
         INPUT  @39 DEVTYP PIB1.
                @65 DSN      $CHAR44.
               @152 JFCDISP  PIB1.;
         IF JFCDISP = '....1...'B THEN DISP = 'SHR';
           ELSE
             IF JFCDISP = '11......'B THEN DISP = 'NEW';
               ELSE
                 IF JFCDISP = '1.......'B THEN DISP = 'MOD';
                   ELSE
                     IF JFCDISP = '.1......'B THEN DISP = 'OLD';
                       ELSE DISP = '***';

         IF TYPE = 14 THEN HISTORY = 'INPUT';
           ELSE
             IF TYPE = 15 THEN HISTORY = 'OUTPUT';

             IF JFCDISP = '.......1'B THEN DELETE;

       END;
   END;

 IF TYPE = 61
   THEN DO;
     INPUT @47   JOBNAME  $CHAR8.@
           @116  ENTYP    $1.
           @117  DSN      $CHAR44.@;

           HISTORY = 'OUTPUT'; DISP = 'NEW';
           IF ENTYP ^= 'C' THEN DELETE;
   END;

 IF TYPE = 64
   THEN DO;
     INPUT  @39  SITIND    PIB1.
            @40  COMPIND   PIB1.
            @85  DSN      $CHAR44.@
            @135 EXTLTH   PIB2.
      @137+12+EXTLTH TOTRECS PIB4.
      @137+16+EXTLTH TDELRECS PIB4.
      @137+20+EXTLTH TINSRECS PIB4.
      @137+24+EXTLTH TUPDRECS PIB4.
      @137+28+EXTLTH TINPRECS PIB4.
      @137+56+EXTLTH CHGRECS PIB4.
      @137+60+EXTLTH CDELRECS PIB4.
      @137+64+EXTLTH CINSRECS PIB4.
      @137+68+EXTLTH CUPDRECS PIB4.
      @137+72+EXTLTH CINPRECS PIB4.;
      IF SITIND ^= '1000000.'B THEN DELETE;

      IF CDELRECS ^= '0' |
         CINSRECS ^= '0' |
         CUPDRECS ^= '0'
          THEN DO;
              HISTORY = 'OUTPUT';
              DISP = 'OLD';
          END;
          ELSE DO;
              HISTORY = 'INPUT';
              DISP = 'SHR';
          END;

   END;

 IF TYPE = 65
   THEN DO;
     INPUT @47   JOBNAME  $CHAR8.@
           @71   FUNCTION $1.
           @116  ENTYP    $1.
           @117  DSN      $CHAR44.@;

         HISTORY = 'SCRATCHED'; DISP = 'OLD';
   END;

 IF TYPE = 66
   THEN DO;
     INPUT  @47  JOBNAME  $CHAR8.@
            @71  FUNCTION $CHAR1.@
            @117 DSN      $CHAR44.@
            @161 NEWNAME  $CHAR44.@;
         HISTORY = 'RENAMED   ' || NEWNAME;
         DISP = 'OLD';
         IF FUNCTION ^= 'R' THEN DELETE;
   END;

 DATE = DATEPART(TIMEDATE); FORMAT DATE DATE7.;
 TIME = TIMEPART(TIMEDATE); FORMAT TIME TIME8.;

 IF (DSN =: &DSN1) |
    (DSN =: &DSN2) |
    (DSN =: &DSN3) ;

PROC SORT NODUP;
 BY DSN DATE TIME;

PROC PRINT;
 TITLE1 'D A T A S E T   H I S T O R Y';
 TITLE3 ' ';
 ID DATE;
 VAR TIME SMFID JOBNAME DSN DISP HISTORY;
//
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Mar 23, 2005 8:52 pm    Post subject: Reply with quote
Fonrob,

The first thing you need to check is that your shop has a daily back up of smfdata. And also your shop needs to have MXG componenent licence of sas to be able to read the smf dump.

Btw what is the error message you get when trying to run the above jcl? Are you abending with s806? or someother error? post your error messages.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
fonrob
Beginner


Joined: 13 Feb 2004
Posts: 7
Topics: 3
PostPosted: Thu Mar 24, 2005 3:33 pm    Post subject: Reply with quote
I made some changes and now the job is running with no error codes but not producing any output. here is what the message is in the SASLOG

I Changed the sas program and dsn to what the datacenter reqiures.

NOTE: The SASUSER library was not specified. SASUSER library will now be the same
NOTE: All data sets and catalogs in the SASUSER library will be deleted at the end of the session. Use the NOWORKTERM,option,to
prevent their deletion.

NOTE: SAS system options specified are:
SORT=4 MACRO

NOTE: 33554432 bytes were available above the line at initialization.

NOTE: 2162688 bytes were available below the line at initialization.

NOTE: 33030144 bytes were available above the line after adjustment for MEMLEAVE=524288[/b]
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group