COBOL - Aprendiendo COBOL con Carlos Cesar - Clase 7 Parte 1

Описание к видео COBOL - Aprendiendo COBOL con Carlos Cesar - Clase 7 Parte 1

COBOL - Manejo de Cadena
Carlos Cesar Caicedo Vargas
Ejercicio
***********************************
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CNT1 PIC 9(2) VALUE 0.
01 WS-CNT2 PIC 9(2) VALUE 0.
01 WS-STRING PIC X(15) VALUE 'ABCDACDADEAAAFF'.

PROCEDURE DIVISION.
INSPECT WS-STRING TALLYING WS-CNT1 FOR ALL CHARACTERS.
DISPLAY "WS-CNT1 : "WS-CNT1.
INSPECT WS-STRING TALLYING WS-CNT2 FOR ALL 'A'.
DISPLAY "WS-CNT2 : "WS-CNT2

STOP RUN.

Комментарии

Информация по комментариям в разработке