Date:         Wed, 9 Aug 2000 13:33:01 +0100
Reply-To:     Peter Crawford <peter.crawford@DB.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Peter Crawford <peter.crawford@DB.COM>
Subject:      Re: MVS - output to multiple members of a PDS
Comments: To: Fabrizio1@usa.net
Content-type: text/plain; charset=us-ascii

There seems to be no problem writing to multiple members with filevar
It works for my os390(mvs) running sas v6.09e
here is the log
NOTE:  XTRNCRF.TEST.PDS.TEMP has been created.
1739  filename tpds '.test.pds.temp' disp=(,delete)
1740        space=(cyl,(1,1,1)) recfm=vb lrecl=1000;
1741  data _null_;
1742     length file $44 ;
1743     retain pds "%sysfunc(pathname(tpds))";
1744     file = pds !! '(A1234567)';
1745     file dum filevar=file ;
1746     put 'in the first member';
1747
1748     file = pds !! '(B1234)';
1749     file dum filevar=file ;
1750     put 'in the next member';
1751
1752     file = pds !! '(C1234)';
1753     file dum filevar=file ;
1754     put 'in the 3rd member';
1755    stop;
1756  run;

NOTE: The file DUM is:
      Dsname=XTRNCRF.TEST.PDS.TEMP(A1234567),
      Unit=3390,Volume=TSO422,Disp=SHR,Blksize=27998,
      Lrecl=1000,Recfm=VB

NOTE: The file DUM is:
      Dsname=XTRNCRF.TEST.PDS.TEMP(B1234),
      Unit=3390,Volume=TSO422,Disp=SHR,Blksize=27998,
      Lrecl=1000,Recfm=VB

NOTE: The file DUM is:
      Dsname=XTRNCRF.TEST.PDS.TEMP(C1234),
      Unit=3390,Volume=TSO422,Disp=SHR,Blksize=27998,
      Lrecl=1000,Recfm=VB

NOTE: 1 record was written to the file DUM.
      The minimum record length was 19.
      The maximum record length was 19.
NOTE: 1 record was written to the file DUM.
      The minimum record length was 18.
      The maximum record length was 18.
NOTE: 1 record was written to the file DUM.
      The minimum record length was 17.
      The maximum record length was 17.
NOTE: The DATA statement used 0.03 CPU seconds and 6402K.

The memlist window shows they are available
MEMLIST: XTRNCRF.TEST.PDS.TEMP-----------------------
 Command ===>

   Name          VV.MM  Created  Last Modified  Size

 _ A1234567      01.00 00/08/09 00/08/09 13:00     1
 _ B1234         01.00 00/08/09 00/08/09 13:00     1
 _ C1234         01.00 00/08/09 00/08/09 13:00     1

Datum:         09.08.2000 12:05
An:            SAS-L@listserv.uga.edu




Antwort an:    Fabrizio1@usa.net

Betreff:       Re: MVS - output to multiple members of a PDS
Nachrichtentext:


Mathur, Mukesh [IBM GSA] wrote in message
<7122E3C522C2D311B9C700508B02DCA3478FFF@NTMSG0099>...
>Hello MVS people,
>
>We have a job that updates multiple members of a PDS in one datastep. This
>has been running ok on one mainframe, but when we moved it to another
domain
>it failed. Error was' Open failed for pds - Multiple members of a single
PDS
>cannot be open for output at the same time'.

Cannot imagine MVS would allow multiple members to be written to the
same PDS at the very same time. Maybe your first site has special
system software running to handle this type of problem?

It is certainly not a virtue of SAS to facilitate techniques not supported
by
your operating system.

HTH? Fabrizio