The information that was read from a SYSSII file with the SIIOPEN or SIIREAD functions of the IMOKIT macro can be evaluated further with the IMOKIA macro. The comments on the release unit or on a release item, the old and new dependencies to release units or the parameter text for a release item can be read from the SYSSII file with the SIIRCOM, SIIRDEP and SIIRPAR functions of the IMOKIA macro.
Macro | Operands | ||||||||||||||||||
IMOKIA |
|
See the “Macro forms” section on "Macro syntax " for descriptions of the MF, PREFIX, MACID and PARAM parameters. Symbolic addresses may not be specified together with MF=L.
FUNCT =*SIIRCOM =*SIIRDEP =*SIIRKON =*SIIRPAR | Specifies the desired function. Read the comments of a release unit or of a release item. Read the old dependencies of a release unit. Read the new dependencies of a release unit. Read the parameter text of a release item. |
FDESCR=NULL / <var: pointer>
Address of the file descriptor of the open SYSSII file. This value
must be obtained from the parameter list of the corresponding
IMOKIT call (FUNCT=*SIIOPEN or *SIIREAD).
LENGTH=0 / <integer 1..2147483647> / <var: int: 4>
Length of the output area in which the information read is to be
stored.
AREA=NULL / <var: pointer>
Address of the output area in which the information read is to be
stored.
Parameter list
IMOKIA IMOKIA MF=D 1 IMOKIA MFTST MF=D,PREFIX=I,MACID=ARE,ALIGN=F, C 1 DMACID=ARE,SUPPORT=(E,D,C,M,L),DNAME=ARE_PL 2 IMOKIA DSECT , 2 *,##### PREFIX=I, MACID=ARE ##### 1 IAREPVER EQU 21 value for parameter list 1 * version 1 * 1 IAREFCOM EQU 155 value for SIIRCOM 1 * 1 IAREFDEP EQU 156 value for SIIRDEP 1 * 1 IAREFPAR EQU 157 value for SIIRPAR 1 * 1 IAREFKON EQU 158 value for SIIRKON 1 * 1 * PARAMETER LIST OF IMON-SIC 1 IARESTANDARD_HEADER FHDR MF=(C,IARE),EQUATES=NO 2 IARESTANDARD_HEADER DS 0A 2 IAREFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER 2 * 2 IAREIFID DS 0A 0 INTERFACE IDENTIFIER 2 IAREFCTU DS AL2 0 FUNCTION UNIT NUMBER 2 * BIT 15 HEADER FLAG BIT, 2 * MUST BE RESET UNTIL FURTHER NOTICE 2 * BIT 14-12 UNUSED, MUST BE RESET 2 * BIT 11-0 REAL FUNCTION UNIT NUMBER 2 IAREFCT DS AL1 2 FUNCTION NUMBER 2 IAREFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER 2 * 2 IARERET DS 0A 4 GENERAL RETURN CODE 2 IARESRET DS 0AL2 4 SUB RETURN CODE 2 IARESR2 DS AL1 4 SUB RETURN CODE 2 2 IARESR1 DS AL1 5 SUB RETURN CODE 1 2 IAREMRET DS 0AL2 6 MAIN RETURN CODE 2 IAREMR2 DS AL1 6 MAIN RETURN CODE 2 2 IAREMR1 DS AL1 7 MAIN RETURN CODE 1 2 IAREFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH 2 * 1 * STD HEADER 1 * main return codes 1 IAREOK EQU 0 Success 1 IAREEIPL EQU 2 Invalid Parameter List 1 * Version 1 IAREEATO EQU 3 Memory area too short 1 IAREEIFC EQU 7 Invalid Function Called
1 IAREEFNO EQU 22 File not open 1 IAREEOF EQU 30 End of file 1 IAREES EQU 256 System error 1 IAREEI EQU 257 Internal error 1 * 1 IAREFD DS A FILE DESCRIPTOR 1 IAREDEL DS X STRING DELIMITOR 1 IARER0 DS XL3 filler 0 1 IARELEN DS F LENGTH OF MEMORY AREA 1 IAREAREA DS A POINTER ON MEMORY AREA 1 IARE# EQU *-IARESTANDARD_HEADER
Programming notes
The following parameters can also be passed in the parameter list for calls of functions of the IMOKIA macro:
The file descriptor in the IAREFD field (see the FDESCR parameter).
The value from the parameter list ( IREAFD field) of the corresponding IMOKIT call (SIIOPEN or SIIREAD function) must be used.
The length of the output area in the IARELEN field (see the LENGTH parameter).
The address of the output area in the IAREAREA field (see the AREA parameter).
Read comments (FUNCT=*SIIRCOM)
The function SIIRCOM reads sequential comments on a release unit or on a release item.
The SYSSII file must be opened. Each call returns a comment line with a maximum of 73 characters consisting of the language code (D or E), the specified delimiter character and the text of the comment line.
The information returned depends on the last IMOKIA macro call made:
After a call with FUNCT=*SIIOPEN the first comment line on the release unit is returned if there is one. The number of comment lines present is stored in the IREAUC field of the IMONKIT parameter list.
After a call with FUNCT=*SIIREAD the first comment line on the “read” release item is returned if there is one. The number of comment lines present is stored in the IREAIC field of the IMONKIT parameter list.
Additional comment lines can be read by calling the SIIRCOM function again. The return code “EOF reached in SYSSII file” is returned once the last comment line has been read.
Read old dependencies (FUNCT=*SIIRDEP)
The function SIIRDEP sequentially reads the old dependencies existing for a release unit.
The SYSSII file must be opened. Each call returns dependency information in the output area. The information consists of two strings in a row that are separated by the delimiter character set earlier. The first string is up to 16 characters long and contains the name of the release unit to which there is a old dependency. The second string contains the version of the release unit.
The number of old dependencies present is stored in the IREAODEP field of the IMONKIT parameter list. The return code “EOF reached in SYSSII file” is returned once the last dependency has been read.
Read new dependencies (FUNCT=*SIIRKON)
The function SIIRKON sequentially reads the new dependencies existing for a release unit.
The SYSSII file must be opened. Each call returns dependency information in the output area. The information consists of two strings in a row that are separated by the delimiter character set earlier. The first string is up to 16 characters long and contains the name of the release unit to which there is a new dependency. The second string contains the version of the release unit.
The number of new dependencies present is stored in the IREADEP field of the IMONKIT parameter list. The return code “EOF reached in SYSSII file” is returned once the last dependency has been read.
Read parameter text (FUNCT=*SIIRPAR)
The function SIIRPAR sequentially reads parameter text that contains installation parameters for a release item. The SYSSII file must be open and the information on a release item must have been read during the last call of the IMOKIA macro (FUNCT=*SIIREAD). If there is parameter text for this release item, then the first call returns the first line (up to a maximum of 71 characters). The number of parameter text lines present is stored in the IREAPAR field of the IMONKIT parameter list. The return code “EOF reached in SYSSII file” is returned once the last line has been read.
Macro return code
(SC2) | SC1 | Maincode | Meaning |
| X’00’ | X’00’ | X’0000’ | Function successfully executed |
| X’00’ | X’03’ | X’0002’ | Invalid parameter list |
| X’00’ | X’01’ | X’0003’ | Output area too small (LENGTH parameter) |
| X’00’ | X’01’ | X’0007’ | Function (FUNCT parameter) invalid |
| X’00’ | X’40’ | X’0016’ | SYSSII file not open |
| X’00’ | X’40’ | X’001E’ | EOF reached in SYSSII file |
| X’00’ | X’20’ | X’0100’ | System error |
| X’00’ | X’20’ | X’0101’ | Internal error |