PL/I optimizing compiler

This is temporarily out of service while we attempt to make it work with with the new compiler.

SYS.PLIFACT is a factory that produces an object that executes IBM's optimizing PL/I compiler. This object is not reusable because it generates bad code if one of its overlays is not reloaded. A compiler is obtained with the OSFLOAD command. OSFLOAD SYS.PLIFACT PLIOPT akt.

The following FILEDEF's should be issued before running the compiler.

FILEDEF SYSIN source file
This is the input to the compiler and my be any Gnosis data structure supported by the OS simulator including a remote file (p3,auxdef).

FILEDEF SYSLIN text deck
This is where the text goes. It may be any Gnosis data structure supported by the OS simulator including a remote file (p3,auxdef). Note that only one remote file may be open to a single CMS userid due to the CMS restriction of single logons.

FILEDEF SYSUT1 SYSUT1 RECFM F LRECL 4051
This is the spill file. It is unused but the FILEDEF must be present as the compiler opens the file.

FILEDEF SYSLIB macro library
Macro libraries are Partitioned datasets {PDS} and are specified in Gnosis by filedeffing the directory level. For example the PL/I gate macros are in SYS.PLIGATES.GNOSIS. The FILEDEF command should specify "FILEDEF SYSLIB SYS.PLIGATES." with the trailing period included.

If there are more libraries, the CONCAT option on the filedef should be used. Thus adding the following FILEDEF to the above mentioned FILEDEF would cause the user macro library to be searched AFTER the system one. "FILEDEF SYSLIB user-macro. CONCAT".

Unless a FILEDEF for SYSPUNCH exists, one had better specify the option NODECK. If NODECK is not specified and there is no FILEDEF for SYSPUNCH, a copy of the text deck will be sent to the terminal.

The compiler is invoked with the EXECUTE command. EXECUTE PLIOPT NODECK[,other options].

SYS.ASMHFACT (aka SYS.ASMHF) is a factory that produces an object that executes IBM's H assembler (locally enhanced). This object is not reusable because it assumes that free storage contains zeros. A compiler is obtained with the OSFLOAD command. OSFLOAD SYS.ASMHFACT ASMH akt.

The following FILEDEF's should be issued before running the assembler.

FILEDEF SYSIN source file
This is the input to the compiler and my be any Gnosis data structure supported by the OS simulator including a remote file (p3,auxdef).

FILEDEF SYSLIN text deck
This is where the text goes. It may be any Gnosis data structure supported by the OS simulator including a remote file (p3,auxdef). Note that only one remote file may be open to a single CMS userid due to the CMS restriction of single logons.

FILEDEF SYSUT1 SYSUT1 RECFM F BLOCK 4000
This is the spill file. It is unused but the FILEDEF must be present as the assembler opens the file.

FILEDEF SYSLIB macro library
Macro libraries are Partitioned datasets {PDS} and are specified in Gnosis by filedeffing the directory level. For example the DOMAIN macros are in SYS.DOMAINMACS. The FILEDEF command should specify "FILEDEF SYSLIB SYS.DOMAINMACS." with the trailing period included.

If there are more libraries, the CONCAT option on the filedef should be used. Thus adding the following FILEDEF to the above mentioned FILEDEF would cause the user macro library to be searched AFTER the system one. "FILEDEF SYSLIB user-macro. CONCAT".

Unless a FILEDEF for SYSPUNCH exists, one had better specify the option NODECK. If NODECK is not specified and there is no FILEDEF for SYSPUNCH, a copy of the text deck will be sent to the terminal.

The assembler is invoked with the EXECUTE command. EXECUTE ASMH NODECK[,other options].

ASMHF(kt;==>x'02EF')

SYS.KERWATC is the requestor's key to a factory which produces a kernel statistics gathering object. These objects are reusable, but are typically intended to be forked into a background running mode.

Kernel statistics gatherer creator

KERWATC(0;PSB,M,SB ==> 0;KERWAT)
Produces a kernel statistics gathering object.

KERWATC(kt; ==> x'133')

Kernel statistics gatherer
KERWAT(n;NSRC,WAIT,SYSP ==> c) for n > 0.
Collect a kernel statistics sample every n seconds. Places sample in the name sequence record collection designated by NSRC. Waits between samples using the wait object WAIT. Sends fatal error diagnostics to SYSP iff a SYSP is provided.
c = 0 never happens because a KERWAT never returns unless it encounters an error.

c = 1 if NSRC was not a name sequence record collection.

c = 2 if an error occurred while attempting to make a record collection entry.

c = 3 if WAIT was not a wait object. A KERWAT may be terminated in an orderly manner by destroying its wait object.

KERWAT makes a record collection entry of the form (1,12),(12,'YYMMDDhhmmss'),(LC,(C0,...,Cn)),(LT,(T0,...,Tn)). The record name is the 12 character date & time stamp. LC and LT are 2 byte values designating the number of counter bytes and the number of timer bytes, respectively. Counters are 4 bytes long and timers are 8 bytes long.

The last two timers in a KERWAT record collection entry are "artificial". The first of these reflects the contents of the prime meter. It has been converted from meter format to ascending 370 internal timer format. The second is a computation of the idle time since the last IPL. It also is in 370 internal timer format.

KERWAT(kt ==> x'33')

KERWAT(kt+4 ==> 0)

Causes a KERWAT to destroy itself by returning to the OS simulator.

KERWAT(n ==> kt+2) for values of n other than above.