By: Brandon

Brandon — Fri, 12 Aug 2016 13:55:54 +0000

Hello Nayan,

I am trying to figure out how to incorporate the NEW-REPORT into a SQR report I am working on. I was wondering if you could help me out. I am not sure where to add the code. I have an unknown number of reports that will be generated. Please help

#include 'setenv.sqc' !Set environment


!**********

begin-setup

!**********
! page-size 15000 500
  #include 'ptpsl177.sqc' !Printer and page-size initialization  
end-setup
!***********

begin-report

!***********
  do Init-DateTime

  do Init-Number

  do Get-Current-DateTime

  do Init-Report

  do Init-Arrays

  do Reset-Arrays

  do Process-Main

  do Reset

  do Stdapi-Term
end-report
!**************

begin-heading 8

!**************
#include 'stdhdg01.sqc'
  print 'From RunID'		(+1,1)

  print $FromPayRunID           (0,+1)

  print 'Thru'			(0,+1)

  print $ThruPayRunID		(0,+1)
  print 'Current'		(+2,44,10)

  print 'Current'		(0,55,10)

  print 'Earnings'		(0,103,10)

  print 'Earnings'		(0,114,13)

  print 'Estimated'		(0,128,10)

  print 'Variance'		(0,139,10)

  print 'Variance'		(0,150,10)
  print 'Name'			(+1,1,30)

  print 'EmplID'		(0,32,11)

  print 'Status'		(0,44,10)

  print 'Class'			(0,55,10)

  print 'Earnings Code'		(0,68,34)

  print 'Hrs'  			(0,103,10)

  print 'Gross'			(0,114,13)

  print 'Biweekly'		(0,128,10)

  print 'Amount'		(0,139,10)

  print 'Percentage'		(0,150,10)
  print '-'			(+1,1,30) fill

  print '-'			(0,32,11) fill

  print '-'			(0,44,10) fill

  print '-'			(0,55,10) fill

  print '-'			(0,68,34)  fill

  print '-'			(0,103,10) fill

  print '-'			(0,114,13) fill

  print '-'			(0,128,10) fill

  print '-'			(0,139,10) fill

  print '-'			(0,150,10) fill
end-heading
!**************************

begin-procedure Init-Report

!**************************
  move 'ccwpay09c' to $ReportID

  move 'Variance Report - Hours & Earnings Totals' to $ReportTitle

  display $ReportTitle
  do Stdapi-Init
  if $prcs_process_instance = ''

    display ' '

    input $FromPayRunID maxlen=10 'From pay run id: '

    let $FromPayRunID = upper($FromPayRunID)

    display ' '

    input $ThruPayRunID maxlen=10 'Thru pay run id: '

    let $ThruPayRunID = upper($ThruPayRunID)

    display ' '

  end-if
end-procedure
!**************************

begin-procedure Init-Arrays

!**************************
  create-array name  = ErnYTDArray

               size  = 50

               field = ErnYTDCd:char

               field = ErnYTDHrs:number

               field = ErnYTDErn:number
  create-array name  = SummaryErnYTDArray

               size  = 100

               field = SummaryErnYTDCd:char

               field = SummaryErnYTDHrs:number

               field = SummaryErnYTDErn:number
  move -1 to #Summary_Earnings_Rows
end-procedure
!***************************

begin-procedure Reset-Arrays

!***************************
  move 0 to #i

  while #i <= 49

    put ' ' 0 0 into ErnYTDArray(#i)

    add 1 to #i

  end-while

  move -1 to #Earnings_Rows
end-procedure
!***************************

begin-procedure Process-Main

!***************************

! Gets all the pay lines between the two pay run ids specified.

! Gets the employees current status based on the report run date.
begin-select
J.DEPTID		() on-break

                           print=never

                           before=Print-Dept-Subheading

                           after=Print-Dept-Subtotals

                           level=1
PL.NAME			() on-break

                           print=never

                           after=Test-If-Variance

                           save=$Name

                           level=2
PL.COMPANY

PL.PAYGROUP

PL.PAY_END_DT

PL.OFF_CYCLE

PL.PAGE_NUM

PL.LINE_NUM

PL.EMPLID

  move &PL.EMPLID to $EmplID

PL.EMPL_RCD

PL.BUSINESS_UNIT

PC.PAY_END_DT
J.EMPL_CLASS

  move &J.EMPL_CLASS to $Empl_Class

J.EMPL_STATUS

  move &J.EMPL_STATUS to $Empl_Status

J.BUSINESS_UNIT

J.DAILY_RT

  move &J.DAILY_RT to #Empl_Daily_Rt
  do Get-Earnings

  do Get-Overtime

  do Get-Other-Earnings
FROM PS_PAY_CALENDAR PC,

     PS_PAY_LINE PL,

     PS_JOB J
WHERE PC.RUN_ID BETWEEN $FromPayRunID AND $ThruPayRunID

  AND PL.COMPANY = PC.COMPANY

!  AND PL.PAYGROUP IN ('TWS')  !*******************uncomment this code to run Transit Windsor

  AND PL.PAYGROUP = PC.PAYGROUP

  AND PL.PAY_END_DT = PC.PAY_END_DT

  AND PL.PAYGROUP  'RBG'

  AND J.EMPLID = PL.EMPLID

  AND J.EMPL_RCD = PL.EMPL_RCD

!  AND J.COMPANY = PL.COMPANY

!  AND J.PAYGROUP = PL.PAYGROUP

  AND (J.EFFDT = (SELECT MAX(EFFDT)

                    FROM PS_JOB

                   WHERE EMPLID = J.EMPLID

                     AND EMPL_RCD = J.EMPL_RCD

                     AND EFFDT <= PC.PAY_END_DT)

                     AND J.EFFSEQ = (SELECT MAX(EFFSEQ)

                                       FROM PS_JOB

                                      WHERE EMPLID = J.EMPLID

                                        AND EMPL_RCD = J.EMPL_RCD

                                        AND EFFDT = J.EFFDT))
ORDER BY J.DEPTID, PL.NAME
end-select
  do Print-Grand-Totals

  do Print-Earning-Code-Totals
end-procedure
!***************************

begin-procedure Get-Earnings

!***************************

! Searches the payroll earnings table to get all earnings for the employee

! based on the pay lines passed.  Stores the values in the earnings array.
  move 'N' to $Found

  move 0 to #Row
begin-select
PE.ERNCD_REG_HRS

PE.REG_HRS+PE.REG_EARN_HRS     &Hours

PE.REG_EARNS+PE.REG_HRLY_EARNS &Earnings
  while (#Row <= #Earnings_Rows) and ($Found = 'N') and (&Earnings  0)

    get $Temp_ErnCd from ErnYTDArray(#Row) ErnYTDCd

    if $Temp_ErnCd = &PE.ERNCD_REG_HRS

      array-add &Hours &Earnings to ErnYTDArray(#Row) ErnYTDHrs ErnYTDErn

      move 'Y' to $Found

    end-if

    add 1 to #Row

  end-while
  if $Found = 'N' and (&Earnings  0)

    add 1 to #Earnings_Rows

    put &PE.ERNCD_REG_HRS &Hours &Earnings into ErnYTDArray(#Earnings_Rows)

  end-if
  move 'N' to $Found

  move 0 to #Row
FROM PS_PAY_EARNINGS PE   
WHERE PE.COMPANY = &PL.COMPANY

  AND PE.PAYGROUP = &PL.PAYGROUP

  AND PE.PAY_END_DT = &PL.PAY_END_DT

  AND PE.OFF_CYCLE = &PL.OFF_CYCLE

  AND PE.PAGE_NUM = &PL.PAGE_NUM

  AND PE.LINE_NUM = &PL.LINE_NUM
ORDER BY PE.ERNCD_REG_HRS
end-select
end-procedure
!***************************

begin-procedure Get-Overtime

!***************************

! Searches the payroll earnings table to get all overtime for the employee

! based on the pay lines passed.  Stores the values in the earnings array.
  move 'N' to $Found

  move 0 to #Row
begin-select
PE1.ERNCD_OT_HRS

PE1.OT_HRS

PE1.OT_HRLY_EARNS
  while (#Row <= #Earnings_Rows) and ($Found = 'N') and (&PE1.OT_HRLY_EARNS  0)

    get $Temp_ErnCd from ErnYTDArray(#Row) ErnYTDCd

    if $Temp_ErnCd = &PE1.ERNCD_OT_HRS

      array-add &PE1.OT_HRS &PE1.OT_HRLY_EARNS to ErnYTDArray(#Row) ErnYTDHrs ErnYTDErn

      move 'Y' to $Found

    end-if

    add 1 to #Row

  end-while
  if $Found = 'N' and (&PE1.OT_HRLY_EARNS  0)

    add 1 to #Earnings_Rows

    put &PE1.ERNCD_OT_HRS &PE1.OT_HRS &PE1.OT_HRLY_EARNS into ErnYTDArray(#Earnings_Rows)

  end-if
  move 'N' to $Found

  move 0 to #Row
FROM PS_PAY_EARNINGS PE1
WHERE PE1.COMPANY = &PL.COMPANY

  AND PE1.PAYGROUP = &PL.PAYGROUP

  AND PE1.PAY_END_DT = &PL.PAY_END_DT

  AND PE1.OFF_CYCLE = &PL.OFF_CYCLE

  AND PE1.PAGE_NUM = &PL.PAGE_NUM

  AND PE1.LINE_NUM = &PL.LINE_NUM
ORDER BY PE1.ERNCD_OT_HRS
end-select
end-procedure
!*********************************

begin-procedure Get-Other-Earnings

!*********************************

! Searches the payroll other earnings table to get all other earnings for the

! employee based on the pay lines passed.  Stores the values in the earnings array.
  move 'N' to $Found

  move 0 to #Row
begin-select
POE.ERNCD

POE.OTH_HRS

  move &POE.OTH_HRS to #Oth_Hrs

POE.OTH_EARNS

ET.PAYMENT_TYPE
  evaluate &ET.PAYMENT_TYPE

    when = 'U' !Units - when units, only show the earnings and 0 out the hours

      move 0 to #Oth_Hrs

  end-evaluate
  while (#Row <= #Earnings_Rows) and ($Found = 'N')

    get $Temp_ErnCd from ErnYTDArray(#Row) ErnYTDCd

    if $Temp_ErnCd = &POE.ERNCD

      array-add #Oth_Hrs &POE.OTH_EARNS to ErnYTDArray(#Row) ErnYTDHrs ErnYTDErn

      move 'Y' to $Found

    end-if

    add 1 to #Row

  end-while
  if $Found = 'N'

    add 1 to #Earnings_Rows

    put &POE.ERNCD #Oth_Hrs &POE.OTH_EARNS into ErnYTDArray(#Earnings_Rows)

  end-if
  move 'N' to $Found

  move 0 to #Row
FROM PS_PAY_OTH_EARNS POE,

     PS_EARNINGS_TBL ET
WHERE POE.COMPANY = &PL.COMPANY

  AND POE.PAYGROUP = &PL.PAYGROUP

  AND POE.PAY_END_DT = &PL.PAY_END_DT

  AND POE.OFF_CYCLE = &PL.OFF_CYCLE

  AND POE.PAGE_NUM = &PL.PAGE_NUM

  AND POE.LINE_NUM = &PL.LINE_NUM

  AND (POE.ADD_GROSS  'N' OR POE.ERNCD IN ('HB1', 'HB2'))

  AND POE.ERNCD = ET.ERNCD

  AND ET.EFFDT = (SELECT MAX(EFFDT)

                    FROM PS_EARNINGS_TBL

                   WHERE ERNCD = ET.ERNCD

                     AND EFFDT  0

    move 0 to #Empl_Variance_Pct

    let #Empl_Variance_Pct = round(((#Empl_YTDErn - #Empl_Est_Biweekly)/#Empl_Est_Biweekly)*100,2)

  end-if
  print #Empl_Variance_Pct (0,150,10) edit 999,999.99
  position 		(+1)
  add #Empl_YTDHrs    to #Dept_YTDHrs

  add #Empl_YTDErn    to #Dept_YTDErn
  add 1 to #Dept_Empl_Count
  do Reset-Arrays
end-procedure
!***************************

begin-procedure Print-Report

!***************************
  move 0 to #Empl_YTDHrs

  move 0 to #Empl_YTDErn
  move 'EMPL_CLASS' to $FieldName

  move $Empl_Class to $FieldValue

  do Read-Translate-Table

  move $XlatShortName to $Empl_Class
  move 'EMPL_STATUS' to $FieldName

  move $Empl_Status to $FieldValue

  do Read-Translate-Table

  move $XlatShortName to $Empl_Status
  print $Name		(+1,1,30)

  print $Emplid	   	(0,32,11)

  print $Empl_Status	(0,44,10)

  print $Empl_Class	(0,55,10)
  move 0 to #i
  move #Earnings_Rows to #Total_Rows
  while #i <= #Total_Rows
    get $ErnYTDCd #ErnYTDHrs #ErnYTDErn from ErnYTDArray(#i)
    if $ErnYTDCd  ' '

      move $ErnYTDCd to $ErnCd

      do Get-Earnings-Name

      print $ErnYTDCd		(0,68,3)

      print '-'			(0,71,1)

      print $EarningsName	(0,72,30)

      print #ErnYTDHrs		(0,103,10)  edit 999,999.99

      print #ErnYTDErn		(0,114,13) edit 99,999,999.99

      add #ErnYTDHrs to #Empl_YTDHrs

      add #ErnYTDErn to #Empl_YTDErn

    end-if
    position			(+1)
    move 'N' to $Found

    move 0 to #Row
    while (#Row <= #Summary_Earnings_Rows) and ($Found = 'N') and (#ErnYTDErn  0)

      get $Temp_ErnCd from SummaryErnYTDArray(#Row) SummaryErnYTDCd

      if $Temp_ErnCd = $ErnYTDCd

        array-add #ErnYTDHrs #ErnYTDErn to SummaryErnYTDArray(#Row) SummaryErnYTDHrs SummaryErnYTDErn

        move 'Y' to $Found

      end-if

      add 1 to #Row

    end-while
    if $Found = 'N' and (#ErnYTDErn  0)

      add 1 to #Summary_Earnings_Rows

      put $ErnYTDCd #ErnYTDHrs #ErnYTDErn into SummaryErnYTDArray(#Summary_Earnings_Rows)

    end-if
    add 1 to #i
  end-while
  do Print-Empl-Subtotals
end-procedure
!*********************************

begin-procedure Print-Grand-Totals

!*********************************
  print 'Grand Totals:'		(+2,1)

  print 'YTD Hours:'		(+2,5,15)

  print #Grand_YTDHrs		(0,+1) edit 999,999,999.99

  print 'YTD Earnings:'		(+1,5,15)

  print #Grand_YTDErn		(0,+1) edit 999,999,999.99

  print 'Employees:'		(+1,5,15)

  print #Grand_Empl_Count	(0,+1) edit 999,999,999.99
end-procedure
!****************************************

begin-procedure Print-Earning-Code-Totals

!****************************************
  new-page
  print 'Grand Totals By Earnings Code'	(+2,1)
  print 'Cd'			(+2,5,3)

  print 'YTD Hrs'		(0,9,15)

  print 'YTD Gross'		(0,25,15)
  print '-'			(+1,5,3)  fill

  print '-'			(0,9,15)   fill

  print '-'			(0,25,15) fill
  move 0 to #i
  while #i <= #Summary_Earnings_Rows
    get $SummaryErnYTDCd #SummaryErnYTDHrs #SummaryErnYTDErn from SummaryErnYTDArray(#i)
      print $SummaryErnYTDCd		(+1,5,3)
      move $SummaryErnYTDCd to $ErnCd

      do Get-Earnings-Name

      print '-'			(0,9,1)

      print $EarningsName	(0,10,30) 
      print #SummaryErnYTDHrs		(0,41,15)  edit 999,999,999.99

      print #SummaryErnYTDErn		(0,57,15) edit 999,999,999.99
    add 1 to #i
  end-while
end-procedure
!*******************************

begin-procedure Test-If-Variance

!*******************************
  move 0 to #Empl_YTDHrs

  move 0 to #Empl_YTDErn
  move 0 to #i
  move #Earnings_Rows to #Total_Rows
  while #i <= #Total_Rows
    get $ErnYTDCd #ErnYTDHrs #ErnYTDErn from ErnYTDArray(#i)

    if $ErnYTDCd  ' '
      move $ErnYTDCd to $ErnCd

      do Get-Earnings-Name
      add #ErnYTDHrs to #Empl_YTDHrs

      add #ErnYTDErn to #Empl_YTDErn

    end-if
  move 'N' to $Found

  move 0 to #Row
!  while (#Row <= #Summary_Earnings_Rows) and ($Found = 'N') and (#ErnYTDErn  0)

!    get $Temp_ErnCd from SummaryErnYTDArray(#Row) SummaryErnYTDCd

!    if $Temp_ErnCd = $ErnYTDCd

!      array-add #ErnYTDHrs #ErnYTDErn to SummaryErnYTDArray(#Row) SummaryErnYTDHrs SummaryErnYTDErn

!      move 'Y' to $Found

!    end-if

!    add 1 to #Row

!  end-while
!  if $Found = 'N' and (#ErnYTDErn  0)

!    add 1 to #Summary_Earnings_Rows

!    put $ErnYTDCd #ErnYTDHrs #ErnYTDErn into SummaryErnYTDArray(#Summary_Earnings_Rows)

!  end-if
  add 1 to #i
  end-while
  move 0 to #Empl_Est_Biweekly

  let #Empl_Est_Biweekly = round(#Empl_Daily_Rt * 10,2)
  move 0 to #Empl_Variance

  let #Empl_Variance = #Empl_YTDErn - #Empl_Est_Biweekly
  if #Empl_Est_Biweekly > 0

    move 0 to #Empl_Variance_Pct

    let #Empl_Variance_Pct = round(((#Empl_YTDErn - #Empl_Est_Biweekly)/#Empl_Est_Biweekly)*100,2)

  end-if
  if #Empl_Variance_Pct  0

    do print-Report

  else

    do Reset-Arrays

  end-if
end-procedure
!*************************

begin-procedure Get-Values

!*************************
end-procedure

#include 'curdttim.sqc' !Get-Current_dateTime procedure #include 'datetime.sqc' !Routines for date and time formatting #include 'number.sqc' !Routines to format numbers #include 'stdapi.sqc' !Update Process API #include 'reset.sqc' !Reset printer procedure #include 'readxlat.sqc' !Read-Translate-Table procedure #include 'getdptnm.sqc' !Get-Department-Name procedure #include 'askftd.sqc' !Ask-From-Thru-Date procedure #include 'askftdep.sqc' !Ask-From-Thru-Dept procedure #include 'geternnm.sqc' !Get-Earnings-Name procedure

By: Adrian C

Adrian C — Fri, 03 Jul 2015 01:19:16 +0000

Hi, just found this article.
Is there a way to use the USE-REPORT to have multiple report styles in the SAME PDF output?
My problem is you can only have one DECLARE-LAYOUT and there no ALTER for it like the ALTER-PRINTER as I want to adjust the Line height on a new page to print some smaller text. The line height doesnt seem to be able to be adjusted so the alter-printer command I use – alter-printer point-size=6 font=4 – has the same line height for smaller text. Theres a pitch option but i cant see how to dynamically adjust that either..

So Im trying a 2nd DECLARE_LAYOUT and USE-REPORT for it but cant get it to print in the same PDF…

Thanks, Adrian

By: Nayan

Nayan — Tue, 07 Apr 2015 06:36:39 +0000

In reply to Madanpal Singh RAjpoot. Glad to know that helps you.

By: Madanpal Singh RAjpoot

Madanpal Singh RAjpoot — Tue, 07 Apr 2015 05:30:35 +0000

Thanks a lot for sharing Awesome documnet for Generate Multiple Report with Unique Name in PeopleSoft SQR. Its very useful.

By: Nayan

Nayan — Wed, 07 Jan 2015 10:59:17 +0000

In reply to P Balaji.

On System Process Request or Any other run control page you should selection Format As “PDF” from drop down menu.then it will produce PDF documents.
Let Say an example – Company Car Report (CAR003) run this report from System Process Request then Select PDF as Format.

Please let me know still you are not clear about that.

By: P Balaji

P Balaji — Tue, 06 Jan 2015 05:44:13 +0000

In reply to Nayan.

Hi Nayan,
My requirement is “How generate PDF file using Sqr program”?

Thanks,
Balaji

By: Nayan

Nayan — Tue, 23 Dec 2014 10:52:48 +0000

In reply to P Balaji.

Hi , I can’t understand your requirements, If please explain or elaborate more.

Thanks,
Nayan

By: P Balaji

P Balaji — Fri, 19 Dec 2014 09:01:33 +0000

Hi ,
I am new to SQR here my requirement is creating a “pdf file” using sqr program itself?
Note:I have selected ‘PDF’ format in process scheduler but here my requirement says write a code in sqr program itself..

By: Nayan

Nayan — Tue, 29 Oct 2013 09:40:34 +0000

In reply to Subhodip Chakraborty. Thanks Subhodip for visiting and comments over the article.If you have a time you can look for Our Quiz Section on PeopleSoft & Others Application. Here is the Link - Quiz Section :) Thanks,

By: Subhodip Chakraborty

Subhodip Chakraborty — Sat, 26 Oct 2013 16:26:48 +0000

Dear Nayan, I gone through your article on “Multiple report” which I found very compact helps to fulfill any requirement relates to generation multiple reports on PS and also very well explained.

Comments on: Generate Multiple Report with Unique Name in PeopleSoft SQR

By: Brandon

By: Adrian C

By: Nayan

By: Madanpal Singh RAjpoot

By: Nayan

By: P Balaji

By: Nayan

By: P Balaji

By: Nayan

By: Subhodip Chakraborty