let $x = datenow()

You should make sure that $x is a date variable, not a string variable. You do that in the setup block:

begin-setup
declare variable
date $x
end-declare
end-setup

Alternately, you could write:

let $x = datetostr(datenow(), ‘mm/dd/yyyy hh:mi:ss’)

Your note indicates that this is working properly. I assume you insert a row with the $x variable placed in a date, datetime, or string field. The insert should work with all three field types, but you would handle the fields differently when reading them back into an SQR program.

What type of field is &AUDIT_STAMP? Since you used to_char successfully, I assume it is a date or datetime field (which is a distinction in PeopleTools, not in the Oracle database). In that case, you can use to_char, edit, or datetostr to convert it to a string. You would not use strtodate() – that is a function that starts with a string, and you are starting with a date.

If &AUDIT_STAMP is a string, and you are storing it as a date, you may need datetostr() to format a string to output that date.

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!

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!

how to write code in sqr .(year)

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

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