COBOL DB2 RUN JCL

//RunJCL JOB (xxx,YYYY),                                           
//             'SELECT EMPLOYEE',                                       
//             CLASS=X,                                                
//             MSGCLASS=B,                                             
//             NOTIFY=&SYSUID,                                         
//             REGION=0K                                               
//*                                                                    
//**********************************************************************
//*              mainframegurukul.COM   - DB2 COBOL RUN JCL            *
//**********************************************************************
//*                                                                    
//STEP01 EXEC PGM=IKJEFT01,                                            
//         DYNAMNBR=20                                                 
//*                                                                    
//STEPLIB  DD  DISP=SHR,                                               
//             DSN=SYSL.DB2.DEV.XXXXLOAD                              
//         DD  DISP=SHR,                                               
//             DSN=SYSL.DB2.DEV.XXXXYYYY   
//*                                                                    
//SYSTSPRT DD  SYSOUT=*                                                
//SYSTSIN  DD  *                                                       
DSN SYSTEM(DEVDB)                                                       
 RUN PROGRAM(DB2PROG)                     -      <-------   (1)                           
     PLAN(PLAN11111)                      -      <-------   (2)                       
     LIBRARY('DEV.SURESH.LOADLIB')               <-------   (3)                               
 END                                                                  
/*                                                                     
//SYSOUT   DD  SYSOUT=*                                                
//SYSIN    DD  *                                                       
//*                                                                        
                     



(1)     -  Program name, which needs to be executed.
(2)     -  Plan name, corresponding plan name for the package that we
          have used in compile jcl.
(3)     -  Program load module created in compile jcl.  (refer point 5, in compile jcl )

Specify dummy VSAM dataset in a JCL

Code AMP=’AMORG’ . This parameter tells the OS to treat the file as VSAM file.
//NOVSAMIO DD DUMMY,AMP=’AMORG’

INPUT /OUTPUT PROCEDURE with SORT

We RELEASE record-name (for INPUT PROCEDURE) and

We RETURN file-name (for OUTPUT PROCEDURE)

SEARCH and SEARCH ALL

SEARCH - Sequential Search

SEARCH ALL - Binary Search

How COBOL Compiler finds a dataset as VSAM dataset

When the ORGANIZATION clause is coded for a file, the COBOL compiler interprets it as a
VSAM dataset

"system symbol" for which the system substitutes your TSO ID

&SYSUID is a "system symbol" for which the system substitutes your TSO ID.

The only system symbol that can be used in a batch job, and can be useful when more than one
individual submits the same JCL.

Delete a member in a PDS, when someone is using it

//DELMEMB EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DSN=libraryname,DISP=SHR
//SYSIN DD *
ALLOC DDN(INFILE) SHR REUSE DSN('libraryname ')
DELETE libraryname(membername) FILE(PDS)