Focal Point Banner
Community Center Education Summit Technical Support User Groups
Let's Get Social!

Facebook Twitter LinkedIn YouTube
Focal Point    Focal Point Forums  Hop To Forum Categories  iWay Software Product Forum on Focal Point    Starting datamigrator flow from webpage
Go
New
Search
Notify
Tools
Reply
  
Starting datamigrator flow from webpage
 Login/Join
 
Gold member
posted
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
 
Posts: 79 | Registered: May 02, 2006Reply With QuoteReport This Post
Expert
posted Hide Post
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.
 
Posts: 1950 | Location: New York | Registered: November 16, 2004Reply With QuoteReport This Post
  Powered by Social Strata  
 

Focal Point    Focal Point Forums  Hop To Forum Categories  iWay Software Product Forum on Focal Point    Starting datamigrator flow from webpage

Copyright © 1996-2018 Information Builders, leaders in enterprise business intelligence.