LISTSERV at the University of Georgia
Menubar Imagemap
Home Browse Manage Request Manuals Register
Previous messageNext messagePrevious in topicNext in topicPrevious by same authorNext by same authorPrevious page (April 1997, week 3)Back to main SAS-L pageJoin or leave SAS-L (or change settings)ReplyPost a new messageSearchProportional fontNon-proportional font
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


Back to: Top of message | Previous page | Main SAS-L page