1. Sequential files: S.NO. File Status 1 Attempt to read from a file after reaching EOF. 10 2 Attempt to open a file that was earlier closed with LOCK option. 38 3 Attempt to open a file, which is already open. 41 4 Attempt to close a file that was not opened. 42 5 Attempt […]
Static linking change made to called program not calling program
Static linking change made to called program not calling program We have static linking in our project. I have a COBDB2 program “B”  which is called by another COBOL DB2 program “A”. Program “A” Now if I make changes to program B, what all steps should I do in order to get the changes picked
Static linking change made to called program not calling program Read More »
db2 plan used by CICS region
db2 plan used by CICS region Say suppose you are logged on to a CICS region, how would you determine the db2 plan used by the CICS region? is they any direct command for getting the plan name used by a CICS region? “; ; ; ;
db2 plan used by CICS region Read More »
Adding Primary Key on exisitng DB2 Table
Adding Primary Key on exisitng DB2 Table How to defina a primary key on an existing DB2 table? To define a primary key on a table which exists you will need to use the ALTER command, the following example query will give ALTER TABLE Table_Name ADD PRIMARY KEY (Column_one, Column_two) Where Table_Name is the name
Adding Primary Key on exisitng DB2 Table Read More »
COBOL PERFORM WITH TEST AFTER
PERFORM WITH TEST AFTER UNTIL The following COBOL program depicts the use of PERFORM WITH TEST AFTER UNTIL     01 WS-SUB  PIC 9 VALUE ZEROS.        PERFORM 20000-FIRST-PARA WITH TEST AFTER UNTIL WS-SUB=5        DISPLAY ‘PARA NAME IS  10000-FIRST-PARA’    Â
COBOL PERFORM WITH TEST AFTER Read More »
SORT JCL with OMIT
If you wish to exclude certain records which match a specific criteria.(Using OMIT) OMIT COND=((34,2,CH,EQ,C’AB’),AND,(74,1,CH,EQ,C’ ‘))Â The above SORT card will exclude records which have ‘AB’ at 34th position and have spaces at 74th position. Example JCL is provided below. ; ; ; ; //SORTIN Â DD DISP=SHR,DSN=USERID.ABC.INPFILE, //SORTOUT Â DD DSN=USERID.ABC.OUTFILE, // Â Â Â SPACE=(TRK,(30,10),RLSE),
SORT JCL with OMIT Read More »
Mainframe Disaster Recovery
When we are developing a program or application we always have the apprehension that what will happen if the data or application is lost due to a problem (like disk error). We take backups to avoid such situations. This is a kind of recovery plan that we have for our application. The large organizations have
Mainframe Disaster Recovery Read More »
COBOL EVALUATE TRUE ALSO TRUE
The following COBOL program depicts the use of     01 SALARY PIC 9(9)  VALUE ZEROS.     01 TAX   PIC 9(9)  VALUE ZEROS.     01 SEX   PIC X   VALUE SPACES.          WHEN SALARY 10000  ALSO SEX=’M’   Â
COBOL EVALUATE TRUE ALSO TRUE Read More »
JCL to create members using Flat File
JCL to create members using Flat File I think you will have to maneuver with PS file created using the IEBPTPCH and you can feed it as SYSIN card in the following JCL. I am leaving it up to you and use your creativity to convert the flat file (created by IEBPTPCH) so that it can
JCL to create members using Flat File Read More »