SET

General Format

Format 1

SET { index-name-1 } ... TO { arithmetic-expression-1 }     { identifier-1 }        { index-name-2            }                             { identifier-2            }

Format 2

SET { index-name-3 } ... {UP  } BY arithmetic-expression-3                          {DOWN}

Format 3

SET { { mnemonic-name-1 } ... TO {ON } } ...                                  {OFF}

Format 4

SET { { condition-name } ... TO {TRUE } } ...                                 {FALSE}

Format 5

SET FILE-PREFIX TO File-Prefix

Format 6

SET {CONFIGURATION} { Env-Name TO Env-Value } ...     {ENVIRONMENT  }

Format 7

Supported when the -cp compiler option is not used

SET Identifier-5 TO { HANDLE OF Identifier-6}                     { NULL                  }

Supported only under -cp compiler option

SET Identifier-5 TO { ADDRESS OF Identifier-6}                     { NULL                   }

Format 8

SET Result-Item TO SIZE OF Data-Item

Format 9

Supported when the -cp compiler option is not used

SET HANDLE OF Linkage-Item TO { Pointer              }                               { ADDRESS OF Data-Item }

Supported only under -cp compiler option

SET ADDRESS OF Linkage-Item TO { Pointer              }                                { ADDRESS OF Data-Item }

Format 10

SET {INPUT       } WINDOW TO Window-1     {INPUT-OUTPUT}     {I-O         }     {OUTPUT      }

Format 11

SET { Handle-1 } ... TO HANDLE OF {Screen-1 }                                   {CONTROL ID id-1 }

Format 12

SET THREAD Thread-id PRIORITY TO Priority

Format 13

SET EXCEPTION {VALUE } { Exc-Value TO {CUT-SELECTION       } } ...               {VALUES}                {COPY-SELECTION      }                                       {PASTE-SELECTION     }                                       {DELETE-SELECTION    }                                       {UNDO                }                                       {REDO                }                                       {SELECT-ALL-SELECTION}                                       {ITEM-HELP           }

Format 14

SET Result-Item TO { Class:>method ( [parameters] ) }                      ObjRef:>method ( [parameters] )                      SELF:>method ( [parameters] )                      SUPER:>method ( [parameters] )                      SELF

Syntax rules

Format 1

1.	Identifier-1 shall reference a data item of class index or an integer data item.

2.	Identifier-2 shall reference a data item of class index.

3.	If identifier-1 references a data item of class index, arithmetic-expression-1 shall not be specified.

4.	If identifier-1 references a numeric data item, index-name-2 shall be specified.

5.	Result-Item shall reference a data item

6.	Class shall reference a class described in the REPOSITORY paragraph.

7.	ObjRef shall reference a data item of type OBJECT REFERENCE Class.

Format 3

8.	Mnemonic-name-1 shall be associated with an external switch, the status of which may be altered.

Format 4

9.	Condition-name-1 shall be associated with a conditional variable.

10.	If the FALSE phrase is specified, the FALSE phrase shall be specified in the VALUE clause of the data description entry for condition-name-1.

Format 5

11.	File-prefix references a nonnumeric literal or alphanumeric data item.

Format 6

12.	Env-name references a nonnumeric literal or data item.

13.	Env-value references a USAGE DISPLAY numeric or nonnumeric literal or data item. If numeric, it must be an integer

14.	CONFIGURATION and ENVIRONMENT are synonymous.

Format 7

15.	Identifier-5 shall reference a data item of category data-pointer. Identifier-6 shall be of category data-pointer.

16.	Data-name-1 shall be a based data item.

17.

If identifier-5 references a restricted data-pointer, identifier-6 shall be the predefined address NULL or shall reference a data-pointer restricted to the same type. If data-name-1 is a strongly-typed group item or a restricted pointer, identifier-6 shall reference a data-pointer restricted to the type of data-name-1.

 

If identifier-6 references a restricted data-pointer, either identifier-5 shall reference a data-pointer restricted to the same type or data-name-1 shall be a typed item of the type to which identifier-6 is restricted.

Format 8

18.	Result-item must be a numeric data item

Format 9

19.	Linkage-item must be declared in the Linkage section.

20.	Pointer must be a data item with USAGE POINTER.

Format 10

21.	Window-1 is a USAGE HANDLE or PIC X(10) data item that refers to a floating window or the main application window

Format 11

22.	Handle-1 is a USAGE HANDLE data item.

23.	Screen-1 must refer to an elementary Screen Section item that describes a graphical control.

24.	Id-1 references a numeric literal or data item.

Format 12

25.	Thread-id references a USAGE HANDLE or HANDLE OF THREAD data item.

26.	Priority references a numeric literal or data item.

Format 13

27.	Exc-value references an integer literal or data item.

28.	VALUE and VALUES are synonymous.

General rules

Formats 1 and 2

1.	Index-names are associated with a given table by being specified in the INDEXED BY phrase of the OCCURS clause for that table.

Format 1

2.

The following occurs for each recurrence of index-name-1 or identifier-1. Each time, the value of the sending operand is used as it was at the beginning of the execution of the statement. Item identification of the data item referenced by identifier-1 is done immediately before the value of that data item is changed:

A.	If index-name-1 is specified:

i.	If arithmetic-expression-1 is specified, a subscript is determined by evaluating arithmetic-expression-1.

ii.	If identifier-2 is specified, the content of the data item referenced by identifier-2 is placed in the index referenced by index-name-1 unchanged.

iii.	If index-name-2 is specified:

a.	If index-name-2 is associated with the same table as index-name-1, the content of the index referenced by index-name-2 is placed in the index referenced by index-name-1 unchanged.

b.	Otherwise, index-name-1 is set to a value causing it to refer to the table element that corresponds in occurrence number to the table element associated with index-name-2.

C.	If identifier-1 references an index data item, the content of index-name-2 or of the data item referenced by identifier-2 is placed in the index referenced by index-name-1 unchanged.

D.	If identifier-1 references a numeric data item, that item is set to the occurrence number of the table element referenced by index-name-2.

Format 2

3.	The following occurs for each recurrence of index-name-3. Each time, the value of arithmetic-expression-2 is used as it was at the beginning of the execution of the statement:

A.	If arithmetic-expression-2 does not evaluate to an integer, the execution of the SET statement is unsuccessful, and the content of the receiving operand is unchanged.

B.

If the occurrence number represented by the content of index-name-3 incremented (UP BY) or decremented (DOWN BY) the result of the evaluation of arithmetic-expression-2 is a valid subscript for the table associated with index-name-3, index-name-3 is set to a value causing it to refer to the table element that corresponds in occurrence number to that subscript; otherwise, the execution of the SET statement is unsuccessful, and the content of the receiving operand is unchanged.

Format 3

4.	The status of each external switch associated with the specified mnemonic-name-1 is modified such that the truth value resultant from evaluation of a condition-name associated with that switch will reflect an on status if the ON phrase is specified, or an off status if the OFF phrase is specified.

Format 4

5.

If the TRUE phrase is specified, the literal in the VALUE clause associated with condition-name-1 is placed in the conditional variable according to the rules for the VALUE clause. If the length of the conditional variable is zero, the SET statement leaves it unchanged. If more than one literal is specified in the VALUE clause, the conditional variable is set to the value of the first literal that appears in the VALUE clause.

6.	If the FALSE phrase is specified, the literal in the FALSE phrase of the VALUE clause associated with condition-name-1 is placed in the conditional variable according to the rules for the VALUE clause. If the length of the conditional variable is zero, the SET statement leaves it unchanged.

7.	If multiple condition-names are specified, the results are the same as if a separate SET statement had been written for each condition-name-1 in the same order as specified in the SET statement.

Format 5

8.

FILE_PREFIX is an isCOBOL Framework Property used to list the paths in which to search for data files. Paths must be separated by the “\n” character sequence or by the current operating system path separator. The prefix “iscobol” will be automatically added by the Runtime. FILE_PREFIX is supported for backward compatibility.

9.	A Format 5 SET statement is equivalent to this Format 6 SET statement:

 

SET ENVIRONMENT "FILE-PREFIX" TO file-prefix

Format 6

10.

The Runtime Framework can be customized with the use of properties. Most of them are initially set to a default value. If a property does not have a default value or is not set, it is ignored. If the property is boolean you can use a value of '1', 'true', 'yes', or 'on' to set it to true. Any other value will set it to false. Refer to Configuration for general information about setting runtime properties

11.	The Format 6 SET statement can be used to modify these values at Runtime.

12.

Env-name is the name of the Runtime Framework property variable to set. In it, lower-case characters are treated as upper case, and underscores are treated as hyphens. The first space character delimits the name. Env-name may specify either the literal name of the variable or a data-item whose value is the name of the variable. If you specify the actual name of the variable, then it must be enclosed the name in quotes. Env-value is the value to set the Framework property to.If it is a numeric data item, then the numeric value is stored, unless the program was compiled with -cdlz option, in such case the memory content is stored.

Format 7

13.	If identifier-5 is specified, the address identified by identifier-6 is stored in each data item referenced by identifier-5 in the order specified. Item identification of the data item referenced by identifier-5 is done immediately before the value of that data item is changed

14.	If data-name-1 is specified, the address identified by identifier-6 is assigned to each based item referenced by data-name-1 in the order specified.

15.	If the NULL option is used, then identifier-5 is set to point to no data item.

Format 8

16.	The number of standard character positions occupied by data-item is stored in result-item

Format 9

17.	If pointer is specified, then the address of the linkage-item is set to pointer. If the ADDRESS OF option is used, then the address of the linkage-item is set to the address of data-item. If the NULL option is used, then the address of the linkage-item is set to point to no data item.

18.	The linkage-item must be defined as either level 01 or 77.

19.	If the linkage-item is not listed in the PROCEDURE DIVISION USING phrase and is referenced before the SET ADDRESS OF statement, then the runtime will abort with the exception message, "java.lang.NullPointer.Exception caught ! (null) ".

Format 10

20.

Format 10 of the SET verb makes window-1 the current, or current and active window. The current window is the window to which DISPLAY statements refer. The active window is the window that is highlighted and the one to which user input is directed. Window-1 must be a handle to a valid floating window. If window-1 does not refer to a valid floating window, the SET statement has no effect.

21.	INPUT, INPUT-OUTPUT, and I-O are synonymous. They cause window-1 to become both the current and active window.

22.	OUTPUT causes window-1 to become the current window.

Format 11

23.

A Format 11 SET statement retrieves the handle to the control described by screen-1 or id-1 and stores it in handle-1. Id-1 must have a value greater than zero. If a matching control is found, handle-1 is set to the handle of that control. If no matching control is found, handle-1 is set to NULL. If more than one control has a matching ID, then handle-1 is arbitrarily set to one of those controls

Format 12

24.	A Format 12 SET statement sets the execution priority of a thread.

25.	If thread-id is specified and identifies an existing thread, then the priority being set is for this thread. Otherwise, the current thread's priority is set to priority. If thread-id does not correspond to an existing thread, then the SET statement has no effect.

26.	The thread priority can have these values:

A.	The minimum priority for a thread is "1".

B.	The maximum priority for a thread is "10”.

C.	The normal (and default) priority for a thread is "5”.

Format 13

A Format 13 SET statement associates the exception value specified in exc-value with an automated action that the Runtime can perform. Any keystroke, menu item, or control that produces the exc-value exception value will automatically cause the associated action to be performed.

The ITEM-HELP is commentary.

The following actions can be used in association with the current control, if it is an entry-field; otherwise, they have no effect.

CUT-SELECTION	Cuts the current selection to the clipboard
COPY-SELECTION	Copies the current selection to the clipboard
PASTE-SELECTION	Pastes the clipboard into the entry field at the current location (replaces any existing selection)
DELETE-SELECTION	Deletes the current selection
UNDO	Undoes the last change
REDO	Redoes the change.
SELECT-ALL-SELECTION	Selects all the text in the entry field. In a multi-line entry field, this includes the text in all lines.

Format 14

A Format 14 SET statement returns the result of a method invokation in object oriented programming.

Result-Item should be defined according to the result of the method. If the result is a string or a number, then Result-Item can be a standard COBOL data-item with picture PIC X(n) or PIC 9(n). If the result is an instance of an object, then Result-Item should be defined as OBJECT REFERENCE to that object.

SELF means the current class. It can be used in a COBOL class of type OBJECT. In a COBOL class of type FACTORY the class logical name must be used in order to reference the current class.

IDENTIFICATION DIVISION.  CLASS-ID. MY_OBJ AS "MyObj".    IDENTIFICATION DIVISION.  OBJECT.    PROCEDURE DIVISION.  IDENTIFICATION DIVISION.  METHOD-ID. TEST_SELF AS "TestSelf".  PROCEDURE DIVISION.  MAIN.      SELF:>method1().  END METHOD.    IDENTIFICATION DIVISION.  METHOD-ID. METHOD1 as "method1".  PROCEDURE DIVISION.  MAIN.      CONTINUE.  END METHOD.    END OBJECT.

IDENTIFICATION DIVISION.  CLASS-ID. MY_CLASS AS "MyClass".    IDENTIFICATION DIVISION.  FACTORY.    PROCEDURE DIVISION.  IDENTIFICATION DIVISION.  METHOD-ID. TEST_SELF AS "TestSelf".  PROCEDURE DIVISION.  MAIN.      MY_CLASS:>method1().  END METHOD.    IDENTIFICATION DIVISION.  METHOD-ID. METHOD1 as "method1".  PROCEDURE DIVISION.  MAIN.      CONTINUE.  END METHOD.    END FACTORY.

SUPER refers to the class that the current class is inheriting from, if any.

Setting Result-Item to SELF allows to retrieve the instance of the current class.

Examples

Format 1 and 2 - Set index name to specific value or increase current value

set idx-1 to 2 set idx-1 up by 4

Format 3 - Set a switch on

special-names.   switch-0 is my-switch-a   switch-1 is my-switch-b. ... procedure division. main.    set my-switch-a to on.    set my-switch-b to off.

Format 4 - Set conidition name to true/false

working-storage section. 01 customers-eof pic x.    88 is-eof   value "Y" false "N". 01 applied-discount pic x.    88 is-discounted value "Y" false "N". ... procedure division. main.   set is-eof to false.   set is-discounted to true.

Format 5 - Set the isCOBOL file.prefix runtime property

set file-prefix to "c:/mydir1/data1;c:/mydir2/data2"

Format 6 - Set a couple of isCOBOL runtime properties

set environment "file.prefix" to "c:/mydir1/data1;c:/mydir2/data2" set environment "array_check" to "1"

Format 7 - Get the pointer to the area of an alphanumeric variable (requires -cp compiler option)

set my-pointer to address of employee-name

Format 8 - Get the size of some items

working-storage section. 77 num-comp   pic s9(7) comp-5. 77 str-var    pic x any length. 77 item-size  pic 9(4). ... procedure division. main.   set item-size to size of num-comp   *> item-size value will be : 4   move "hello world" to str-var   set item-size to size of str-var   *> item-size value will be : 11

Format 9 - Set address of linkage item to address of working-storage item

working-storage section. 77 ws-par-1   pic x(10) value "no param".   linkage section. 01 par-1  pic x(10). ... procedure division using par-1. main.    set address of par-1 to address of ws-par-1    display par-1. *> Displays : no param

Format 10 - Activate different windows to display at them

working-storage section. 77 win-1  usage handle of window. 77 win-2  usage handle of window. 77 win-3  usage handle of window. ... procedure division. main.    display standard window             screen line 5 screen col 5             handle win-1    display independent window             screen line 150 screen col 500             handle win-2    display independent window             screen line 350 screen col 700             handle win-3      set i-o window win-2    display "Message to Window 2" at line 10 col 20      set i-o window win-3    display "Message to Window 3" at line 10 col 20      set i-o window win-1    display "Message to Window 1" at line 10 col 20      display message "done".

Format 11 - Sets a generic Entry-Field handle to the handle of the first field in the Screen

working-storage section.        77  generic-ef handle of entry-field.                screen section.        01  screen1.            03 screen1-ef1 entry-field line 2 col 2.            03 screen1-ef2 entry-field line 4 col 2.                    procedure division.        main.            display standard graphical window.            display screen1.            set generic-ef to handle of screen1-ef1.

Format 12 - Create a thread with the lowest priority

working-storage section.        77  th-1 handle of thread.                    procedure division.        main.            call thread "procedure1" handle th-1.            set thread th-1 priority to 1.

Format 13 - Associate the key status value 1001 to the function CUT-SELECTION

set exception value 1001 to cut-selection.

Format 14 - Invoke methods of a Java Class to get System Information

configuration section.        repository.            class Sys as "java.lang.System".          working-storage section.        77  buffer      pic x(50).          procedure division.        main.            set buffer to Sys:>getProperty("os.name")            display "Operating System: " buffer.              set buffer to Sys:>getProperty("os.arch")            display "OS Architecture: " buffer.              set buffer to Sys:>getProperty("java.version")            display "Java Version: " buffer.