Cynthia thanks again for the assistance. I'm very new to SAS and I think i'm shooting myself in the foot. The job i've created is a mainframe batch job, it has 4 different SAS steps that pull in raw data from several exteral datasets. the first two steps work fine and produce output in HTML format; its the last two steps (that you've helped with) that are not producing any output. I'm just at a lose below is the entire job, if you find anything that jumps out at you the help would be appreciated, if you don't have the time to look at it i understand, thanks again for the support
//JS001 EXEC SAS
//*INCL DD DISP=SHR,DSN=T35.SM.REPORT.MACROS
//DASDCP DD DSN=DSM.STORAGE.CAP.CONFIG,DISP=SHR
// DD DSN=DSM.STORAGE.TPLXCAP.CONFIG,DISP=SHR
// DD DSN=DSM.STORAGE.DPLXCAP.CONFIG,DISP=SHR
//SASLIST DD DSN=DSM.DASD.CAP.REPORT,DISP=OLD
//* SPACE=(CYL,(5,2),RLSE),DCB=(RECFM=FB,LRECL=133)
//SYSIN DD *
OPTIONS NOCENTER;
DATA ALL;
INFILE DASDCP;
INPUT @1 VOLSER $CHAR6. @8 UNIT $ @17 CAP 6.1;
FORMAT CAP AVAL 5.;
DATA CAP;
SET ALL;
IF UNIT = :'2'
THEN SUBSYSTEM = '2107#1';
ELSE IF UNIT = :'C'
THEN SUBSYSTEM = '2107#1';
ELSE IF UNIT = :'4'
THEN SUBSYSTEM = '2107#2';
ELSE IF UNIT = :'5'
THEN SUBSYSTEM = '2107#2';
ELSE IF UNIT = :'3'
THEN SUBSYSTEM = '2107#3';
ELSE IF UNIT = :'9'
THEN SUBSYSTEM = '2107#3';
ELSE IF UNIT = :'D'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E4'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E5'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E6'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E7'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E8'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E9'
THEN SUBSYSTEM = '2107#4';
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'EB'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'EC'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'ED'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'EE'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'EF'
THEN SUBSYSTEM = '2107#4';
ELSE IF UNIT = :'E0'
THEN SUBSYSTEM = '#4TPLX';
ELSE IF UNIT = :'E1'
THEN SUBSYSTEM = '#4TPLX';
ELSE IF UNIT = :'E2'
THEN SUBSYSTEM = '#4ZVM ';
ELSE IF UNIT = :'E3'
THEN SUBSYSTEM = '#4ZVM ';
ELSE IF UNIT = :'A'
THEN SUBSYSTEM = '2107#5';
ELSE IF UNIT = :'B'
THEN SUBSYSTEM = '2107#5';
DATA AVAL;
SET CAP;
IF VOLSER = :'XT'
THEN AVAL = CAP;
PROC REPORT DATA = AVAL;
COLUMN SUBSYSTEM CAP AVAL;
DEFINE SUBSYSTEM / GROUP;
DEFINE CAP / SUM;
DEFINE AVAL / SUM;
//JS002 EXEC SAS
//INCL DD DISP=SHR,DSN=T35.SM.REPORT.MACROS
//DASDSM DD DSN=DSM.DASD.CAP.REPORT,DISP=SHR
//SASLIST DD DSN=DSM.DASD.CAP.REPORT1,DISP=OLD
//* SPACE=(CYL,(5,5),RLSE),DCB=(RECFM=FB,LRECL=133)
//SYSIN DD *
OPTIONS NOCENTER;
DATA SUM;
INFILE DASDSM;
INPUT @3 SUBSYS $ @11 CAP 4.2 @18 AVAL 4.2;
IF _N_ =1 THEN DELETE;
IF _N_ =2 THEN DELETE;
IF _N_ =3 THEN DELETE;
IF _N_ =4 THEN DO;
PUT @1 "SUBSYS"
@10 "CAP/TB"
@19 "ALLOC/TB"
@30 "AVAL/TB"
/@1 "-----------------------------------";
END;
IF SUBSYS = :'#4TPLX' THEN DO;
ALLOC = CAP - AVAL;
END;
IF SUBSYS = :'2107' THEN DO;
ALLOC = CAP - AVAL;
END;
IF SUBSYS = :'-TPLX' THEN DO;
ALLOC = CAP - AVAL;
END;
IF SUBSYS = :'GSD1' THEN DO;
ALLOC = CAP - AVAL;
END;
IF SUBSYS = :'#4ZVM ' THEN DO;
ALLOC = CAP - AVAL;
END;
PUT @1 SUBSYS
@10 CAP
@19 ALLOC
@30 AVAL;
FILENAME HTMLOUT 'DSM.DASD.CAP.TOTALS1' DISP=(OLD)
RECFM=VB LRECL=20004 BLKSIZE=27998 UNIT=3390 SPACE=(CYL,(1,2));
ODS LISTING;
ODS HTML FILE=HTMLOUT RS=NONE STYLE=MINIMAL;
PROC PRINT SPLIT='_' NOOBS WIDTH=MIN DATA= SUM;
VAR SUBSYS/STYLE(COLUMN)={HTMLSTYLE="MSO=GENERAL-FORMAT:@"};
VAR CAP/STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
VAR ALLOC/STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
VAR AVAL/STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
SUM CAP ALLOC AVAL/
STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
TITLE "TESTING EXCEL CAP REPORT &SYSDATE";
RUN;
ODS HTML CLOSE;
ODS LISTING;
//JS003 EXEC SAS
//VOLMAP DD DSN=DSM.ADSMD010.DRP.VOLUME.MAP,DISP=SHR
//* DD DSN=DSM.STORAGE.DRP.CONFIG,DISP=SHR
// DD DSN=DSM.STORAGE.DRP.SYSVOL.CONFIG,DISP=SHR
//SASLIST DD DSN=DSM.DASD.DRP.REPORT,
// DISP=OLD
//* SPACE=(CYL,(5,2),RLSE),DCB=(RECFM=FB,LRECL=133)
//SYSIN DD *
OPTIONS NOCENTER;
DATA MAP;
INFILE VOLMAP;
INPUT @1 VOLSER $CHAR6. @18 MOD $CHAR7.;
IF MOD = '3390-29' THEN MOD = '3390-27';
IF MOD = '3390-54' THEN VOLCAPGB = 55.68;
ELSE
IF MOD = '3390-27' THEN VOLCAPGB = 27;
ELSE
IF MOD = '3390-9 ' THEN VOLCAPGB = 8;
ELSE
IF MOD = '3390-3 ' THEN VOLCAPGB = 2.84;
ELSE
IF VOLSER = :'FC' THEN VOLCAPGB = 27;
IF VOLSER = :'FC' THEN DO
MOD = 'FCVOLS';
END;
IF VOLSER =:'SYS' THEN VOLCAPGB = 27;
IF VOLSER =:'SYS' THEN DO
MOD = '3390-27';
END;
FORMAT VOLCAPGB BEST;
PROC SORT; BY MOD;
PROC SUMMARY; BY MOD; VAR VOLCAPGB;
OUTPUT OUT = CAPDATA N=NVOLS SUM=VOLCAPGB;
PROC PRINT NOOBS;
SUM NVOLS VOLCAPGB;
VAR MOD NVOLS VOLCAPGB;
TITLE 'TOTAL NUMBER OF VOLUMES NEED FOR DRP' &SYSDATE;
FILENAME HTMLOUT 'DSM.DASD.CAP.TOTALS1' DISP=(MOD)
RECFM=VB LRECL=20004 BLKSIZE=27998 UNIT=3390 SPACE=(CYL,(1,2));
ODS LISTING;
ODS HTML FILE=HTMLOUT RS=NONE STYLE=MINIMAL;
PROC PRINT SPLIT='_' NOOBS WIDTH=MIN DATA=CAPDATA;
VAR MOD/STYLE(COLUMN)={HTMLSTYLE="MSO=GENERAL-FORMAT:@"};
VAR NVOLS/STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
VAR VOLCAPGB/STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
SUM NVOLS VOLCAPGB/
STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
TITLE "TESTING EXCEL CAP REPORT &SYSDATE";
RUN;
ODS HTML CLOSE;
ODS LISTING;
/*
//JS004 EXEC SAS
//VOLMAP DD DSN=DSM.ADSMD010.DRP.VOLUME.MAP,DISP=SHR
//* DD DSN=DSM.STORAGE.DRP.CONFIG,DISP=SHR
// DD DSN=DSM.STORAGE.DRP.SYSVOL.CONFIG,DISP=SHR
//SASLIST DD DSN=DSM.DASD.DRP.REPORT,
// DISP=MOD
//* SPACE=(CYL,(5,2),RLSE),DCB=(RECFM=FB,LRECL=133)
//SYSIN DD *
OPTIONS NOCENTER;
DATA MAP;
INFILE VOLMAP;
INPUT @1 VOLSER $CHAR6. @18 MOD $CHAR7.;
CONTRACT = 163000;
IF MOD = '3390-29' THEN MOD = '3390-27';
IF MOD = '3390-54' THEN VOLCAPGB = 55.68;
ELSE
IF MOD = '3390-27' THEN VOLCAPGB = 27;
ELSE
IF MOD = '3390-9 ' THEN VOLCAPGB = 8;
ELSE
IF MOD = '3390-3 ' THEN VOLCAPGB = 2.84;
ELSE
IF VOLSER = :'FC' THEN VOLCAPGB = 27;
IF VOLSER = :'FC' THEN DO
MOD = 'FCVOLS';
END;
IF VOLSER =:'SYS' THEN VOLCAPGB = 27;
IF VOLSER =:'SYS' THEN DO
MOD = '3390-27';
END;
FILENAME HTMLOUT 'DSM.DASD.CAP.TOTALS1' DISP=(MOD)
RECFM=VB LRECL=20004 BLKSIZE=27998 UNIT=3390 SPACE=(CYL,(1,2));
ODS LISTING;
ODS HTML FILE=HTMLOUT RS=NONE STYLE=MINIMAL;
PROC REPORT DATA=MAP NOWD SPLIT='_';
COLUMN CONTRACT VOLCAPGB REMAINING;
DEFINE CONTRACT / GROUP
STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
DEFINE VOLCAPGB / SUM
STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
DEFINE REMAINING / COMPUTED
STYLE(COLUMN)={HTMLSTYLE="MSO-NUMBER-FORMAT:@"};
COMPUTE REMAINING;
REMAINING=(CONTRACT - VOLCAPGB.SUM);
ENDCOMP;
TITLE "TESTING EXCEL CAP REPORT &SYSDATE";
RUN; ODS _ALL_ CLOSE;
ODS LISTING;