Date:         Wed, 26 Jun 1996 06:01:00 -0500
Reply-To:     H.MCLEAN@PLUM.FRUIT.COM
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         Hays McLean <H.MCLEAN@PLUM.FRUIT.COM>
Subject:      Re: Libnames on MVS

Tim Berryhill - Contract Programmer and General Wizard wrote:
> Hays, I will not say it is impossible to run your jobs on MVS against
> datasets on VM, but it would be worth a SUGI paper.  If you keep the
> results on MVS, it will be easier.  By the way, where is your raw data?
>  <snip>
>
> If you use JCL, the creating JCL will look like:
> //NEWDISK  DD DSN=HAYS.DISK.DATA.HISNAME,
> //            UNIT=SYSDA,
> //            SPACE=(CYL,(60,10)),
> //            DISP=(NEW,CATLG,DELETE)
>
> and you do not need a libname statement.  Once the data exists, the JCL
> would look like:
> //OLDDISK  DD DSN=HAYS.DISK.DATA.HISNAME,DISP=(OLD,KEEP,KEEP)
> <snip>
 
Tim,
 
The raw data that I am using is a flat file on MVS which I am having no
trouble reading using the JCL that I have been given.  What I need to do is
use this data in applications on CMS.
 
The current JCL plus a few lines of SAS are:
//SAS25S     JOB (SY,T,R),'HAYS MCLEAN',CLASS=T,MSGCLASS=J
//SASMVS   EXEC SAS,WTR1='Q',WTR2='(W,,1WID)',WTR3='*',RGN=6M
//SASLOG   DD  SYSOUT=*
//SASLIST  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
//NEWDISK  DD DSN=HAYS.DISK.DATA.STYLE,
//            UNIT=SYSDA,
//            SPACE=(CYL,(60,10)),
//            DISP=(NEW,CATLG,DELETE)
FILENAME STYLEFIL 'T2.ADDAR.STYLE.FILE';
DATA NEWDISK; INFILE STYLEFIL;
INPUT @1 STYLENO $12. @13 DESC $25. @38 DESCCD $14. @52 RPTCD $27.
      @79 RANGE $12. @91 PED $10. @101 PRICE PD6.4
      @107 COSTSTY $12. @119 CED $10. @129 COST PD6.4;
 
Since I'm not too familiar with JCL, I'm not sure what it all means.  The
NEWDISK JCL is the part you gave me. By running the above, I get no indication
that a data set is being created and exists on MVS.
--Hays McLean