//CHXXROCK JOB EI4605, // 'S.DIONNE.BLDG-610', // CLASS=S, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=&SYSUID, // RD=NC, // RESTART=* //* //TEST1 EXEC SAS //FILENMS DD DISP=SHR,DSN=CHMICST.X.MACRO.SAYAN //SASLIB DD DSN=CHMICST.SAS.CODE.NEWDEV,DISP=SHR //EMAIL DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * OPTIONS SOURCE SOURCE2 NOCENTER; DATA _NULL_ ; %INCLUDE SASLIB(TEST) ; RUN ; DATA MACRO_FILES ; LENGTH BLUE_FILE_NAME RESPONSIBLE_PERSON $200. ; INFILE FILENMS DELIMITER='~' DSD MISSOVER END=LASTOBS; INPUT @1 BLUE_FILE_NAME RESPONSIBLE_PERSON ; BLUE_FILE_NAME = UPCASE(BLUE_FILE_NAME); RESPONSIBLE_PERSON = UPCASE(RESPONSIBLE_PERSON); IF BLUE_FILE_NAME = 'BLUE_FILE_NAME' THEN DELETE ; IF RESPONSIBLE_PERSON = 'RESPONSIBLE_PERSON' THEN DELETE ; DATA EMPTY_FILES ; SET MACRO_FILES; KEEP BLUE_FILE_NAME RESPONSIBLE_PERSON ; DATE_FROM_FORMAT = INPUT(BLUE_FILE_NAME,TEST.) ; TODAY=COMPRESS(PUT(TODAY(),MMDDYYN7.)); CURR=SUBSTR(TODAY,3,2); PUT @4 'SAYAN1:' CURR= ; PUT @4 'SAYAN2:' DATE_FROM_FORMAT=; IF CURR > DATE_FROM_FORMAT THEN DO ; INFILE FILENMS DLM ='~' ; LENGTH FILE2RD $45. ; INPUT @1 FILE2RD $; FILE2RD = TRIM(FILE2RD) ; INFILE DUMMY DLM='~' FILEVAR=FILE2RD DSD MISSOVER EOV=DONE ; RETAIN M 0; INPUT ; IF DONE AND M=0 THEN DO ; PUT 'FILE2RD IS EMPTY' ; END; M+1 ; END ; file : CHMICST.X.MACRO.SAYAN : CHMICST.MPB.INPUT.TSV.SAYAN~Sayan.Chakraborty1@ge.com saslib : 'CHMICST.SAS.CODE.NEWDEV(test)' : PROC FORMAT; INVALUE TEST 'CHMICST.MPB.INPUT.TSV.SAYAN' = 15 ; SASLOG : NOTE: The infile FILENMS is: Dsname=CHMICST.X.MACRO.SAYAN, Unit=3390,Volume=BP3043,Disp=SHR,Blksize=27998, Lrecl=600,Recfm=VB NOTE: 1 record was read from the infile FILENMS. The minimum record length was 71. The maximum record length was 71. NOTE: The data set WORK.MACRO_FILES has 1 observations and 2 variables. NOTE: The DATA statement used 0.01 CPU seconds and 14461K. NOTE: The address space has used a maximum of 632K below the line and 15592K above the line. NOTE: Character values have been converted to numeric values at the places give 32:6 NOTE: The infile FILENMS is: Dsname=CHMICST.X.MACRO.SAYAN, Unit=3390,Volume=BP3043,Disp=SHR,Blksize=27998, Lrecl=600,Recfm=VB SAYAN1:CURR=27 SAYAN2:DATE_FROM_FORMAT=15 NOTE: The infile DUMMY is: Dsname=CHMICST.MPB.INPUT.TSV.SAYAN, Unit=3390,Volume=BL3186,Disp=SHR,Blksize=4500, Lrecl=1500,Recfm=VB NOTE: 1 record was read from the infile FILENMS. The minimum record length was 71. The maximum record length was 71. NOTE: 0 records were read from the infile DUMMY. NOTE: There were 1 observations read from the data set WORK.MACRO_FILES. NOTE: The data set WORK.EMPTY_FILES has 0 observations and 2 variables. NOTE: The DATA statement used 0.02 CPU seconds and 14642K.
... View more