|
sequential or member
of a PDS or PDSE1
|
||
| 1The type depends on what the fileref is associated with. | ||
filename raw 'myid.raw.datax' disp=shr; data out; infile raw; input ... ; run;
options syspref=sys2.sas7; filename raw2 '.raw.datax' disp=shr; data out; infile raw2; input ... ; run;
filename mypds 'user.my.pds'; data out; infile mypds(mydata); input ... ; run;
filename term1 terminal; data one; infile term1; input ... ; run;
x alloc fi(in1)
da('my.data1' 'my.pds(mem)' 'my.data2');
data mydata;
infile in1;
input ... ;
/* SAS statements */
run;filename in1 ('my.data1' 'my.pds(mem)' 'my.data2');filename outrdr sysout=a pgm=intrdr
recfm=fb lrecl=80;
data _null_;
length dsn $ 44;
input dsn $;
infile dummy filevar=dsn end=end;
file outrdr noprint notitles;
do until(end);
input;
put _infile_;
end;
datalines;
PROD.PAYROLL.JCL(BACKUP)
PROD.PAYROLL.JCL(TRANS)
PROD.PAYROLL.JCL(PRINT)
;
run;filename exfile1 'my.file.ex1'; filename exfile2 'my.file.ex2'; data mydata; infile exfile1; input ... ; /* SAS statements */ infile exfile2; input ... ; /* SAS statements */ infile exfile1; input ... ; /* SAS statements */ run;
filename in 'user.data';
data out;
infile in jfcb=jf dscb=ds volumes=vol
ucbname=ucb devtype=dev;
if (_n_ = 1) then
put @1 'Data Set Name:' @17 jf $52. /
@4 'Volume =' @20 vol $30. /
@4 'JFCB =' @20 jf $hex200. /
@4 'DSCB =' @20 ds $hex188. /
@4 'Devtype =' @20 dev $hex48. /
@4 'Device Addr =' @20 ucb $3. ;
run;