[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

RE: [sqr-users] Trying to write 3 outputs from the same SQR.

Subject: RE: [sqr-users] Trying to write 3 outputs from the same SQR.
From: "Elvis Pressly" <elvisdman@hotmail.com>
Date: Thu, 31 Aug 2006 15:37:25 +0000
Bcc:
Delivery-date: Thu, 31 Aug 2006 11:40:12 -0400
In-reply-to: <B96D2039CEC1F94F9E2CDA51EB8686E201C740E2@EXCHBE1.master.lsuhsc.edu>
List-id: "This list is for discussion about the SQR database reportinglanguage from Hyperion Solutions." <sqr-users.sqrug.org>

Remove the dash (-) after the last field in every WRITE statements.


>From: "Aguirre, Jose" <JAguir@lsuhsc.edu>
>Reply-To: "This list is for discussion about the SQR database 
>reportinglanguage from Hyperion Solutions." <sqr-users@sqrug.org>
>To: <sqr-users@sqrug.org>
>Subject: [sqr-users] Trying to write 3 outputs from the same SQR.
>Date: Wed, 30 Aug 2006 16:10:32 -0500
>
>Here are my erros:
>
>Error on line 168:
>    (SQR 3503) Unknown variable type.
>     write 1 from  $SETID_VNDR:5  -
>
>Error on line 168:
>    (SQR 3503) Unknown variable type.
>     write 1 from  $SETID_VNDR:5  -
>
>Error on line 172:
>    (SQR 3702) Command not allowed in this section: begin-procedure
>Begin-Procedure Process-Vendor-Address
>
>Error on line 238:
>    (SQR 3503) Unknown variable type.
>     write 2 from  $SETID_VNDR_ADDR:5  -
>
>Error on line 238:
>    (SQR 3503) Unknown variable type.
>     write 2 from  $SETID_VNDR_ADDR:5  -
>
>Error on line 241:
>    (SQR 3702) Command not allowed in this section: begin-procedure
>Begin-Procedure Process-Vendor-Status
>
>Error on line 283:
>    (SQR 3503) Unknown variable type.
>     write 3 from  $FIELDVALUE:18 -
>
>Error on line 283:
>    (SQR 3503) Unknown variable type.
>     write 3 from  $FIELDVALUE:18 -
>
>
>Here is my DQR syntax:
>
>!******************************
>Begin-Report
>!******************************
>
>   do Init-Report
>
>   IF $file_open1 = 'Y'
>      do Process-Vendor
>   END-IF
>
>   IF $file_open2 = 'Y'
>      do Process-Vendor-Address
>   END-IF
>
>   IF $file_open3 = 'Y'
>      do Process-Vendor-Status
>   END-IF
>
>!  display ''
>!  display 'Process Ended at: ' noline
>   do Get-Current-Datetime
>   display $AsOfNow
>
>!  do StdAPI-Term
>
>End-Report
>
>!******************************
>Begin-Procedure Init-Report
>!******************************
>
>   do Init-Datetime
>   do Init-Number
>   do Get-Current-DateTime
>
>   move 'ZZPO0027.SQR' to $ReportID
>
>   do Format-DateTime($AsOfToday, $ReportDate, {DEFDATE}, '', '')
>   let $DateStr = $ReportDate
>
>   Let $ReportFile1 = 'FOLDER_PATH1\VENDOR' || '.txt'
>   Let $ReportFile2 = 'FOLDER_PATH2\VENDOR_ADDRESS' || '.txt'
>   Let $ReportFile3 = 'FOLDER_PATH3\VENDOR_STATUS' || '.txt'
>
>!DISPLAY $ReportFile1
>!DISPLAY $ReportFile2
>!DISPLAY $ReportFile3
>
>   open $ReportFile1 as 1 for-writing record=400 status=#status
>
>   if #filestat != 0
>        let $error_lit = 'error opening file'
>        display $error_lit
>        display $file ()
>   else
>        let $file_open1 = 'Y'
>        display 'successful opening the file'
>   end-if
>
>   open $ReportFile2 as 2 for-writing record=400 status=#status
>
>   if #filestat != 0
>        let $error_lit = 'error opening file'
>        display $error_lit
>        display $file ()
>   else
>        let $file_open2 = 'Y'
>        display 'successful opening the file'
>   end-if
>
>
>   open $ReportFile3 as 3 for-writing record=400 status=#status
>
>   if #filestat != 0
>        let $error_lit = 'error opening file'
>        display $error_lit
>        display $file ()
>   else
>        let $file_open3 = 'Y'
>        display 'successful opening the file'
>   end-if
>
>End-Procedure Init-Report
>
>
>! *****************************************
>Begin-Procedure Process-Vendor
>! *****************************************
>
>!write 1 from 'Begin select Vendor'
>
>Begin-SELECT
>A.SETID
>A.VENDOR_ID
>A.NAME1
>A.NAME2
>A.VENDOR_STATUS
>A.WTHD_SW
>A.VNDR_TIN
>B.TIN
>B.TIN_TYPE
>B.EFF_STATUS
>
>   let $SETID_VNDR     = rtrim(&A.SETID, ' ')
>   let $VENDOR_ID_VNDR = rtrim(&A.VENDOR_ID, ' ')
>   let $NAME1          = rtrim(&A.NAME1, ' ')
>   let $NAME2          = rtrim(&A.NAME2,' ')
>   let $VENDOR_STATUS  = rtrim(&A.VENDOR_STATUS,' ')
>   let $WTHD_SW                = rtrim(&A.WTHD_SW,' ')
>   let $VNDR_TIN       = rtrim(&A.VNDR_TIN,' ')
>   let $TIN            = rtrim(&B.TIN,' ')
>   let $TIN_TYPE       = rtrim(&B.TIN_TYPE,' ')
>   let $EFF_STATUS     = rtrim(&B.EFF_STATUS,' ')
>
>     do Write-Vendor
>
>FROM
>   PS_VENDOR A,  PS_VENDOR_WTHD B
>WHERE A.SETID = B.SETID
>AND A.VENDOR_ID = B.VENDOR_ID
>ORDER BY A.SETID, A.VENDOR_ID, A.NAME1
>End-SELECT
>
>End-Procedure Process-Vendor
>
>! ********************************************
>Begin-Procedure Write-Vendor
>! ********************************************
>
>!WRITE 1 FROM 'BEGIN WRITE Vendor'
>
>     write 1 from  $SETID_VNDR:5               -
>                 $VENDOR_ID_VNDR:10    -
>                   $NAME1:40           -
>                 $NAME2:40             -
>                 $VENDOR_STATUS:1      -
>                 $WTHD_SW:1            -
>                 $VNDR_TIN:10          -
>                 $TIN:20               -
>                 $TIN_TYPE:1           -
>                 $EFF_STATUS:1         -
>
>!WRITE 1 FROM 'END WRITE Vendor'
>
>End-Procedure Write-Vendor
>
>
>! *****************************************
>Begin-Procedure Process-Vendor-Address
>! *****************************************
>
>!write 2 from 'Begin Vendor-Address'
>
>Begin-SELECT
>C.SETID
>C.VENDOR_ID
>C.EFF_STATUS
>C.NAME1
>C.NAME2
>C.ADDRESS1
>C.ADDRESS2
>C.ADDRESS3
>C.ADDRESS4
>C.CITY
>C.STATE
>C.POSTAL
>C.COUNTRY
>
>   let $SETID_VNDR_ADDR        = rtrim(&C.SETIDR, ' ')
>   let $VENDOR_ID_VNDR_ADDR    = rtrim(&C.VENDOR_ID, ' ')
>   let $EFF_STATUS_VNDR_ADDR   = rtrim(&C.EFF_STATUS,' ')
>   let $NAME1_ADDR             = rtrim(&C.NAME1,' ')
>   let $NAME2_ADDR             = rtrim(&C.NAME2,' ')
>   let $ADDRESS1               = rtrim(&C.ADDRESS1,' ')
>   let $ADDRESS2               = rtrim(&C.ADDRESS2,' ')
>   let $ADDRESS3               = rtrim(&C.ADDRESS3,' ')
>   let $ADDRESS4               = rtrim(&C.ADDRESS4,' ')
>   let $CITY                   = rtrim(&C.CITY,' ')
>   let $COUNTY                         = rtrim(&C.COUNTY,' ')
>   let $STATE                  = rtrim(&C.STATE,' ')
>   let $POSTAL                         = rtrim(&C.POSTAL,' ')
>
>     do Write-Process-Vendor-Address
>
>FROM PS_VENDOR_ADDR C
>ORDER BY C.SETID, C.VENDOR_ID
>End-SELECT
>
>End-Procedure Process-Vendor-Address
>
>! ********************************************
>Begin-Procedure Write-Process-Vendor-Address
>! ********************************************
>
>!WRITE 2 FROM 'BEGIN WRITE Vendor-Address'
>
>
>     write 2 from  $SETID_VNDR_ADDR:5          -
>                 $VENDOR_ID_VNDR_ADDR:10       -
>                 $EFF_STATUS_VNDR_ADDR:1       -
>                 $ADDRESS1:10                  -
>                 $NAME1_ADDR:40                -
>                 $NAME2_ADDR:40                -
>                 $ADDRESS1:35                  -
>                 $ADDRESS2:35                  -
>                 $ADDRESS3:35                  -
>                 $ADDRESS4:35                  -
>                 $CITY:30                      -
>                 $COUNTY:35                    -
>                 $STATE:10                     -
>                 $POSTAL:35                    -
>
>!WRITE 2 FROM 'END WRITE Vendor-Address'
>
>End-Procedure Write-Process-Vendor-Address
>
>! *****************************************
>Begin-Procedure Process-Vendor-Status
>! *****************************************
>
>!write 3 from 'Begin Vendor-Status'
>
>Begin-SELECT
>D.FIELDVALUE
>D.EFF_STATUS
>D.EFFDT
>D.XLATLONGNAME
>D.XLATSHORTNAME
>
>   let $FIELDVALUE     = rtrim(&D.FIELDVALUE, ' ')
>   let $EFF_STATUS     = rtrim(&D.EFF_STATUS, ' ')
>   let $EFFDT          = rtrim(&D.EFFDT,' ')
>   let $XLATLONGNAME   = rtrim(&D.XLATLONGNAME,' ')
>   let $XLATSHORTNAME  = rtrim(&D.XLATSHORTNAME,' ')
>
>     do Write-Process-Vendor-Status
>
>FROM XLATTABLE D
>WHERE D.FIELDNAME ='VENDOR_STATUS'
>End-SELECT
>
>End-Procedure Process-Vendor-Address
>
>
>! ********************************************
>Begin-Procedure Write-Process-Vendor-Status
>! ********************************************
>
>!WRITE 3 FROM 'BEGIN WRITE Vendor-Address'
>
>
>     write 3 from  $FIELDVALUE:18      -
>                 $EFF_STATUS:1         -
>                 $EFFDT:10             -
>                 $XLATLONGNAME:30      -
>                 $XLATSHORTNAME:10     -
>
>!WRITE 3 FROM 'END WRITE Vendor-Status'
>
>End-Procedure Write-Process-Vendor-Status
>
>! ===================== INCLUDE FILES ============================
>!#include 'askaod.sqc'    !Ask As Of Date Procedure
>!#include 'curdttim.sqc'  !Get-Current-DateTime Procedure
>#include 'datetime.sqc'  !Routines for date and time formatting
>#include 'number.sqc'    !Routines for number formatting
>#include 'stdapi.sqc'    !Update Process API
>! ===============================================================
>
>Thanks,
>
>José A. Aguirre
>
>_______________________________________________
>sqr-users mailing list
>sqr-users@sqrug.org
>http://www.sqrug.org/mailman/listinfo/sqr-users



_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users

References:
- [sqr-users] Trying to write 3 outputs from the same SQR.
  - From: "Aguirre, Jose" <JAguir@lsuhsc.edu>

Prev by Date: RE: [sqr-users] Reading all files from a path
Next by Date: RE: [sqr-users] Checking for numeric datatype
Previous by thread: Re: [sqr-users] Trying to write 3 outputs from the same SQR.
Next by thread: [sqr-users] Reading all files from a path
Indexes: [ Thread] [ Author] [ Date]
SQR-USERS List and Archive Info
SQRUG Home Page