Brad Gronli

They are the same except that I limited the number of lines from the HEADING, to try and track down the issue. The main difference between the two is W2reg (WebFOCUS)is run from a website and the other is run from our mainframe (FOCUS) in batch.

Attached here are examples of what the report should look like (W2reg) and what I am seeing in batch (W2test). W2reg on top, W2test on bottom.

<50 is 2 in line 3. Both online and batch programs are to produce a W2.

I have a program that works fine when run from one of our websites, to produce an individuals W4. I have been tasked with modifying a copy of this program to produce a .pdf of all W2s for a calendar year. I am having an issue with this new version, when run in batch. The following is a part of the HEADING section. HEADING "<12 a <13 Employee's social security number <34 Payroll organization code <50 I ntradepartment number" "<15 <PRTY_ID <34 <ORG_PYRL_CD <55 <DEPT_INTR_ID </1" "<2 b <3 Employer identification number (EIN) <34 1 <35 Wages, tips, other compe nsation <50 2 <51 Federal income tax withheld" "<6 <EMPR_ID <34 <WAGE_FIT_AMTA <55 <WH_FIT_AMTA </1" "<2 c <3 Employer's name, address, and ZIP code <34 3 <35 Social security wages <50 4 <51 Social sexurity tax withheld" "<34 <WAGE_SS_AMTA <55 <WH_SS_AMTA" "<4 <EMPR_NM" -GOTO HEADEND; The first line prints out correctly, but the third line doe snot print anything after "compensation" and I just do not see why. Any help here would greatly appreciated. Thank you.

I work on a z/OS system and needed to use the CHAR function to return the correct meta characters. I did attempt with the coding Martin suggested but that does not work on our Mainframe.

I have a program that I am attempting use this function in, however, when the program is run, REGEX is ignored -SET &REG2 = CHAR(95)||CHAR(173)||'~`!#$%¬^&*()+={}¢Ý¦¨|\:;"<>?/'||CHAR(189); -* inside a DEFINE FILE EMAILV/A70V = TRIMV('T', EMAIL_ADDR, 70, ' ', 1, EMAILV); EMAILL/A1 = SUBSTR(ARGLEN(70, EMAILV, 'I4'), EMAILV, ARGLEN(70, EMAILV, 'I4'), ARGLEN(70, EMAILV, 'I4'), 1,'A1'); v_EMAIL/A1 = IF EMAIL_ADDR EQ '' THEN '2' ELSE IF REGEX(EMAIL_ADDR, '&REG2') OR EMAILL EQ '.' THEN '1' ELSE '0'; o_EMAIL_ADDR/A7 = IF v_EMAIL EQ '2' THEN 'MISSING' ELSE IF v_EMAIL EQ '1' THEN 'INVALID' ELSE ''; o_EMAIL_ADDR returns as ' ' when it should as INVALID, in my testing. Any ideas? Thanks

Why has this not been added As Excel has moved forward, why has this not been moved right along with it We have reports created using this with EXL2K to create reports with multiple tabs, yet we cannot do the same using EXL07 or XLSX. Continuing to use EXL2K is putting an undo burden on our users who now have to download the report, rename it to add the .xls extension, befor they can open it. Extra steps they should not have to take. Thank you.

I have tried setting up a Define field for today's date using the TODAY function, but only get errors telling me that everything iI have tried inside the () is invalid or unknown. Anyone know how to accomplish this simple task Thank you, Brad G.

Originally, when I attempted to save the report, I did not have END after the semi-colon and would get a syntax error. AND A.TRN_AMT = B.TRN_AMT; TABLE ON TABLE HOLD AS PENDING END -RUN I then changed the code to this. AND A.TRN_AMT = B.TRN_AMT; END TABLE ON TABLE HOLD AS PENDING END -RUN After reading the above posts, I changed it to AND A.TRN_AMT = B.TRN_AMT; TABLE ON TABLE HOLD AS PENDING END and now I get the output in Excel. Thanks all.

Without that, it gets a syntax error when I try to save the file. I have that same type of coding in the older 7.7 code, which works without an issue.

I first attempted to write this .fex using the GUI in 8.206, but the results were not correct. So, I then turned to writing the SQL directly in the code, which mostly works. However, I am getting an error telling it cannot find the hold file used to store the results of the run, before they are printed to Excel. I should point out here that the output comes up as HTML, instead of Excel. Below is the code, followed by what I see when it is run. I have used this type of code in the past, when we were still in 7.7, but I am not seeing why the file is not being found or if there is some new part I am missing, such as having to add END after the line with the semi-colon. Any thoughts Thanks. -SET &ECHO = ALL; ENGINE INT CACHE SET ON SET PAGE-NUM=NOLEAD SET SQUEEZE=ON -DEFAULTH &WF_HTMLENCODE=ON; SET HTMLENCODE=&WF_HTMLENCODE SET HTMLCSS=ON -DEFAULTH &WF_EMPTYREPORT=ON; SET EMPTYREPORT=&WF_EMPTYREPORT -DEFAULTH &WF_SUMMARY='Summary'; -DEFAULTH &WF_TITLE='Pending Disbursements'; SQL SELECT A.ACCOUNT_CD, A.SWDN, A.SWDN_LINE, A.AGENCY_DOC_NBR, A.VOUCHER_DT, A.VOUCHER_STATUS, A.VOUCHER_REASON, A.APRV_AUDITOR_DT, A.TRN_AMT, B.USER_NBR FROM (SELECT ACCOUNT_CD, SWDN, SWDN_LINE, AGENCY_DOC_NBR, VOUCHER_DT VOUCHER_STATUS, VOUCHER_REASON, APRV_AUDITOR_DT, TRN_AMT FROM DISBPND WHERE OLO = '770000' AND TRN_AMT <> 0.00) A LEFT JOIN (SELECT OLO,1,2, GF_CD, SF_CD, FID, BE_CD, IBI, CAT, APPR_YR, AGENCY_DOC_NBR, TRN_AMT, USER_NBR FROM TRNHIST WHERE OLO = '770000') B ON A.ACCOUNT_CD = SUBSTR(B.OLO,1,2)||B.GF_CD||B.SF_CD||B.FID||B.BE_CD||B.IBI||B.CAT||B.APPR_YR AND SUBSTR(A.AGENCY_DOC_NBR,1,7) = SUBSTR(B.AGENCY_DOC_NBR,1,7) AND A.TRN_AMT = B.TRN_AMT; END TABLE ON TABLE HOLD AS PENDING END -RUN -* TABLE FILE PENDING PRINT ACCOUNT_CD SWDN SWDN_LINE AGENCY_DOC_NBR VOUCHER_DT VOUCHER_STATUS VOUCHER_REASON APRV_AUDITOR_DT TRN_AMT/D12.2C BY ACCOUNT_CD NOPRINT ON TABLE PCHOLD FORMAT XLSX ON TABLE NOTOTAL ON TABLE SET CACHELINES 100 ON TABLE SET GRWIDTH 1 ON TABLE SET STYLE * INCLUDE=IBFS:/FILE/IBI_HTML_DIR/ibi_themes/Warm.sty,$ TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, SUMMARY=&WF_SUMMARY.QUOTEDSTRING, ORIENTATION=LANDSCAPE, $ ENDSTYLE END -RUN View source from the output shows this. SQL SELECT A.ACCOUNT_CD, A.SWDN, A.SWDN_LINE, A.AGENCY_DOC_NBR, A.VOUCHER_DT, A.VOUCHER_STATUS, A.VOUCHER_REASON, A.APRV_AUDITOR_DT, A.TRN_AMT, B.USER_NBR FROM (SELECT ACCOUNT_CD, SWDN, SWDN_LINE, AGENCY_DOC_NBR, VOUCHER_DT, VOUCHER_STATUS, VOUCHER_REASON, APRV_AUDITOR_DT, TRN_AMT FROM DISBPND WHERE OLO = 770000 AND TRN_AMT <> 0.00) A LEFT JOIN (SELECT OLO,1,2, GF_CD, SF_CD, FID, BE_CD, IBI, CAT, APPR_YR, AGENCY_DOC_NBR, TRN_AMT, USER_NBR FROM TRNHIST WHERE OLO = 770000) B ON A.ACCOUNT_CD = SUBSTR(B.OLO,1,2)||B.GF_CD||B.SF_CD||B.FID||B.BE_CD||B.IBI||B.CAT||B.APPR_YR AND SUBSTR(A.AGENCY_DOC_NBR,1,7) = SUBSTR(B.AGENCY_DOC_NBR,1,7) AND A.TRN_AMT = B.TRN_AMT; END TABLE ON TABLE HOLD AS PENDING END -RUN 0 NUMBER OF RECORDS IN TABLE= 41 LINES= 41 0 HOLDING HTML FILE ON PC DISK -* TABLE FILE PENDING PRINT ACCOUNT_CD SWDN SWDN_LINE AGENCY_DOC_NBR VOUCHER_DT VOUCHER_STATUS VOUCHER_REASON APRV_AUDITOR_DT TRN_AMT/D12.2C BY ACCOUNT_CD NOPRINT ON TABLE PCHOLD FORMAT XLSX . . . 0 ERROR AT OR NEAR LINE 38 IN PROCEDURE pending_doc_dfs (FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: PENDING (FOC009) Request failed validation, not executed.

We were finally able to determine that they had missed a step when installing the software. After correcting this, he can now connect. Now he reports that while the character data comes across fine, numeric data comes across as NULL and dates as blanks.

Can Microsoft Visual FoxPro be set-up to pull data through an iWay connection

In the GUI, I changed the JOIN to only JOIN on a single field, then added filters on the second field and on the date field. This looks to have done the trick and here is what the JOIN now looks like (names changed to protect the innocent). JOIN LEFT_OUTER FILETABLEA.FIELDA TO UNIQUE FILE TABLEB.FIELDA TAG J005 AS J005 WHERE TABLEA.FIELDB EQ J005.TABLEB.FIELDB; WHERE J005.TABLEB.DATE EQ 20990101;

I have a need to join table A to table B using two fields and it needs to have a filter on a field in table B. This is something I can do in an SQL tool (DbVisualizer), but seem to be unable to do so in the WebFOCUS GUI. I can set the filter outside of the join, but this causes rows to be missed, when there is not a row on table B. The join should look something like: LEFT OUTER JOIN FILE TABLEA AT TABLEA.TABLEA.FIELDA AND TABLEA.TABLEA.FIELDB TO UNIQUE FILE TABLEB AT TABLEB.TABLEB.FIELDA AND TABLEB.TABLEB.FIELDB TAG J0001 AS J0001 WHERE TABLEB.TABLEB.DATE EQ 20990101; END