Funciones de COBOL

README.md

COBOL Programming

COBOL

IF condition1 AND condition2 THEN
   Statement-Block-1
ELSE
   IF condition3 THEN
      CONTINUE
   ELSE
      IF condition4 THEN
         Statement-Block-2
      ELSE
         NEXT SENTENCE
      END-IF
   END-IF
END-IF

EVALUATE subject-1 (ALSO subject2..)
WHEN object-1 (ALSO object2..)
WHEN object-3 (ALSO object4..)
WHEN OTHER imperative statements
END-EVALUATE

EVALUATE SQLCODE ALSO TRUE
WHEN 100 ALSO A=B
WHEN  -305 ALSO (A/C=4)
   DISPLAY  ‘ALLOWED SQLCODE..PROCEEDING..’
WHEN OTHER imperative statements
END-EVALUATE

PERFORM PARA-1.
DISPLAY ‘PARA-1 executed’
STOP RUN.
PARA-1.
   Statement1
   Statement2.

PERFORM
   ADD A TO B
   MULTIPLE B BY C
   DISPLAY ‘VALUE OF A+B*C ‘ C
END-PERFORM

PERFORM 100-STEP1 THRU STEP-4
   ..
100-STEP-1.
   ADD A TO B GIVING C.
   IF D = ZERO DISPLAY ‘MULTIPLICATION NOT DONE’
               GO TO 300-STEP3
   END-IF.
200-STEP-2.
   MULTIPLY C BY D.
300-STEP-3.
   DISPLAY ‘VALUE OF C:’ C

UNSTRING  identifier-1
[DELIMITED BY (ALL/) identifier2/literal1 [,OR (ALL/) (identifier-3/literal-2),..]]
INTO identifier-4 [,DELIMITER IN identifier-5, COUNT IN identifier-6]
[,identifier-7 [,DELIMITER IN identifier-8, COUNT IN identifier-9]

01 WS-DATA PIC X(12) VALUE ‘10/200/300/1’.
UNSTRING WS-DATA DELIMITED BY ‘/’
  INTO WS-FLD1 DELIMITER IN WS-D1 COUNT IN WS-C1
    WS-FLD2 DELIMITER IN WS-D2 COUNT IN WS-C2
    WS-FLD3 DELIMITER IN WS-D3 COUNT IN WS-C3
END-UNSTRING.

COPY copybook-name [(OF/IN) library name]
[REPLACING string-to-be-replaced BY replacing-string]