JPH0334029A - Designating system for input/output of index - Google Patents

Abstract

PURPOSE:To obtain a simple and multi-functional user program by deciding whether a specific designator is included in an index READ sentence of FORTRAN or not and then decided whether a read key is included in another record or not when the designator is included in the index READ sentence. CONSTITUTION:When a READ sentence of a FORTRAN program exists, a single record is inputted. Then it is decided whether a CONTKEY designator is designated in the READ sentence or not. If so, the following record is read. Then it is decided whether a key equal to that read previously exists or not. Thus it is possible to obtain an index input/output designating system where a simple and multi-functional user program is obtained.

Description

[Detailed Description of the Invention] [Summary] Regarding an index input/output specification method for high-level language input/output processing, the present invention aims to provide an index input/output specification method that allows user programs to be simple and multifunctional. / Determine whether a specifier that instructs to determine whether the key read by accessing a file in which keys are provided in code units exists in another record exists in the FORTRAN index READ statement, and It is configured to determine whether the key read when the specifier exists exists in another record.

[Industrial application field]

The present invention relates to a computer system that executes a high-level language such as FORTRAN, and more particularly to a method for specifying index input/output for performing high-level language input/output processing.

[Conventional technology]

In recent years, with the diversification of computer systems, there has been a demand for processing programs with multiple functions.

In particular, how is it processed in high-level languages? ! There is a demand for interpreters and compilers that can perform even complex processing through programs. However, FORTRAN interpreters and compilers cannot process data where the same key exists in multiple records. For example, after specifying a file with the 0PEN statement, specifying the key field and access, and then opening it, when reading the key specified with the READ statement, determine whether the read key exists in another record or not. I couldn't do that.

[Problems to be Solved by the Invention] Therefore, there has been a problem in that, for example, when the same key exists across multiple records, the desired process cannot be performed.

In the past, in order to avoid such problems, a check was made manually to ensure that the same key did not exist in other records. However, this check is done manually, and there is a problem in that it takes a lot of time.

The object of the present invention is to provide a method for specifying index input/output that allows a user program to be simple and multifunctional.

[Means and actions for solving problems] FORTRA
In the N language, a specifier is provided in a READ statement to instruct whether or not a key read by accessing a file in which keys are provided for each record exists in another record. For example, when a user program is executed using an interpreter, a specifier is included in the READ statement that instructs whether or not the key read by accessing the file in which the keys are provided for each record described above exists in another record. If so, it is determined and the result is passed to the user program. Also, if it is a compiler, it will determine whether the specifier exists or not, and if it does, it will generate a processing program that determines whether the read key exists in another record and add it to the object program. . In the object program obtained by this compiler, after executing the process corresponding to the READ statement and reading one record, it also reads the following record and determines whether the key that exists in the previous record exists in the following record. Processing to determine this is included. The specifier may be a simple designation such as C0NTKEY, and consecutive keys in index input/output can be determined by the simple specifier.

〔Example〕

Hereinafter, the present invention will be explained in detail using the drawings.

FIG. 1 shows READ in the compiler of the embodiment of the present invention.
Statement processing flowchart, FIG. 2 is a system diagram of an embodiment of the present invention.

The READ statement of the FORTRAN program in Figure 2 (READ (10, C0NTKEY=C[lNT, ,
, ) ) exists, one record is input by, for example, VSAM access processing (SL). This process (S1) is a process of reading one record in a READ statement, and although it is not shown in FIG. 2, storage in, for example, a key variable is performed by this process. After the basic READ statement execution processing (S1), it is determined whether or not the C0NTKEY specifier is specified in this READ statement (S2). If the C0NTKEY specifier does not exist in the determination (S2) (No), the execution of the READ statement is ended (END). On the other hand, when it is determined in the determination (S2) that the key exists (YES), the subsequent record is read and it is determined whether the same key as the previously read key exists (S3). In an embodiment of the invention, FOR
Determine whether there is a match in the TRAN library,
If they match, the macro detail code is set to X'08''. Therefore, in process S3, the macro detail code is set to X'0.
8'. For example, this macro detail code is a code of a processing program for C0NTKEY specification.

Determine this code and if it is X″08’ (YES), return a true value to the C0NTKEY specifier (S4)
. If it is not X"08", a false value is returned to the C○NTKEY specifier (S5).

Then, the processing in the RE AD statement ends. Although the above embodiment has been explained using a compiler, the present invention is not limited to this, and the same applies to an interpreter.

Furthermore, although the first embodiment has been described using a compiler, the present invention is not limited to this. For example, as shown in Figure 2,
When a FORTRAN program is compiled and an object program is created, the C0NTKEY specifier that exists in the READ statement is determined in advance during compilation, and if the C0NTKEY specifier exists, the process corresponding to the C0NTKEY specifier is executed in the object program. Insert or combine with processing for the C0NTKEY specifier in the FORTRAN library.

Note that this combination refers to the object program and the FOR
This is a link with the C0NTKEY specifier in the TRAN library.

FIG. 3 is a program example diagram of an embodiment of the present invention, and FIG. 4 is a flowchart of the embodiment of the present invention.

BKE with character (CHARACTER) in advance
YI is 2 character data, AKEYl is 4 character data,
Specify that DATAI is 10 character data, and that it is 4 digits by LOGICAL. Then, use the OPEN statement (
OPEN(10,FILE='A,DATA',
KEYFIELD= (1:2.3:6), ACC
ESS='KEYFD' )) to open and make it accessible (S7) Note that the KE in the OPEN statement
YF I ELD indicates a key field within each record, and ACCESS specifies the type of access. Since the file has been opened with this OPEN statement, the READ statement (REA
D(10°FMT=' (2A, 4A, A) ',
KEY='C00O', KEYID=2. C0N
TKEY=CONT) BKEYI, AKEYI, DAT
AI) is executed (S8).

In this execution, the C0NTKEY specifier instructs to store the result in C0NT, so this RE
When the AD statement is executed, the next record is also read, and if the same key exists, a true value is added to the variable C0NTKEY, and if it does not exist, a false value is added to the variable C0NTKEY, and the process ends.

In the user program, the process must be changed depending on whether or not they are the same, so next, use the IF statement (IF THEN ELSE) to change the variable C0.
Determine whether NT is TRUE (S9), T
If it is RUE (YES), jump to statement number 100 with GOTO100 statement, and if it is not TRUE (No), jump to statement number 200 with GOTO200.
Jump to.

In Figure 3, addresses 100 and 200 are both C
0NT I NUE statement, but this CoNTINUE
Although not shown in the text, the corresponding processes are programmed.

For example, if the data structure in Figure 5 is read by the above operation, the key between record (3) and record (5) is the same as C001, and if executed with the READ statement in Figure 3, record (3) When read by the READ statement, it becomes true (TRUE) and execution starts from address 100.

Although the processing in the user program has been explained in FIGS. 3 and 4, in the embodiment of the present invention, the interpreter determines whether C0NTKEY exists in the READ statement, reads the following record when it exists, and reads the record if the same key exists. This is to determine whether the Also, if it is a compiler, C0N is written in the READ statement only at compile time.
Determines whether the TKEY specifier exists, and only when it does exist, reads the next record.Processing program for the C0NTKEY specification.Inserts into the object program a process that determines whether the read keys match or not. It is. Then, in the object program obtained by the compiler, processing for reading one record of the file in input/output corresponding to one REA and D statement, processing for reading the second record of the following record, and processing for determining the read key are inserted. be done.

The embodiments of the present invention have been described above with respect to an interpreter and a compiler, but the invention is not limited to this. If the same key exists, the following record is also read using a specific specifier, and the keys in the read record and the previously read record are compared. However, it is not limited to this.

[Effects of the Invention] As described above, according to the present invention, complex processing can be performed by simple key designation, and program development is simplified. Furthermore, since the program is simplified, the creation time and even debugging time can be shortened.

[Brief explanation of drawings]

Fig. 1 is a processing flowchart of an embodiment of the present invention, Fig. 2 is a system diagram of an embodiment of the present invention, Fig. 3 is a program example diagram of an embodiment of the present invention, and Fig. 4 is a diagram of an example of a program of an embodiment of the present invention. The flowchart and FIG. 5 are data configuration diagrams.

Claims (1)

[Claims] 1) A specifier that instructs to determine whether or not a key read by accessing a file in which keys are provided for each record exists in another record is a FORTRAN index RE.
An index input/output designation method characterized by determining whether a key exists in an AD sentence and determining whether a key read when the specifier exists exists in another record. 2) The specifier that instructs to determine whether the key read by accessing a file in which keys are provided for each record exists in other records is the FORTRAN index RE.
An index input/output specification method characterized by determining whether a key exists in an AD sentence and determining whether a read key exists in another record when the specifier exists. . 3) When one record is read by executing the process corresponding to the READ statement, the next record is also read to determine whether the key that exists in the one record exists in the next record. Index input/output specification method.