COBOL

COBOL EVALUATE CONDITIONAL EXPRESSION

EVALUATE CONDITIONAL EXPRESSION The following COBOL program depicts the use of  EVALUATE CONDITIONAL EXPRESSION        01 STUDENT1-MARKS   PIC 999  VALUE ZEROS.        01 STUDENT2-MARKS   PIC 999  VALUE ZEROS.              MOVE 99   TO STUDENT1-MARKS.              MOVE 100  TO STUDENT2-MARKS. […]

COBOL EVALUATE CONDITIONAL EXPRESSION Read More »

INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES

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

INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES Read More »

INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES

INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES The following COBOL program depicts the use of  INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES        01 TEST-STRING   PIC X(40) VALUE SPACES.        01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.              MOVE ‘THIS IS TEST STRING TO TEST

INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES Read More »

COBOL PERFORM PARA

The following simple COBOL program depicts the use of         01 WS-SUB PIC 9(3) VALUE ZEROS.              DISPLAY ‘CALLING PARA USING PERFORM BY MAINFRAMEWIZARD.COM’              DISPLAY ‘PARA NAME IS  10000-FIRST-PARA’              DISPLAY ‘PARA NAME IS  20000-FIRST-PARA’     

COBOL PERFORM PARA Read More »

COBOL PERFORM THRU

The following simple COBOL program depicts the use of         01 WS-SUB PIC 9(3) VALUE ZEROS.              PERFORM 20000-FIRST-PARA THRU 30000-THIRD-PARA              DISPLAY ‘DEPICTING PERFORM THRU BY MAINFRAMEWIZARD.COM’              DISPLAY ‘PARA NAME IS  10000-FIRST-PARA’         

COBOL PERFORM THRU Read More »