Date:         Wed, 16 Apr 1997 17:58:57 +0200
Reply-To:     Paul.Bartells@US.CCMAIL.PHILIPS.COM
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         Paul Bartells <Paul.Bartells@US.CCMAIL.PHILIPS.COM>
Subject:      Re: MVS info
Comments: To: "Patrick.Conry" <Patrick.Conry@ncal.kaiperm.org>

     This should take care of the questions.  I adapted this code beyond
     what is shown to perform a before/after comparison to track changes.
     It sure has been handy.
 
 
       /* THIS PROGRAM IS BORROWED FROM THE SAS COMPANION FOR MVS    */
 
      OPTIONS MISSING=' ';
      FILENAME INDD 'YOUR.PDS.NAME' DISP=SHR;
      FILENAME OUT '&TEMP';
      PROC SOURCE INDD=INDD NODATA NOPRINT DIRDD=OUT;
      DATA SASDB.PRODJCL1;
        INFILE OUT;
        INPUT MEMBER $8. TTR PIB3. IND PIB1. @;
        DATALEN=2*MOD(IND,32);
        IF (DATALEN = 30)
         THEN DO;
          INPUT VER PIB1. MOD PIB1. BLANK PIB2. CREATE PD4.
                CHANGED PD4. HH PK1. MM PK1. SIZE PIB2. INIT PIB2.
                MODL PIB2. USERID $8.;
          JCREATE = DATEJUL(CREATE);
          JCHANGE = DATEJUL(CHANGED);
          TIME = HMS(HH,MM,00);
          FORMAT JCREATE JCHANGE DATE8. TIME TIME5.;
          DROP HH MM CREATE CHANGED DATALEN TTR IND;
        END;
 
     Paul Bartells
     paul.bartells@us.ccmail.philips.com
     Origin Technology
     Arlington, TX