IBM Mainframe Forum

DATEIN   DD  *                                                 
/*                                                               
//DATEOUT  DD  DSN=MZ7P.TEST.SASDATE,                             
//             DISP=(OLD,PASS,DELETE),                           
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0),       
//             SPACE=(TRK,(10,10),RLSE),                         
//             UNIT=TEMPDISK                                     
//SYSPRINT DD  SYSOUT=*                                           
//SYSOUT   DD  SYSOUT=*                                           
//SYSIN    DD  *                                                 
                                                                 
                                                                 
  DATA DATES;                                                     
  INPUT DATEI  YYMMDD10.;                                         
  INFILE DATEIN;                                                 
  RUN;                                                           
  DATA DATE_CHECK;                                               
      SET DATES;                                                 
        IF DATEI   = ' ' THEN                                     
          DO;                                                     
            DATEVL = (TODAY() - 1);                               
            FORMAT DATEVL YYMMDDN8.;                             
          END;                                                   
        ELSE                                                     
          DO;                                                     
           DATEVL = DATEI;                                       
           FORMAT DATEVL YYMMDDN8.;                               
          END;                                                   
  FILE DATEOUT;                                                   
  PUT DATEVL;                                                     
  PROC PRINT;                                                     
  RUN;                                                           
  RUN;                                                           
//STEP40  EXEC PLIXG,                                     

DATA DUMMY;
     INPUT VAR1;
     CARDS;
DATA TWO;
%LET DNAME=DUMMY;  /*  NAME OF SAS DATA SET TO CHECK */

%MACRO NUMOBS(DSN);
 %GLOBAL NUM;
 DATA _NULL_;
    IF 0 THEN SET &DSN NOBS=COUNT;
    CALL SYMPUT('NUM',LEFT(PUT(COUNT,8.)));
    STOP;
 RUN;
 %MEND NUMOBS;
%MACRO CHECK;
   %LOCAL ONE;
   %NUMOBS(&DNAME);
   %LET ONE=#
   %IF &ONE NE 0 %THEN %DO;
       TITLE "THE &DNAME DATA SET";
       PROC PRINT DATA=&DNAME;
       %END;
   %ELSE %DO;
       %PUT  WARNING: THE DATA SET IS EMPTY ;
       %END;
%MEND;
%CHECK
RUN;