Re: api or file with s36 device name

[Douglas Handy <dhandy1@xxxxxxxxxxxxx>]

Jim,

>i need an api or file to get the s36 device name for a native device name.

See Appendix E of the S/36 Environment Reference, which lists a few programs IBM
supplies which assist in coexistance of native and S36EE applications.

Program QEXCVTDV converts device names, and takes 3 parameters:

 - 2-character System/36 device ID
 - 10-character AS/400 device name
 - 1-character device type

If parameter 1 is not blank, the System/36 device ID is converted to the AS/400
device name and placed in parameter 2. The initial value of parameter 2 is
ignored.

If parameter 1 is blank and parameter 2 is not blank, the AS/400 device name is
converted to the System/36 device ID and placed in parameter 1.

If an unknown or invalid device name or ID is specified, the resulting name is
set to blanks, and the device type (parameter 3) is set to 0. If both parameters
1 and 2 are blank, parameter 1 is considered an invalid device ID and parameter
2 is considered an invalid device name.

Parameter 3 is set by the program to one of the following values:

0 Unknown.
1 The device is a work station.
2 The device is a printer.
3 The device is a tape device.
4 The device is a diskette drive.

On the S/36 side, OCL was enhanced with a substitution expression, ?DEV'xx'?
which returns the native device name for S/36 ID xx, and can be used as:

  ?DEV'?WS?'?

to get the native device name of the current workstation from within OCL.  From
native applications or RPG II programs, use QEXCVTDV.

To their credit, IBM actually made several things available which S36EE
applications can use to help coexistance and tailor your environment, but most
people seem woefully unaware of their existance.

Another one I like is QEXSHRO, which lets you dynamically turn on and off the
implicit shared opens of files within S36EE jobs.

Doug