This doesn't work.  I got no error messages, but I also could not find any evidence that the program was submitted for mainframe execution. Below is my PC SAS code.  Please advise. Thanks.  -- Warren %let cs2=mvsw.sysplex.bns;          /* macro cs2 points to site 2 */ signon cs2.spaw820 user=_prompt_;   /* command to connect to cs2  */ rsubmit; tso sas input("VQ487.VQ3.PRG(CONTENT)"); endrsubmit; signoff cs2.spaw820;                /* command to disconnect cs2  */ ... View more

I don't get an error.  I even added the quotes as follows. x " SUBMIT 'VQ487.VQ3.PRG(CONTENT)' " I'm running 8.2 on the mainframe, but I can also easily change it to 9.2 by using the following. //STEP1   EXEC SAS9 ... View more

You are right, are you Bruce?  Please give me a sample program.  Thanks.  -- Warren ... View more

I tried the following in PC SAS, but it did not work.  Please give me a sample PC SAS program that runs a mainframe job.  Thanks.  -- Warren %let cs2=mvsw.sysplex.bns;          /* macro cs2 points to site 2 */ signon cs2.spaw820 user=_prompt_;   /* command to connect to cs2  */ rsubmit; x " SUBMIT VQ487.VQ3.PRG(CONTENT)"; endrsubmit; signoff cs2.spaw820;                /* command to disconnect cs2  */ ... View more

When I use ods pdf in mainframe, it's a binary file. I need to ftp the binary file from mainframe to pc after the sas program. ... View more

We're still using SAS 8.2 in Mainframe. It doesn't work when I ftp the binary file to PC. ... View more

//* The following pass the pds member MEMNAME as input //MEM DD * MEMNAME /* * You need to change part of the program above to the following; DATA _NULL_; INFILE mem END=EOF; INPUT MEMBER $8. ; call symput ('MEM'||TRIM(LEFT(PUT(_n_,4.))),member); IF EOF THEN DO; CALL SYMPUT('MEMMAX',TRIM(LEFT(PUT(_n_,4.)))); PUT 'MEMMAX=' _n_; END; RUN; ... View more

* My code for find & replace follows; FIRST = index(line,'%'); DO WHILE (FIRST > 0); /* AT LEAST 1ST OF PAIR FOUND. */ /* FIND 2ND OF PAIR */ len = index(substr(LINE,first+1),'%') + 1; if (len > 1) THEN do; /* FOUND THE 2ND OF THE PAIR. */ /* GET THE VARIABLE NAME AND SEARCH THE ARRAY FOR IT. */ kw = SUBSTR(LINE, FIRST, len); dat = put(kw,$kw.); if dat = 'unknown' then do; dttm = datetime(); file logerr; put dttm datetime18. " Member &&mem&i.. Keyword " kw ' not found.'; first = 0; end; else do; substr(line,first) = trim(dat) || substr(line,first+len); FIRST = index(LINE,'%'); end; END; else first = 0; END; ... View more

Would you please give me your sample code? Can I create multiple sheets excel file from mainframe? ... View more

I've found that I can use ods tagsets.excelxp with proc report and the following compute statement. compute src; if src = 'diff' then call define(_row_, "style", "style={foreground=blue}"); endcomp; See also http://support.sas.com/kb/23/353.html ... View more

I have a similar question. I need to create a excel spreadsheet with a light green color for the whole row whenever desc = 'diff' as well as the title row. What should I do? Please see code below. data diff(keep=n desc m2 m1 m0); merge a b; by n; dm2 = sum(m2 , -bm2); dm1 = sum(m1 , -bm1); dm0 = sum(m0 , -bm0); if abs(dm2 ) > 2 or abs(dm1 ) > 2 or abs(dm0 ) > 2; output; desc = bdesc; m2 = bm2; m1 = bm1; m0 = bm0; output; desc = 'diff'; m2 = dm2; m1 = dm1; m0 = dm0; output; run; proc export data=diff outfile="c:\diff.xls" dbms=excel2000 replace; run; Thanks. Warren ... View more

//* I got the following solution from SAS technical support: //SASSTEP EXEC SAS //JCLIN DD DSN=YOUR.TEST.PDSIN,DISP=SHR //JCLOUT DD DSN=YOUR.TEST.PDSOUT,DISP=OLD //SYSPRINT DD SYSOUT=* //SYSIN DD * FILENAME OUT '&TEMP'; RUN; PROC SOURCE INDD=JCLIN NODATA NOPRINT DIRDD=OUT; RUN; /* PRODUCE GLOBAL VAR LIST OF MEMBERS TO AMEND */ DATA _NULL_; INFILE OUT END=EOF; INPUT MEMBER $8. ; CALL SYMPUT('MEM'||LEFT(PUT(_N_,4.)),MEMBER); IF EOF THEN DO; CALL SYMPUT('MEMMAX',PUT(_N_,4.)); PUT 'MEMMAX=' _N_; END; RUN; OPTIONS NONOTES; %MACRO COMMEM; %DO I = 1 %TO &MEMMAX; %PUT &&MEM&I; DATA _NULL_; INFILE JCLIN(&&MEM&I) END=EOF; FILE JCLOUT(&&MEM&I) NOPRINT NOTITLES; INPUT JCLCARD $CHAR80.; /* make changes to JCLCARD here */ PUT JCLCARD $CHAR80.; RUN; %END; %MEND COMMEM; %COMMEM; Message was edited by: Warren Message was edited by: Warren ... View more

I wonder if there's anyway that we can use a mainframe SAS program to read each member of a pds in a loop, make the same changes in each member, and write the result into another pds with the same members? Thanks. Warren ... View more

I just tried adding ASIS=ON as shown below, but it does not work. The blank line is still not printed. Is that the right place to add (see below)? PROC TEMPLATE; DEFINE STYLE STYLES.TEST; PARENT=STYLES.PRINTER; STYLE BATCH FROM OUTPUT / ASIS=ON OUTPUTWIDTH=100% FONT_SIZE=9.99PT FONT_FACE=COURIER; END; ... View more

I don't have problem creating pdf blank lines using PC SAS, but I have problem creating pdf blank lines using mainframe and then ftp download the binary pdf file to PC. The downloaded pdf file does not have blank lines. ... View more