CICS Tutorial

                                   About Us           Services           Courses            Case Studies             Mainframe Forum              Mainframe Jobs               Contact Us             Mainframe Connectivity


 
Complete List of Cics Commands
 

 ABend        DELAy        FREE         POP          RETRieve     SUspend       
 ACquire      DELETE       FREEMain     POSt         RETUrn       SYncpoint     
 ADD          DELETEQ      GDs          PURge        REWInd       TEst          
 ADDRess      DEQ          GET          PUSh         REWRite      TRace         
 ALlocate     DISAble      GETMain      PUT          ROute        UNlock        
 ASKtime      DISCard      GETNext      Query        RUn          UPdate        
 ASSign       DOcument     Handle       READ         SENd         Verify        
 BIf          DUmp         IGnore       READNext     SET          WAIT          
 BUild        ENAble       INquire      READPrev     SIGNOFf      WAITCics      
 CAncel       ENDBR        ISsue        READQ        SIGNON       WEb           
 CHAnge       ENDBROwse    Journal      RECeive      SPOOLClose   WRITE         
 CHEck        ENQ          LInk         RELease      SPOOLOpen    WRITEQ        
 COLlect      ENTer        LOad         REMove       SPOOLRead    Xctl          
 CONNect      EXtract      MONitor      RESET        SPOOLWrite                 
 CONVerse     FEpi         MOVe         RESETBr      START                      
 CReate       FORCe        PErform      RESUme       STARTBR                    
 DEFine       FORMattime   POInt        RESYnc       STARTBROwse 
 
Customer Information Control System (CICS) is one of the most popular Database/Data communications (DB/DC) control system.

 

There are two types of computer application systems

1. Online system : ex : Railway Reservation system

2. Batch system : ex: Reports

Online system is a system environment where many transactions run concurrently.

Batch system is a system environment where jobs run one by one in a sequence.

 

CICS supplied  Conrol programs and used defined CICS Control tables:

 

IBM Supplied CICS Control programs            User Specified CICS Control Tables

PCP (Program Control Program)                 PPT (Processing Program Table)

KCP (Task Control Program)                    PCT (Programs Control Table)

FCP (File Control Program)                    FCP (File Control Table)

SCP (Storage Control Program)                       

TCP (Terminal Control Program)                TCT (Terminal Control Table)

TDP (Transient Data Program)                  DCT (Destination Control Table)

TSP (Temporary Storage Program)               TST (Temporary Storage Table)

ICP (Interval Control Program)

SIP (System Initialization Program)           SIT (System Initialization Table)

 

Resource definitions in the CICS Control tables

1. All the programs and mapsets  (mapset is an assembler program) needs to be registered   in the PPT table and installed.

2. All the transaction identifiers (Trans ids) needs to be defined in the PCT table and should be installed.

3. Files (ESDS, KSDS, and ESDS) have to be registered in the FCT tables and they have to be installed.

4. If the programs are DB2 involved programs plan should be registered in the RCT (Resource Control Table). We have to define the plan in DB2CONN, DB2ENTRY and DB2TRAN tables.

5. All the TDQ’s needs to be defined in the DCT table

6. Recoverable TSQ’s (TSQ written in the Auxiliary memory) needs to be defined in the TST table.

Note: All the resources have to be defined in the relevant CICS Control tables and should be installed.

 

Basic Structure of COBOL-CICS application program

 

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPPGM.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
77    -------                 )
77    -------                 )
77    -------                 )
01    -------                 )
COPY DFHAID.      <====  attention identifier copy book
COPY DFHBMSCA.    <====  Basic Mapping support communication area copy book)

LINKAGE SECTION.
01 DFHCOMMAREA.
   05 ---
   05 ---

PROCEDURE DIVISION.
MAIN-RTN.
         :
         : (COBOL Statements)
         :
         EXEC CICS function
              option(argument value)
              option(argument value)
         END-EXEC. 
         :
         :
         : (COBOL Statements)
         :
         : (CICS  Commands)
         :
         GOBACK.


Basic Structure of COBOL-CICS-DB2 application program

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPPGM.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.
77    -------                 )
77    -------                 )
77    -------                 )
01    -------                 )
COPY DFHAID.       <====  attention identifier copy book
COPY DFHBMSCA.     <====  Basic Mapping support communication area copy book)

     EXEC SQL 
          INCLUDE SQLCA    <=== SQL Communication area copy book
     END-EXEC.

     EXEC SQL
          INCLUDE EMPTAB   <=== DCLGEN copy book of the sample employee table
     END-EXEC.

     EXEC SQL
          INCLUDE SALTAB   <=== DCLGEN copy book of the sample salary table
     END-EXEC.
  
LINKAGE SECTION.
01 DFHCOMMAREA.
     05 ---
     05 ---

PROCEDURE DIVISION.
MAIN-RTN.
     :
     : (COBOL Statements)
     :
     EXEC CICS function
          option(argument value)
          option(argument value)
     END-EXEC. 
     :
     :
     EXEC SQL
          INSERT INTO ...
     END-EXEC.
     :
     : (COBOL Statements)
     :
     : (CICS  Commands)
     :
     : (SQL Statements)
     :
     GOBACK.

 

******************************************************************
 
  ABEND   
                                                                     
   EXEC CICS  ABend                                                             
    < Abcode() >                                                                
    < Cancel >                                                                  
    < Nodump >   
   END-EXEC.                                                              
                                                                                
****************************************************************** 
 
  ACQUIRE                                                                       
                                                                                
 Activityid                                                                     
 Process                                                                        
 Terminal                                                                       
 
******************************************************************                                                           
 
  ACQUIRE ACTIVITYID                                                           
 
   EXEC CICS  ACquire Activityid()                                              
 
   END-EXEC.                                                             
                                                                               
******************************************************************                                                           
                   
  ACQUIRE PROCESS
                                                              
   EXEC CICS  ACquire Process()                                                
    Processtype()                                                              
   END-EXEC.                                                             
                                                                                
******************************************************************
 
  ACQUIRE TERMINAL                                                             

   EXEC CICS  ACquire Terminal()                                               
    < ( QAll | QSesslim ) < Relreq > | QNotenab | Noqueue >                    
    < USERDATA() < USERDATALen() > >                                           
   END-EXEC.                                                              
 
****************************************************************** 
 
  ADD   
                                                                       
   EXEC CICS  ADD                                                              
    Subevent()                                                                 
    Event()                                                                    
   END-EXEC.                                                             
 
******************************************************************

  ADDRESS SET                                                                  

   EXEC CICS  ADDRess Set()                                                    
    Using()                                                                    
   END-EXEC.                                                             

******************************************************************
 
  ALLOCATE                                                                     

   EXEC CICS  ALlocate                                                         
    ( SEssion() | SYsid() | PArtner() )                                        
    < PRofile() >                                                              
    < Noqueue >                                                                
    < STate() >                                                                
   END-EXEC.                                                             

******************************************************************
 
  ASKTIME   
                                                                    
  STATUS:  ENTER ONE OF THE FOLLOWING OR HIT ENTER FOR DEFAULT                  
                                                                                
 Abstime                                                                        
 
****************************************************************** 
 
  ASSIGN   
                                                                    
   EXEC CICS  ASSIGN                                                             
 +  < APLText() >                                                               
    < APPlid() >                                                                
    < ASRAIntrpt() >                                                            
    < ASRAKey() >                                                               
    < ASRAPsw() >                                                               
    < ASRARegs() >                                                              
    < ASRASPc() >                                                               
    < ASRASTg() >                                                               
    < BRidge() >                                                                
    < BTrans() >                                                                
    < CMdsec() >                                                                
    < COlor() >                                                                 
    < CWaleng() >                                                               
    < DEFSCRNHt() >                                                             
    < DEFSCRNWd() >                                                             
    < DELimiter() >                                                             
 +  < DESTCount() >                                                             
   END-EXEC.                                                             
 
******************************************************************
  BIF  
                                                                        
   EXEC CICS  BIf Deedit                                                       
    Field()                                                                    
    < Length( +00000 ) >                                                       
   END-EXEC.                                                             
 
****************************************************************** 
  BUILD                                                                        
 
   EXEC CICS  BUild                                                            
    ATTACH                                                                     
    ATTACHId()                                                                 
    < Iutype() >                                                               
    < Datastr() >                                                              
    < RECfm() >                                                                
    < Process() >                                                              
    < RESource() >                                                             
    < RProcess() >                                                             
    < RResource() >                                                            
    < Queue() >                                                                
   END-EXEC.                                                              
 
******************************************************************
 
  CANCEL                                                                       
                                                                                
 ACQActivity                                                                    
 ACQProcess                                                                     
 ACTivity                                                                       
 
 
  CANCEL ACQACTIVITY                                                           
 
   EXEC CICS  CAncel ACQActivity                                                
 
   END-EXEC.                                                             
 
  CANCEL ACQPROCESS                                                            
 
   EXEC CICS  CAncel ACQProcess                                                 
 
   END-EXEC.                                                             
 
 
  CANCEL ACTIVITY                                                              
 
   EXEC CICS  CAncel ACTivity()                                                
   END-EXEC.                                                              
 
 
******************************************************************
  CHANGE                                                                        
                                                                                
 Password                                                                       
 Task                                                                           
 
 
******************************************************************

  CHANGE PASSWORD   
                                                           
   EXEC CICS  CHAnge Password()                                                
    Userid()                                                                   
    Newpassword()                                                              
    < ESMRESp() >                                                              
    < ESMREAson() >                                                            
   END-EXEC.                                                              
 
 
******************************************************************
 
  CHANGE TASK                                                                  
 
   EXEC CICS  CHAnge Task                                                      
    < Priority() >                                                              
 
   END-EXEC.                                                              
 
******************************************************************
 
  CHECK                                                                        
                                                                                
 ACQActivity                                                                    
 ACQProcess                                                                     
 ACTivity                                                                       
 Timer                                                                          
 
******************************************************************
 
  COLLECT  
                                                                    
   EXEC CICS  COLlect STATIstics                                                
    SEt()                                                                       
    < LASTRESET() | LASTRESETHrs() LASTRESETMin() LASTRESETSec() >              
    < Autoinstall | < Bean() > CORbaserver() | CONnection() | DB2Conn           
      | DB2Entry() | DIspatcher | Enqueue | File() | JOURNALNAme()              
      | JOURNALNUm() | JVMPOol | JVMPROFile() | JVMPROGram() | LSrpool()        
      | MOnitor() | MVstcb() | ( Node() | POol() ) < TARget() > | PROGAuto      
      | PROGRam() | RECovery | REQuestmodel() | STATS | STOrage()               
      | STReamname() | SUbpool() | SYsdumpcode() | TABlemgr | TASksubpool       
      | TCLass() | TCPIP | TCPIPService() | TDqueue() | TErminal()              
      | TRANClass() | TRANDumpcode() | TRANSaction() | TSqueue | Vtam >         
   END-EXEC.                                                             
 
****************************************************************** 
 
  CONNECT    
                                                                 
   EXEC CICS  CONNect                                                          
    PROCEss                                                                    
    ( SEssion() | Convid() )                                                   
    ( PROCName() < PROCLength() > | PArtner() )                                
    SYnclevel()                                                                
    < PIPLIst() < PIPLEngth() > >                                              
    < STate() >                                                                
   END-EXEC.                                                             
******************************************************************
 
  CONVERSE                                                                     
 
   EXEC CICS  CONVerse                                                         
    < FROM() < FROMLength() | FROMFlength() > < FMh > >                        
    < LDc() >                                                                  
    < SET() | Into() >                                                         
    < TOLength() | TOFlength() >                                               
    < MAXLength() | MAXFlength() >                                             
    < Notruncate >                                                             
    < STAte() >                                                                
    < DESt() >                                                                 
    < LIneaddr() >                                                             
    < SESsion() | COnvid() >                                                   
    < ATtachid() >                                                             
    < STRfield | < Erase < DEFAult | ALternate > > < CTlchar() > >             
    < ASis >                                                                   
    < LEavekb >                                                                
    < DEFResp >                                                                
    < Pseudobin >                                                               
 
   END-EXEC.                                                             

******************************************************************
 
  CREATE                                                                       
                                                                                
 CONnection   Requestmodel                                                      
 CORbaserver  Sessions                                                          
 DB2Conn      TCpipservice                                                      
 DB2Entry     TDqueue                                                           
 DB2Tran      TErminal                                                          
 DJar         TRANClass                                                         
 DOctemplate  TRANSaction                                                       
 Enqmodel     TSmodel                                                           
 File         TYpeterm                                                          
 Journalmodel                                                                   
 Lsrpool                                                                        
 Mapset                                                                         
 PARTItionset                                                                   
 PARTNer                                                                        
 PROCesstype                                                                    
 PROFile                                                                        
 PROGram                                                                        
 
 
******************************************************************
 
  DEFINE                                                                       
                                                                                
 Activity                                                                       
 Counter                                                                        
 Dcounter                                                                       
 Event                                                                          
 Process                                                                        
 Timer                                                                          
 
******************************************************************

  DEFINE ACTIVITY                                                              
 
   EXEC CICS  DEFine Activity()                                                
    Transid()                                                                  
    < Program() >                                                              
    < Userid() >                                                               
    < Event() >                                                                
    < Activityid() >                                                            
 
   END-EXEC.                                                             

******************************************************************
 
  DELAY                                                                        
 
   EXEC CICS  DELAy                                                            
    < Interval( +0000000 ) | Time() | ( For | Until ) < Hours() > < Minutes() >
    < Seconds() > >                                                          
    < Reqid() >                                                                 
 
   END-EXEC.                                                             

******************************************************************
 
  DELETE                                                                        
                                                                                
 Activity                                                                       
 CONtainer                                                                      
 COUnter                                                                        
 Dcounter                                                                       
 Event                                                                          
 File                                                                           
 Timer                                                                          
 
******************************************************************
 
  DELETE FILE                                                                  
 
   EXEC CICS  DELETE File()                                                    
    < Sysid() >                                                                
    < Token() | RIdfld() < Keylength() < Generic < NUmrec() > > > >            
    < RBa | RRn >                                                              
    < NOsuspend >                                                              
   END-EXEC.                                                              
 
******************************************************************
 
  DELETEQ TD                                                                   
 
   EXEC CICS  DELETEQ TD                                                       
    Queue()                                                                    
    < Sysid() >                                                                 
 
   END-EXEC.                                                             

******************************************************************
 
  DELETEQ TS                                                                   
 
   EXEC CICS  DELETEQ TS                                                       
    ( QUeue() | QName() )                                                      
    < Sysid() >                                                                
   END-EXEC.                                                             

******************************************************************                                                           
                                                                                 
  DEQ                                                                          
 
   EXEC CICS  DEQ                                                              
    Resource()                                                                 
    < Length() >                                                               
    < Maxlifetime() | Uow | Task >                                             
   END-EXEC.                                                              
 
 
******************************************************************
 
  DISABLE                                                                      
 
   EXEC CICS  DISAble                                                          
    PRogram()                                                                  
    < ENtryname() >                                                            
    < EXIT() | EXITAll >                                                       
    < Formatedf >                                                              
    < PUrgeable >                                                              
    < SHutdown >                                                               
    < SPi >                                                                    
    < STop >                                                                   
    < Taskstart >                                                              
   END-EXEC.                                                             

******************************************************************                                                           
 
  DISCARD                                                                      
                                                                                
 Autinstmodel TCpipservice                                                      
 CONnection   TDqueue                                                           
 CORbaserver  TErminal                                                          
 DB2Conn      TRANClass                                                         
 DB2Entry     TRANSaction                                                       
 DB2Tran      TSmodel                                                           
 DJar                                                                           
 DOctemplate                                                                    
 Enqmodel                                                                       
 File                                                                           
 JOURNALModel                                                                   
 JOURNALName                                                                    
 PArtner                                                                        
 PROCesstype                                                                    
 PROFile                                                                        
 PROGram                                                                        
 Requestmodel                                                                   
 
****************************************************************** 
 
  DOCUMENT                                                                      
                                                                                
 Create                                                                         
 Insert                                                                         
 Retrieve                                                                       
 Set                                                                            
                                                                                 
 
******************************************************************
 
  DOCUMENT CREATE                                                              
 
   EXEC CICS  DOcument Create                                                  
    DOCToken()                                                                 
    < ( FROM() | TEXt() | Binary() ) LEngth() | FROMDoc() | TEMplate() >       
    < Symbollist() LIstlength() < DElimiter() > < Unescaped > < Private > >    
    < DOCSize() >                                                              
    < Hostcodepage() >                                                         
   END-EXEC.                                                              
 
******************************************************************
 
  DUMP TRANSACTION                                                             
 
   EXEC CICS  DUmp Transaction                                                 
    DUMPCode()                                                                  
    < FRom() ( LENGTH() | FLength() > )                                         
    < TASk >                                                                    
    < STorage >                                                                 
    < PRogram >                                                                 
    < TErminal >                                                                
    < TABles >                                                                  
    < Complete >                                                                
    < PCt >                                                                     
    < PPt >                                                                     
    < SIt >                                                                     
    < TCt >                                                                     
    < FCt >                                                                     
    < DCt >                                                                     
    < TRt >                                                                     
    < DUMPId() >                                                                
    < SEgmentlist() LENGTHList() Numsegments() >                               
   END-EXEC.                                                             
 
******************************************************************                                                           
 
  ENABLE                                                                       
 
   EXEC CICS  ENAble                                                            
    PRogram()                                                                   
    < ENTRY() >                                                                 
    < ENTRYName() >                                                             
    < EXit() >                                                                  
    < Formatedf >                                                               
    < GALength() | GAEntryname() >                                              
    < Indoubtwait >                                                             
    < Linkeditmode >                                                            
    < PUrgeable >                                                               
    < Quasirent | THreadsafe < Openapi > >                                      
    < SHutdown >                                                                
    < SPi >                                                                     
    < STart >                                                                   
    < TALength() >                                                              
    < TASkstart >                                                              
   END-EXEC.                                                             

******************************************************************                                                           
 
  ENDBR                                                                        
 
   EXEC CICS  ENDBR                                                            
    File()                                                                     
    < Sysid() >                                                                
    < Reqid( +00000 ) >                                                        
   END-EXEC.                                                              
 
******************************************************************
 
  ENQ                                                                          
 
   EXEC CICS  ENQ                                                              
    Resource()                                                                 
    < Length() >                                                               
    < Maxlifetime() | Uow | Task >                                             
    < Nosuspend >                                                              
   END-EXEC.                                                              
                                                                                
******************************************************************
 
  ENTER TRACEID
                                                                
   EXEC CICS  ENTer TRACEId()                                                  
    < From() >                                                                 
    < Resource() >                                                             
    < Entryname() >                                                            
    < Monitor >                                                                
    < Perform >                                                                
   END-EXEC.                                                              
 
 
******************************************************************

  ENTER TRACENUM 
                                                              
   EXEC CICS  ENTer TRACENum()                                                 
    < FROM() < FROMLength() > >                                                
    < Resource() >                                                             
    < Exception >                                                              
   END-EXEC.                                                              
                                                                                
****************************************************************** 
 
  EXTRACT                                                                       
                                                                                 
 ATTAch                                                                         
 ATTRibutes                                                                     
 Certificate                                                                    
 Exit                                                                           
 Logonmsg                                                                       
 Process                                                                        
 TCPip                                                                          
 TCT                                                                            
 Web                                                                           
 
******************************************************************
 
  FEPT                                                                          
                                                                                 
 ADd                                                                            
 ALlocate                                                                       
 AP                                                                             
 Converse                                                                       
 DElete                                                                         
 DIscard                                                                        
 Extract                                                                        
 Free                                                                           
 INQuire                                                                        
 INStall                                                                        
 ISsue                                                                          
 RECeive                                                                        
 REQuest                                                                        
 SENd                                                                           
 SET                                                                            
 SP                                                                             
 STart                                                                          
                                                                                
******************************************************************
 
  FORCE      
                                                                  
   EXEC CICS  FORCe                                                            
    Timer()                                                                    
    < ACQProcess | ACQActivity >                                                
                                                                                 
   END-EXEC.                                                             

******************************************************************
 
  FORMATTIME   
                                                                
   EXEC CICS  FORMattime                                                        
    Abstime()                                                                   
    < YYDDD() >                                                                 
    < YYMmdd() >                                                                
    < YYDDMm() >                                                                
    < DDMMYY() >                                                                
    < MMDDYY() >                                                                
    < YYYYDDD() >                                                               
    < YYYYMmdd() >                                                              
    < YYYYDDMm() >                                                              
    < DDMMYYYy() >                                                              
    < MMDDYYYy() >                                                              
    < Fulldate() >                                                              
    < DATE() >                                                                  
    < DATEForm() >                                                              
    < DATESep() >                                                               
    < DAYCount() >                                                              
    < DAYOFWeek() >                                                            
    < DAYOFWeek() >                                                             
    < DAYOFMonth() >                                                            
    < MOnthofyear() >                                                           
    < YEar() >                                                                  
    < TIME() < TIMESep() > >                                                    
 
   END-EXEC.                                                             
 
******************************************************************                                                           
                                                                                  
  FREE                                                                         
 
   EXEC CICS  FREE                                                             
    < SEssion() | Convid() >                                                   
    < STate() >                                                                
   END-EXEC.                                                              
  
******************************************************************
 
  FREEMAIN                                                                     
 
   EXEC CICS  FREEMain                                                         
    ( DATA() | DATAPointer() )                                                 
   END-EXEC.                                                              
 
******************************************************************

  GDS                                                                           
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                 
 ALlocate                                                                       
 ASsign                                                                         
 Connect                                                                        
 Extract                                                                        
 Free                                                                           
 Issue                                                                          
 Receive                                                                        
 Send                                                                           
 Wait      
                                                                    
****************************************************************** 
 
 GET                                                                           
 STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
CONtainer                                                                      
COUnter                                                                        
Dcounter                                                                      

******************************************************************
 
  GETMAIN                                                                      
 
   EXEC CICS  GETMain                                                          
 
    SEt()                                                                      
 
    ( Length() | Flength() < Below > )                                         
 
    < Initimg() >                                                              
 
    < SHared >                                                                 
 
    < Userdatakey | Cicsdatakey >                                              
 
    < Nosuspend >                                                              
   END-EXEC.                                                             
 
******************************************************************                                                           
                     
  GETNEXT                                                                       
                                                                                 
 Activity                                                                       
 Container                                                                      
 Event                                                                          
 Process                                                                        
 Timer                                                                         
 
 
******************************************************************                                                           
 
  HANDLE ABEND                                                                 
 
   EXEC CICS  Handle ABend                                                     
 
    < Label() | Program() | Cancel | Reset >                                   
 
   END-EXEC.                                                             
                                                                                 
******************************************************************  
                                                                               
  HANDLE AID                                                                   
 
   EXEC CICS  Handle AId                                                       
    < Anykey() >                                                                
    < CLEar() >                                                                 
    < CLRpartn() >                                                              
    < Enter() >                                                                 
    < Lightpen() >                                                              
    < Operid() >                                                                
    < Trigger() >                                                               
    < PA1() >                                                                   
    < PA2() >                                                                   
    < PA3() >                                                                   
    < PF1() >                                                                   
    < PF2() >                                                                   
    < PF3() >                                                                   
    < PF4() >                                                                   
    < PF5() >                                                                   
    < PF6() >                                                                   
    < PF7() >                                                                   
    < PF8() >                                                                   
    < PF9() >                                                                   
    < PF10() >                                                                  
    < PF11() >                                                                  
    < PF12() >                                                                  
    < PF13() >                                                                  
    < PF14() >                                                                  
    < PF15() >                                                                  
    < PF16() >                                                                  
    < PF17() >                                                                  
    < PF18() >                                                                  
    < PF19() >                                                                  
    < PF20() >                                                                  
    < PF21() >                                                                  
    < PF22() >                                                                  
    < PF23() >                                                                  
    < PF24() >                                                                  
 
   END-EXEC.                                                              
                                                                               
******************************************************************                                                            
  HANDLE CONDITION                                                             
 
   EXEC CICS  Handle Condition                                                  
    < ACTIVITYBusy() >                                                          
    < ACTIVITYErr() >                                                           
    < ALlocerr() >                                                              
    < CBiderr() >                                                               
    < COntainererr() >                                                          
    < CHanged() >                                                               
    < CSderr() >                                                                
    < DIsabled() >                                                              
    < DSNnotfound() >                                                           
    < DSStat() >                                                                
    < DUPKey() >                                                                
    < DUPREC() >                                                                
    < DUPRES() >                                                                
    < END() >                                                                   
    < ENDData() >                                                               
    < ENDFile() >                                                               
    < ENDInpt() >                                                               
    < ENDInpt() >                                                               
    < ENQbusy() >                                                               
    < ENVdeferr() >                                                             
    < EOC() >                                                                   
    < EODs() >                                                                  
    < EOF() >                                                                   
    < ERror() >                                                                 
    < EVenterr() >                                                              
    < EXpired() >                                                               
    < ENQbusy() >                                                               
    < ENVdeferr() >                                                             
    < FIlenotfound() >                                                          
    < FUncerr() >                                                               
    < IGREQCd() >                                                               
    < IGREQId() >                                                               
    < ILlogic() >                                                               
    < INBfmh() >                                                                
    < INVERrterm() >                                                            
    < INVEXitreq() >                                                            
    < INVLdc() >                                                                
    < INVMpsz() >                                                               
    < INVPARTN() >                                                              
    < INVPARTNSet() >                                                           
    < INVReq() >                                                                
    < INVTsreq() >                                                              
    < IOerr() >                                                                 
    < IScinvreq() >                                                             
    < ITemerr() >                                                               
    < Jiderr() >                                                                
    < LEngerr() >                                                               
    < LInkabend() >                                                             
    < LOAding() >                                                               
    < LOCked() >                                                                
    < MApfail() >                                                               
    < MOdeliderr() >                                                            
    < NEtnameiderr() >                                                          
    < NODeiderr() >                                                             
    < NOJbufsp() >                                                              
    < NONval() >                                                                
    < NOPASSBKRd() >                                                            
    < NOPASSBKWr() >                                                            
    < NOSPAce() >                                                               
    < NOSPOol() >                                                               
    < NOSTArt() >                                                               
    < NOSTG() >                                                                 
    < NOTALloc() >                                                              
    < NOTAUth() >                                                               
    < NOTFInished() >                                                           
    < NOTFNd() >                                                                
    < NOTOpen() >                                                               
    < OPenerr() >                                                               
    < OUtdescrerr() >                                                           
    < OVerflow() >                                                              
    < PARTNEriderr() >                                                          
    < NOTALloc() >                                                              
    < NOTAUth() >                                                               
    < NOTFInished() >                                                           
    < NOTFNd() >                                                                
    < NOTOpen() >                                                               
    < OPenerr() >                                                               
    < OUtdescrerr() >                                                           
    < OVerflow() >                                                              
    < PARTNEriderr() >                                                          
    < PARTNFail() >                                                             
    < PGmiderr() >                                                              
    < POolerr() >                                                               
    < PROCESSBusy() >                                                           
    < PROCESSErr() >                                                            
    < PROFileiderr() >                                                          
    < QBusy() >                                                                 
    < QIderr() >                                                                
    < QZero() >                                                                 
    < RDatt() >                                                                 
    < RECordbusy() >                                                            
    < RESIderr() >                                                              
    < RESUnavail() >                                                            
    < RETpage() >                                                               
    < ROlledback() >                                                            
    < RTEFail() >                                                               
    < RTESome() >                                                               
    < SELnerr() >                                                               
    < SESSBusy() >                                                              
    < SESSIonerr() >                                                            
    < SIgnal() >                                                                
    < SPOLBusy() >                                                              
    < SPOLErr() >                                                               
    < STrelerr() >                                                              
    < SUppressed() >                                                            
    < SYMbolerr() >                                                             
    < SYSBusy() >                                                               
    < SYSIderr() >                                                              
    < TAskiderr() >                                                             
    < TCiderr() >                                                               
    < TEMplaterr() >                                                            
    < TERMErr() >                                                               
    < TERMIderr() >                                                             
    < TImererr() >                                                              
    < TOkenerr() >                                                              
    < TRansiderr() >                                                            
    < TSioerr() >                                                               
    < UNexpin() >                                                               
    < UOWLnotfound() >                                                          
    < UOWNotfound() >                                                           
    < USeriderr() >                                                             
    < Voliderr() >                                                              
    < Wrbrk() >                                                                 
               
   END-EXEC.                                                              
                                                                  
                                                                                 
******************************************************************                                                           
                    
  IGNORE        
                                                               
   EXEC CICS  IGnore CONDition                                                  
    < ACTIVITYBusy >                                                            
    < ACTIVITYErr >                                                             
    < ALlocerr >                                                                
    < CBiderr >                                                                 
    < CONTainererr >                                                            
    < CHanged >                                                                 
    < CSderr >                                                                  
    < DIsabled >                                                                
    < DSNnotfound >                                                             
    < DSStat >                                                                  
    < DUPKey >                                                                  
    < DUPREC >                                                                  
    < DUPRES >                                                                  
    < END >                                                                     
    < ENDData >                                                                 
    < ENDFile >                                                                 
    < ENDInpt >                                                                 
    < ENQbusy >                                                                 
    < ENVdeferr >                                                               
    < EOC >                                                                     
    < EODs >                                                                    
    < EOF >                                                                     
    < ERror >                                                                   
    < EVenterr >                                                                
    < EXpired >                                                                 
    < FIlenotfound >                                                            
    < FUncerr >                                                                 
    < IGREQCd >                                                                 
    < IGREQId >                                                                 
    < ILlogic >                                                                 
    < INBfmh >                                                                  
    < INVERrterm >                                                              
    < INVEXitreq >                                                              
    < INVLdc >                                                                  
    < INVMpsz >                                                                 
    < INVPARTN >                                                                
    < INVPARTNSet >                                                             
    < INVReq >                                                                  
    < INVTsreq >                                                                
    < IOerr >                                                                   
    < IScinvreq >                                                               
    < ITemerr >                                                                 
    < Jiderr >                                                                  
    < LEngerr >                                                                 
    < LInkabend >                                                               
    < LOAding >                                                                 
    < LOCked >                                                                  
    < MApfail >                                                                 
    < MOdeliderr >                                                              
    < NEtnameiderr >                                                            
    < NODeiderr >                                                               
    < NOJbufsp >                                                                
    < NONval >                                                                  
    < NOPASSBKRd >                                                              
    < NOPASSBKWr >                                                              
    < NOSPAce >                                                                 
    < NOSPOol >                                                                 
    < NOSTArt >                                                                 
    < NOSTG >                                                                   
    < NOTALloc >                                                                
    < NOTAUth >                                                                 
    < NOTFInished >                                                             
    < NOTFNd >                                                                  
    < NOTOpen >                                                                 
    < OPenerr >                                                                 
    < OUtdescrerr >                                                             
    < OVerflow >                                                                
    < PARTNEriderr >                                                            
    < PARTNFail >                                                               
    < PGmiderr >                                                                
    < POolerr >                                                                 
    < PROCESSBusy >                                                             
    < PROCESSErr >                                                              
    < PROFileiderr >                                                            
    < QBusy >                                                                   
    < QIderr >                                                                  
    < QZero >                                                                   
    < RDatt >                                                                   
    < RECordbusy >                                                              
    < RESIderr >                                                                
    < RESUnavail >                                                              
    < RETpage >                                                                 
    < ROlledback >                                                              
    < RTEFail >                                                                 
    < RTESome >                                                                 
    < SELnerr >                                                                 
    < SESSBusy >                                                                
    < SESSIonerr >                                                              
    < SIgnal >                                                                  
    < SPOLBusy >                                                                
    < SPOLErr >                                                                 
    < STrelerr >                                                                
    < SUppressed >                                                              
    < SYMbolerr >                                                               
    < SYSBusy >                                                                 
    < SYSIderr >                                                                
    < TAskiderr >                                                               
    < TCiderr >                                                                 
    < TEMplaterr >                                                              
    < TERMErr >                                                                 
    < TERMIderr >                                                               
    < TImererr >                                                                
    < TOkenerr >                                                                
    < TRansiderr >                                                              
    < TSioerr >                                                                 
    < UNexpin >                                                                 
    < UOWLnotfound >                                                            
    < UOWNotfound >                                                             
    < USeriderr >                                                               
    < Voliderr >                                                                
    < Wrbrk >                                                                  
   END-EXEC.                                                             
                      
****************************************************************** 
 
CECI SEND MAP('EMPMAP1') MAPSET('EMPSET1')                                      
                                                                                                                             
                                  
  SEND MAP('EMPMAP1') MAPSET('EMPSET1')                                         
  STATUS:  ABOUT TO EXECUTE COMMAND                           NAME=             
   EXEC CICS  SENd Map( 'EMPMAP1' )                                             
    << FROm() > < LEngth() > < DAtaonly > | MAPOnly >                           
    < MAPSet( 'EMPSET1' ) >                                                     
    < FMhparm() >                                                               
    < Reqid() >                                                                 
    < LDc() | < ACTpartn() > < Outpartn() > >                                   
    < MSr() >                                                                   
    < Cursor() >                                                                
    < Set() < MAPPingdev() > | PAging | Terminal < Wait > < LAst > >            
    < PRint >                                                                   
    < FREekb >                                                                  
    < ALArm >                                                                   
    < L40 | L64 | L80 | Honeom >                                                
    < NLeom >                                                                   
    < ERASE < DEfault | ALTernate > | ERASEAup >                                
    < ACCum >                                                                   
    < FRSet >                                                                   
 +  < NOflush >                                                                 
       
   END-EXEC.                                                              
                                                                         
                                                                                
                                                                                
 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF         
 
******************************************************************
 
                              EMPLOYEE DETAILS                                  
                         INDUS CONSULTANCY SERVICES                             
                          S.R.NAGAR, HYDERABAD-38.                              
                                                                                
                                                                                
          EMPLOYEE NUMBER:                                                      
                                                                                
          EMPLOYEE NAME:                                                        
                                                                                
          EMPLOYEE ADDRESS:                                                     
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
     MESSAGE:                                                                   
 
******************************************************************
 
  SET PROG(EMPSET1) NEWC                                                        
 
******************************************************************
 
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
   Prog(EMPSET1 ) Leng(0000000512)     Map Ena Pri             NORMAL           
      Res(000) Use(0000000005)             Qua                                  
                                                                                
******************************************************************
 
CEDA Transaction
 
CEDA                                                                             
                                                                               
******************************************************************                                                           
                   
  ENTER ONE OF THE FOLLOWING                                                    
                                                                                
 ADd                                                                            
 ALter                                                                          
 APpend                                                                         
 CHeck                                                                          
 COpy                                                                           
 DEFine                                                                         
 DELete                                                                         
 DIsplay                                                                        
 Expand                                                                         
 Install                                                                        
 Lock                                                                           
 Move                                                                           
 REMove                                                                         
 REName                                                                         
 UNlock                                                                         
 USerdefine                                                                     
 View                                                                           
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END             6 CRSR             9 MSG             12 CNCL 
 
 
****************************************************************** 
 
  DEF                                                                           
  ENTER ONE OF THE FOLLOWING                                                    
                                                                                
 CONnection   Requestmodel                                                      
 CORbaserver  Sessions                                                          
 DB2Conn      TCpipservice                                                      
 DB2Entry     TDqueue                                                           
 DB2Tran      TErminal                                                          
 DJar         TRANClass                                                         
 DOctemplate  TRANSaction                                                       
 Enqmodel     TSmodel                                                           
 File         TYpeterm                                                          
 Journalmodel                                                                   
 Lsrpool                                                                        
 Mapset                                                                         
 PARTItionset                                                                   
 PARTNer                                                                        
 PROCesstype                                                                    
 PROFile                                                                        
 PROGram                                                                        
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END             6 CRSR             9 MSG             12 CNCL
 
****************************************************************** 
 
  DEF PROG                                                                      
  OVERTYPE TO MODIFY                                        CICS RELEASE = 0630 
   CEDA  DEFine PROGram(          )                                             
    PROGram      ==>                                                            
    Group        ==>                                                            
    DEscription  ==>                                                            
    Language     ==>                    CObol | Assembler | Le370 | C | Pli     
    RELoad       ==> No                 No | Yes                                
    RESident     ==> No                 No | Yes                                
    USAge        ==> Normal             Normal | Transient                      
    USElpacopy   ==> No                 No | Yes                                
    Status       ==> Enabled            Enabled | Disabled                      
    RSl            : 00                 0-24 | Public                           
    CEdf         ==> Yes                Yes | No                                
    DAtalocation ==> Below              Below | Any                             
    EXECKey      ==> User               User | Cics                             
    COncurrency  ==> Quasirent          Quasirent | Threadsafe                  
   REMOTE ATTRIBUTES                                                            
    DYnamic      ==> No                 No | Yes                                
 +  REMOTESystem ==>                                                            
   MESSAGES: 2 SEVERE                                                           
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP 2 COM 3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL 
 
******************************************************************
 
 CEDA DEL                                                                       
  STATUS:  SESSION ENDED                                                        
                                                                                
******************************************************************                                                              DEL                                                                           
  OVERTYPE TO MODIFY                                                            
   CEDA  DELete                                                                 
    All          ==>                                                            
    CONnection   ==>                                                            
    CORbaserver  ==>                                                            
    DB2Conn      ==>                                                            
    DB2Entry     ==>                                                            
    DB2Tran      ==>                                                            
    DJar         ==>                                                            
    DOctemplate  ==>                                                            
    Enqmodel     ==>                                                            
    File         ==>                                                            
    Journalmodel ==>                                                            
    Lsrpool      ==>                                                            
    Mapset       ==>                                                            
    PARTItionset ==>                                                            
    PARTNer      ==>                                                            
    PROCesstype  ==>                                                            
 +  PROFile      ==>                                                            
   MESSAGES: 2 SEVERE                                                           
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL 
 
****************************************************************** 
 
  DEL                                                                           
  OVERTYPE TO MODIFY                                                            
   CEDA  DELete                                                                 
 +  Enqmodel     ==>                                                            
    File         ==>                                                            
    Journalmodel ==>                                                            
    Lsrpool      ==>                                                            
    Mapset       ==>                                                            
    PARTItionset ==>                                                            
    PARTNer      ==>                                                            
    PROCesstype  ==>                                                            
    PROFile      ==>                                                            
    PROGram      ==>                                                            
    REQuestmodel ==>                                                            
    Sessions     ==>                                                            
    TCpipservice ==>                                                            
    TDqueue      ==>                                                            
    TErminal     ==>                                                            
    TRANClass    ==>                                                            
 +  TRANSaction  ==>                                                            
   MESSAGES: 2 SEVERE                                                           
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL

****************************************************************** 
 
  DEL                                                                           
  OVERTYPE TO MODIFY                                                            
   CEDA  DELete                                                                 
 +  Enqmodel     ==>                                                            
    File         ==>                                                            
    Journalmodel ==>                                                            
    Lsrpool      ==>                                                            
    Mapset       ==>                                                            
    PARTItionset ==>                                                            
    PARTNer      ==>                                                            
    PROCesstype  ==>                                                            
    PROFile      ==>                                                            
    PROGram      ==>                                                            
    REQuestmodel ==>                                                            
    Sessions     ==>                                                            
    TCpipservice ==>                                                            
    TDqueue      ==>                                                            
    TErminal     ==>                                                            
    TRANClass    ==>                                                            
 +  TRANSaction  ==>                                                            
   MESSAGES: 2 SEVERE                                                           
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
******************************************************************
 
CEMT Transaction
 
CEMT                                                                             
                                                                                
******************************************************************                                                           
                                                                                
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Discard                                                                        
 Inquire                                                                        
 Perform                                                                        
 Set                                                                            
                                                                                
****************************************************************** 
 
 DISCARD                                                                        
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Discard                                                                        
 Inquire                                                                        
 Perform                                                                        
 Set                                                                            
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END       5 VAR                    9 MSG                     
 
 
******************************************************************
 
  DISCARD                                                                       
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Autinstmodel PROCesstype                                                       
 CONnection   PROFile                                                           
 CORbaserver  PROGram                                                           
 DB2Conn      Requestmodel                                                      
 DB2Entry     TCLass                                                            
 DB2Tran      TCPipservice                                                      
 DJar         TDqueue                                                           
 DOctemplate  TErminal                                                          
 Enqmodel     TRansaction                                                       
 FENode       TSmodel                                                           
 FEPOol                                                                         
 FEPRopset                                                                      
 FETarget                                                                       
 FIle                                                                           
 JModel                                                                         
 JOurnalname                                                                    
 PArtner                                                                        
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
                                                                                
 PF 1 HELP       3 END       5 VAR                    9 MSG                     
 
 
******************************************************************
 
  INQUIRE                                                                       
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Discard                                                                        
 Inquire                                                                        
 Perform                                                                        
 Set                                                                            
                                                                                
******************************************************************
 
  INQUIRE                                                                       
  STATUS:  ENTER ONE OF THE FOLLOWING OR HIT ENTER FOR DEFAULT                  
                                                                                
 AUTInstmodel DSName       JVMPool      TCPIP                                   
 AUTOinstall  DUmpds       Line         TCPIPService                            
 AUXtrace     ENQ          MODename     TDqueue                                 
 BEan         ENQModel     MONitor      TErminal                                
 BRfacility   EXci         Netname      TRAnsaction                             
 CFdtpool     FEConnection PArtner      TRDumpcode                              
 CLasscache   FENode       PROCesstype  TSModel                                 
 CONnection   FEPOol       PROFile      TSPool                                  
 CORbaserver  FEPRopset    PROGram      TSQueue                                 
 DB2Conn      FETarget     REquestmodel UOW                                     
 DB2Entry     FIle         RRms         UOWDsnfail                              
 DB2Tran      Gtftrace     STAtistics   UOWLink                                 
 DEletshipped INttrace     STReamname   Vtam                                    
 DIspatcher   IRc          SYDumpcode   WEb                                     
 DJar         JModel       SYStem       WOrkrequest                             
 DOctemplate  JOurnalname  TAsk                                                 
 DSAs         JVM          TCLass                                               
 
****************************************************************** 
 
  PERFORM                                                                       
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Discard                                                                        
 Inquire                                                                        
 Perform                                                                        
 Set                                                                            
 
****************************************************************** 
 
  PERFORM                                                                       
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 CLasscache                                                                     
 COrbaserver                                                                    
 DEletshipped                                                                   
 DJar                                                                           
 DUmp                                                                           
 Endaffinity                                                                    
 Reset                                                                          
 SEcurity                                                                       
 SHUTdown                                                                       
 SNap                                                                           
 STatistics                                                                     
                                                                                
******************************************************************
 
  SET                                                                           
  STATUS:  ENTER ONE OF THE FOLLOWING                                           
                                                                                
 Discard                                                                        
 Inquire                                                                        
 Perform                                                                        
 Set                                                                            
                                                                                
******************************************************************                                                           
                    
  SET                                                                           
  STATUS:  ENTER ONE OF THE FOLLOWING OR HIT ENTER FOR DEFAULT                  
                                                                                
 AUToinstall  FEPool       SYStem                                               
 AUXtrace     FETarget     TAsk                                                 
 Brfacility   FIle         TCLass                                               
 CLasscache   Gtftrace     TCPIP                                                
 CONnection   INttrace     TCPIPService                                         
 CORbaserver  IRc          TDqueue                                              
 DB2Conn      JOurnalname  TErminal                                             
 DB2Entry     JVM          TRAnsaction                                          
 DB2Tran      JVMPool      TRDumpcode                                           
 DEletshipped Line         TSqueue                                              
 DIspatcher   MODename     UOW                                                  
 DSAs         MONitor      UOWLink                                              
 DSName       Netname      Vtam                                                 
 DUmpds       PROCesstype  WEb                                                  
 Enqmodel     PROGram      WOrkrequest                                          
 FEConnection STatistics                                                        
 FENode       SYDumpcode                                                        
                                                                                
****************************************************************** 
 
 
  SET FILE(EMPWORK)                                                             
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
   Fil(EMPWORK ) Vsa Clo Une Rea Upd Add Bro Del     Sha                        
          Dsn( OZA059.WORK.KSDS.EMPMAS                      )                   
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
   RESPONSE: NORMAL                             TIME:  09.43.29  DATE: 07.29.09 
 PF 1 HELP       3 END       5 VAR        7 SBH 8 SFH 9 MSG 10 SB 11 SF        
 
******************************************************************
 
  SET FILE(EMPWORK) OPE                                                         
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
   Fil(EMPWORK ) Vsa Clo Une Rea Upd Add Bro Del     Sha                        
          Dsn( OZA059.WORK.KSDS.EMPMAS                      )                   
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                      SYSID=CICS APPLID=CICSOZA 
   RESPONSE: NORMAL                             TIME:  09.43.29  DATE: 07.29.09 
 PF 1 HELP       3 END       5 VAR        7 SBH 8 SFH 9 MSG 10 SB 11 SF         
 
****************************************************************** 
 
  SET FILE(EMPWORK) OPE                                                         
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
   Fil(EMPWORK ) Vsa Ope Ena Rea Upd Add Bro Del     Sha       NORMAL           
          Dsn( OZA059.WORK.KSDS.EMPMAS                      )                   
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
 
 
 
  CEMT INQ FILE(EMPWORK)                                                         
  STATUS:  SESSION ENDED                                                        
                                                                                
******************************************************************                                                           
                                                                                
  INQ FILE(EMPWORK)                                                             
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
   Fil(EMPWORK ) Vsa Ope Ena Rea Upd Add Bro Del     Sha                        
          Dsn( OZA059.WORK.KSDS.EMPMAS                      )                   
                                                                                
******************************************************************                                                           
                                                                                
                                                                  
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
         
 
 
                                                                                                                                            http://www.mainframesguru.com

                                                                                
                                                                                
 


Comments