[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
RE: [sqr-users] Let with substr
[sqr-users] Let with substr$OldItemType is set to null when it is used in
the where clause of the initial select since it has not yet been selected
and a value placed into that variable
-----Original Message-----
From: Lindquist, Maria [mailto:mlindqui@uwc.edu]
Sent: Thursday, October 31, 2002 11:41 AM
To: sqr-users@sqrug.org
Subject: [sqr-users] Let with substr
How do you code a substr with a Let Statement? It doesn't seem to be
working correctly. Can someone look at my program below and tell me what
they think is the problem.
begin-procedure Init-Report
move 'SFCPTMFE' to $ReportID
move 'Copy Item Type Report' to $ReportTitle
display $ReportID noline
display ' - ' noline
display $ReportTitle
display ' '
do Stdapi-Init
display ' '
input $FromCampus2Digit 'Enter Campus 2 Digit to Copy From
' Maxlen=2
input $ToCampus2Digit 'Enter Campus 2 Digit to Copy To
' Maxlen=2
input $Campus3Ltr 'Enter Campus 3 letters (for keyword)
' Maxlen=3
end-procedure
begin-procedure Process-Main
#debuga Show 'Entering Process-Main'
Do Select-Item-Type
#debuga Show 'Exiting Process-Main'
end-procedure
begin-procedure Select-Item-Type
#debuga Show 'Entering Select-Item-Type'
#debuga Show 'From Campus 2 digit: ' $FromCampus2Digit
#debuga Show 'To Campus 2 digit: ' $ToCampus2Digit
#debuga Show 'Campus keyword: ' $Campus3Ltr
! Let $ItemTypeFound = 'N'
begin-SELECT
ITT.SETID
ITT.ITEM_TYPE
ITT.EFFDT
ITT.EFF_STATUS
ITT.DESCR
ITT.DESCRSHORT
ITT.CURRENCY_CD
ITT.MINIMUM_AMT
ITT.MAXIMUM_AMT
ITT.ITEM_TYPE_CD
ITT.SECURITY_GROUP
ITT.ADJUSTMENT_CAL_SF
ITT.PAYMENT_TERMS
ITT.PAYMENT_PRIORITY
ITT.CHARGE_PRIORITY
ITT.ENCUMBRANCE_DAYS
ITT.ENCUMBRANCE_PCT
ITT.STATE_FLAG
ITT.TENDER_SPEC
ITT.TENDER_CATEGORY
ITT.ALL_OR_NONE
ITT.ENROL_FLAG
ITT.KEYWORD1
ITT.KEYWORD2
ITT.KEYWORD3
ITT.DAYS_SINCE_EFFDT
ITT.DAYS_TO_EFFDT
ITT.DUEDAYS_PAST_EFFDT
ITT.DUEDAYS_PRIOR_EFFD
ITT.TERM_ENROLL_REQ
ITT.REFUNDABLE_IND
ITT.ERNCD
ITT.TAXABLE_Y_N
ITT.TUITION_DEPOSIT
ITT.GL_INTERFACE_REQ
ITT.DEFAULT_AMT
ITT.ERNCD_NOTAX
ITT.RECVABLE_FROM_CHRG
ITT.PRIORITY
ITT.PRIORITY_PMT_FLG
ITT.NRA_CREDIT_TAX_FLG
ITT.NRA_DEBIT_TAX_FLG
ITT.MATCH_WRITEOFF
ITT.LOCAL_TAX_OFFSET
ITT.LOCAL_TAX_PMT
ITT.STATE_TAX_OFFSET
ITT.STATE_TAX_PMT
ITT.GL_CRSE_CLASS_SPC
ITT.TAX_CD
ITT.T4_INCOME
ITT.WAGE_LOSS_PLAN
ITT.T2202A_FLG
ITT.T2202A_PCT
ITT.T2202A_OFFSET_FLG
ITT.PAY_PRIORITY_ID
ITT.ACCTG_DT_CNTL
ITT.SF_1098_FLG
! Let $ItemTypeFound = 'Y'
Let $I_Setid = &ITT.SETID
Let $I_CmpItmStr = substr(&ITT.ITEM_TYPE,1,2)
Let $I_EndItmStr = substr(&ITT.ITEM_TYPE,3,10)
Let $I_Effdt = &ITT.EFFDT
Let $I_EffStatus = &ITT.EFF_STATUS
Let $I_CmpDescr = substr(&ITT.DESCR,1,4)
Let $I_EndDescr = substr(&ITT.DESCR,5,26)
Let $I_CmpDescrShrt = substr(&ITT.DESCRSHORT,1,3)
Let $I_EndDescrShrt = substr(&ITT.DESCRSHORT,4,7)
Let $I_CurrencyCD = &ITT.CURRENCY_CD
Let $I_MinimumAmt = &ITT.MINIMUM_AMT
Let $I_MaximumAmt = &ITT.MAXIMUM_AMT
Let $I_ItemTypeCd = &ITT.ITEM_TYPE_CD
Let $I_SecurityGrp = &ITT.SECURITY_GROUP
Let $I_AdjCalSF = &ITT.ADJUSTMENT_CAL_SF
Let $I_PaymentTerms = &ITT.PAYMENT_TERMS
Let $I_PaymentPrior = &ITT.PAYMENT_PRIORITY
Let $I_ChargePrior = &ITT.CHARGE_PRIORITY
Let $I_EncumDays = &ITT.ENCUMBRANCE_DAYS
Let $I_EncumPct = &ITT.ENCUMBRANCE_PCT
Let $I_StateFlag = &ITT.STATE_FLAG
Let $I_TenderSpec = &ITT.TENDER_SPEC
Let $I_TenderCtgy = &ITT.TENDER_CATEGORY
Let $I_AllOrNone = &ITT.ALL_OR_NONE
Let $I_EnrolFlag = &ITT.ENROL_FLAG
Let $I_Keyword1 = &ITT.KEYWORD1
Let $I_Keyword2 = &ITT.KEYWORD2
Let $I_Keyword3 = &ITT.KEYWORD3
Let $I_DaysSinceEffdt = &ITT.DAYS_SINCE_EFFDT
Let $I_DaysToEffdt = &ITT.DAYS_TO_EFFDT
Let $I_DueDaysPast = &ITT.DUEDAYS_PAST_EFFDT
Let $I_DueDaysPrior = &ITT.DUEDAYS_PRIOR_EFFD
Let $I_TermEnrollReq = &ITT.TERM_ENROLL_REQ
Let $I_RefundableInd = &ITT.REFUNDABLE_IND
Let $I_ErnCd = &ITT.ERNCD
Let $I_TaxableYN = &ITT.TAXABLE_Y_N
Let $I_TuitionDeposit = &ITT.TUITION_DEPOSIT
Let $I_GLIntReq = &ITT.GL_INTERFACE_REQ
Let $I_DefaultAmt = &ITT.DEFAULT_AMT
Let $I_ErncdNotax = &ITT.ERNCD_NOTAX
Let $I_RcvablFromChrg = &ITT.RECVABLE_FROM_CHRG
Let $I_Priority = &ITT.PRIORITY
Let $I_PriorityPmtFlg = &ITT.PRIORITY_PMT_FLG
Let $I_NRACreditTaxFlg = &ITT.NRA_CREDIT_TAX_FLG
Let $I_NRADebitTaxFlg = &ITT.NRA_DEBIT_TAX_FLG
Let $I_MatchWriteoff = &ITT.MATCH_WRITEOFF
Let $I_LocalTaxOffset = &ITT.LOCAL_TAX_OFFSET
Let $I_LocalTaxPmt = &ITT.LOCAL_TAX_PMT
Let $I_StateTaxOffset = &ITT.STATE_TAX_OFFSET
Let $I_StateTaxPmt = &ITT.STATE_TAX_PMT
Let $I_GLCrseClsSpc = &ITT.GL_CRSE_CLASS_SPC
Let $I_TaxCD = &ITT.TAX_CD
Let $I_T4Income = &ITT.T4_INCOME
Let $I_WageLossPln = &ITT.WAGE_LOSS_PLAN
Let $I_T2202AFlg = &ITT.T2202A_FLG
Let $I_T2202APct = &ITT.T2202A_PCT
Let $I_T2202AOffset = &ITT.T2202A_OFFSET_FLG
Let $I_PayPriorityID = &ITT.PAY_PRIORITY_ID
Let $I_AcctgDtCntl = &ITT.ACCTG_DT_CNTL
Let $I_SF1098Flg = &ITT.SF_1098_FLG
Let $OldItemType = $FromCampus2Digit || $I_EndItmStr
Let $NewItemType = $ToCampus2Digit || $I_EndItmStr
Let $I_Descr = $Campus3Ltr || $I_EndDescr
Let $I_DescrShort = $Campus3Ltr || $I_EndDescrShrt
let $Insert-Error = 'N'
do Insert-Item-Type
if ($Insert-Error = 'N')
print 'Copied from: ' (+1,15)
print $OldItemType (0,20)
print 'Copied to: ' (0,40)
print $NewItemType (0,60)
print 'Item Type Added' (0,155)
end-if
FROM PS_ITEM_TYPE_TBL ITT
WHERE ITT.ITEM_TYPE = $OldItemType
end-SELECT
! if $ItemTypeFound = 'N'
!
! display 'No Item Type record was found'
! display ' '
!
! end-if
#debuga Show 'Exiting Select-Item-Type'
#debuga Show 'Old Item Type: ' $OldItemType
#debuga Show 'New Item Type: ' $NewItemType
end-procedure Select-Item-Type
_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 10/24/2002
_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users