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