   C I C S I N F O  -  Platform: MVS/CICS


   This program obtain some generic informations from CICS.


   In this distribution file (CICSSDSP.ZIP) there is:

CICSINFO.OBJ             executable for MVS/CICS mainframe, in obj form
CICSINFO.HIL             Hilmas source of this program
README.TXT               this help file 
LINKEDIT.JCL             job example to install CICSINFO


OBJ installation:

- Create in MVS a sequential file, for example 'MYUSER.PROGRAM.OBJ'
  with RECFM=FB and LRECL=80, for example of 1 cylinder.

- SEND obj module from PC to MVS in this file in BINARY form, with your 
  3270 emulation; the most important thing is a binary transfer (therefore 
  without ASCII CRLF) in a file with record length of 80 bytes.
  Use this PC command (in a PC with IBM/PCOMM 4.1 3270 emulation installed):

     SEND CICSINFO.OBJ 'MYUSER.PROGRAM.OBJ'

- Prepare a Job to Linkedit transferred obj in a load library visible by
  CICS: use LINKEDIT.JCL as example: fit this JCL to your needs changing 
  library names

- Submit linkedit job to create load module; output library must be a
  load library used by CICS address space.

- Complete installation defining program and transid in PPT and PCT CICS
  tables: 

PPT :
         DFHPPT   TYPE=ENTRY,PROGRAM=CICSINFO,RSL=PUBLIC

PCT :
         DFHPCT   TYPE=ENTRY,
               TRANSID=INFO,PROGRAM=CICSINFO,RSL=PUBLIC

  Put similar parameter if use CEDA interactive CICS management transaction.
  The only important thing is define the language as Assembler (that
is the default in traditional tables, but not in CEDA).


Program instruction:

  CICSINFO request to CICS some informations.

  Write in your CICS session, in an empty screen:

    info

  and will obtain this screen (for example):

 Request of informations from CICS.                                          
                                                                              
 CICS:      ApplId = CSCOLLBC SysId = BTER                                    
 Operator:  UserId = CRPROUA  OpClass = ...- OpId =    - OperKeys = ........  
 Transac.:  StartCode = TD  Facility = TN73  Restart = NO  SigData =          
 Terminal:  24 x 80  Color = Y   Hilight = Y   Field Outline = NO             
            Extended Data Stream = Y  Background Transp. = NO Validation = NO 
            Programmed Symbols = NO  TermCode = j2  Unattended = NO           
 Internals: CWA Lenght =  2048    TCTUA Lenght =  255     TWA Lenght =   0    
                                                                              
