Changes some of the attributes of a program, mapset, or table.

Sintaxe:

SET PROGRAM
 
>>-SET PROGRAM(data-value)--+------------------+---------------->
                            '-CEDFSTATUS(cvda)-'
 
>--+------------+--+--------------------+--+---------+---------->
   '-COPY(cvda)-'  '-EXECUTIONSET(cvda)-'  '-NEWCOPY-'
 
>--+---------------+--+-------------------+--+--------------+--->
   '-PROGRAM(name)-'  '-SHARESTATUS(cvda)-'  '-STATUS(cvda)-'
 
>--+---------------+-------------------------------------------><
   '-VERSION(cvda)-'
 
 

For more information about the use of CICS-value data areas (CVDAs), see Appendix F, CVDAs recognized by the translator.

Descrição:

The SET PROGRAM command changes some of the attributes of a program, mapset, or table.

Opções:

CEDFSTATUS(cvda) (programs only)
• Returns a CVDA value that indicates what action the execution diagnostic facility (EDF) is to take if a program is executed under EDF.
• The CVDA values are:
  • CEDF
    • The EDF diagnostic screens are to be displayed.
    • If the program was translated with the EDF option, all EDF screens are displayed; if it was translated with the NOEDF option, no EDF screens are displayed.
  • NOCEDF
    • No EDF screens are displayed.
• You cannot specify CEDFSTATUS for a remote program.

COPY(cvda)
• Returns a CVDA value that indicates that CICS must unload the current program version and load a new copy of the program.
• The CVDA values are:
  • NEWCOPY (CICS on Open Systems)
    • Used to force a program that is cached by an application server to be reloaded.
    • It has no effect on a program that is not cached.
    • Whether a program is to be cached is determined by the value of the Program Definitions (PD) Resident attribute.
    • A program is given a fresh copy of static data only when it is loaded.
    • Therefore, if a program modifies static data, the Resident attribute must be set to no.

    • The COPY(NEWCOPY) command marks a mapset or table as nonresident.
    • CICS obtains a new copy of the mapset or table when it is subsequently referenced by a LOAD, SEND MAP, or RECEIVE MAP command.
    • The system administrator must copy the new version of a mapset over the old one before issuing the EXEC CICS SET PROGRAM COPY(NEWCOPY) command.
    • This can be done regardless of the number of current users of the mapset.

    • C, C++, PL/I, and IBM COBOL programs are cached within the CICS application server.
    • The COPY(NEWCOPY) command removes a program from the cache (as soon as it is not being used), and the new copy is loaded the next time the program is run.

    • Micro Focus Server Express COBOL programs can be cached by the Micro Focus runtime, which is controlled by the value of the COBSW environment variable.
    • An individual Micro Focus Server Express COBOL program cannot be removed from this cache.
    • Therefore, the issue of a COPY(NEWCOPY) command for a Micro Focus Server Express COBOL program has the following effect: when none of the programs that are in that cache are in use, they are all unloaded and new copies are loaded when the programs are reused.

    • ACUCOBOL-GT^(R) programs can be cached by the ACUCOBOL-GT runtime, controlled by the value of the Program Definition (PD) stanza attribute Resident.
    • You cannot remove an individual program from this cache.
    • Therefore, issuing a COPY(NEWCOPY) command for an ACUCOBOL-GT program has the following effect: when none of the programs in that cache are in use, they are all unloaded, and new copies are loaded as the programs are reused.

    • You can use the ACUCOBOL-GT environment variable DYNAMIC_MEMORY_LIMIT to control the program caching behavior.

    • Java programs can be cached by the Java runtime controlled by the Java Virtual Machine (JVM). COPY(NEWCOPY) has no effect on Java programs.

    • Programs are cached on individual application servers, so a new copy of a program has no effect on an application server if that server has not run the program before.
    • You cannot specify COPY(NEWCOPY) for remote programs.
  • NEWCOPY (CICS for Windows)
    • Used to force a mapset or table to reload. CICS obtains a new copy of the mapset or table when it is subsequently referenced by a LOAD, SENDMAP, or RECEIVE MAP command.
    • The system administrator must copy the new version of a mapset over the old one before issuing the EXEC CICS SET PROGRAM COPY(NEWCOPY) command.
    • This can be done regardless of the number of current users of the mapset.

    • C, C++, IBM COBOL, or PL/I programs can be cached by CICS, but COPY(NEWCOPY) has no effect on them because Windows systems do not allow a file on disk containing a program to be removed or overwritten if a copy of the program is in the cache.
    • As a result, new copies of these programs can be used only if they are not cached.

    • Micro Focus Net Express COBOL programs can be cached by the Micro Focus runtime, controlled by the value of the COBSW environment variable.
    • An individual Micro Focus Net Express COBOL program cannot be removed from this cache.
    • Therefore, issuing a COPY(NEWCOPY) command for a Net Express program has the following effect: when none of the programs in that cache are in use, they are all unloaded and new copies are loaded when the programs are reused.

    • Java programs can be cached by the Java runtime controlled by the Java Virtual Machine (JVM).
    • COPY(NEWCOPY) has no effect on Java programs.
    • You cannot specify COPY(NEWCOPY) for remote programs.
• The COPY option cannot be specified for a remote program or for any module that is currently loaded with the HOLD option.

EXECUTIONSET(cvda) (programs only)
• Returns a CVDA value that indicates whether the program is to be restricted to executing the distributed program link (DPL) subset of the CICS API.
• The CVDA values are:
  • DPLSUBSET
    • The program is always to be restricted.
  • FULLAPI
    • The program is not to be restricted unless invoked remotely.
• This option is checked for validity, but otherwise, is ignored.

NEWCOPY
• Provides the same capabilities as the SET PROGRAM COPY(NEWCOPY) option does.
• Refer to the SET PROGRAM COPY(NEWCOPY) option for a description of the option effects.

PROGRAM(name)
• Specifies the name of the program, mapset, or table as defined in the Program Definitions (PD).
• The name can be up to eight characters long.

SHARESTATUS(cvda)
• Returns a CVDA value that indicates where CICS should obtain the module the next time a new copy is required.
• A new copy request can result from either an explicit request (SET PROGRAM COPY(NEWCOPY) or the CEMT equivalent) or from a command that requires the module that is issued when CICS does not currently have a copy.
• The CVDA values are PRIVATE and SHARED.
• You cannot specify the SHARESTATUS option for a remote program.
• This option is checked for validity, but otherwise is ignored.

STATUS(cvda)
• Returns a CVDA value that indicates whether the program is to be available for use.
• The CVDA values are ENABLED and DISABLED.

VERSION(cvda)
• Returns a CVDA value that indicates whether the copy CICS located for a COPY option request is different from the current copy.
• The CVDA values are:
  • NEWCOPY
    • The new copy is different. This value is always returned.
  • OLDCOPY
    • The new copy is not different.

Condições:

ERROR
• occurs if the named program, mapset, or table does not exist.
• On Windows, this condition can also occur if more than one program with the same name but different suffix can be found by the defined path specified in the Program Definitions (PD) PathName attribute.
• Ação pré-definida: Terminates the task abnormally.

INVREQ
• RESP2 values:
  • DISABLED or DPLSUBSET was specified for a CICS program (RESP2=1).
  • STATUS has an invalid CVDA value (RESP2=2).
  • NEWCOPY was specified and RESCOUNT is not equal to 0 (RESP2=3).
  • SHARESTATUS has an invalid CVDA value (RESP2=4).
  • COPY has an invalid CVDA value (RESP2=5).
  • COPY was specified for a module currently loaded with the HOLD option (RESP2=6).
  • CEDFSTATUS has an invalid CVDA value (RESP2=9).
  • CEDFSTATUS, COPY, EXECUTIONSET, or SHARESTATUS was specified for a remoteprogram (RESP2=17).
  • EXECUTIONSET has an invalid CVDA value (RESP2=20).
• Ação pré-definida: Terminates the task abnormally.

NOTAUTH
• occurs if a resource security check has failed on PROGRAM(name).
• Ação pré-definida: Terminates the task abnormally.

PGMIDERR
• RESP2 values:
  • The program cannot be found (RESP2=7).
• Ação pré-definida: Terminates the task abnormally.