Efficient use of decalartion in COBOL

Efficiently use of alphanumeric and numeric declaration in COBOL

In Working Section:

03  WS-ALPHX.                          

    05  WS-NUM          PIC 9(4).     

We can use this way as alphanumeric as well as to check numeric.

For Eg:

MOVE CAPIN(1:4)      TO WS-ALPHAX

IF WS-ALPHAX (1:1) IS NOT NUMERIC       

   MOVE 0 TO WS-ALPHAX (1:1)

END-IF      

                                  

IF WS-NUM IS NUMERIC                  

   MOVE WS-NUM TO CAPIN2

ELSE                                          

   MOVE 0              TO CAPIN2

END-IF                        

Search Option of COBOL

Here is how to use search option in COBOL

COBOL Declaration:

01  A1-TABLE.                                               

    03   FILLER                     PIC 9(02) VALUE  01.    

    03   FILLER                     PIC 9(02) VALUE  02.    

    03   FILLER                     PIC 9(02) VALUE  03.    

    03   FILLER                     PIC 9(02) VALUE  40.    

    03   FILLER                     PIC 9(02) VALUE  50.    

                                                               

01 AE-TABLE REDEFINES A1-TABLE.                            

    03  IE-CODE        PIC 9(02)  OCCURS 5 TIMES           

                           INDEXED BY P1.                     

Code in procedure division : 

      SET P1 TO 1.                                

      SEARCH IE-CODE                            

          AT END SET NOT-IE-CODE TO TRUE        

      WHEN AE-CODE IS EQUAL TO IE-CODE (P1)   

          SET IE-CODE1 TO TRUE

Submit JCL through REXX

The following REXX tool explains how JCL can be submitted through REXX.

Step 1: To get inputs from the user

/*REXX*/

/* TRACE I */

USERID = SYSVAR('SYSUID')

 "EXEC 'SYS2.CMDPROC(CLRSCRN)' CLIST"

ARG  ID FILEDT SQLINR

SAY  ID

SAY  FILEDT

SAY  SQLINR

IF ID = ' ' THEN

    DO

      SAY 'ENTER ID REQUIRED FOR INQUIRY'

      PULL IDID

    END

IF FILEDT = ' ' THEN

    DO

      SAY 'ENTER FILE DT REQUIRED FOR INQUIRY IN MM/DD/YYYY FORMAT '

      PULL FILEDT

    END

IF SQLINR = ' ' THEN

    DO

      SAY 'ENTER THE REGION FROM WHERE ID IS REQUIRED'

      PULL SQLINR

    END

IF IDID = 'END' | FILEDT = 'END' | SQLINR = 'END' THEN

    DO

      SAY 'COMMAND ENDED. THANK YOU'

      EXIT

    END

   INTLL  = LEFT(USERID(),3)

/* */

Step: 2: To allocate file where JCL will be returned with the user id automatically appended 

  "ALLOC FI(JCLFILE) DA('"USERID()".PABCB.N.TEMP.ABCD') OLD CATALOG  REUSE",

      "SPACE(1,1) TRACKS LRECL(80) BLKSIZE(3120) RECFM(F,B)"

Step 3: To create JCL

   IF ID <> "END" THEN DO

      JCL.1   = "//#ABC"INTLL"C JOB (00011100000"USERID()"),'X',"

      JCL.2   = "//             CLASS=X,"

      JCL.3   = "//             MSGCLASS=0,"

      JCL.4   = "//             REGION=4M,"

      JCL.5   = "//             NOTIFY="USERID()

      JCL.6   = "/*JOBPARM S="ABCV

      JCL.7   = "//*"

      JCL.8   = "//STEP01S  EXEC PGM=IKJEFT01"

      JCL.9   = "//STEPLIB   DD  DSN=DB2E.PSYSB.P.ABCD.SDSNLOAD,DISP=SHR"

      JCL.10  = "//SYSTSPRT  DD  SYSOUT=*"

      JCL.11  = "//DETAILS   DD  SYSOUT=*"

      JCL.12  = "//FREELST   DD  SYSOUT=*"

      JCL.13  = "//SYSTSIN   DD  *"

 JCL.14 = " EXEC 'ISPS.PABCB.P.ABC.EXEC(PVDREQR)' '"ID" "FILEDT" "SQLINR"'"

    END

      "EXECIO * DISKW JCLFILE (STEM JCL. FINIS)"

      "FREE FI(JCLFILE)"

Step 4: To submit JCL

      "SUBMIT '"USERID()".PABCB.N.TEMP.ABCD'"

After this, you can see the JCL in spool by checking the jobname #ABC*

Options of CICS DB2 connections

Options of CICS DB2 connections 

There are three main types of threads that can  be used for DB2 CICS connection:

TYPE=COMD
TYPE=POOL
TYPE=ENTRY

COMD is DB2 command thread it is used for only processing DB2 commands through DSNC transaction.  It is not used for CICS attachment facility.

POOL is Pool threads are used for all transactions and commands not using an entry type or a DB2 command type. Pool threads are normally used for: 

1. Low volume transactions
2. Overflow transactions  from both COMD and ENTRY type threads 
3. It is terminated immediately when it is unused

ENTRY is ENtry type thread which is used for: 

1. High volume transactions 
2. High priority transactions 
3. Controlled transactions 

ENTRY type can be defined as protected as well as unprotected.The MVS subtask for an entry thread is not terminated, even if the entry thread is terminated. This is true for both protected and unprotected entry threads. 
Requests for an entry thread can be transferred to the pool, if an entry thread is not available.