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 […]
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 »
What is the purpose of using SYNC in COBOL?
What is the purpose of using SYNC in COBOL? Can someone explain the purpose of using SYNC in COBOL? Thanks #2 SYNC is used for faster computations… it creates slack bytes(unused space)….. Ex: 01 ws-var s9(04) comp it starts from 3rd byte. 01 ws-var s9(04) comp sync it starts from 4th byte… Thanks&Regrads, vijay #3
What is the purpose of using SYNC in COBOL? 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 »
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 »
COBOL INLINE PERFORM
The following simple COBOL program depicts the use of     01 WS-SUB PIC 9(3) VALUE ZEROS.        PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL WS-SUB=5         DISPLAY ‘INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM’ INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM      Â
COBOL INLINE PERFORM 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 »