The following COBOL74 program uses various ALGOL and COBOL74 libraries described in this section:

IDENTIFICATION DIVISION.
  ENVIRONMENT DIVISION.
  DATA DIVISION.
  WORKING-STORAGE SECTION.
  77  PARAM1     PIC 9(11) BINARY.
  77  PARAM2     PIC 9(11) COMP.
  77  RETURNVAL1 PIC 9(11) BINARY.
  77  RETURNVAL2 PIC 9(11) COMP.
  01  TOARRAY    BINARY WITH LOWER-BOUNDS.
      03 ELEMENT PIC 9(6)  BINARY OCCURS 13.
  77  WH         PIC 9(11) BINARY.
  PROCEDURE DIVISION.
  P1.

 * CALL COBOL74 LIBRARY NAMED “OBJECT/SAMPLE4”

      CALL “PROCEDUREDIVISION OF OBJECT/SAMPLE4” USING PARAM1.

 * CALL COBOL74  LIBRARY NAMED “OBJECT/SAMPLE4” USING TITLE ATTRIBUTE

      CHANGE ATTRIBUTE TITLE OF “OBJECT/SAMPLE6” TO
           “OBJECT/SAMPLE4.”.
      CALL “PROCEDUREDIVISION IN OBJECT/SAMPLE6”
           USING INTEGER (PARAM2).

 * CALL COBOL74 LIBRARY NAMED “OBJECT/SAMPLE5” WHOSE ENTRYPOINT IS
 * NAMED ENTRYPOINT

      CALL “ENTRYPOINT OF OBJECT/SAMPLE5” USING PARAM1.

 * CALL COBOL74 LIBRARY NAMED “OBJECT/SAMPLE4”
 * USING ANSI74 IPC SYNTAX; CANCEL THAT COBOL74 LIBRARY

      CALL “OBJECT/SAMPLE4” USING INTEGER (PARAM2).
      CANCEL “OBJECT/SAMPLE4”.

 * CALL DIRECT ALGOL LIBRARY
 * INTERNAL NAME IS “INTLIB”; TITLE IS “OBJECT/SAMPLE/LIBRARY”

      CHANGE ATTRIBUTE TITLE OF “INTLIB”

         TO “OBJECT/SAMPLE/LIBRARY.”.

      CALL “FACT OF INTLIB”
         USING PARAM1 GIVING RETURNVAL1.

 * CALL DYNAMIC ALGOL LIBRARY
 * TITLE IS “OBJECT/SAMPLE/DYNAMICLIB”
 * SELECTION PROCEDURE PARAMETER IS “WITH TIME”

      CHANGE ATTRIBUTE LIBPARAMETER OF “OBJECT/SAMPLE/DYNAMICLIB”
          TO “WITH NAME”.
      CALL “DAYTIME IN OBJECT/SAMPLE/DYNAMICLIB”
         USING TOARRAY, WH.

      STOP RUN.