Comments on: About

By: administrator

administrator — Sat, 15 Oct 2011 21:21:35 +0000

I’m sorry I didn’t answer this. I didn’t understand your question and the program looked too long for a quick response. I approved your comment and meant to get back to it – then I forgot.

It looks like this program was using the write command to output multiple character values on a single line, then it was changed to concatenate those values into a single string and write it on a single line. Either way can work, with a few caveats.

1. You haven’t shown the command that opens the file. It defines the maximum length of each line, and the write statements cannot exceed that length.
2. Writing individual values will truncate or pad those strings to make them the length you specify. If you concatenate the variables into a single string you don’t have that length control (unless you do it yourself with a rpad() and substr() function for each variable.
3. If you want to add fields to line, go ahead. SQR only checks on the total length of the line.

Good luck!

By: administrator

administrator — Sat, 15 Oct 2011 21:11:08 +0000

You haven’t explained your question very thoroughly, so I will answer what I think you’ve asked. If I’ve missed your point, please ask again with more information.

Suppose you want today’s date, but in 2010. If the program runs on October 10, 2011, you want 10/10/10. If it runs on February 1, 2012, you want 2/1/10. Here is one way to do it:

let $wanted_date = strtodate(edit($current-date, ‘mm/dd’) || ‘/2010′, ‘mm/dd/yyyy’)

We use the built-in variable $current-date to get the date the program is running. We use the edit function to extract the month and day. We concatenate the hardcoded year. We convert the string to a date variable with the strtodate function.

Good luck!

By: guest

guest — Tue, 11 Oct 2011 06:42:04 +0000

hi,

how to write code in sqr .(year)

By: guest

guest — Tue, 11 Oct 2011 06:40:57 +0000

hi,

how to hardcode year in sqr program. but only year.

By: Vaibhav

Vaibhav — Mon, 15 Aug 2011 06:15:03 +0000

Hello I am new to SQR : wanted to know if we can add up new fields to be written as output in the bank file
? The SQR is somewhat as follows :
!***********************************************************************
!print the output in report
!PRINT-HEADER
!***********************************************************************
BEGIN-PROCEDURE PRINT-HEADER
SHOW ‘ENTER PRINT-HEADER’

LET #NO_OF_REC = ”
LET #TOTAL_AMOUNT = ”

!Move #record_cnt TO $record_cnt 99999
!Move #grand_total TO $grand_total 9999999.99

if #length = 3.000000
show ‘if_$total_amt1: ‘$total_amt
!Let $total_amt = ltrim($total_amt,’0′) ! modify by retina on 23-March-09 to remove leading zero
show ‘if_$total_amt2: ‘$total_amt
LET $total_amt = EDIT($total_amt,’9999999999.9′)
!Let $total_amt = rpad($total_amt,10,’0′) ! modify by retina on 23-March-09 to add zero at behind
show ‘if_$total_amt3: ‘ $total_amt
let $total_amt = replace($total_amt, ‘.’, ”)
show ‘if_$total_amt4: ‘$total_amt
else
if #length = 4.000000
let $total_amt = $total_amt
show ‘else_if_$total_amt1: ‘$total_amt
else
show ‘else_$total_amt1: ‘$total_amt
!Let $total_amt = ltrim($total_amt,’0′) ! modify by retina on 23-March-09 to remove leading zero
show ‘else_$total_amt2: ‘$total_amt
LET $total_amt = EDIT($total_amt,’9999999999.00′)
!Let $total_amt = rpad($total_amt,10,’0′) ! modify by retina on 23-March-09 to add zero at behind
show ‘else_$total_amt3: ‘ $total_amt
let $total_amt = replace($total_amt, ‘.’, ”)
show ‘else_$total_amt4: ‘$total_amt
end-if
end-if

WRITE #file FROM
‘F’:1
‘110251352001′:12
‘N01′:3 !Modified by shivaram for January 2010 Bonus run.
!’N02′:3 Modified by shivaram for January 2010 Regular run.
$pymt_date:12
$pay_date:6
‘K’:1
!’********’:8
‘********’:8 ! Low Tze Xiang 08 June 2009
$record_cnt:5
!$total_amt:13
$total_amt:10 ! Low Tze Xiang 08 June 2009
‘ ‘:7
‘ ‘:12
‘ ‘:2
‘1′:1

SHOW ‘EXIT PRINT-HEADER’
END-PROCEDURE PRINT-HEADER

!***********************************************************************
!print the output in report
!
BEGIN-PROCEDURE WRITE-OUTPUT-RECORD
!***********************************************************************

!LET #NETPAY = #NETPAY * 100
!Move #NETPAY To $DisplayAmount 99999999

SHOW ‘EMPLID’ &EMPLID
SHOW ‘$BANKID’ $BANKID
SHOW ‘$BANK_BRANCH’ $BANK_BRANCH
SHOW ‘$ACCOUNT_NO’ $ACCOUNT_NO
!WRITE #file FROM
! ‘ ‘:1
! &EMPLID:12
! $ACCOUNT_NAME:20
! $BANKID:3
! $BANK_BRANCH:3
! $ACCOUNT_NO:9
! $netpay:10
! ‘ ‘:4
! ‘ ‘:6
! $pymt_date:12

let $EMPLID = Rpad(&EMPLID,12,’ ‘)
let $ACCOUNT_NAME_1 = Rpad($ACCOUNT_NAME,20,’ ‘)
let $BANKID_1 = Rpad($BANKID,3,’ ‘)
let $BANK_BRANCH_1 = Rpad($BANK_BRANCH,3,’ ‘)
let $ACCOUNT_NO_1 = Rpad($ACCOUNT_NO,9,’ ‘)
let $netpay_1 = Rpad($netpay,10,’ ‘)
!let $pymt_date_1 = Rpad($pymt_date,12,’ ‘)
!let $pymt_date_1 = Rpad(’ ‘,12,’ ‘) ! Low Tze Xiang 08 June 2009
let $pymt_date_1 = Rpad($pymt_date,12,’ ‘) ! Low Tze Xiang 10 June 2009
! $ACCOUNT_NAME:20
! $BANKID:3
! $BANK_BRANCH:3
! $ACCOUNT_NO:9
! $netpay:10
! ‘ ‘:4
! ‘ ‘:6
! $pymt_date:12

Let $String = ‘ ‘ || $EMPLID || $ACCOUNT_NAME_1 || $BANKID_1 ||$BANK_BRANCH_1 || $ACCOUNT_NO_1 || $netpay_1 || ‘ ‘ || ‘ ‘|| $pymt_date_1
show $String

Write #file FROM
$String

! Add 1 to #Tot_Recs

END-PROCEDURE WRITE-OUTPUT-RECORD

By: administrator

administrator — Tue, 04 Jan 2011 18:49:13 +0000

Welcome, Aditya. The term “function” usually refers to the functions built-in to the SQR language like edit(), datetostr(). The procedures (or subroutines) that Peoplesoft delivers are ordinary SQR like you would write for yourself. I don’t think Oracle documents them, and many of them are specific to a few SQRs. The ones I use in every program are in stdenv.sqc, setup01.sqc (or setup02.sqc), datetime.sqc, and stdapi.sqc.

By: Aditya

Aditya — Tue, 28 Dec 2010 12:11:08 +0000

Hi,
I am a beginner to Peoplesoft & SQR, and have just started developing SQRs.
I heard from my colleagues that there is no readily available reference for functions in SQR. It would be very tedious if I have to look into every .sqc file just to find a function that serves my purpose. I would like to have a compilation of SQR functions for reference, along with the corresponding .sqc file that needs to be included.
Please let me know of any solution

By: Deepu R

Deepu R — Fri, 03 Dec 2010 06:10:35 +0000

Very nice site. I m a beginner to SQR. Able to get so many useful information.
Thanks

By: administrator

administrator — Sat, 13 Nov 2010 22:21:19 +0000

Ruth, my customers have usually been so grateful to get useful information that they’ve never even asked about font changes. I tried adding boldface and color to their reports and they didn’t even notice. So I don’t have any experience with the advanced features you’re already using. I would have pointed you to pssqr.ini, but you’re already there. The DECLARE-PRINTER documentation talks about adding fonts to a POSTSCRI.STR file. If that’s too sketchy, you could join the discussion group on http://www.sqrug.org. (SQR User Group) Good luck.

By: Ruth Wannek

Ruth Wannek — Thu, 11 Nov 2010 16:25:45 +0000

Hi there!

I’ve been trying to add embedded fonts into the PDF output from an SQR process. Have you ever seen this done? I’ve modivied the PSsqr.ini to include Embed All or Embed=5 (which is the font I want to embed) but I can’t get it to work.

Any thoughts?

Thanks,
Ruth