Filter
Top Products
12.4.2 ENVIRONMENT DIVISION
12.4.2.1 CONFIGURATION SECTION - SPECIAL-NAMES Paragraph
UPSI Switch Processing
In DOS/VS COBOL and COBOL for OS/390 and VM, program switches can be
tested by use of a one-byte switch in the SPECIAL-NAMES paragraph, specified
as
UPSI-0 through UPSI-7.
In VSE, the setting of these program switches at execution time is achieved by
the
// UPSI job control statement.
In OS/390 the
// UPSI job control statement is not available. Passing information
at execution time is achieved by the PARM field of the EXEC statement.
You set your program switches at execution time by using
PARM=′/UPSI(nnnnnnnn)′ on your OS/390 EXEC statement.
The following example shows an implementation of program switch processing
using COBOL for OS/390 and VM in OS/390.
SPECIAL-NAMES.
SYSIN is ACCEPT-SYSIN
UPSI-0 IS CBL232B ON STATUS IS CBL232-BASE
UPSI-1 IS CBL232C ON STATUS IS CBL232-CURRENT.
//TEST EXEC PGM=PROG1,PARM=′/UPSI(10000000)′
12.4.2.2 INPUT-OUTPUT SECTION - I-O-CONTROL
MULTIPLE-FILE Clause (Tapes)
In DOS/VS COBOL this clause allows the specification of the relative positions of
files on a multi-file unlabeled tape volume. In COBOL for OS/390 and VM it is
syntax checked but has no effect on the execution of the program. The function
is performed by the system through the
LABEL parameter of the DD job control
statement.
APPLY Clauses
In DOS/VS COBOL, there are seven formats for the APPLY clause:
APPLY WRITE-ONLY
APPLY EXTENDED-SEARCH
APPLY WRITE-VERIFY
APPLY CYL-OVERFLOW
APPLY MASTER-INDEX
APPLY CYL-INDEX
APPLY CORE-INDEX
In COBOL for OS/390 and VM only
APPLY WRITE-ONLY is available. However the
restrictions that applied to
APPLY WRITE-ONLY in DOS/VS COBOL do not apply in
COBOL for OS/390 and VM.
Chapter 12. COBOL 255