Re: use of #if/#endif on DB2/MVS

[Joy Hoyte <JoyHoyte_sqr@HOTMAIL.COM>]

Steve,

Usually a 'line found outside of paragraph' error indicates that you're
missing a BEGIN or END statement or that you have a typo in your BEGIN or
END statement.  You said this is an SQC.  Is the #Include command that pulls
the SQC in placed correctly in your SQR source code?  Since the SQC contains
a Declare-Printer command, the #Include would need to be placed inside the
SETUP section (BEGIN-SETUP / END-SETUP).

Joy Hoyte
----- Original Message -----
From: "Steve Rogers" <srogers@KBTOYS.COM>
To: <SQR-USERS@list.iex.net>
Sent: Friday, April 13, 2001 2:55 PM
Subject: use of #if/#endif on DB2/MVS


>      We are converting DB2/AS400 to DB2/MVS.  MVS does not like the
following
> SQC -
>
> !LinePrinter is not supported for this SQC, if not POSTSCRIPT, then
> !  HPLASERJET will be used.
> #if {PRINTER_TYPE} <> 'POSTSCRIPT'
>   #define PRINTER_TYPE HPLASERJET
> #endif
>
>
> #if {PRINTER_TYPE} = 'POSTSCRIPT'
> declare-printer PS-definition
>   type={PRINTER_TYPE}
>   point-size=5
>   font=3                                 ! Courier font
>
> !
> ! add STARTUP-FILE=dir\filename to change the symbol set
> !
> end-declare
> #endif
>
> #if {PRINTER_TYPE} = 'HPLASERJET'
> declare-printer HP-definition      <-------- problem begins here
>
>   type=HPLASERJET
>   point-size=5
>   symbol-set=0U                          ! ASCII symbol set
>   pitch=24
>   font=3                                 ! Courier font
> end-declare
> #endif
>
>
> Here are the error messages -
>
> Error in include file "DDN:SQRINC(ptpsl215)" on line 47:
>    (SQR 4702) Line found outside paragraph.
> declare-printer HP-definition
>
> Error in include file "DDN:SQRINC(ptpsl215)" on line 48:
>    (SQR 4702) Line found outside paragraph.
>   type=HPLASERJET
>
> Error in include file "DDN:SQRINC(ptpsl215)" on line 49:
>    (SQR 4702) Line found outside paragraph.
>   point-size=5
>
> Error in include file "DDN:SQRINC(ptpsl215)" on line 50:
>    (SQR 4702) Line found outside paragraph.
>   symbol-set=0U
>
>
> Can anyone tell me what MVS does not like?
>
>      thanks,
>      Stev
>