EPC - 800

Date : 08 January 2007

EPC800 Highlights

In addition to the correction of a number of reported issues with Visual LANSA and LANSA for iSeries, EPC800 delivers two additional alterations worth noting here.

Problems associated with the overlaying of an alphanumeric field with a packed decimal field (or vice versa) have been fixed. In these cases, both the overlaying field and the field being overlaid must contain data in the correct format before they are used; otherwise an error will now occur. For example, if the overlaid field has been initialized to blank, an error will occur if the overlaying field is used as packed decimal.
A new Built In Function LIST_PRINTERS has been added to allow retrieval of a list of printers currently configured. Additionally, WPxx X_RUN parameters can now be used to enable setting printer preferences (layout etc).

Product

Visual LANSA and LANSA for iSeries

Version

11.3

Pre-Requisite Details

EPC790

Instructions to install the EPC

EPC800 includes software to be installed on an iSeries machine and on a Windows machine. These instructions describe the installation and use of all delivered items.

Download EPC800.EXE file from the Web site or email.
Unzip (double click) EPC800.EXE. These files will be extracted:
- EPC800.htm - this document
- EPC800 - iSeries Save file
- EPC800w.exe - Windows install executable

Instructions provided for:

Yes	LANSA for iSeries
Yes	Visual LANSA

Detailed changes

EPC800 includes these changes: [Click here to Show table...]

CCS id.	Description
125531	Open and close of the same objects from the Repository browser gets slower and slower. A memory leak has been corrected.
127328	Check-in and RDMLX compiles submitted on iSeries failed when the LANSA product owner did not have *ALLOBJ authority. Inadequate authorities given to QOTHPRDOWN resulted in RDMLX checkin/compiles to fail. This has been corrected.
127831	Access violations in LANSA SuperServer for a fetch with a large number of fields.
128491	A calculation involving fields with high precision in component code may produce a different result than the same code in a function.
128492	A LANSA Open application generated message MCH3601 on the iSeries server and a 0x11 error code in LANSA Open when accessing an RDMLX file. This error may occur using LANSA Open or LANSA SuperServer but only when connecting to a non-English iSeries server. The error is generated as the result of numeric virtual field derivation and the job log will contain a MCH3601 error referencing X_Vec_Set_from_Double.
128549	The rounding of negative numbers was incorrect in VL code.
128561	DDirectly using a named condition as a component property value may not give the correct result when a numeric value is used in the DEF_COND expression.
128569	Abend using the SCANSTRING and FILLSTRING built-in functions when receiving an argument that is a method routine input value. The x_err.log entry for this abend will be for the statement in the RDML containing the built-in function and has the following error details: Message : Unable to resolve frame of evaluation vector Routine : LpVarEvaluationVectorFactor::Resolve
128565	CONCAT acts like TCONCAT, causing trailing spaces to be removed.
126542	The length returned by BCONCAT included a blank separator when string to append is all blanks, causing the length to be incorrect.
128450	Extra characters are displayed after the caption on a group box when executing in DBCS Windows. (Japanese only).
105020	Image Viewer could not view some JPEG images The image viewer couldn't display JPEG images that didn't specify JFIF in the header ( first 16 bytes ). The image viewer has been changed to be able to handle JPEG images that don't specify the JFIF header anymore, but specify Exif instead. For example, images from a digital camera.
113916	Propagated deleted objects left orphan information in the internal files. This change ensures all object details are cleared for propagated deleted objects.
121637	The OV_POST_CLIPBOARD BIF incorrectly gave ER return code when called from a reusable part. This is now corrected. This issue extended to the following BIFs: OV_WINWORD OV_POST_CLIPBOARD OV_PASTE_CLIPBOARD OV_FILE_DIALOG OV_MESSAGE_BOX
125853	Error with FETCH using superserver when fetching more than 101 fields. Only data for 101 fields was being returned and some fields were incorrect. This restriction has been removed and more than 101 fields can now be selected/fetched.
125917	Liiymain crash when AutoComplete is enabled and pressing F4 while typing commands (in some situations)
126522	Communications error 0x11 and MCH3401 Error (Unable to resolve to service program x_dll) when connecting to V5R4 using any LANSA products that use the LANSA Listener. This issue only affects some Japanese DBCS iSeries running V5R4.
126523	FILECHECK command abends when executed in SuperServer to iSeries (for files accessed via native IO)
126546	Enable setting printer preferences (layout etc) using WPxx X_RUN parameters. Refer to X_RUN printer options Help Text
126657	MAIL_ADD_ATTACHMENT BIF using IFS attachments is sometimes corrupted Attachments sent via the email bifs were being corrupted when the byte length of the attachment was not exactly divisible by 3. This corruption was not always noticeable however as it was dependent on the program used to open the attachment when the email was received. Note: This correction is a workaround to the following problem. Due to an IBM C compiler defect, the character used to pad the attachment when it was included in the email was not correct. The IBM compiler defect has been worked around, the defect reported to IBM and acknowledged as such by IBM.
126666	RDMLX Function fails with MCH1202 Decimal Data Error when signed fields used for RDML BIF argument/return values. The change is to support signed fields for RDML BIF argument/return values when executed from RDMLX code.
126949	Batch Control logic working incorrectly in some non-English environments Batch control logic now works correctly in any non-English environments where the at symbol (@) is at a different code point to that in English. No user action is required.
127229	Access violation on Windows for CALL_SERVER_FUNCTION with lists exchanged
127246	BEGIN_LOOP didn't accept zero in the FROM parameter. This has been corrected.
127253	Additional Services COPY_DIR and COPY_PATTERN added to OV_FILE_SERVICE OV_FILE_SERVICE has two new services COPY_DIR will copy a directory and all its sub-directories and their contents to the specified target directory. If any of the files already exist in the target directory they will be replaced. COPY_PATTERN copies all files matching the specified pattern to the specified target directory. This service supports the use of the '*' wildcard. If any of the files already exist in the target directory they will be replaced.
127257	Models saved on Italian PCs caused a run time error when reloaded. The Logical Modeler generated a fatal error when trying to open a model created with abstractions and entities, when the regional setting on the PC is Italian. This has been corrected.
127411	EPCCheck Fatal Error after SuperServer connection failed. An EPCCheck Fatal Error was being generated when a communications error occurred. The server's EPC level will only be checked after a successful connection has occurred.
127460	Cannot specify the database user id and password when upgrading an ASA DSN in a deployed Visual LANSA application.
127475	Technology service parameter lost in web request On occasions, the Technology Service names are missing in the path used to locate the WebRoutine stylesheet. The symptom is that your web request fails and in the job log you see the message from the XSLT processor saying that it couldn't locate the stylesheet. The file path shows that it is missing some or all of the Technology Services names that go into building the file path.
127552	iSeries: Unable to view multiple trigger fields in a file at the same time when multiple fields selected. This has been corrected.
127555	SELECT_SQL using a LANSA file and a file defined in a different DSN fails FFC Extra validation checks were put into SELECT_SQL FFC, checking that the databases that the files were in were all the same. this did not allow for the definition to be loaded into LANSA from a different database to the one used at runtime. Messages PRC0379 and PRC0380 have been changed to be warnings, unless the database type is different, in which case the messages are flagged as fatal. This means that if file A was loaded using DSN 'ADSN' from MS SQL Server, and the main LANSA database is using DSN B from MS SQL Server, a warning is displayed. But, if the main database, B, was using Adaptive Server Anywhere, a fatal message will be displayed. Message PRC0381 has been changed to be informational only.
127575	Other Files: Some fields always blank or zero when read, and cannot be updated. Issue 1: When there was an identity column on the file, for example, ID, and other fields on the file started with the same name, for example, ID1, and ID2, these fields would not appear in generated SQL statements, and thus could not be updated or read. Issue 2: iSeries Other Files containing identity columns and LOB columns may fail to compile, or abend during Insert. User Action: Rebuild affected files if they meet the above conditions.
127601	Japanese Only: IDE crashes selecting signed/packed reference field for an alpha field with Edit Codes E, O or J
127715	The LOCK_OBJECT BIF works incorrectly when used from VL RDMLX Forms The RDMLX iSeries LOCK_OBJECT BIF was creating records in DC@FOL with incorrect values in FOLMOD (process name) and FOLFMT(function name) and the RDMLX iSeries UNLOCK_OBJECT BIF was using incorrect process and function names for deleting records in DC@FOL. These BIFs have now been corrected to behave as expected.
127798	Web component's check in causes DBCS character corruption Check in of a web component will correctly translate DBCS characters.
127881	iSeries RDMLX: Messages from RDML function not returned to client applications in RDMLX partition When the iSeries RDMLX environment called an RDML function, if the function ended in error, messages would not be mapped back to client applications such as SuperServer, Open and Client.
127876	Description/Label/Column headings were not copied when doing a field copy. This has been corrected.
127937	RENAME command not fully supported within the Visual LANSA IDE causing compile failures. This has been corrected.
127994	RDML Trigger (before & after update) fails when accessed from an RDMLX partition Execution of RDML trigger (before update and after update) in an RDMLX partition no longer fails with MCH3601 - "Pointer not set for location referenced.". No recompilation necessary.
128000	Fatal error calling Fetch_In_Space BIF after upgrading to EPC790 FETCH_IN_SPACE BIF was crashing with fatal error "Unable to resolve frame of evaluation vector" if given an expression as a key. This BIF has now been corrected to behave as expected.
128065	Incorrect results when using the CONVERTDATE_NUMERIC BIF to convert a date in CYYMMDD format (‘1’) to a system date format (F).
128077	Calculations off by a penny when using a Change statement with a number 13 digits long
128129	Transfer to web routine containing fields not defined in calling web routine caused the WAM to crash A defect introduced in EPC790 causes TRANSFER/CALL to fail and end abnormally if fields are not defined in the calling web routine.
128166	Cannot compile a form where a field is defined with '£' character when the £ (pound) character is used in the language options instead of the '$' character. This has been corrected.
128167	Connection errror 0x11 connecting to the LANSA listener when using default encryption setting *NONE in V5R4 DBCS iSeries only
128233	WAM XLS not publishing in deployed environment due to missing dlls. Publish of WAMs fail because required runtime objects are not shipped with a package. This has been corrected.
128276	IDE Performance improvements when clicking around IDE tabs and using the next and previous buttons to switch between open objects.
128480	Added new BIF LIST_PRINTERS which can retrieve a list of printers currently configured. Refer to LIST_PRINTERS Help Text
128442	When pasting copied text into a text field (edit box) nothing gets pasted if the contents to be inserted is larger than the field definition. This has been corrected to paste as much text as the field will allow.

Affected objects

Windows Components: [Click here to Show table...]

Object Name	Folder
liih.dll	\lansa
liio.dll	\lansa
liiosrv.dll	\lansa
liis.dll	\lansa
liiv.dll	\lansa
liix.dll	\lansa
liiy.dll	\lansa
lpvo.bnd	\lansa
lpvofra.bnd	\lansa
lpvojpn.bnd	\lansa
x_base.dll	\lansa
x_dom.dll	\lansa
x_prim.dll	\lansa
x_rom.dll	\lansa
lxxf47.asc	\lansa\imports\std_bifs
lxxf48.asc	\lansa\imports\std_bifs
lxxf47.asc	\lansa\imports\std_bifs\fra
lxxf48.asc	\lansa\imports\std_bifs\fra
lxxf47.asc	\lansa\imports\std_bifs\fra\500
lxxf48.asc	\lansa\imports\std_bifs\fra\500
lxxf47.asc	\lansa\imports\std_bifs\jpn
lxxf48.asc	\lansa\imports\std_bifs\jpn
lefnwcm2.dll	\X_WIN95\X_LANSA\EXECUTE
lefnwfic.dll	\X_WIN95\X_LANSA\EXECUTE
lefnwflc.dll	\X_WIN95\X_LANSA\EXECUTE
lefnwfn2.dll	\X_WIN95\X_LANSA\EXECUTE
lefnwpr2.dll	\X_WIN95\X_LANSA\EXECUTE
letcpsv.dll	\X_WIN95\X_LANSA\EXECUTE
letutils.dll	\X_WIN95\X_LANSA\EXECUTE
levsv002.dll	\X_WIN95\X_LANSA\EXECUTE
lh_acici.dll	\X_WIN95\X_LANSA\EXECUTE
lh_acii.dll	\X_WIN95\X_LANSA\EXECUTE
lh_hmpkm.dll	\X_WIN95\X_LANSA\EXECUTE
lh_ideri.dll	\X_WIN95\X_LANSA\EXECUTE
lh_sst02.dll	\X_WIN95\X_LANSA\EXECUTE
lh_sst03.dll	\X_WIN95\X_LANSA\EXECUTE
lh_sst05.dll	\X_WIN95\X_LANSA\EXECUTE
lh_sst08.dll	\X_WIN95\X_LANSA\EXECUTE
lm_abs.dll	\X_WIN95\X_LANSA\EXECUTE
lp_chd.dll	\X_WIN95\X_LANSA\EXECUTE
lp_crtp.dll	\X_WIN95\X_LANSA\EXECUTE
lp_dpi.dll	\X_WIN95\X_LANSA\EXECUTE
lp_xslp.dll	\X_WIN95\X_LANSA\EXECUTE
lpvo.bnd	\X_WIN95\X_LANSA\EXECUTE
lpvofra.bnd	\X_WIN95\X_LANSA\EXECUTE
lpvojpn.bnd	\X_WIN95\X_LANSA\EXECUTE
u_bif990.dll	\X_WIN95\X_LANSA\EXECUTE
u_bif992.dll	\X_WIN95\X_LANSA\EXECUTE
u_bif995.dll	\X_WIN95\X_LANSA\EXECUTE
u_bif996.dll	\X_WIN95\X_LANSA\EXECUTE
u_bif997.dll	\X_WIN95\X_LANSA\EXECUTE
u_bif998.dll	\X_WIN95\X_LANSA\EXECUTE
lxptbbld.exe	\X_WIN95\X_LANSA\EXECUTE
w3wsvpgx.dll	\X_WIN95\X_LANSA\EXECUTE
x_base.dll	\X_WIN95\X_LANSA\EXECUTE
x_bif.dll	\X_WIN95\X_LANSA\EXECUTE
x_bifms.dll	\X_WIN95\X_LANSA\EXECUTE
x_bifms.lib	\X_WIN95\X_LANSA\EXECUTE
x_comms.dll	\X_WIN95\X_LANSA\EXECUTE
x_dll.dll	\X_WIN95\X_LANSA\EXECUTE
x_dom.dll	\X_WIN95\X_LANSA\EXECUTE
x_fun.dll	\X_WIN95\X_LANSA\EXECUTE
x_funms.dll	\X_WIN95\X_LANSA\EXECUTE
x_funms.lib	\X_WIN95\X_LANSA\EXECUTE
x_lsv.dll	\X_WIN95\X_LANSA\EXECUTE
x_pdf.dll	\X_WIN95\X_LANSA\EXECUTE
x_pdfms.dll	\X_WIN95\X_LANSA\EXECUTE
x_pdfms.lib	\X_WIN95\X_LANSA\EXECUTE
x_pimms.dll	\X_WIN95\X_LANSA\EXECUTE
x_prim.dll	\X_WIN95\X_LANSA\EXECUTE
x_rom.dll	\X_WIN95\X_LANSA\EXECUTE
x_run.exe	\X_WIN95\X_LANSA\EXECUTE
x_ssv.dll	\X_WIN95\X_LANSA\EXECUTE
x_uimmseng.dll	\X_WIN95\X_LANSA\EXECUTE
x_uimmsfra.dll	\X_WIN95\X_LANSA\EXECUTE
x_uimmsjpn.dll	\X_WIN95\X_LANSA\EXECUTE
x_var.dll	\X_WIN95\X_LANSA\EXECUTE
iom00001.s	\X_WIN95\X_LANSA\SOURCE
liiodef.h	\X_WIN95\X_LANSA\SOURCE
x_bif000.h	\X_WIN95\X_LANSA\SOURCE
x_comstr.h	\X_WIN95\X_LANSA\SOURCE
x_funpro.h	\X_WIN95\X_LANSA\SOURCE
x_funstr.h	\X_WIN95\X_LANSA\SOURCE
x_glodef.h	\X_WIN95\X_LANSA\SOURCE
x_pdfpro.h	\X_WIN95\X_LANSA\SOURCE
x_varstr.h	\X_WIN95\X_LANSA\SOURCE
data.	\X_WIN95\X_LANSA\X_PKGS\X_Boot\3489\Cab1.
layout.bin	\X_WIN95\X_LANSA\X_PKGS\X_Boot\3489\Cab1.
lcoq.bat	\X_WIN95\X_LANSA\X_PKGS\X_Boot\3489\Cab1.
setup.inx	\X_WIN95\X_LANSA\X_PKGS\X_Boot\3489\Cab1.

iSeries Components: [Click here to Show table...]

Object Name	Object Type	Library
W3S1000	*SRVPGM	LANSA communication library and Web Server
W3XSVPGM	*SRVPGM	LANSA communication library and Web Server
W3XSVPGV	*SRVPGM	LANSA communication library and Web Server
W3XSVPGX	*SRVPGM	LANSA communication library and Web Server
LCOCROUT	*SRVPGM	LANSA communication library
LCOMGR40	*SRVPGM	LANSA communication library
LCXP0010	*PGM	LANSA communication library
DC@M01	*MSGF	LANSA program library
@LP@DPI	*SRVPGM	LANSA program library
@LP@XSLP	*SRVPGM	LANSA program library
DCXS870X	*SRVPGM	LANSA program library
U_BIF992	*SRVPGM	LANSA program library
X_BASE	*SRVPGM	LANSA program library
X_BIF	*SRVPGM	LANSA program library
X_COM	*SRVPGM	LANSA program library
X_COMP	*SRVPGM	LANSA program library
X_DBG	*SRVPGM	LANSA program library
X_DLL	*SRVPGM	LANSA program library
X_FUN	*SRVPGM	LANSA program library
X_LSV	*SRVPGM	LANSA program library
X_PDF	*SRVPGM	LANSA program library
X_PIM	*SRVPGM	LANSA program library
X_PRIM	*SRVPGM	LANSA program library
X_SSV	*SRVPGM	LANSA program library
X_VAR	*SRVPGM	LANSA program library
DC@P2008	*PGM	LANSA program library
DC@P6401	*PGM	LANSA program library
DC@P6411	*PGM	LANSA program library
DC@P6418	*PGM	LANSA program library
DC@P6452	*PGM	LANSA program library
DC@P6454	*PGM	LANSA program library
DC@P8081	*PGM	LANSA program library
LXIP0010	*PGM	LANSA program library
LXXP0100	*PGM	LANSA program library
X_RUN	*PGM	LANSA program library
lpvo.bnd	STMF	../x_lansa
lpvofra.bnd	STMF	../x_lansa
lpvojpn.bnd	STMF	../x_lansa
x_dbmenv.dat	STMF	../x_lansa
liiodef.h	STMF	../x_lansa/source
x_bif000.h	STMF	../x_lansa/source
x_comstr.h	STMF	../x_lansa/source
x_funpro.h	STMF	../x_lansa/source
x_funstr.h	STMF	../x_lansa/source
x_glodef.h	STMF	../x_lansa/source
x_pdfpro.h	STMF	../x_lansa/source
x_varstr.h	STMF	../x_lansa/source
DC@F47 & DC@F48	BIF	Text (English and Japanese) French uses English

Install Instructions

Instructions for installing on iSeries

These instructions have been abbreviated for experienced LANSA users. If you need further assistance to install the EPC, full instructions are available in the Technical Resources of the LANSA web site at www.lansa.com/support/notes/epc.

Backup all the LANSA folders, system libraries and ALL the LANSA IFS objects (LANSA_pgmlib/x_lansa) before applying this EPC
You need exclusive use of the LANSA system before applying the EPC. To check for active users refer to Appendix C How to check for Active Users in the Installing LANSA on iSeries guide for instructions.
End the Listener, Host Monitor and Web Server for the LANSA system and run the LANSA for the Web cleanup program.
Move the unzipped file EPC800 to a shared folders (QDLS) on the iSeries.
Use the XFLRTOSAVF command to convert the folder to a save file (LANSA program library must be on your library list) - press F4 for command details. A save file will be created by this command.
Sign on with QSECOFR user profile, part of the QSECOFR group, or has *ALLOBJ and *SECADM special authorities.
Use the RSTOBJ command to restore all objects from library QTEMP into library QTEMP, eg.
RSTOBJ OBJ(*ALL) SAVLIB(QTEMP) DEV(*SAVF) SAVF(<save file name>) RSTLIB(QTEMP)
Display your current library list. If QTEMP is not shown, add it to your library list by using the ADDLIBLE (add library list entry) command.
Install the EPC using the command:

LOADEPC800 PGMLIB(<pgmlib>)
<pgmlib> is the name of the LANSA program library, often DC@PGMLIB but it may be different on your system.
Save and then delete the backout library (iiiEPCnn where iii = 1st three characters of the LANSA pgm library and nn is sequence number) created by the install. The contents of the library may be used to backout this EPC and return your system to its previous state.
Sign off and then on again before commencing the next installation, eg:
- to apply this EPC on another LANSA system
- to apply another EPC on the same LANSA system

Special Instructions for users of iSeries Web Server (multi-tier)

To apply EPC800 on the Web Server tier of your LANSA for the Web system, follow these steps:

If you haven't installed or upgraded LANSA for the Web on the Web Server, do so before proceeding with step 2.
End the Web Server and run the LANSA for the Web cleanup program. Refer to 13.5.6 Clean Up Systems in the LANSA Online documentation for cleanup instructions.
Restore the EPC objects into QTEMP (Perform the same steps you used to restore the objects in your LANSA for the Web application/data server system).
Display your current library list. If QTEMP is not shown, then add it to your library list using the ADDLIBLE (add library list entry) command.
Install the EPC for the Web Server by using the command:

LOADE800MT ADMLIB(<adminlib>) COMLIB(<comlib>)
where <admin> is the name of the LANSA for Web Administration library.
where <comlib> is the name of the LANSA Com/Share library. This is often DC@COMLIB but it may different on your system
Press enter to continue processing.
Save, and then delete, the backout library (iiiEPCMBnn where iii = 1st three characters of the LANSA pgm library and nn is sequence number) created by the install. The contents of this library may be used to backout this EPC and return your system to its previous state.

Instructions for installing on Windows

Backup all the LANSA folders and your LANSA database before applying this EPC.
Stop using the LANSA development environment and stop all currently executing LANSA applications.
Double-click on EPC800w.exe.
Select the "Setup" button or "Cancel" if you do not want to proceed.
If you have multiple configurations installed, Select the configuration to which the EPC is to be applied.
If you are prompted to reboot your pc - please reboot.
To view details of the installed EPCs:
1. sign into LANSA
2. view the Help menu
3. Product Information option
4. then select the Installation Details tab
5. expand the Installation/ EPC Summary
6. review the last entries

X_RUN printer options Help Text [Click here to Show help...]

WPPN (Windows Printing Printer Name)

Specifies the full name of the printer. If specifying a network printer, the domain name must also be included. That is, WPPN=\\domain\printer name. For example, WPPN=\\ourdomain\Epson Stylus COLOR 900. The LIST_PRINTERS BIF returns the full printer name as required by this parameter. This parameter is not passed to (inherited by) a server system. If printing from a server in a client/server environment, retrieve the list of printers defined on the server by calling a function on the server that uses the LIST_PRINTERS BIF. The selected printer's name can be exchanged back to the server when the print function is called. For example,

***************************************************
** CLIENT SIDE FORM
***************************************************
FUNCTION OPTIONS(*DIRECT)
BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CLIENTHEIGHT(240) CLIENTWIDTH(492) HEIGHT(267) LEFT(378) TOP(238)

* DEFINE_COM commands appear here to define controls on dialog.

DEF_LIST NAME(#PRNLIST) FIELDS(#PRN_NAME #PRN_LOC) TYPE(*WORKING)

EVTROUTINE handling(#com_owner.Initialize)
SET #com_owner caption(*component_desc)

USE BUILTIN(SET_SESSION_VALUE) WITH_ARGS(USER MyUserid)
USE BUILTIN(DEFINE_ANY_SERVER) WITH_ARGS(MYSERVER Server1 Y) TO_GET(#STD_CMPAR)
USE BUILTIN(CONNECT_SERVER) WITH_ARGS(MYSERVER 'MyPassword') TO_GET(#STD_CMPAR)
USE BUILTIN(CALL_SERVER_FUNCTION) WITH_ARGS(MYSERVER GETPRNS Y Y #PRNLIST) TO_GET(#STD_CMPAR)

SELECTLIST NAMED(#PRNLIST)
ADD_ENTRY #LTVW_1
ENDSELECT

CHANGE FIELD(#DEPTMENT) TO(FLT)

ENDROUTINE

EVTROUTINE HANDLING(#PHBN_PrintEmplistD.Click)

EXCHANGE FIELDS(#DEPTMENT #PRN_NAME) OPTION(*ALWAYS)

USE BUILTIN(CALL_SERVER_FUNCTION) WITH_ARGS(MYSERVER SRVEMPL Y Y) TO_GET(#STD_CMPAR)

ENDROUTINE

END_COM


***************************************************
** SERVER SIDE FUNCTION
***************************************************
FUNCTION OPTIONS(*DIRECT) RCV_LIST(#PRNLIST)
DEF_LIST NAME(#PRNLIST) FIELDS(#PRN_NAME #PRN_LOC) TYPE(*WORKING)
USE BUILTIN(LIST_PRINTERS) WITH_ARGS(A) TO_GET(#PRNLIST #STD_CMPAR)

WPPS (Windows Printing Setup File)

Specifies the file (including full path) that contains printer settings. These settings will be used to initialize the settings on the printer dialog. If the printer dialog will not be displayed, these settings will automatically be sent to the printer. The default printer settings on the PC will be used if WPPS is not specified. Likewise, if WPPS has been specified, the default printer setting will be used for those parameters not specified in the file.

A new file can be specified at any time thus allowing the user to use different settings for different print jobs (reports, etc) without having to display the printer dialog every time.

This parameter is not passed to (inherited by) a server system. If printing from a server in a client/server environment, the file name can be exchanged to the server when the print function is called. Alternatively the file can specified in the server function.

The following printer settings may be specified. Some settings may not be relevant for the selected printer. Any settings that are not relevant will be ignored by the printer.

PGOR= Page Orientation

Value	Description
P	Portrait
L	Landscape

DPXP= Duplex printing.

Value	Description
N	Normal (nonduplex)
H	Duplex over horizontal (flip over the long edge of the page)
V	Duplex over vertical (flip over the short edge of the page)

COLR= Color printing.

Value	Description
C	Colour
M	Monochrome

COPY= Number of copies.

PSIZ= Paper Size.

Value	Description
LETTER	Letter, 8 ½ by 11-inches
LEGAL	Legal 8 ½ by 14 inches
A4	A4 sheet, 210 x 297 millimeters
A3	A3 sheet, 297 by 420 millimeters
xxx	xxx is a numeric value defined by the Microsoft Visual C runtime which represents a specific paper size. The complete list of values may be obtained from Microsoft's MSDN library at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_Paper_Sizes.asp. Alternatively, see below for instructions on how to retrieve printer specific values.

PSRC= Paper Source.

Value	Description
A	Auto
L	Lower tray
M	Middle tray
xxx	xxx is a numeric printer specific value. See below for instructions on how to retrieve printer specific values.

QLTY= Print Quality.

Value	Description
H	High
M	Medium
L	Low
D	Draft
xxx	xxx is a numeric printer specific value which specifies the number of dots per inch (DPI). See below for instructions on how to retrieve printer specific values.

COLL= Collation.

Value	Description
Y	Collate when printing multiple copies
N	Do not collate when printing multiple copies

PTYP= Paper Type.

Value	Description
P	Plain paper
G	Glossy paper
T	Transparent film
xxx	xxx is a numeric printer specific value. See below for instructions on how to retrieve printer specific values.

FNAM= Form Name.

See below for instructions on how to retrieve printer specific values.

Printer specific values can be obtained by running the application with WPPD=E and trace settings ITRO=Y ITRL=9 and ITRM set to a value large enough to log the required tracing information. Enter the required values into the print dialog. The values returned by the print dialog will be logged in the trace file. Only values that are relevant to the current printer are logged. Open the trace file and search for the phrase "Printer Details". The following is an example of the trace output:

MESSAGE : Printer Details for \\syd1\HP LaserJet 4050 Series
MESSAGE : Printer Details... PGOR=1 DPXP=1 COLR=2 COPY=2 PSIZ=9 PSRC=2 QLTY=600

Examples of a printer setup files:

Example 1:

PGOR=P
DPXP=V
COPY=4

Example 2:

PGOR=L
DPXP=N
COLR=C
PSIZ=33

LIST_PRINTERS Help Text [Click here to Show help...]

This BIF will return a list of printers currently configured on the machine.

For use with:

LANSA for iSeries	NO
Visual LANSA for Windows	YES
Visual LANSA for UNIX/Linux	NO

Arguments for Visual LANSA

Input Arguments

No.	Type	Req/ Opt	Visual LANSA Description	Min Len	Max Len	Min Dec	Max Dec
1	A	Opt	Printer Location A - All printers (default) L - Local Only	1	1

Return Values

No.	Type	Req/ Opt	Visual LANSA Description	Min Len	Max Len	Min Dec	Max Dec
1	L	Req	Working List containing the printer's full name (see technical notes). The list must be in the following format: From - To Description 1 - 255 Printer Name 256 - 256 Printer Location (L - local, N - network).	256	256
2	A	Req	Return code. OK = list returned successfully OV = list returned completely filled but more printers than could fit in the list still exist NR = empty list returned ER = an error occured	2	2

Technical Notes

The working list will return the full printer name. This includes the domain name for remote printers. That is //domain/PrinterName. For example, \\ourdomain\Epson Stylus COLOR 900.
If printing through a server function, this BIF should be run on the server to obtain the list of printers available to the server and the list then passed back to the client. The selected printer name may then be exchanged to the server function that will perform the printing.

Example

FUNCTION OPTIONS(*DIRECT)
DEF_LIST NAME(#PRNLIST) FIELDS(#PRN_NAME #PRN_LOC) TYPE(*WORKING)
USE BUILTIN(LIST_PRINTERS) WITH_ARGS(A) TO_GET(#PRNLIST #STD_CMPAR)