Focal Point
Starting datamigrator flow from webpage

This topic can be found at:
http://forums.informationbuilders.com/eve/forums/a/tpc/f/1381057331/m/9177095106

April 05, 2011, 10:00 AM
jammer
Starting datamigrator flow from webpage
I posted this on the Webfocus Fourum “Javascript Send - Long parameter string gets cut off” - but now I realize it may be better to post this on IWAY Forum since my issue is starting a datamigrator flow from a webpage.

This is code that was developed by someone else and I am clueless on some aspects. (For example Where does that come from?)

The relevant code starts at - HTMLFORM BEGIN

Important variables are:

url = http://njsqlbidev1:8117
f.action = http://njsqlbidev1:8117/ibiweb.exe

elements.IBIF_cmd.value = EX CMASAP REQ_NAME=ibnr_commit,PARMS="&&ACCTGYR=2010,&&ACCTMO=12,&&EMAIL=XXX.COM,&&CELLCAT=FINAN,&&CELL0=2,&&CELL1=11178,&&TM1=20110124101337000,&CELL2=1181,&&,&&TM2=20110124101337000"

Also important or the: input type="hidden

This code works fine if the parameter list has less than 50 &&CELLS. If there are more than &&50Cells then datamigrator does not receive them. It is as if there is some type of limit. Maybe I should not be using ibiweb.exe, but I tried /ibi_apps/WFServet and that did not work.

What I am asking is for is some direction on how I get this datamigrator flow to work.

(Note: this works on production server which is webfocus 7.62, windows 2003, Internet Explorer 6. This is the test server which was upgrade to 7.702. Windows 2008 64 bit , Internet Explorer 8 )

 
-DEFAULT &ECHO=ALL, &MSG=OFF;
SET ALL=OFF
-*SET TRACEOFF = ALL
-*SET TRACEON = STMTRACE//CLIENT
-*SET TRACEON = SQLAGGR//CLIENT
-*SET TRACEUSER = CLIENT
-*SET XRETRIEVAL=ON
-SET &CNTR = 1;
-* ** For testing only Remove after testing
-*DEFAULT &CELL0 = 2 ;
-*DEFAULT &CELL1 = 11178 ;
-*DEFAULT &TM1   = 20060608104649000;
-*DEFAULT &TM2   = 20060608104649000;
-*DEFAULT &TM3   = 20060608104649000;
-*DEFAULT &CELL2 = 11181 ;
-*DEFAULT &CELL3 = 191 ;
-* ** Set default values
-SET &MSGTEXT  = 'Do you want to commit' | '?:';
-SET &BTNTEXT  = 'Confirm';
-DEFAULT &CELL   = 0;
-DEFAULT &ACCTYR = '2005' ;
-DEFAULT &ACCTMO = '12' ;
-DEFAULT &EMAIL  = 'john.amione@wtmreamerica.com';
-DEFAULT &CELLCAT  = 'FINAN';
-DEFAULT &trade  = '&trade';
-DEFAULT ©   = '©';
-SET &&EACCTYR  = '&' | '&' | 'ACCTYR=' | &ACCTYR;
-SET &&EACCTMO  = '&' | '&' | 'ACCTMO=' | &ACCTMO;
-SET &&EEMAIL   = '&' | '&' | 'EMAIL=' | &EMAIL;
-SET &&ECELLCAT = '&' | '&' | 'CELLCAT=' | &CELLCAT;
-SET &EPARAMS   ='';
-DEFAULT &CA1 = 'Cell Number';
-DEFAULT &CB1 = 'Cell Name';
-DEFAULT &CC1 = 'Loss View';
-SET &DOUBLE  = BYTVAL('"','I3');
-SET &SPACE   = BYTVAL(' ','I3');
-SET &SINGLE  = BYTVAL('''','I3');
-SET &ACCTMO = IF &ACCTMO LT 10 THEN '0' || &ACCTMO ELSE &ACCTMO ;
-SET &ACTGPD = &ACCTYR |  &ACCTMO ;
-SET &DISPPD = &ACCTYR |  '/' | &ACCTMO ;
-SET &ACTGDT =   &ACCTYR |'/'| &ACCTMO;
-SET &I = 0 ;
? &&

-*
-* get the cell name and loss view description and store them in variables for all the
-* selected cells.
-*
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT
JOIN RESERVE_CELL_LOSS_VIEW IN RESERVE_CELL TO LOSS_VIEW_CODE IN LOSS_VIEW AS J1
TABLE FILE RESERVE_CELL
WRITE MAX.RESERVE_CELL_DESC AS '&CB1'
      MAX.LOSS_VIEW_DESC    AS '&CC1'
-*COMPUTE CURRDT/HYYMDm = HGETC(10, 'HYYMDm'); NOPRINT
-*COMPUTE RUNDT/HMtDYYIA = CURRDT;
BY RESERVE_CELL AS '&CA1'
-IF &CELL0.EXISTS THEN GOTO MS01BEG;
WHERE RESERVE_CELL EQ &CELL;
-GOTO MS01END
-MS01BEG
-SET &CNTR=1;
WHERE RESERVE_CELL EQ &CELL1
-MS01LOOP
-SET &CNTR=&CNTR+1;
 OR &CELL.&CNTR
-IF &CELL0 LE &CNTR THEN GOTO MS01END;
-GOTO MS01LOOP
-MS01END
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS RCELLINF FORMAT COM
END
-RUN
-SET &NUMLINES = &LINES;
-IF &LINES EQ 0 GOTO ERRRPT ;
-REPEAT CELLINF FOR &I FROM 1 TO &NUMLINES
-READ RCELLINF, &CA.&I,&CB.&I,&CC.&I
-SET &CA.&I = &CA.&I;
-* Remove double quotes from those variables that need it
-SET &CB.&I = CTRAN(&CB.&I.LENGTH,&CB.&I,&DOUBLE,&SPACE,'A&CB.&I.LENGTH');
-SET &CC.&I = CTRAN(&CC.&I.LENGTH,&CC.&I,&DOUBLE,&SPACE,'A&CC.&I.LENGTH');
-* Clean up any columns values by removing extra spaces
-SET &CB.&I = LJUST(&CB.&I.LENGTH,&CB.&I,'A&CB.&I.LENGTH');
-SET &CB.&I = TRUNCATE(&CB.&I);
-SET &CB.&I = TRIM('B',&CB.&I, &CB.&I.LENGTH,' ',1,'A&CB.&I.LENGTH');
-SET &CC.&I = LJUST(&CC.&I.LENGTH,&CC.&I,'A&CC.&I.LENGTH');
-SET &CC.&I = TRUNCATE(&CC.&I);
-SET &CC.&I = TRIM('B',&CC.&I, &CC.&I.LENGTH,' ',1,'A&CC.&I.LENGTH');
-SET &CNAME.&I = &CB.&I ;
-SET &LVIEW.&I = &CC.&I ;
-SET &LVIEW.&I = STRREP(20,&LVIEW.&I,4,'Year',6,'Period',22,'A22') ;
-* TYPE &CNAME.&I &LVIEW.&I
-CELLINF
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT

-*
-* get the highest time stamp from history for the selected cells
-*
TABLE FILE EXPORT_HISTORY_TBL
SUM
-* COMPUTE RCELLI/I11 = RESERVE_CELL;
 COMPUTE TSTAMP/A27  = HCNVRT(TIME_STAMP, '(HYYMDs)', 27, 'A27');
BY RESERVE_CELL
BY HIGHEST 1 TIME_STAMP AS 'TIME_STAMP1'
-REPEAT WHC02 FOR &I FROM 1 TO &NUMLINES
-IF &I GT 1 THEN GOTO MS02BEG;
WHERE RESERVE_CELL EQ &CA.&I
-GOTO WHC02
-MS02BEG
-IF &I EQ &NUMLINES GOTO MS02END
 OR &CA.&I
-GOTO WHC02
-MS02END
 OR &CA.&I ;
-WHC02
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS RTIME
END
-RUN
-IF &LINES EQ 0 GOTO ERRRPT ;
-* **
-* ** Create Cell and Timestamp Parameter value for ETL call
-* **
TABLE FILE RTIME
WRITE MAX.TSTAMP
BY RESERVE_CELL
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS PARMFIL FORMAT COM
END
-RUN
-IF &LINES EQ 0 GOTO ERRRPT ;
-SET &PARMSCNT = &LINES + 0;
-SET &EPARAMS = '&' | '&' | 'CELL0=' || &PARMSCNT  ;
-* ** Loop
-REPEAT PARMFIL FOR &I FROM 1 TO &PARMSCNT
-READ PARMFIL, &ECELL.&I, &ETM.&I
-SET &ECELL.&I = &ECELL.&I;
-SET &ETM.&I   = CTRAN(&ETM.&I.LENGTH,&ETM.&I,&DOUBLE,&SPACE,'A&ETM.&I.LENGTH');
-SET &ETM.&I   = LJUST(&ETM.&I.LENGTH,&ETM.&I,'A&ETM.&I.LENGTH');
-SET &ETM.&I   = TRUNCATE(&ETM.&I);
-SET &ETM.&I   = TRIM('B',&ETM.&I,&ETM.&I.LENGTH,' ',1,'A&ETM.&I.LENGTH');
-SET &ETM.&I   = EDIT(&ETM.&I,'9999$99$99$99$99$99$000');
-SET &EPARAMS  = &EPARAMS ||  ',' |
- '&' | '&' | 'CELL&I.EVAL' | '=' | &ECELL.&I || ',' |
- '&' | '&' | 'TM&I.EVAL=' | &ETM.&I ;
-PARMFIL
-* ** End Loop
-RUN
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT
-GOTO CELLS
-*
-* get the required data from the history for the selected cells
-*
TABLE FILE EXPORT_HISTORY_TBL
SUM
-* ** Changed the amount to exclude decimal points
   DATA/D27
BY RESERVE_CELL
BY HIGHEST 1 TIME_STAMP AS 'TIME_STAMP2'
BY NAME
BY ROW_LABEL
BY EVAL_DATE
-REPEAT WHC03 FOR &I FROM 1 TO &NUMLINES
-IF &I GT 1 THEN GOTO MS03BEG;
WHERE RESERVE_CELL EQ &CA.&I
-GOTO WHC03
-MS03BEG
-IF &I EQ &NUMLINES GOTO MS03END;
 OR &CA.&I
-GOTO WHC03
-MS03END
 OR &CA.&I ;
-WHC03
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS HISDATA
END
-RUN
-IF &LINES EQ 0 GOTO ERRRPT ;
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT
-*
-* select the rows with highest time stamp only
-*
MATCH FILE RTIME
WRITE TSTAMP
  BY RESERVE_CELL
  BY TIME_STAMP1 AS 'TIME_STAMP'
RUN
FILE HISDATA
WRITE
   DATA
BY RESERVE_CELL
BY TIME_STAMP2  AS 'TIME_STAMP'
BY NAME
BY ROW_LABEL
BY EVAL_DATE
AFTER MATCH HOLD AS HISTHOLD OLD
END
-RUN
-*JOIN CLEAR *
-*JOIN RESERVE_CELL AND TIME_STAMP1 IN RTIME TO ALL
-*     RESERVE_CELL AND TIME_STAMP2 IN HISDATA AS  J1
-*END
TABLE FILE HISTHOLD
PRINT
     DATA
 NAME
 ROW_LABEL
 EVAL_DATE
BY RESERVE_CELL AS 'RCELL'
BY TIME_STAMP
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS HISTHOLD
END
-RUN
-IF &LINES EQ 0 GOTO ERRRPT ;
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT
-* **
-* ** Loop
-REPEAT CELLS FOR &I FROM 1 TO &NUMLINES
DEFINE FILE HISTHOLD
LAST_TOKEN/A10 = GETTOK(NAME, 70, -1, '_', 10, LAST_TOKEN);
TOLEN/A4 = EDIT(LAST_TOKEN,'9999$');
I_IN_NAME/I2 = POSIT(NAME, 70, TOLEN, 4, 'I2');
I_SUBSTR/A60 = SUBSTR(70, NAME, 1, I_IN_NAME-2, I_IN_NAME, I_SUBSTR);
-*RCELLI/I11 = EDIT(RCELL) ;
END
TABLE FILE HISTHOLD
SUM TOLEN
BY TOLEN
WHERE RCELL EQ &CA.&I
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS NAMELIST
END
-RUN
-SET &TIMESTRT = HHMMSS('A8');
-TYPE &TIMESTRT
-SET &DESCNT = &LINES ;
-SET &DEF1P = 'N' ;
-SET &SPECP = 'N' ;
-SET &XSPEP = 'N' ;
-SET &TOTAP = 'N' ;
-REPEAT DESCS FOR &J FROM 1 TO &DESCNT
-READ NAMELIST &DESC.A4.
-SET &DEF1P = IF &DESC EQ 'DEF1' THEN 'Y' ELSE &DEF1P ;
-SET &SPECP = IF &DESC EQ 'SPEC' THEN 'Y' ELSE &SPECP ;
-SET &XSPEP = IF &DESC EQ 'XSPE' THEN 'Y' ELSE &XSPEP ;
-SET &TOTAP = IF &DESC EQ 'TOTA' THEN 'Y' ELSE &TOTAP ;
-DESCS
-SET &CCNT = 0 ;
-SET &CCNT = IF &XSPEP NE 'Y' THEN &CCNT ELSE &CCNT + 1 ;
-SET &CCNT = IF &DEF1P NE 'Y' THEN &CCNT ELSE &CCNT + 1 ;
-SET &CCNT = IF &SPECP NE 'Y' THEN &CCNT ELSE &CCNT + 1 ;
-SET &CCNT = IF &TOTAP NE 'Y' THEN &CCNT ELSE &CCNT + 1 ;
-SET &TITLETXT = '<TITLE1';
-SET &TITLETXT =  IF &XSPEP EQ 'Y' THEN '&TITLETXT.EVAL' |
- '<TITLE2'  ELSE &TITLETXT ;
-SET &TITLETXT = IF &SPECP NE 'Y' THEN &TITLETXT
- ELSE '&TITLETXT.EVAL' | '<TITLE3' ;
-SET &TITLETXT = IF &DEF1P NE 'Y' THEN &TITLETXT
- ELSE '&TITLETXT.EVAL' | '<TITLE4' ;
-SET &TITLETXT = IF &TOTAP NE 'Y' THEN &TITLETXT
- ELSE '&TITLETXT.EVAL' | '<TITLE5' ;
-TYPE DEF1P &DEF1P
-TYPE SPECP &SPECP
-TYPE XSPEP &XSPEP
-TYPE TOTAP &TOTAP &TITLETXT
TABLE FILE HISTHOLD
PRINT   DATA
BY ROW_LABEL
-*BY I_SUBSTR
ACROSS LAST_TOKEN
-*BY RESVCELL
WHERE RCELL EQ  &CA.&I
ON TABLE HOLD AS HOLDCELL
END
-RUN
TABLE FILE HOLDCELL
PRINT E02 AS 'A2'
BY E01 AS 'A1'
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS RPTHOLD
END
-RUN
-SET &CNO = 2 ;
-ADDCOLS
-SET &CNO = &CNO + 1 ;
TABLE FILE HOLDCELL
PRINT E0&CNO AS 'A&CNO.'
BY E01 AS 'A1'
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS RPTHOLD1
END
-RUN
-IF &FOCERRNUM NE 0 GOTO ADDEND ;
MATCH FILE RPTHOLD
PRINT *
BY A1 NOPRINT
RUN
FILE RPTHOLD1
PRINT A&CNO.
BY A1 NOPRINT
ON MATCH HOLD AS RPTHOLD OLD-OR-NEW
END
-RUN
-GOTO ADDCOLS
-ADDEND
DEFINE FILE RPTHOLD
DESC/A20 = 'EXCAT' ;
AUYEAR/I6MYY= EDIT(EDIT(E01,'99$9999'));
AUTEMP/MYY = AUYEAR;
AUPRD/YYM = AUTEMP;
-*AUYEAR/A4 = EDIT(E01,'9999$');
TITLE1/A22 = '&LVIEW.&I' ;
TITLE2/A20 = 'EX SPECIFIC CATS' ;
TITLE3/A20 = 'SPECIFIC CATS' ;
TITLE4/A20 = 'DEFINED 1';
TITLE5/A20 = 'TOTAL';
BLANK/A1 = '';
 CURRDT/HYYMDm = HGETC(10, 'HYYMDm');
 RUNDT/HMtDYYIA = CURRDT;
END
TABLE FILE RPTHOLD
SUM  AUPRD AS ''
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE1 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE2 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE3 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE4 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE5 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE6 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE7 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE8 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE9 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE10 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE11 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE12 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE13 ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE14 ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE15 ;
-CASE1
A5/D18.2 AS ''
A3/D18.2 AS ''
A2/D18.2 AS ''
A4/D18.2 AS ''
-GOTO CASEEND
-CASE2
A3 AS ''
A2 AS ''
A4 AS ''
-GOTO CASEEND
-CASE3
A4 AS ''
A3 AS ''
A2 AS ''
-GOTO CASEEND
-CASE4
A4 AS ''
A2 AS ''
A3 AS ''
-GOTO CASEEND
-CASE5
A4 AS ''
A2 AS ''
A3 AS ''
-GOTO CASEEND
-CASE6
A3 AS ''
A2 AS ''
-GOTO CASEEND
-CASE7
A3 AS ''
A2 AS ''
-GOTO CASEEND
-CASE8
A2 AS ''
A3 AS ''
-GOTO CASEEND
-CASE9
A3 AS ''
A2 AS ''
-GOTO CASEEND
-CASE10
A2 AS ''
A3 AS ''
-GOTO CASEEND
-CASE11
A3 AS ''
A2 AS ''
-GOTO CASEEND
-CASE12
A2 AS ''
-GOTO CASEEND
-CASE13
A2 AS ''
-GOTO CASEEND
-CASE14
A2 AS ''
-GOTO CASEEND
-CASE15
A2 AS ''
-GOTO CASEEND
-CASEEND
BY BLANK NOPRINT
BY AUYEAR NOPRINT
-IF &I NE 1 GOTO SKIPHD ;
ON TABLE SUBHEAD
"Committing IBNR"
""
"Run Date:<RUNDT "
"Accounting Period:<+0>&ACTGDT"
" "
-SKIPHD
ON BLANK SUBHEAD
" <+0>  SELECTED IBNR FOR &CNAME.&I"
"&TITLETXT.EVAL"
ON BLANK RECAP
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE1A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE2A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE3A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE4A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE5A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'Y' THEN GOTO CASE6A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE7A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE8A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE9A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE10A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE11A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'Y' THEN GOTO CASE12A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'Y' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE13A ;
-IF &DEF1P EQ 'N' AND &SPECP EQ 'N' AND &TOTAP EQ 'Y' AND &XSPEP EQ 'N' THEN GOTO CASE14A ;
-IF &DEF1P EQ 'Y' AND &SPECP EQ 'N' AND &TOTAP EQ 'N' AND &XSPEP EQ 'N' THEN GOTO CASE15A ;
-GOTO CASE16
-CASE1A
E05A/D20 = E05 ;
E03A/D20 = E03 ;
E02A/D20 = E02 ;
E04A/D20 = E04 ;
ON BLANK SUBFOOT
"Total <E05A<E03A<E02A<E04A"
-GOTO CASEAEND
-CASE2A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
E04A/D20 = E04 ;
ON BLANK SUBFOOT
"Total <E03A<E02A<E04A"
-GOTO CASEAEND
-CASE3A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
E04A/D20 = E04 ;
ON BLANK SUBFOOT
"Total <E04A<E03A<E02A"
-GOTO CASEAEND
-CASE4A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
E04A/D20 = E04 ;
ON BLANK SUBFOOT
"Total <E04A<E02A<E03A"
-GOTO CASEAEND
-CASE5A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
E04A/D20 = E04 ;
ON BLANK SUBFOOT
"Total <E04A<E02A<E03A"
-GOTO CASEAEND
-CASE6A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E03A<E02A"
-GOTO CASEAEND
-CASE7A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E03A<E02A"
-GOTO CASEAEND
-CASE8A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E02A<E03A"
-GOTO CASEAEND
-CASE9A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E03A<E02A"
-GOTO CASEAEND
-CASE10A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E02A<E03A"
-GOTO CASEAEND
-CASE11A
E03A/D20 = E03 ;
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E03A<E02A"
-GOTO CASEEND
-CASE12A
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E02A"
-GOTO CASEAEND
-CASE13A
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E02A"
-GOTO CASEAEND
-CASE14A
E02A/D20 = E02 ;
ON BLANK SUBFOOT
"Total <E02A"
-GOTO CASEAEND
-CASE15
E02A/D20 = E02 ;
-GOTO CASEAEND
-CASE16
E02A/D20 = 0 ;
ON BLANK SUBFOOT
"Total <E02A"
-GOTO CASEAEND
-CASEAEND
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE SET ONLINE-FMT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET CSSURL 'css/ibnrconfig.css'
ON TABLE HOLD AS RPT&I FORMAT HTMTABLE
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='SCREEN',
     LEFTMARGIN=0.000000,
     RIGHTMARGIN=0.000000,
     TOPMARGIN=0.000000,
     BOTTOMMARGIN=0.000000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     FONT='ARIAL',
  GRID=OFF,
  SIZE=8,
  COLOR='BLACK',
  BACKCOLOR='none',
     STYLE=NORMAL,
     RIGHTGAP=0.100000,
     TOPGAP=0.000000,
     BOTTOMGAP=0.000000,
$
TYPE=DATA,     BORDER=LIGHT,$
TYPE=REPORT, COLUMN=E02,WRAP=1.5,$
TYPE=REPORT, COLUMN=E03,WRAP=1.5,$
TYPE=REPORT, COLUMN=E04,WRAP=1.5,$
TYPE=REPORT, COLUMN=E05,WRAP=1.5,$
-*TYPE=TITLE,CLASS='titleText',STYLE=-UNDERLINE,$
TYPE=HEADING,HEADALIGN=BODY,$
TYPE=HEADING,ITEM=2,COLSPAN=4,CLASS='borderText',$
TYPE=HEADING,ITEM=1,CLASS='whitets',$
TYPE=DATA,COLUMN=E02,BORDER=LIGHT,CLASS='dataoddPrice',$
TYPE=DATA,COLUMN=E03,BORDER=LIGHT,CLASS='dataoddPrice',$
TYPE=DATA,COLUMN=E04,BORDER=LIGHT,CLASS='dataoddPrice',$
TYPE=DATA,COLUMN=E05,BORDER=LIGHT,CLASS='dataoddPrice',$
TYPE=DATA,COLUMN=E01,BORDER=LIGHT,CLASS='dataoddText',$
-*TYPE=DATA,COLUMN=E02,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=E03,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=E04,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=E05,JUSTIFY=RIGHT,$
TYPE=SUBFOOT,HEADALIGN=BODY,GRID=ON,CLASS='totalPrice',$
TYPE=SUBFOOT,HEADALIGN=BODY,ITEM=1,CLASS='totalText',$
TYPE=SUBHEAD,HEADALIGN=BODY,$
TYPE=SUBHEAD,LINE=2,CLASS='titleText',$
TYPE=SUBHEAD,LINE=1,ITEM=2,COLSPAN=&CCNT,CLASS='borderText',$
TYPE=TABHEADING,
     LINE=1,
  CLASS='headText',
$
TYPE=TABHEADING,
     LINE=2,
  CLASS='subheadText ljust',
$
TYPE=TABHEADING,
     LINE=3,
  ITEM=1,
     COLSPAN=2,
  CLASS='subheadText ljust',
$
TYPE=TABHEADING,
     LINE=3,
  ITEM=2,
     COLSPAN=1,
  CLASS='subheadText ljust',
$
TYPE=TABHEADING,
     LINE=4,
  CLASS='subheadText ljust',
$
-*TYPE=DATA,CLASS='labelText',$
ENDSTYLE
END
-RUN
-CELLS
-RUN
-HTMLFORM BEGIN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
  <head>
    <title>IBNR [Commit Confirmation]</title>
    <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
    <meta http-equiv="Pragma" content="no-cache" />
    <meta http-equiv="Cache-Control" content="no-cache" />
    <meta http-equiv="Expires" content="0" />
    <link rel="stylesheet" type="text/css" media="screen" href="css/basic.css" />
    <link rel="stylesheet" type="text/css" media="screen" href="css/ibnrconfig.css" />
  <script language="JavaScript" src="js/global.js"></script>
  <script language="JavaScript" src="js/wfAJAX.js"></script>
  <script language="JavaScript" type="text/javascript"> // <![CDATA[
      // constants
      var CONFIRM_FORM_NAME = "confirm_ui";
      var agree = 0;  // 0 means 'no', 1 means 'yes'
      //Post-it only once per browser session? (0=no, 1=yes)
      //Specifying 0 will cause postit to display every time page is loaded
      var once_per_browser=0;
      var txtPagename='Account Snapshot';
      var txtBottomDisclaimer  ='<!--BOTTOMDISCLAIMER-->';
          txtBottomDisclaimer += '<table border=0 cellspacing=0 cellpadding=0>';
       txtBottomDisclaimer += '<tr><td align=left valign=top>disclaimer</td>';
          txtBottomDisclaimer += '</tr></table><br>';
          txtBottomDisclaimer += '<!--/BOTTOMDISCLAIMER-->';
      var eacctyr  = '&&EACCTYR';
      var eacctmo  = '&&EACCTMO' ;
      var ecellcat = '&&ECELLCAT' ;
/**
 * Get a specific Cookie value.
 * @class getCookieVal
 * @param {string} offset
 * @base cellcommit
 * @throws MemoryException if there is no more memory
 * @throws GeneralException rarely (if ever)
 */
  function getCookieVal (offset) {
    var endstr = document.cookie.indexOf (";", offset);
    if (endstr == -1)
        endstr = document.cookie.length;
    return unescape(document.cookie.substring(offset, endstr));
}
/**
 * Get a Cookie value.
 * @class GetCookie
 * @param {string} name
 * @base cellcommit
 * @throws MemoryException if there is no more memory
 * @throws GeneralException rarely (if ever)
 */
  function GetCookie (name) {
    var arg = name + "=";
    var alen = arg.length;
    var clen = document.cookie.length;
    var i = 0;
    while (i < clen) {
      var j = i + alen;
      if (document.cookie.substring(i, j) == arg) return getCookieVal (j);
      i = document.cookie.indexOf(" ", i) + 1;
      if (i == 0) break;
    }
    return '';
  }
/**
 *
 */
  function commit(email) {
    var f   = document.forms[CONFIRM_FORM_NAME];
        f.B1.disabled=true;
        f.elements.IBIF_cmd.value =  "EX CMASAP REQ_NAME=ibnr_commit,PARMS=" ;
        f.elements.IBIF_cmd.value += '"' + eacctyr + "," + eacctmo + "," ;
        f.elements.IBIF_cmd.value += "&" + "&" + "EMAIL=" +  email.value + "," ;
        f.elements.IBIF_cmd.value += ecellcat + "," ;
        f.elements.IBIF_cmd.value += '!IBI.AMP.EPARAMS;' + '"';
  //alert(email.value);
  alert(f.elements.IBIF_cmd.value);
  f.submit();
  // alert("Committed");
  return false;
 }
/**
 *
 */
  function init() {
     var f    = document.forms[CONFIRM_FORM_NAME] ;
     var url  = setUrl(etlprotocol,etlserver,etlport) ;
     f.action = url + etluri ;
	 alert(url);
	 alert(f.action);
     f.elements.IBIF_appname.value = etlapproot ;
     document.forms[CONFIRM_FORM_NAME].B1.disabled=true;
  }
// ]]>
    </script>
</head>
<body  onload="javascript:init()">
-*<a name='top'></a>
-*    <table border="0" width="100%" id="table4">
-*-REPEAT RPTCELLS FOR &I FROM 1 TO &NUMLINES
-*      <tr>
-*        <td>!IBI.FIL.RPT&I ; </td>
-*      </tr>
-*-RPTCELLS
-*    </table>
<center>
<form name="confirm_ui" method="POST"  action="javascript.void(0)">
<!--COL_ACTT-S-->
<B>!IBI.AMP.MSGTEXT;</B>
<br />
<br />
<input type="radio" name="enable" value="agree"
onclick="agree=1;document.confirm_ui.email.value=GetCookie('email');
        document.confirm_ui.email.focus();
        document.forms[CONFIRM_FORM_NAME].B1.disabled=false;" />Yes
<input type="radio" name="enable"  checked value="disagree"
       onclick="agree=0;document.confirm_ui.email.value='';document.forms[CONFIRM_FORM_NAME].B1.disabled=true;" />No
<br />
<br />
<label for="email">Please enter your email address:</label>
<input name="email" size=40 onfocus="if (!agree)this.blur();"
       onchange="if (!agree){this.value='';}"  />
<br />
 <input type="button" value="Commit" name="B1"
    onclick="if(confirm_ui.email.value!='') {return commit(document.confirm_ui.email);}"  />
 <input type="button" value="Cancel" name="B2"
    onclick="window.close();">
<input type="hidden" name="IBIS_page" value="DFLTPROMPT">
<input type='hidden' name='IBIF_cmd' value="">
<input type='hidden' name='CGIX_cmd' value='PromptDflt'>
<input type='hidden' name='IBIF_appname' value=''>
<input type='hidden' name='IBIS_prcname' value='ibnr_commit'>
<input type='hidden' name='CGIX_option' value='nodflt'>
<input type='hidden' name='DMC_Output' value='report'>
<input type='hidden' name='DMC_Target' value='grid'>
<input type='hidden' name='IBIS_file' value=''>
<input type='hidden' name='IBIS_connect' value='on'>
<input type='hidden' name='IBIS_disconnect' value='on'>
<input type='hidden' name='IBIC_server' value=''>
<input type='hidden' name='IBIC_user' value='jaadmin'>
<input type='hidden' name='IBIC_pass' value='WFocus76'>
<input type='hidden' name='IBIC_svc_name' value='WC_DEFAULT'>
</form>
</center>
<!-- footer -->
    <table border="0">
      <tr>
        <td class="copyright">Copyright ©
            <script language="javascript">document.write(new Date().getFullYear());</script>
            Folksamerica Reinsurance Company.
        </td>
      </tr>
    </table>
</body>
</html>
-HTMLFORM END
-GOTO VC01END
-ERRRPT
-HTMLFORM BEGIN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
          "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<script language="JavaScript" src="js/global.js"></script>
<link rel="stylesheet" type="text/css" media="screen" href="css/basic.css" />
<link rel="stylesheet" type="text/css" media="screen" href="css/ibnrconfig.css" />
<script language="JavaScript" src="js/global.js"></script>
<script language="JavaScript" type="text/javascript"> // <![CDATA[
// constants
var CONFIRM_FORM_NAME = "confirm_ui";
var eacctyr  = '&&EACCTYR';
var eacctmo  = '&&EACCTMO' ;
</script>
</head>
<body>
<table border="0" width="100%" id="table4">
 <tr>
  <td><center><b>An error occurred while processing the report.</b></center></td>
 </tr>
 <tr>
  <td><center><b>Please contact the technical support</b></center></td>
 </tr>
</table>
</body>
</html>
-HTMLFORM END
-VC01END
 



Webfocus 7.6.4
Windows 2003 Server, SQL Server 2005
Excel, HTML , JavaScript ,and PDF.
Reportcaster, BID, Tomcat
April 11, 2011, 02:13 PM
Kerry
Hi all,

FYI, jammer's post on the WebFOCUS forum is here:
http://forums.informationbuild...1057331/m/4587013106
A couple of replies were already made.

Jammer, I will touch base with you via a private message.

Cheers,

Kerry


Kerry Zhan
Focal Point Moderator
Information Builders, Inc.