MainframeWizard.com

Difference in number of days using DB2 days function

Difference in number of day using DB2 days function DAYS – This returns the number of days starting from date ‘0001-01-01’. SELECT DAYS(‘2010-10-31’) FROM SYSIBM.SYSDUMMY1 This will query will return 734076. If you wish to calculate difference in number of days between two dates then the following query can be used SELECT DAYS(‘2010-10-31’)-DAYS(‘1990-10-01’) FROM SYSIBM.SYSDUMMY1 This […]

Difference in number of days using DB2 days function Read More »

Why VARCHAR item in COBOL must be defined at 49 level?

COBOL / Operator

Why VARCHAR item in COBOL must be defined at 49 level? I have noticed that to use a varchar data in a cobol db2 program the length and text part of varchar must be defined at level 49. But I really could not understand why we have this limitation? Seeking for an explanation “; ; ;

Why VARCHAR item in COBOL must be defined at 49 level? Read More »

COBOL Example EDITED PICTURE CLAUSE

COBOL / Operator

Example of EDITED PICTURE CLAUSE PROGRAM IDENTIFICATION DIVISION. PROGRAM-ID. PGM008. AUTHOR. MAINFRAMEWIZARD. DATA DIVISION. WORKING-STORAGE SECTION. 01 NUM1 PIC Z999. 01 NUM2 PIC **99. 01 NUM3 PIC $999. 01 NUM4 PIC -999. 01 NUM5 PIC +999. 01 NUM6 PIC 99CR. 01 NUM7 PIC 99DB. 01 NUM8 PIC 9.99. 01 NUM9 PIC 99,9. 01 NUM10 PIC

COBOL Example EDITED PICTURE CLAUSE Read More »

SORT JCL with INCLUDE

JCL / Operator

Hi, I have a VB file Organization . . . : PS Record format . . . : VB Record length . . . : 32566 Block size . . . . : 32570 The data length would not be consistent for each record and the maximum length of the record would be a maximum

SORT JCL with INCLUDE Read More »

COBOL INSPECT TALLYING FOR CHARACTER

COBOL / Operator

INSPECT TALLYING FOR CHARACTER The following COBOL program depicts the use of INSPECT TALLYING FOR CHARACTER 01 TEST-STRING PIC X(40) VALUE SPACES. 01 WS-COUNTER PIC 9(9) VALUE ZEROES. 01 SEARCH-STRING PIC X(2) VALUE SPACES.

COBOL INSPECT TALLYING FOR CHARACTER Read More »

COBOL Subtract Verb Example

COBOL / Operator

Example of SUBTRACT PROGRAM IDENTIFICATION DIVISION. PROGRAM-ID. PGM005. AUTHOR. MAINFRAMEWIZARD. DATA DIVISION. WORKING-STORAGE SECTION. 01 NUM1 PIC 9(3) VALUE 05. 01 NUM2 PIC 9(3) VALUE 10. 01 NUM3 PIC 9(3) VALUE 15. 01 NUM4 PIC 9(3) VALUE 20. 01 NUM5 PIC 9(3) VALUE 55. 01 NUM6 PIC

COBOL Subtract Verb Example Read More »

COBOL PERFORM WITH TEST BEFORE

COBOL / Operator

PERFORM WITH TEST BEFORE UNTIL The following COBOL program depicts the use of PERFORM WITH TEST BEFORE UNTIL 01 WS-SUB PIC 9 VALUE ZEROS. PERFORM 20000-FIRST-PARA WITH TEST BEFORE UNTIL WS-SUB=5 DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’

COBOL PERFORM WITH TEST BEFORE Read More »

db2 interview questions with answers

DB2 / Operator

db2 interview questions with answers Recently the job market for mainframe programmers is improving and keeping in mind the DB2 job opportunities, I thought of coming up with a compilation of db2 interview questions with answers. What do you mean by foreign keys? Ans:- Foreign keys are column or combination of columns in a table that

db2 interview questions with answers Read More »

JCL interview questions

JCL / Operator

As with any technology when you go for an interview you want to get prepared for the standard interview questions and some of those tricky ones that the interviewer may get you into trouble. JCL is an important part of any mainframe interview and so the website is proud to come up with the section

JCL interview questions Read More »

INSPECT TALLYING FOR LEADING ZEROES

COBOL / Operator

INSPECT TALLYING FOR LEADING ZEROES The following COBOL program depicts the use of INSPECT TALLYING FOR LEADING ZEROES 01 TEST-STRING PIC X(40) VALUE SPACES. 01 WS-COUNTER PIC 9(9) VALUE ZEROES. 01 SEARCH-STRING PIC X(2) VALUE SPACES. MOVE ‘0000

INSPECT TALLYING FOR LEADING ZEROES Read More »