COBOL

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 “; ; ; […]

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

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.             

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

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 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

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.                                                      

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

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

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