RPG II Enhancement Subroutines for the System/36

Assembler subroutines designed to provide the System/36 RPG II programmer with additional flexibility

System/36 RPG II Enhancement Subroutines is a series of assembler-written subroutines designed to be linked to System/36 RPG II programs in order to provide the programmer with additional flexibility.

Highlights

• Provides the System/36 programmer with flexibility by enabling access to System/36 SSP functions not previously available in RPG II.

• Increases programmer productivity by providing simple, straight-forward RPG II solutions to formerly complex problems which required combined RPG II and OCL solutions.

• Easily incorporated into RPG II programs by use of EXIT instructions and SPECIAL file types, currently provided under RPG II.

• Many of the subroutines use the RPG II SPECIAL file type interface, which allows all the versatility of RPG II file structures, including multiple record type definition, field definitions, field result indicators, Primary, Secondary, or Demand file access for input files, and Detail, Total, or Excep-tion time writes for output files.

Description

• SUBRCD, Set Return Code Subroutine, allows the RPG II programmer to set the procedure return code. The return code can be accessed by using the ?CD? substitution expression in an OCL procedure.

• SUBRDP, Storage Dump Subroutine, allows the RPG II programmer to display a storage dump of the job region on the current SYSLIST device. After the storage dump is displayed, the job continues.

• SUBREV, Evoke Job Subroutine, allows the RPG II programmer to evoke a System/36 job during the execution of a program.

• SUBRHF, History File Interface Subroutine, allows the RPG II programmer to output data to the System/36 history file. History file records may be retrieved using the $HIST utility or the HISTORY SSP procedure.

• SUBRJA, Job Name Access Subroutine, allows the RPG II programmer to retrieve the System/36 job name for the current job.

• SUBRJQ, Submit Job to JOBQ Subroutine, allows the RPG II programmer to submit a job to the System/36 JOBQ during the execution of a program.

• SUBRLG, SYSLOG Interface Subroutine, allows the RPG II programmer to issue system halts to the requesting workstation or system console during the execution of a program.

• SUBRMG, Message Send Subroutine, allows the RPG II programmer to send a message to any workstation or user on the system during the execution of a program.

• SUBRPM, Procedure Parameter Retrieve/Write Subroutine, allows the RPG II programmer to read or write the procedure parameters for the currently executing procedure. The parameters are read to or written from a parameter array.

• SUBRSL, SYSLIST Interface Subroutine, allows the RPG II programmer to route display output to the current SYSLIST device for the requesting workstation. Jobs which are executed from the System/36 JOBQ will display output on the JOBQ assigned printer.

• SUBRSN, Retrieve CPU Serial Number Subroutine, allows the RPG II programmer to access the serial number for the system.

• SUBRVR, Diskette VTOC Read Subroutine, allows the RPG II programmer to read the user file area of the diskette VTOC. The format of the VTOC record is described in the IBM System/36 System Data Areas manual.

• SUBRVT, Disk VTOC Read Subroutine, allows the RPG II programmer to read the user file area of the disk VTOC. The format of the VTOC record is described in the IBM System/36 System Data Areas manual.

• SUBRWT, Program Wait Subroutine, allows the RPG II programmer to put a program into a wait state for a specified time interval, or until a specified time of day.

• SUBRSG, Source/Procedure Library Get Subroutine, allows the RPG II programmer to retrieve source or procedure member statements directly from a System/36 library.

• SUBRSP, Source/Procedure Library Put Subroutine, allows the RPG II programmer to write source or procedure member statements directly to a System/36 library.

• SUBRDG, Library Directory Get Subroutine, allows the RPG II programmer to retrieve library member directory entries directly from a System/36 library. The format of the directory entry is described in the IBM System/36 System Data Areas manual.

• SUBRLI, Library Member Sector Input Subrou-tine, allows the RPG II programmer to retrieve library member sectors directly from a System/36 library.

• SUBRLO, Library Member Sector Output Subroutine, allows the RPG II programmer to write library member sectors directly to a System/36 library.

• SUBRIR, IDDU Folder Read Subroutine, allows the RPG II programmer to retrieve file, format, and field definitions directly from a System/36 data dictionary folder.

• SUBRCO, Disk/Printer File CLOSE/OPEN Subroutine, allows the RPG II programmer to close and re-open a disk or printer file. For disk files, the next record pointer of the file is reset to the beginning of the file. For printer files, a new print spool job is created, allowing previous output to print without ending the RPG II program.

• SUBRI1, Basic Data Exchange Diskette Read/Write Subroutine, allows the RPG II programmer to read or write EXCHANGE format diskettes.

• SUBRI2, System Diskette Read/Write Subroutine, allows the RPG II programmer to read or write $COPY (SAVE/RESTORE) format diskettes.

• SUBRI3, $MAINT Sector-Mode Diskette Read/Write Subroutine, allows the RPG II programmer to read or write $MAINT (LIBRFILE) sector-mode diskette files.

• SUBRAK, Workstation Attention Key Enable/Disable Subroutine, allows the RPG II program-mer to control the use of the workstation Attention key for the current job.

• SUBRCP, Workstation Cursor Position Access Subroutine, allows the RPG II programmer to access the workstation cursor row and column position at the last workstation read operation.

• SUBRER, Workstation Error Line Display Subroutine, allows the RPG II programmer to display a message on the workstation error line.

• SUBRPR, Print Workstation Screen Subroutine, allows the RPG II programmer to print the current workstation screen on the session printer.

• SUBRRL, Workstation Roll Subroutine, allows the RPG II programmer to roll information currently displayed at the workstation. The entire screen or a portion of a display may be rolled.

• SUBRTI, Test Workstation Invite Status Subroutine, allows the RPG II programmer to determine the invite status of the workstations associated with a program.

• SUBRUA, Workstation User ID Access Subroutine, allows the RPG II programmer to access the user ID for an active workstation.

• SUBRWO, Workstation Execution Time Output Subroutine, allows the RPG II programmer to display a workstation screen format which is specified at execution time. The display format load member name may also be specified for programs which do not include a WORKSTN file NUM option continuation line, or which have a NUM option value of 1.

• SUBRPC, Printer File Control Subroutine, allows the RPG II programmer to close and re-open a printer file with the option of modifying the printer file attributes. A new spool job is created, allowing previous output to print without ending the RPG II program.

• SUBRPF, Dynamic Printer File Subroutine, allows the RPG II programmer to define a printer file which will allow line skipping and spacing information to be specified at execution time.

• SUBRED, Edit Numeric Field Subroutine, allows the RPG II programmer to edit a numeric field using a specified edit word.

• SUBRRE, Remove Edit Characters Subroutine, allows the RPG II programmer to remove the edit characters from an edited numeric value.

• SUBRPK, Pack Numeric Field Subroutine, allows the RPG II programmer to convert a numeric field from zoned-decimal format to packed-decimal format.

• SUBRUP, Unpack Numeric Field Subroutine, allows the RPG II programmer to convert a numeric field from packed-decimal format to zoned-decimal format.

• SUBRBN, Convert Decimal Field to Binary Subroutine, allows the RPG II programmer to convert a numeric field from zoned-decimal format to binary format.

• SUBRDC, Convert Binary Field to Decimal Subroutine, allows the RPG II programmer to convert a numeric field from binary format to zoned-decimal format.

• SUBRIN, Set Indicator Subroutine, allows the RPG II programmer to set RPG II indicators according to a value in an indicator status array. This allows more flexibility in the use of indicators.

Technical Information

Hardware Requirements: System/36 RPG II Enhancement Subroutines is designed to operate on any model of the IBM System/36.

Software Requirements: System/36 RPG II Enhancement Subroutines requires the following software to be installed on the system:

• System Support Program (5727-SS1)
• RPG II (5727-RG1)

Ordering Information

Basic Machine-Readable Material: To order, specify subroutine names. This program is distributed as object code, on 8-inch Diskette 1 or 2D, or 5 1/4-inch Diskette 2HC. Diskettes are provided by and remain the property of SSPI. When adding subroutines to an existing license, the order must be accompanied by the licensed program diskette.

Documentation: One copy of the Program Description Manual will be supplied with the basic machine-readable material.

Charges: One-time charge:

Number of Subroutines Licensed	Charge per Subroutine
1	$95
2-4	51
5-9	43
10-19	40
20+	39

Quantities of System/36 RPG II Enhancement Subroutines for all system types and designated machines may be combined to determine the total number of subroutines licensed. Quantities of System/36 COBOL Enhancement Subroutines may also be included in the total.

Licensing: This program is licensed under the terms and conditions of a Program License Agreement. A separate license is required for each designated machine on which the licensed program materials will be used; usage restrictions apply when this product is used in software which will be marketed or otherwise distributed. A copy of the agreement is included with this announcement, and must be completed and returned with first-time orders.

Trial Period: None

This product has been placed in legacy status and is no longer available for order. Support for existing installations is available on a "best effort" basis.