IDENTIFICATION DIVISION.
       PROGRAM-ID. CBLTDLI.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       LINKAGE SECTION.
       01  FUNCTION-CODE          PIC X(04).
       01  PCB                    PIC X(99).
       01  I-O-AREA.
           05  FILLER             PIC X(01).
       01  SSA-1.
           05  FILLER             PIC X(01).
       01  SSA-2.
           05  FILLER             PIC X(01).
       01  SSA-3.
           05  FILLER             PIC X(01).
       01  SSA-4.
           05  FILLER             PIC X(01).
       01  SSA-5.
           05  FILLER             PIC X(01).
       01  SSA-6.
           05  FILLER             PIC X(01).
       01  SSA-7.
           05  FILLER             PIC X(01).
       01  SSA-8.
           05  FILLER             PIC X(01).
       01  SSA-9.
           05  FILLER             PIC X(01).
       01  SSA-10.
           05  FILLER             PIC X(01).
       01  SSA-11.
           05  FILLER             PIC X(01).
       01  SSA-12.
           05  FILLER             PIC X(01).
       01  SSA-13.
           05  FILLER             PIC X(01).
       01  SSA-14.
           05  FILLER             PIC X(01).
       01  SSA-15.
           05  FILLER             PIC X(01).
       01  SSA-16.
           05  FILLER             PIC X(01).
       PROCEDURE DIVISION USING
           FUNCTION-CODE
           PCB
           I-O-AREA
           SSA-1
           SSA-2
           SSA-3
           SSA-4
           SSA-5
           SSA-6
           SSA-7
           SSA-8
           SSA-9
           SSA-10
           SSA-11
           SSA-12
           SSA-13
           SSA-14
           SSA-15
           SSA-16.

           GOBACK.