Date:         Wed, 27 May 1998 09:19:45 -0500
Reply-To:     jbrown@cabsdev.ameritech.com
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         jim <jbrown@CABSDEV.AMERITECH.COM>
Subject:      Re: Downloading all members of PDS to Win NT
Content-Type: text/plain; charset=us-ascii

>From: Melvin Klassen <Klassen@UVIC.CA>
>Subject:      Re: Downloading all members of PDS to Win NT
>On Sat, 23 May 1998 20:35:39, ulrik@hey.com (Ulrik Hede) wrote:
>
> Can anyone tell me how to download all members of a MVS PDS to SAS on > Win NT
 or OS/2 ?
 
This will create a flat file containing the entire PDS.  XXXXXXXX will
be replace by the member name.  'END OF MEMBER' will follow the body of
each member.  You can then download to the PC any way you want.
 
 
//*********************************************************************
//*  P20SAS   - SAS      - CREATE REPORT                              *
//*********************************************************************
//P20SAS   EXEC SAS
//PDSIN    DD   DISP=SHR,DSN=MYPDS
//PDSFLAT  DD   DSN=MYPDS.FLATNOW,
//             DISP=(,CATLG),SPACE=(TRK,(60,60),RLSE),
//             DCB=(LRECL=80,RECFM=FB)
//SYSIN    DD   *
PROC SOURCE INDD=PDSIN OUTDD=PDSFLAT PAGE;
  BEFORE ' START MEMBER=XXXXXXXX' 15;
  AFTER  ' END OF MEMBER';
RUN;
 
 
HTH,
 
Jim Brown
mailto:jrbrown00@bigfoot.com