IBM OS/390 User Manual

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)

′

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.

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