Hi there,
I'm trying to debug a problem where we are using Hyperion Essbase cubes in our report. It works fine when we use a date range like 2007-01-01 to 2007-01-14. But when we increate it to say 2007-01-15 we seem to get one of the fields dropped off in our Hold file. But the same report will work if we use the range 2007-01-02 to 2007-01-15. I'm wondering is there a limit on the size of the Hold file? Please see code below. I've included definitions of the Hold file in the code. Thanks.

SET ASNAMES = ON
SET NODATA = ' '
-DEFAULT &ADATE1 = '20070101';
-DEFAULT &ADATE2 = '20070228';
-DEFAULT &OUTPUT = 'HTML';
-*
-SET &REP_NAME = 'Fulfilment Performance Report';
-SET &RUN_DATE = &DATEMtrDYY;
-SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99');
-SET &ORIENTATION = 'LANDSCAPE';
-SET &FROM_DATE  = EDIT(&ADATE1,'9999-99-99');
-SET &TO_DATE    = EDIT(&ADATE2,'9999-99-99');
-SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17');
-SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17');
-*
DEFINE FILE DLHCMR4_RELEASE4
ROW_DEF/A35=
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.NM' THEN 'HC/NM' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.OC' THEN 'HC/OC' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.PL' THEN 'HC/PL' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.PP' THEN 'HC/PP' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RN' THEN 'HC/RN' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RO' THEN 'HC/RO' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RP' THEN 'HC/RP' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RL' THEN 'HC/RL' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.R1' THEN 'DL/R1' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H3' THEN 'DL/H3' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H6' THEN 'DL/H6' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H1' THEN 'DL/H1' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H2' THEN 'DL/H2' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H4' THEN 'DL/H4' ELSE
 IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H5' THEN 'DL/H5' ELSE
 IF FILE_TYPE_MEMBER EQ '' THEN '' ELSE '';
END
-*
DEFINE FILE DLHCMR4_RELEASE4 ADD
 NUM_GEN4_ORDER_BATCH/I8 = EDIT(EDIT(GEN4_ORDER_BATCH,'$$$9999$99$99$'));
END
TABLE FILE DLHCMR4_RELEASE4
 PRINT GEN4_ORDER_BATCH
 WHERE NUM_GEN4_ORDER_BATCH GE &ADATE1 AND NUM_GEN4_ORDER_BATCH LE &ADATE2;
 ON TABLE SAVE AS AR FORMAT ALPHA
END
TABLE FILE DLHCMR4_RELEASE4
 SUM ITEM_COUNT
 BY GEN4_ORDER_BATCH
 WHERE GEN4_ORDER_BATCH IN FILE AR;
 WHERE EVENTS_MEMBER = 'MAILING_PERFORMANCE';
ON TABLE HOLD AS AR2
END
TABLE FILE AR2
 PRINT GEN4_ORDER_BATCH
 WHERE ITEM_COUNT NE MISSING;
 ON TABLE SAVE AS AR FORMAT ALPHA
END
-*
TABLE FILE DLHCMR4_RELEASE4
 SUM
     ITEM_COUNT AS ''
 BY
     ROW_DEF
 ACROSS
	EVENTS_MEMBER AS ''
 WHERE  ROW_DEF IN ('DL/R1','DL/H1','DL/H2','DL/H3','DL/H4','DL/H5','DL/H6','HC/NM','HC/OC','HC/PL','HC/PP','HC/RN','HC/RO','HC/RL','HC/RP');
 WHERE  EVENTS_MEMBER IN ('SD', 'D1', 'D2', 'D3', 'D4', 'D5', 'D6', 'D7', 'D>7', 'ES.CPCBATCH_S', 'FPS_PROD_S');
 WHERE  GEN4_ORDER_BATCH IN FILE AR;
 ON TABLE HOLD AS AR_ONE
END
-RUN
-*? HOLD AR_ONE
-*0FIELDNAME                         ALIAS         FORMAT
-* ROW_DEF                           E01           A35
-* D1                                E02           D20.2       MISSING = ON
-* D2                                E03           D20.2       MISSING = ON
-* D3                                E04           D20.2       MISSING = ON
-* D4                                E05           D20.2       MISSING = ON
-* D5                                E06           D20.2       MISSING = ON
-* D6                                E07           D20.2       MISSING = ON
-* D7                                E08           D20.2       MISSING = ON
-* D>7                               E09           D20.2       MISSING = ON
-* ES.CPCBATCH_S                     E10           D20.2       MISSING = ON <- UP 
-* FPS_PROD_S                        E11           D20.2       MISSING = ON <- AND SO ON 
-* SD                                E12           D20.2       MISSING = ON <- DROPPED IF DATE CHANGES  
TABLE FILE AR_ONE
 PRINT
	SD/I9C
	D1/I9C
	D2/I9C
	D3/I9C
	D4/I9C
	D5/I9C
	D6/I9C
	D7/I9C
	D>7/I9C
	FPS_PROD_S/I9C AS '# Successfully,Produced'
 COMPUTE PREF_CT/A2 = EDIT(E01, '$$$99'); NOPRINT
 COMPUTE THRESHOLD_TOT/I9C = IF PREF_CT EQ 'H1' OR 'H2' OR 'H4' OR 'H5' THEN SD + D1 + D2 + D3 ELSE SD + D1 + D2 + D3 + D4 + D5; AS 'Threshold,Total'
 COMPUTE CARDS_FULFILLED/I9C = SD + D1 + D2 + D3 + D4 + D5 + D6 + D7 + D>7; AS '# Cards,Fulfilled'
 COMPUTE THREASHOLD_COMPLIANCE/D5.1% = 100*THRESHOLD_TOT/FPS_PROD_S; AS '% Threshold,Compliance'
 ES.CPCBATCH_S/I9C AS '# Orders,Received'
 BY E01 AS 'Card Type/Run Type'
 ON TABLE HOLD AS AR_TWO
END
-RUN
-*? HOLD AR_TWO
-*0FIELDNAME                         ALIAS         FORMAT
-* CARD TYPE/RUN TYPE                E01           A35
-* SD                                E02           D20.2       MISSING = ON
-* SD                                E03           I9C
-* D1                                E04           D20.2       MISSING = ON
-* D1                                E05           I9C
-* D2                                E06           D20.2       MISSING = ON
-* D2                                E07           I9C
-* D3                                E08           D20.2       MISSING = ON
-* D3                                E09           I9C
-* D4                                E10           D20.2       MISSING = ON
-* D4                                E11           I9C
-* D5                                E12           D20.2       MISSING = ON
-* D5                                E13           I9C
-* D6                                E14           D20.2       MISSING = ON
-* D6                                E15           I9C
-* D7                                E16           D20.2       MISSING = ON
-* D7                                E17           I9C
-* D>7                               E18           D20.2       MISSING = ON
-* D>7                               E19           I9C
-* FPS_PROD_S                        E20           D20.2       MISSING = ON
-* # SUCCESSFULLY                    E21           I9C
-* ROW_DEF                           E22           A35
-* PREF_CT                           E23           A2
-* THRESHOLD                         E24           I9C
-* # CARDS                           E25           I9C
-* % THRESHOLD                       E26           D5.1%
-* ES.CPCBATCH_S                     E27           D20.2       MISSING = ON
-* # ORDERS                          E28           I9C
TABLE FILE AR_TWO
 PRINT
	E03 AS 'SD'
	E05 AS 'D1'
	E07 AS 'D2'
	E09 AS 'D3'
	E11 AS 'D4'
	E13 AS 'D5'
	E15 AS 'D6'
	E17 AS 'D7'
	E19 AS 'D>7'
	E26 AS '%Threshold,Compliance'
	E24 AS 'Threshold,Total'
	E25 AS '# Cards,Fulfilled'
	E21 AS '# Successfully,Produced'
	E28 AS '# Orders,Received'
 BY
	E22 AS 'Card/Run,Type' ROWS 'HC/NM' OVER 'HC/OC' OVER 'HC/PL' OVER 'HC/PP' OVER 'HC/RN' OVER 'HC/RO' OVER 'HC/RL' OVER 'HC/RP' OVER 'DL/R1' OVER 'DL/H3' OVER 'DL/H6' OVER "-----" OVER 'DL/H1' OVER 'DL/H2' OVER 'DL/H4' OVER 'DL/H5'
HEADING
"DL Card and Health Card Contract Management"
"Fulfillment Performance Report"
"From:  &ADATE1TEXT.EVAL To &ADATE2TEXT.EVAL"
" "
ON TABLE SUBFOOT
"Report ID: AR / Run Date: <+0>&DATEtrMDYY <+0> / Time: &TOD "
ON TABLE SET PAGE NOLEAD
ON TABLE SET PAGE-NUM OFF
ON TABLE PCHOLD FORMAT '&OUTPUT'
ON TABLE SET CSSURL '/approot/mtomis/report.css'
ON TABLE SET STYLE *
-*
-GOTO STY_&OUTPUT.EVAL
-*
-STY_HTML
-STY_EXL2K
-MRNOEDIT -INCLUDE STYLE01
-GOTO STY_END
-*
-STY_PDF
-MRNOEDIT -INCLUDE STYLE021
-*
-STY_EXCEL
-STY_END
TYPE=REPORT, PAGECOLOR=SILVER, GRID=OFF, $
ENDSTYLE
END
-RUN
-*
-IF &LINES GT 0 GOTO REPORT_END;
-*
-NO_DATA
-MRNOEDIT -INCLUDE MISI200
-*
-REPORT_END

Adrian,

I noticed that a lot of people have looked at this post and noone has replied. That is probably because there is no easy answer.

There is a very large limit on the size of a hold file. The other thing to look at is the size of the edatemp directory where the file is written if you don't choose to APP HOLD it permanently in the application path.

I would think that if you ran out of space in edatemp, you would get a different error, something 'error writing file'.

What bothers me is the fact that you are losing a column. That just doesn't make sense. To check on number of rows returned based on the different dates, could you do a COUNT * by date with a column total for the two instances you describe to see if the number of rows returned from one date range is totally out of whack with the other?

We need to simplify what you are doing in order to determine what the real problem is.

Adrian,

Firstly, please add text to your signature as per this post.

Secondly I would advise you to contact your local support office as this is the sort of thing that will require more indepth analysis than perhaps we may be able to do for you here. They will likely want all sorts of traces etc. and it may take a while to comprehend the underlying problem.

Good luck

T

I hit something similar to this years ago on mainframe FOCUS. When you are holding mulitple files each with a separate hold name FOCUS doesn't write over the previous file. This makes all of your hold files available, but it also uses up your foc$hold space. Try doing a filedef on one or more of the files, or if you are finished with them just do an on table hold without a name.

PB,

This is exactly why it is important for folks to display their release and platform. If Adrian is running on mainframe there are a few things that could be mentioned, but if we don't know what platform he's using then how can we offer precise help?

T

Hi,
I was away yesterday so I could not read the postings until today. I don't know why my platform info etc does not appear because it is there in my profile settings. We are developing in a MRE environment that is on a AIX platform. Everything is controlled at the application server level and I have very little control in my client. We are using WE v5.3.2 I'm afraid so it is not the latest. Even with a simple thing like traces I have to tell the administrator to send me the file from the server. I will pass on these postings to the developers in my group. Thanks.

Adrian..

We have found that confusing for people...you have to go in your Profile and actually put it in your Signature. The place where you fill in the Environment unfortunetly does not appear on a Post...

Thanks, Prarie. I've updated it. Hopefully, it will now show up everytime.

Yea

I am told that this is happening because we have hit a row limit of 1,800 and the reason why we are losing a column is because we are pivoting the original result set. Thus, we lost the column in the second/final result set because - as a row in the original result set - it is beyond the 1,800 mark.
I cannot use the APP HOLD command because we are not allowed to write to the server in our MRE. I also cannot use the FILEDEF because of the same reason. I don't think we should write to the C: drive because how can we expect to have write access to users' machines.
I have tried to find a way to clear the hold tables after I don't need it but don't they get cleared automatically each time I run the report? PBrightwell suggested it but I couldn't find a way.
As for counting the rows (COUNT *), whenever I print them I don't see any rows beyond 1,800.
I'm stumped. Thanks.

Adrian,

Hold files do get deleted after each execution. If you do not have an APP HOLD command in your focexec, the files are written to a directory under EDATEMP that is associated with your agent. I don't thing lack of space is your problem. You would get a different error.

You did mention pivot in your previous post. Could it be that you are running into an Excel limit? This is not my area of expertise but maybe someone else can weigh in on this.

Adrian,

To reuse your hold space you would do:
ON TABLE HOLD
..
END
and then
TABLE FILE HOLD

But if you are getting 1800 rows of data, I think that is not your problem. I'm not sure what the limit is for Excel pivot tables, but it is less than for regular Excel files and it is affected by the number of columns. You might try microsoft's support http://msdn2.microsoft.com/en-us/office/default.aspx

Thanks to everyone who responded.
The pivot I am talking about is not in Excel. I am still trying to get it to work in html first. The pivot is about the data for the WebFocus report.
I tried the suggestion from Doug at Kencura. It forced the column name SD to be present in the hold file and subsequently to be passed on to the final report at the end.
I also made a slight change to the last line of the DEFINE to see what shows up in the report as well as comment out a ROWS '' over '' line at the end in order for the report to work.
The results were a bit strange. I gave it to other members of our team to solicit their response and also ask that question about whether the last line in the DEFINE for our FILE_TYPE_MEMBER is correct. I will keep working on this. I will post the edited code again into my original post. Thanks again.

Cannot find the yellow folder icon on the bottom right in my first posting to post my latest code there so ahve to do it here. The code is between the ... tags. Thanks.

SET ASNAMES = ON
SET NODATA = ' '
-DEFAULT &ADATE1 = '20070101';
-DEFAULT &ADATE2 = '20070115';
-DEFAULT &OUTPUT = 'HTML';
-SET &REP_NAME = 'Fulfilment Performance Report';
-SET &RUN_DATE = &DATEMtrDYY;
-SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99');
-SET &ORIENTATION = 'PORTRAIT';
-SET &FROM_DATE = EDIT(&ADATE1,'9999-99-99');
-SET &TO_DATE = EDIT(&ADATE2,'9999-99-99');
-SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17');
-SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17');
-*
DEFINE FILE DLHCMR4_RELEASE4 ADD
NUM_GEN4_ORDER_BATCH/I8 = EDIT(EDIT(GEN4_ORDER_BATCH,'$$$9999$99$99$'));
END
TABLE FILE DLHCMR4_RELEASE4
PRINT GEN4_ORDER_BATCH
WHERE NUM_GEN4_ORDER_BATCH GE &ADATE1 AND NUM_GEN4_ORDER_BATCH LE &ADATE2;
ON TABLE SAVE AS AR1 FORMAT ALPHA
END
TABLE FILE DLHCMR4_RELEASE4
SUM ITEM_COUNT
BY GEN4_ORDER_BATCH
WHERE GEN4_ORDER_BATCH IN FILE AR1;
WHERE EVENTS_MEMBER = 'MAILING_PERFORMANCE';
ON TABLE HOLD AS AR2 FORMAT ALPHA
END
TABLE FILE AR2
PRINT GEN4_ORDER_BATCH
WHERE ITEM_COUNT NE MISSING;
ON TABLE SAVE AS AR3 FORMAT ALPHA
END
DEFINE FILE DLHCMR4_RELEASE4
ROW_DEF/A15=
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.NM' THEN 'HC/NM' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.OC' THEN 'HC/OC' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.PL' THEN 'HC/PL' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.PP' THEN 'HC/PP' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RN' THEN 'HC/RN' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RO' THEN 'HC/RO' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RP' THEN 'HC/RP' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.HCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.RL' THEN 'HC/RL' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.R1' THEN 'DL/R1' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H3' THEN 'DL/H3' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H6' THEN 'DL/H6' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H1' THEN 'DL/H1' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H2' THEN 'DL/H2' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H4' THEN 'DL/H4' ELSE
IF CARD_TYPE_MEMBER EQ 'CT.DLCARD_V1' AND FILE_TYPE_MEMBER EQ 'FT.H5' THEN 'DL/H5' ELSE
IF FILE_TYPE_MEMBER EQ '' THEN 'FTMBLANK' ELSE 'FTMNOTBLANK';
END
TABLE FILE DLHCMR4_RELEASE4
SUM
ITEM_COUNT AS ''
BY
ROW_DEF
ACROSS
EVENTS_MEMBER AS ''
COLUMNS 'SD' AND 'D1' AND 'D2' AND 'D3' AND 'D4' AND 'D5' AND 'D6' AND 'D7' AND 'D>7' AND 'ES.CPCBATCH_S' AND 'FPS_PROD_S'
WHERE ROW_DEF IN ('DL/R1','DL/H1','DL/H2','DL/H3','DL/H4','DL/H5','DL/H6','HC/NM','HC/OC','HC/PL','HC/PP','HC/RN','HC/RO','HC/RL','HC/RP','FTMBLANK','FTMNOTBLANK');
WHERE EVENTS_MEMBER IN ('SD', 'D1', 'D2', 'D3', 'D4', 'D5', 'D6', 'D7', 'D>7', 'ES.CPCBATCH_S', 'FPS_PROD_S');
WHERE GEN4_ORDER_BATCH IN FILE AR3;
ON TABLE HOLD AS AR_ONE
END
-RUN
-*? HOLD AR_ONE
-* ROW_DEF E01 A15
-* SD E02 D20.2 MISSING = ON
-* D1 E03 D20.2 MISSING = ON
-* D2 E04 D20.2 MISSING = ON
-* D3 E05 D20.2 MISSING = ON
-* D4 E06 D20.2 MISSING = ON
-* D5 E07 D20.2 MISSING = ON
-* D6 E08 D20.2 MISSING = ON
-* D7 E09 D20.2 MISSING = ON
-* D>7 E10 D20.2 MISSING = ON
-* ES.CPCBATCH_S E11 D20.2 MISSING = ON
-* FPS_PROD_S E12 D20.2 MISSING = ON
TABLE FILE AR_ONE
PRINT
SD/I9C
D1/I9C
D2/I9C
D3/I9C
D4/I9C
D5/I9C
D6/I9C
D7/I9C
D>7/I9C
FPS_PROD_S/I9C AS '# Successfully,Produced'
COMPUTE PREF_CT/A2 = EDIT(E01, '$$$99'); NOPRINT
COMPUTE THRESHOLD_TOT/I9C = IF PREF_CT EQ 'H1' OR 'H2' OR 'H4' OR 'H5' THEN SD + D1 + D2 + D3 ELSE SD + D1 + D2 + D3 + D4 + D5; AS 'Threshold,Total'
COMPUTE CARDS_FULFILLED/I9C = SD + D1 + D2 + D3 + D4 + D5 + D6 + D7 + D>7; AS '# Cards,Fulfilled'
COMPUTE THREASHOLD_COMPLIANCE/D5.1% = 100*THRESHOLD_TOT/FPS_PROD_S; AS '% Threshold,Compliance'
ES.CPCBATCH_S/I9C AS '# Orders,Received'
BY E01 AS 'Card Type/Run Type'
ON TABLE HOLD AS AR_TWO
END
-RUN
-*? HOLD AR_TWO
-* CARD TYPE/RUN TYPE E01 A15
-* SD E02 D20.2 MISSING = ON
-* SD E03 I9C
-* D1 E04 D20.2 MISSING = ON
-* D1 E05 I9C
-* D2 E06 D20.2 MISSING = ON
-* D2 E07 I9C
-* D3 E08 D20.2 MISSING = ON
-* D3 E09 I9C
-* D4 E10 D20.2 MISSING = ON
-* D4 E11 I9C
-* D5 E12 D20.2 MISSING = ON
-* D5 E13 I9C
-* D6 E14 D20.2 MISSING = ON
-* D6 E15 I9C
-* D7 E16 D20.2 MISSING = ON
-* D7 E17 I9C
-* D>7 E18 D20.2 MISSING = ON
-* D>7 E19 I9C
-* FPS_PROD_S E20 D20.2 MISSING = ON
-* # SUCCESSFULLY E21 I9C
-* ROW_DEF E22 A35
-* PREF_CT E23 A2
-* THRESHOLD E24 I9C
-* # CARDS E25 I9C
-* % THRESHOLD E26 D5.1%
-* ES.CPCBATCH_S E27 D20.2 MISSING = ON
-* # ORDERS E28 I9C
TABLE FILE AR_TWO
PRINT
SD/I9C
D1/I9C
D2/I9C
D3/I9C
D4/I9C
D5/I9C
D6/I9C
D7/I9C
D>7/I9C
E26 AS '%Threshold,Compliance'
E24 AS 'Threshold,Total'
E25 AS '# Cards,Fulfilled'
E21 AS '# Successfully,Produced'
E28 AS '# Orders,Received'
BY
E22 AS 'Card/Run,Type'
-* ROWS 'HC/NM' OVER 'HC/OC' OVER 'HC/PL' OVER 'HC/PP' OVER 'HC/RN' OVER 'HC/RO' OVER 'HC/RL' OVER 'HC/RP' OVER 'DL/R1' OVER 'DL/H3' OVER 'DL/H6' OVER "-----" OVER 'DL/H1' OVER 'DL/H2' OVER 'DL/H4' OVER 'DL/H5'
HEADING
"DL Card and Health Card Contract Management"
"Fulfillment Performance Report"
"From: &ADATE1TEXT.EVAL To &ADATE2TEXT.EVAL"
" "
ON TABLE SUBFOOT
"Report ID: AR / Run Date: <+0>&DATEtrMDYY <+0> / Time: &TOD "
ON TABLE SET PAGE NOLEAD
ON TABLE SET PAGE-NUM OFF
ON TABLE PCHOLD FORMAT '&OUTPUT'
ON TABLE SET CSSURL '/approot/mtomis/report.css'
ON TABLE SET STYLE *
-*ENDSTYLE
-*END
-*-EXIT
-GOTO STY_&OUTPUT.EVAL
-*
-STY_HTML
-STY_EXL2K
-MRNOEDIT -INCLUDE STYLE01
-GOTO STY_END
-*
-STY_PDF
-MRNOEDIT -INCLUDE STYLE021
-*
-STY_EXCEL
-STY_END
TYPE=REPORT, PAGECOLOR=SILVER, GRID=OFF, $
ENDSTYLE
END
-RUN
-*
-IF &LINES GT 0 GOTO REPORT_END;
-*
-NO_DATA
-MRNOEDIT -INCLUDE MISI200
-*
-REPORT_END