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 »
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 »
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 »
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 »
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 »
COBOL INTERVIEW QUESTIONS A data name must at least be 8 digits in COBOL A) True B) False A sentence in COBOL consists of one or more than statements terminated by a period? A) True B) False A level 77 can start in any of AREA A or AREA B? A) True B) False RENAME
COBOL Interview Questions Read More »
Example of ACCEPT and DISPLAY PROGRAM IDENTIFICATION DIVISION. PROGRAM-ID. PGM001. AUTHOR. MAINFRAMEWIZARD. DATA DIVISION. WORKING-STORAGE SECTION. 01 VAR1 PIC 9(3) VALUE ZEROES. PROCEDURE DIVISION. 10000-MAIN-PARA. ACCEPT VAR1. DISPLAY ‘VARIABLE INPUT IS=’ VAR1. STOP RUN.
COBOL Example ACCEPT AND DISPLAY Read More »
The following COBOL program depicts the use of 01 WS-SUB PIC 9 VALUE ZEROS. DISPLAY ‘WS-SUB IS GREATER THAN 4’ DISPLAY ‘WS-SUB IS GREATER THAN 5’ DISPLAY
COBOL EVALUATE TRUE Read More »
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 »
The following COBOL program depicts the use of 01 WS-SUB PIC 9 VALUE ZEROS. PERFORM 20000-FIRST-PARA 5 TIMES DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’ DISPLAY ‘VALUE OF WS-SUB IS = ‘ WS-SUB. The ouput
COBOL PERFORM TIMES Read More »
