SORT JCL to Mask output data  If you wish to format the data then  you can specify the edit mask by using the following sort card. In this card The date in the 60th position in the input file is in the format YYYYMMDD and in the output file it will be formatted as […]
SORT JCL to Mask output data Read More »
Precompile compile and link edit jcl for cobol db2 program The following JCL can be used for compilng and link editing a COBOL DB2 program. This JCL has mainly three steps The PRE COMPILATION Step executes the utility DSNHPC and uses the COBOL DB2 program present in source library and copy library for DCLGEN’s  as input
precompile compile and link edit jcl for cobol db2 program Read More »
Example of REDEFINE CLAUSE PROGRAM IDENTIFICATION DIVISION.                                        PROGRAM-ID. PGM002.                                             AUTHOR. MAINFRAMEWIZARD.                                        DATA DIVISION.                                                  WORKING-STORAGE SECTION.                                        01 DATE1 PIC X(8).                                              01 DATE2 REDEFINES DATE1.                                         05 DATE2-DD   PIC X(2).                                       05 DATE2-MM   PIC X(2).                                       05 DATE2-YYYY PIC X(4).                                     PROCEDURE DIVISION.                                             10000-MAIN-PARA.                                                     MOVE 08092010 TO DATE1                                  Â
EVALUATE ARITHMETIC EXPRESSION The following COBOL program depicts the use of EVALUATE ARITH EXPRESSION     01 MARKS-OBTAINED  PIC 9(4)  VALUE ZEROS.     01 MARKS-TOTAL   PIC 9(4)  VALUE ZEROS.        MOVE 900  TO MARKS-OBTAINED.        MOVE 1000 TO MARKS-TOTAL.   Â
COBOL EVALUATE ARITHMETIC EXPRESSION Read More »
Real life example of -805 sql code Can anyone tell me how would I get a -805 sql code, I read the description as the DBRM or package not found in PLAN? I have encountered sql code -818 which is due to timestamp inconsistency but have never personally faced sql code of -805. “; ;
Real life example of -805 sql code Read More »
The following COBOL program depicts the use of     01 WS-SUB  PIC 9 VALUE ZEROS.        PERFORM 20000-FIRST-PARA UNTIL WS-SUB=5        DISPLAY ‘PARA NAME IS  10000-FIRST-PARA’        DISPLAY ‘PARA NAME IS  20000-FIRST-PARA’. The ouput of the above
COBOL PERFORM UNTIL Read More »
LIST MIGRATED DATASETS STARTING WITH A QUALIFIER //LSTMIGR Â JOB (XXXXXXX,,,,,XXXX),’ Â Â Â Â ‘, Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â CLASS=T,MSGCLASS=Y,NOTIFY=&SYSUID, Â Â Â Â Â Â Â Â Â Â //STEP000 Â EXEC PGM=IEFBR14 Â Â Â Â Â Â Â Â
JCL to List Migrated Datasets Read More »
 What is a plan? A DB2 plan is an executable module containing the access path logic produced by the DB2 optimizer. It can be consist of One or more DBRM or One or more packages or Combination of DBRM and packages A DB2 program needs a plan associated with it for it to be able
REXX AND THE CORRESPONDING JCL TO CONNECT TO DB2 IN BATCH The following piece of rexx code can be used to connect with the DB2 database. REXX Code for Connecting with DB2   QUERY   = “SELECT EMP_NUM”,                Â
REXX to Connect with DB2 Read More »
