PRINT=NEVER causes loss of detail lines on report

[Jenny Mckeon <MCKEON@SHANDS.UFL.EDU>]

I'M losing all but my first line of detail per the LEVEL 1 control break when 
using the print = never on the level 2 control break in a report.
I have coded the PRINT= NEVER correctly as far as I can tell.
The only thing a little different from the examples I've seen is that I'm using 
a worktable.  I didn't put any indexes on the work table when I created it, 
could that cause problems ?


begin-heading 10
let $Reporttitle = 'RN Transfer Report - Transfers Within Nursing'
#Include 'stdhtrrN.sqc'

   print ' '                    (+1,1)
   print 'DEPARTMENT:'          (+1,1)
   print $DeptId                (0,13)
   print $DeptName              (0,30)


   print 'Budgt'               (+1,89)
   print 'Actual'               (,96)
   print 'Transfered'           (,120)
   print 'Transfer'             (,110)
!  print 'MONTH'                (+1,1)
   print 'Jobcode'              (+1,7)
   print 'Position Title'       (0,18)
   print 'Name'                 (0,44)
   print 'Empl ID'              (0,69,10)
   print 'Status'               (0,81)
   print 'FTE'                  (,90)
   print 'FTE'                  (,97)
   print 'Action'               (,103)
   print 'Date'                 (,112)
   print ' To Dept:'            (,120)
   print 'Supervisor'           (,133)
end-heading

!***********************************************************************
begin-procedure Create-Report
!***********************************************************************
Begin-Select
S.DEPTID     ()  on-break print=never
             level=1
             save=$oldept
             Before=dept-change
             skiplines = 1
   display 's.deptid'
   display &s.deptid
!S.MONTHCD    (+1.1)  on-break print=change   !this works fine
S.MONTHCD    () on-break
              level=2
              save=$oldmonth
              PRINT=never         !this causes detail lines to disappear
              before=Month-name
   display 's.monthcd'
   display &s.monthcd
   display $month
S.Jobcode       (,7)   on-break print=change/top-page
                        level=3
  S.Descr        (,18)
S.name       (,44,33)
   DISPLAY &S.name
S.emplid    (,69,10)
S.Empl_status  (,82)
S.Std_hrs_default
  let #FTE = &S.std_hrs_default / 40
  do Format-Number(#FTE, $out, 'b9.99')
  print $out                (0,89)
S.Std_hours
  display 'std hrs'
  display &S.std_hours
  let #FTE = &S.std_hours / 40
  do Format-Number(#FTE, $out, 'b9.99')
  print $out                (0,95)
S.action                    (0,103)
S.deptid_from               (0,120)
S.EFFDT                  (0,109)
  add 1 to #Empl_cnt
  add 1 to #Grand_cnt
S.SUPERVISOR_ID
 MOVE &S.SUPERVISOR_ID TO $EMPLID
 do Get-Employee-Name
 Print $name          (,133)

FROM SH_R_RNRPT01 S
order by S.deptid, S.monthCD, S.JOBCODE
End-Select                                                              CHAR
End-Procedure

begin-Procedure Month-Name
display 'in procedure month name'
    MOVE &S.MONTHCD TO $MONTHCH
   do get-month
   print $month   (,3)
end-procedure

begin-Procedure Dept-Change
display  'in procedure dept change'
  new-page
  move &S.DeptId to $DeptId
  do Get-Department-Name
End-Procedure

begin-Procedure Get-Month
display 'in procedure get month'
display $monthch
   evaluate $MONTHCH
   when = '01'
   let $Month = 'Jan'
   break
   when = '02'
   let $Month = 'Feb'
   break
   when = '03'
   let $Month = 'Mar'
   break
   when = '04'
   let $Month = 'Apr'
   break
   when = '05'
   let $Month = 'May'
   break
   when = '06'
   let $Month = 'Jun'
   break
   when = '07'
   let $Month = 'Jul'
   break
   when = '08'
   let $Month = 'Aug'
   break
   when = '09'
   let $Month = 'Sep'
   break
   when = '10'
   let $Month = 'Oct'
   break
   when = '11'
   let $Month = 'Nov'
   break
   when = '12'
   let $Month  = 'Dec'
   break
   end-evaluate

End-Procedure

begin-procedure Insert-Worktable
let
 $sql-statement = 'RNRPT1.SQR,Insert-Worktable,Insert,SH_R_RNRPT01'
begin-SQL On-Error=SQL-Error
INSERT INTO SH_R_RNRPT01 (DEPTID,MONTHCD,JOBCODE,DESCR,EMPLID,NAME,
            EMPL_STATUS,STD_HRS_DEFAULT,STD_HOURS,SUPERVISOR_ID,
            DEPTID_FROM,ACTION,EFFDT)
       VALUES (&JP.DEPTID,$MONTHch,&JP.JOBCODE,&POS.DESCR,&J.EMPLID,
               &P.NAME,&JP.EMPL_STATUS,&POS.STD_HRS_DEFAULT,
               &JP.STD_HOURS,&P.SUPERVISOR_ID,&J.DEPTID,
               &J.ACTION,&J.EFFDT)
end-SQL
end-procedure

begin-procedure Delete-Worktable
let
 $sql-statement = 'RNRPT1.SQR,Delete-Worktable,Delete,SH_R_RNRPT01'
begin-SQL On-Error=SQL-Error
DELETE FROM SH_R_RNRPT01;
end-SQL
end-procedure



Jenny Mckeon
Shands Healthcare, Info. Svcs.
Application Systems Analyst, Senior
(352) 395-0680, ext. 8-5232
internet:mckeon@shands.ufl.edu