home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / PEO.ZIP / CBLTDLI.CBL < prev    next >
Text File  |  1994-02-11  |  2KB  |  67 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CBLTDLI.
  3.        ENVIRONMENT DIVISION.
  4.        CONFIGURATION SECTION.
  5.        SOURCE-COMPUTER.
  6.        OBJECT-COMPUTER.
  7.        DATA DIVISION.
  8.        LINKAGE SECTION.
  9.        01  FUNCTION-CODE          PIC X(04).
  10.        01  PCB                    PIC X(99).
  11.        01  I-O-AREA.
  12.            05  FILLER             PIC X(01).
  13.        01  SSA-1.
  14.            05  FILLER             PIC X(01).
  15.        01  SSA-2.
  16.            05  FILLER             PIC X(01).
  17.        01  SSA-3.
  18.            05  FILLER             PIC X(01).
  19.        01  SSA-4.
  20.            05  FILLER             PIC X(01).
  21.        01  SSA-5.
  22.            05  FILLER             PIC X(01).
  23.        01  SSA-6.
  24.            05  FILLER             PIC X(01).
  25.        01  SSA-7.
  26.            05  FILLER             PIC X(01).
  27.        01  SSA-8.
  28.            05  FILLER             PIC X(01).
  29.        01  SSA-9.
  30.            05  FILLER             PIC X(01).
  31.        01  SSA-10.
  32.            05  FILLER             PIC X(01).
  33.        01  SSA-11.
  34.            05  FILLER             PIC X(01).
  35.        01  SSA-12.
  36.            05  FILLER             PIC X(01).
  37.        01  SSA-13.
  38.            05  FILLER             PIC X(01).
  39.        01  SSA-14.
  40.            05  FILLER             PIC X(01).
  41.        01  SSA-15.
  42.            05  FILLER             PIC X(01).
  43.        01  SSA-16.
  44.            05  FILLER             PIC X(01).
  45.        PROCEDURE DIVISION USING
  46.            FUNCTION-CODE
  47.            PCB
  48.            I-O-AREA
  49.            SSA-1
  50.            SSA-2
  51.            SSA-3
  52.            SSA-4
  53.            SSA-5
  54.            SSA-6
  55.            SSA-7
  56.            SSA-8
  57.            SSA-9
  58.            SSA-10
  59.            SSA-11
  60.            SSA-12
  61.            SSA-13
  62.            SSA-14
  63.            SSA-15
  64.            SSA-16.
  65.  
  66.            GOBACK.
  67.