|
On Thu, 11 Dec 2008 12:32:00 -0800, Choate, Paul@DDS <pchoate@DDS.CA.GOV>
wrote:
>Merry Christmas all -
>
>My IS people moved a large number of flat MVS files to tape that I need
>to read occasionally. I prefer to run things from PC SAS via remote
>connect, which won't allow me to have direct tape access, so I wrote a
>little code to copy the tapes to disk for a month so I can work with
>them:
>
>rsubmit;
>filename outrdr sysout=a pgm=intrdr recfm=fb lrecl=80;
>data _null_;
> infile cards;
> file outrdr noprint notitles;
> input;
> put _infile_;
>cards;
>//WVRTP2D JOB (DSDBX0000T,DS80,20,5,0),'DDS IS',TIME=1,
>// USER=DSPAULC,MSGCLASS=X,NOTIFY=DSPAULC
>/*ROUTE PRINT U370
>//STEP1 EXEC PGM=IEBGENER
>//SYSOUT DD SYSOUT=*
>//SYSPRINT DD SYSOUT=*
>//SYSIN DD DUMMY
>//SYSUT1 DD DISP=SHR,DSN=DS.FPIBS.MED503BN.FED0203.MEDTRANS.JAN2004.T
>//SYSUT2 DD DSN=DSPAULC.MED503BN.FED0203.MEDTRANS.JAN2004,
>// DISP=(NEW,CATLG,DELETE),
>// UNIT=(SYSDA,3),
>// SPACE=(CYL,(250,50),RLSE),
>// LABEL=(,,RETPD=30)
>;
>run; endrsubmit;
>
>This works like a charm, except my /*ROUTE PRINT card generates a
>warning that the RSUBMIT is seeing an open SAS comment and the
>ENDRSUBMIT isn't processed. I stopped the error by adding a DD comment
>card //**/ to make SAS see an end to the supposed comment.
>
>...
>/*ROUTE PRINT U370
>//**/
>...
>
>But this makes me wonder if there isn't a way for RSUBMIT to understand
>the CARDS input correctly so it doesn't think the /*ROUTE PRINT card is
>a SAS /* */ comment line.
...
hi, Paul,
I have not tried this, but this may work. first you substitute the line
with something distinct like:
[/*ROUTE PRINT U370*/]
and in the data step, get rid of the brackets and ending comments using
Peter Crawfod's _infile_ magic like:
_infile_ = substr(_infile_, 2, length(_infile_)-4);
Just an idea. I am not sure if it works or not...
Cheers,
Chang
p.s. Marry Christmas and Happy New Year to you!
|
