[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sas-l
Subject:    Re: X command in Mainframe
From:       Basem <batawfic () GMAIL ! COM>
Date:       2005-02-28 20:40:44
[Download RAW message or body]

Hi Paul here is my very simplified code, what is driving me crazy that
this code only work once per session!!! then it do not work any more,
no idea why.
Any help is much appreciated


//********************************************************
//* EXECUTE 'PROC IDCAMS' (IDCAMS) UNDER SAS.            *
//********************************************************
//STEP01 EXEC SASNEW,OPTIONS='SYSIN=SASINPUT'
//SYSPRINT DD DSN=AFGTOTS.DEV.BAS1.GDGLIST,
//         DISP=(,CATLG,DELETE),
//         SPACE=(CYL,(1,1)),UNIT=SYSDA,
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=27930)
//SASINPUT DD *

     /*********************************************/
     /* ALLOCATE TEMP SYSIN DATA SET.             */
     /*********************************************/
     FILENAME SYSIN '&SYSIN'
     SPACE=(CYL,(1,1)) UNIT=SYSDA
     RECFM=FB LRECL=80 BLKSIZE=27920;

     /*********************************************/
     /* PUT IDCAMS STATEMENT IN THE SYSIN DATA SET*/
     /*********************************************/
     %LET DSNAME = ADXTOTS.ASSETSEC;

     DATA _NULL_;
     FILE SYSIN;
     PUT "LISTCAT LVL(&DSNAME.) ALL";
     RUN;


     /*********************************************/
     /* EXECUTE IDCAMS AS A SAS PROC.  OUTPUT GOES*/
     /* TO THE SYSPRINT DATA SET.                 */
     /*********************************************/
     PROC IDCAMS;
     RUN;

     /**********************************************/
     /* PARSE THE SYSPRINT DATA SET TO GET THE     */
     /* SPECIFIC DATA SET NAMES.                   */
     /**********************************************/
     DATA DSNAME(KEEP=DSNAME);
     INFILE SYSPRINT;
     LENGTH DSNAME $44.;
     INPUT @1 BIGLINE $133.;
     IF BIGLINE =: '0NONVSAM' THEN DO;
        DSNAME = SCAN(BIGLINE,3,' ');
        OUTPUT;
     END;
        ELSE DELETE;
     RUN;

PROC PRINT; RUN;
//*

pchoate@DDS.CA.GOV (Choate, Paul@DDS) wrote in message \
news:<83F5497995A8D511965F00508BB9297004C1E31B@ddsexmb01.cahwnet.gov>...
> Basem -
> 
> Have you tried allocating sysprint?
> 
> x " ALLOC f(SYSPRINT) CYL SPACE(1 1) RECFM(F B A) LRECL(133) REUSE " ;
> or
> filename sysprint '&SYSPRINT';
> 
> hth
> 
> Paul Choate
> DDS Data Extraction
> (916) 654-2160
> 


[prev in list] [next in list] [prev in thread] [next in thread]