CEMT INQUIRE PROGRAM
┌┐─ALl──────────
─ ──CEMT Inquire PROGram ──┼ ┼────────────── ────
├┤──(value) ─────
└┘──CLass(value)
─ ──┬ ┬─────────────── ──┬ ┬──────────── ──────────
└┘──LENgth(value)├ ┤─PLi────────
├┤─CObol──────
├┤─C──────────
├┤─LE37──────
├┤─ASsembler──
├┤─NOTDEfined─
| └┘─JAVA───────
─ ──┬ ┬────────────── ──┬ ┬────────── ─────────────
├ ┤─PROgram────── ├ ┤─Enabled──
├ ┤─Mapset─────── └ ┘─DIsabled─
└ ┘─PArtitionset─
┌ ┐─PRIvate─
─ ──┼ ┼───────── ──┬ ┬───────────── ──┬ ┬──────── ───
└ ┘─Shared── ├ ┤─REQuired──── ├ ┤─CEDf───
└┘─NOTRequired─ └ ┘─NOCedf─
─ ──┬ ┬──────────── ──┬ ┬───────────────── ────────
| ├┤─DYnamic──── └ ┘──REScount(value)
| └ ┘─NOTDYnamic─
─ ──┬ ┬───────────────── ──┬ ┬─────── ─────────────
└┘──USecount(value)├ ┤─ANy───
└┘─Below─
─ ──┬ ┬────────── ──┬ ┬─────────── ────────────────
├ ┤─CEXeckey─ ├ ┤─DPlsubset─
└ ┘─UExeckey─ └ ┘─Fullapi───
─ ──┬ ┬──────────── ──┬ ┬───────────────────── ────
| ├┤─Quasirent── └ ┘──REMotesystem(value)
| └ ┘─Threadsafe─
─ ──┬ ┬────────── ──┬ ┬───────── ──────────────────
| ├ ┤─JVM────── ├ ┤─DEBug───
| ├ ┤─LE37──── └ ┘─NODebug─
| ├ ┤─NONLE37─
| └ ┘─UNKNOWN──
─ ──┬ ┬───────────────── ─
| └┘──JVMClass(value)
(
value
)
is a program identifier (1–8 characters), which is the
name of a specific program entry in the table of installed
program definitions. If you omit the program name, the
ALL option is assumed by default.
You cannot specify the CLASS option and a program
name.
ALl
is the default.
CLass(
value
)
is the 2-character suffix of a program list table (PLT).
Use this option to inquire on those programs defined in
the specified PLT. Note that, unlike a shutdown PLT, it is
not mandatory to define a program definition for a
startup PLT. However, if you want to use the CLASS
option, you must define and install a program resource
definition for the PLT specified by “clasid”.
If the clasid specified is the suffix of a PLT that does not
have a program definition, the INQUIRE PROGRAM
CLASS(clasid) command returns a ‘CLASS NOT
FOUND’ message.
Sample screen
IN PROG
STATUS: RESULTS - OVERTYPE TO MODIFY
Prog(CNCLTASK) Len() Cob Pro Ena Pri Ced
Res() Use() Bel Uex Ful
Prog(DFH$AALL) Len(2936) Ass Pro Ena Pri Ced
Res() Use() Bel Uex Ful
Prog(DFH$ABRW) Len(252) Ass Pro Ena Pri Ced
Res() Use(1) Bel Uex Ful
Prog(DFH$ACOM) Len(1128) Ass Pro Ena Pri Ced
Res() Use() Bel Uex Ful
Prog(DFH$AGA ) Len(52) Map Ena Pri
Res() Use(2)
Prog(DFH$AGB ) Len(448) Map Ena Pri
Res() Use()
Prog(DFH$AGC ) Len(512) Map Ena Pri
Res() Use()
Prog(DFH$AGD ) Len(576) Map Ena Pri
Res() Use()
+ Prog(DFH$AGK ) Len(392) Map Ena Pri
Res() Use()
Figure 98. CEMT INQUIRE PROGRAM screen
Note: There are blank fields on the screen where a value
does not apply or is ‘negative’; that is, the value
begins with ‘No’. To modify these fields, locate them
by tabbing (they appear in the same sequence as in
the expanded format), and overtype with input valid
for that field. You may find it more convenient to use
the expanded format when setting one of these
values, (negating is easier because you are
overtyping a displayed field with its negative causing
the result to become non-displayed).
If you place the cursor against a specific entry in the list and
press ENTER, CICS displays an expanded format as shown
in Figure 99 and Figure 100.
IN PROG
RESULT - OVERTYPE TO MODIFY
Program(DFH$AALL)
Length(2936)
Language(Assembler)
Progtype(Program)
Status( Enabled )
Sharestatus( Private )
Copystatus( Notrequired )
Cedfstatus( Cedf )
| Dynamstatus(Notdynamic)
Rescount()
Usecount()
Dataloc(Below)
Execkey(Uexeckey)
Executionset( Fullapi )
| Concurrency(Threadsafe)
Remotesystem()
| Runtime( Le37 )
| Jvmdebug( Nodebug )
Figure 99. The expanded display of an individual entry (first panel)
|
|
| IN PROG
| RESULT - OVERTYPE TO MODIFY
| Program(DFH$AALL)
| Jvmdebug( Nodebug )
| Jvmclass( )
| Jvmclass( )
| Jvmclass( )
| Jvmclass( )
| Jvmclass( )
|
Figure 100. The expanded display of an individual entry (second
|
panel)
106 CICS Supplied Transactions