SAS(R) 9.1.3 Companion for z/OS

eturn;
h:
put @4 ’NAME ’
@15 ’CREATED’
@27 ’CHANGED’
@39 ’TIME’
@48 ’ ID ’;
put;
return;
run;
The following output shows the results.
Output 16.13 Producing Directory Records
The SAS System
NAME CREATED CHANGED TIME ID
OUT1601 1999-02-20 1999-02-20 10:50 USERID
OUT1602 1999-02-20 1999-02-20 10:54 USERID
OUT1603 1999-02-20 1999-02-20 10:59 USERID
Example of Generating Control Cards for IEBCOPY
Procedures under z/OS SOURCE Procedure 347
This example first produces control statements for the IBM utility program, IEBCOPY.
Then IEBCOPY executes, copying selected members.
//IEBPDS JOB (0,ROOM),’USERID’,
// NOTIFY=
/*JOBPARM FETCH
// EXEC SAS
//IN DD DSN=XXX.SUBLIB,DISP=SHR
//OUT DD DSN=&&TEMP,SPACE=(CYL,(1,2)),
// DISP=(,PASS),UNIT=DISK
//SYSIN DD *
proc source indd=in outdd=out nodata noprint;
select hc:;
select lm:;
select sasextrn;
first ’ COPY INDD=IN,OUTDD=NEWPDS’;
before ’ SELECT MEMBER=XXXXXXXX -----------’
17;
before ’ S M=XXXXXXXX ***ALIAS***’
17 ALIAS;
//S1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//IN DD DSN=XXX.SUBLIB,DISP=SHR
//NEWPDS DD DSN=&&NEW,SPACE=(CYL,(20,10,20)),
// UNIT=DISK
//SYSUT1 DD UNIT=DISK,SPACE=(CYL,(2,3))
//SYSUT2 DD UNIT=DISK,SPACE=(CYL,(2,3))
//SYSUT3 DD UNIT=DISK,SPACE=(CYL,(2,3))
//SYSIN DD DSN=&&TEMP,DISP=(OLD,DELETE)