I have a UNIX Focus report that is displayed in Vista Plus (This is NOT Microsoft's vista operating system). The last 2 column titles are overlaying the first column title. The data is displayed in the proper place. All of the columns are referenced as IN +1. I have tried SET PANEL and SET WIDTH and IN 160. Only the titles are in the wrong place. Any of you old coders have any suggestions?

PBrightwell,

Is it possible for you to post your code or at least the part that does not seeem to be working properly?

What is your output format?

This is regular Focus for UNIX not WebFocus, there is no output format or styling, it is like an old "green-bar" report. Only the last 2 columns have a problem. The data is in the correct location on the report, only the title is wrapping and it overlays the title and underline for Employee Name (first column).

 -SET &&RTITL='ST508H' ;
-SET &&RNAME='EO LABOR MO/QTR/FY';
-*
DEFINE FILE ST508AH
ACTBEGMONUM/A2=EDIT('&&FISCBEG', '$$$$99' ) ;
ACTBEGYR/A4   =EDIT('&&FISCBEG', '9999$$' ) ;
ACTBEGMO/A12=DECODE ACTBEGMONUM('01' 'JANUARY'
                                '02' 'FEBRUARY'
                                '03' 'MARCH'
                                '04' 'APRIL'
                                '05' 'MAY'
                                '06' 'JUNE'
                                '07' 'JULY'
                                '08' 'AUGUST'
                                '09' 'SEPTEMBER'
                                '10' 'OCTOBER'
                                '11' 'NOVEMBER'
                                '12' 'DECEMBER') ;
PRTBEGMO/A12=IF &&FISCBEG EQ 200010 THEN 'JANUARY'  ELSE ACTBEGMO ;
PRTBEGYR/A4= IF &&FISCBEG EQ 200010 THEN '2001' ELSE ACTBEGYR ;
PQBEGMY/A13=IF &&DATEBEGYM EQ 199901 THEN 'FEBRUARY 1999' ELSE
                '&&RPTBEG' ;
CHKPERIOD/A6='&&FISCPER' ;
CHKYEAR/A4=EDIT(CHKPERIOD,'9999$$') ;
PERIOD/A2= EDIT(CHKPERIOD,'$$$$99') ;
NUMPDQTR/P3=DECODE PERIOD('01' 001
                          '02' 002
                          '03' 003
                          '04' 001
                          '05' 002
                          '06' 003
                          '07' 001
                          '08' 002
                          '09' 003
                          '10' 001
                          '11' 002
                          '12' 003) ;
REGPDYTD/P3=DECODE PERIOD('01' 004
                          '02' 005
                          '03' 006
                          '04' 007
                          '05' 008
                          '06' 009
                          '07' 010
                          '08' 011
                          '09' 012
                          '10' 001
                          '11' 002
                          '12' 003) ;
-*  SINCE DO NOT START FISCAL YEAR IN 2001 UNTIL JANUARY -- SPECIAL TABLE
SPCPDYTD/P3=DECODE PERIOD('01' 001
                          '02' 002
                          '03' 003
                          '04' 004
                          '05' 005
                          '06' 006
                          '07' 007
                          '08' 008
                          '09' 009
                          '10' 001
                          '11' 002
                          '12' 003) ;
NUMPDYTD/P3=IF CHKYEAR IS '2001' THEN SPCPDYTD ELSE REGPDYTD ;
END
-*
TABLE FILE ST508AH
HEADING
" "
" "
"<3 <DISTRICT District <75 HOURLY EO LABOR UTILIZATION SUMMARY
                                                  <170 Report ST508H"
"<3 &&POSTMONTH    <75         With Total Hours
                                                  <170 Run &&TODAYSDT"
"<3 &&YEARYYYY                                    <170 Page <TABPAGENO"
"  "
"  "
"   "
"                             <98    Quarter       <154 Fiscal YTD"
"     <51 &&POSTMONTH &&YEARYYYY <93 &&RPTBEG to &&RPTEND
    <149 Beginning <PRTBEGMO <PRTBEGYR"
"<35 ------------------------------------------    ------------------------
 <+0 -------------------------     -------------------------------------------
 <+0 ---"
"  "
IF GROUP IS 'EO'
BY DISTRICT NOPRINT
BY EMPLOYEENAME AS 'EO Employee Name'      IN 5
PRINT
      LMOHRSWK  AS 'Total,Hours,Worked'    IN +1
      LMOHRSJB  AS 'Job,Hours'             IN +1
      LMOHRSTT  AS 'Travel,Hours'          IN +1
  AND COMPUTE
      UTILPCT/P7.2=((LMOHRSJB + LMOHRSTT) / LMOHRSWK) * 100 ;
         AS ' %,Util'                      IN +1
      TQTRHRSWK AS 'Total,Hours,Worked'    IN +4
      TQTRHRSJB AS 'Job,Hours'             IN +1
      TQTRHRSTT AS 'Travel,Hours'          IN +1
  AND COMPUTE
      QUTILPCT/P7.2=((TQTRHRSJB + TQTRHRSTT) / TQTRHRSWK) * 100 ;
         AS ' %,Util'                    IN +1
      FYTDHRSWK AS 'Total,Hours,Worked'  IN +4
      FYTDHRSJB AS 'Job,Hours'           IN +1

-* T H I S     I S    W H E R E    T H E   
-* P R O B L E M  O C C U R S  

      FYTDHRSTT AS 'Travel,Hours'        IN +1
  AND COMPUTE
      FUTILPCT/P7.2=((FYTDHRSJB + FYTDHRSTT) / FYTDHRSWK) * 100 ;
         AS ' %,Util'                    IN +1
ON DISTRICT SUMMARIZE AS '           Total for'
ON DISTRICT PAGE-BREAK
ON DISTRICT REPAGE
FOOTING BOTTOM
"  "
"     Note:  Job Count Exclusions: Bulk sales, loadouts, tool rental,
              <+1 tool redress, memos, and rebills"
"           Timeware Hours worked do not include vacation, holiday, etc.""
"  "
"            Job and Travel hours from PowerVision jobs with a job date
              <+1 in the reporting month"
"              Job hours    = Leave location date/time  - Arrive location
              <+1 date/time"
"              Travel hours = Arrive location date/time - Left District
              <+1 date/time +"
"                             Arrive District date/time - Left location
              <+1 date/time"
"            Negative job and travel hours adjusted to 0 hours"
"            Employees job and travel hours over 1000 adjusted to 0"
"            Flex Employees excluded"
END
-*
-INCLUDE st926
-RUN
-EXIT
 

PBrightwell,

I experienced this exact issue in the early 90s with MVS FOCUS. I thought this was fixed.

Try setting WIDTH and PANEL to the total width of your report such as 132 or whatever.

SET WIDTH=132
SET PANEL=133

If this does not work, open a case with IBI.

PBrightwell,

Just so you know, you may also want to look into the SET SPACES command. This may reduce your coding of IN +1 statements. The SPACES setting contorls the number of spaces FOCUS will put between columns. It can be set to a number from 1 to 8.

Thanks Mickey, That is what I thought is should be and tried, but the titles are still messed up. What I don't understand is that the data is in the right place. The titles aren't over the columns.

PBrightwell

Open a case with IBI. I bet this is a bug which there may be a patch for.