home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / CPMFILES / SLIDE.C74 < prev    next >
Encoding:
Text File  |  1994-12-16  |  6.1 KB  |  165 lines  |  [04] ASCII Text (0x0000)
  1. *   X   X   X   X   X   X   X  (TAB SETTINGS)
  2. IDENTIFICATION DIVISION.
  3. PROGRAM-ID.    SLIDE.
  4. AUTHOR.        FANTASTIC FOUR.
  5. INSTALLATION.  NEW YORK UNIVERSITY.
  6. DATE-WRITTEN.  20-APR-85.
  7. DATE-COMPILED.
  8.  
  9. ENVIRONMENT DIVISION.
  10. CONFIGURATION SECTION.
  11. SOURCE-COMPUTER.    DECSYSTEM-20.
  12. OBJECT-COMPUTER.    DECSYSTEM-20.
  13. INPUT-OUTPUT SECTION.
  14. FILE-CONTROL.
  15.     SELECT SLIDE-FILE
  16.         ASSIGN TO DSK
  17.         ORGANIZATION IS INDEXED
  18.         ACCESS MODE IS DYNAMIC
  19.         RECORD KEY IS SERIAL-NUMBER
  20.         ALTERNATE RECORD KEY IS PROJECT-CODE WITH DUPLICATES.
  21.     SELECT PROJECT-FILE
  22.         ASSIGN TO DSK
  23.         ORGANIZATION IS SEQUENTIAL
  24.         ACCESS MODE IS SEQUENTIAL.
  25.     SELECT PRESENTATION-FILE
  26.         ASSIGN TO DSK
  27.         ORGANIZATION IS SEQUENTIAL
  28.         ACCESS MODE IS SEQUENTIAL
  29.     SELECT SLIDE-PRESENTATION-FILE
  30.         ASSIGN TO DSK
  31.         ORGANIZATION IS INDEXED
  32.         ACCESS MODE IS DYNAMIC
  33.         RECORD KEY IS SERIAL-NUMBER                   
  34.         ALTERNATE RECORD KEY IS PRESENTATION-CODE WITH DUPLICATES.    
  35.     SELECT BORROWER-FILE
  36.         ASSIGN TO DSK
  37.         ORGANIZATION IS SEQUENTIAL
  38.         ACCESS MODE IS SEQUENTIAL.
  39.     SELECT LOAN-FILE
  40.         ASSIGN TO DSK
  41.         ORGANIZATION IS SEQUENTIAL
  42.         ACCESS MODE IS SEQUENTIAL.
  43.     SELECT VENDOR-FILE
  44.         ASSIGN TO DSK
  45.         ORGANIZATION IS SEQUENTIAL
  46.         ACCESS MODE IS SEQUENTIAL.
  47.     SELECT SLIDE-PURCHASE-FILE
  48.         ASSIGN TO DSK
  49.         ORGANIZATION IS INDEXED
  50.         ACCESS MODE IS DYNAMIC
  51.         RECORD KEY IS SERIAL-NUMBER 
  52.         ALTERNATE RECORD KEY IS VENDOR-NUMBER WITH DUPLICATES.
  53. /
  54. DATA DIVISION.
  55. FILE SECTION.
  56. FD  SLIDE-FILE
  57.     RECORD CONTAINS 157 TO 457 CHARACTERS
  58.     LABEL RECORDS ARE STANDARD
  59.     VALUE OF ID IS 'SLIDEXFIL'
  60.     DATA RECORD IS SLIDE-RECORD.
  61. 01  SLIDE-RECORD.     
  62.     05  SERIAL-NUMBER.
  63.         10  SEARCH-KEY.
  64.             15  MAJOR-CATEGORY-CODE               PIC 99.
  65.             15  PROJECT-CODE                      PIC 999.
  66.         10  POSITION                              PIC 999.
  67.     05  IN-OUT                                    PIC 9.  
  68.     05  SLIDE-TYPE.
  69.         10  FILM-TYPE                             PIC X(12). 
  70.         10  SIZE                                  PIC X(13).
  71.     05  FORMAT                                    PIC A(10).
  72.     05  COLOR-STATUS                              PIC A(13).
  73.     05  COPY-STATUS                               PIC A(8).
  74.     05  SHOT-TYPE                                 PIC A(12).
  75.     05  DATE-ORIGINAL                             PIC X(21).
  76.     05  NUMBER-OF-ATTRIBUTES-REMAINING            PIC 9.
  77.     05  ATTRIBUTE-TABLE OCCURS 2 TO 7 TIMES DEPENDING ON 
  78.         NUMBER-OF-ATTRIBUTES-REMAINING
  79.         10  ATTRIBUTE-DESCRIPTOR                  PIC X(50).
  80. FD  PROJECT-FILE
  81.     RECORD CONTAINS 53 CHARACTERS
  82.     LABEL RECORDS ARE STANDARD
  83.     VALUE OF ID IS 'PROJCTFIL'
  84.     DATA RECORD IS PROJECT-RECORD.
  85. 01  PROJECT-RECORD.     
  86.     05  PROJECT-CODE                              PIC 999.
  87.     05  PROJECT-NAME                              PIC X(50).
  88. FD  PRESENTATION-FILE
  89.     RECORD CONTAINS 55 CHARACTERS
  90.     LABEL RECORDS ARE STANDARD
  91.     VALUE OF ID IS 'PRESNTFIL'
  92.     DATA RECORD IS PRESENTATION-RECORD.
  93. 01  PRESENTATION-RECORD.     
  94.     05  PRESENTATION-CODE                         PIC 999.
  95.     05  PRESENTATION-NAME                         PIC X(50).
  96.     05  PRESENTATION-LENGTH                       PIC 99.
  97. FD  SLIDE-PRESENTATION-FILE
  98.     RECORD CONTAINS 11 CHARACTERS
  99.     LABEL RECORDS ARE STANDARD
  100.     VALUE OF ID IS 'SLDPRSFIL'
  101.     DATA RECORD IS SLIDE-PRESENTATION-RECORD.
  102. 01  SLIDE-PRESENTATION-RECORD.     
  103.     05  PRESENTATION-CODE                         PIC 999.
  104.     05  SERIAL-NUMBER                             PIC 9(8).
  105. /
  106. FD  BORROWER-FILE
  107.     RECORD CONTAINS 35 CHARACTERS
  108.     LABEL RECORDS ARE STANDARD
  109.     VALUE OF ID IS 'BORROWFIL'
  110.     DATA RECORD IS BORROWER-RECORD.
  111. 01  BORROWER-RECORD.     
  112.     05  OFFICE-NAME                               PIC X(30).
  113.     05  OFFICE-CODE                               PIC A(5).
  114. FD  LOAN-FILE
  115.     RECORD CONTAINS 56 CHARACTERS
  116.     LABEL RECORDS ARE STANDARD
  117.     VALUE OF ID IS 'LOANXXFIL'
  118.     DATA RECORD IS LOAN-RECORD.
  119. 01  LOAN-RECORD.     
  120.     05  SERIAL-NUMBER                             PIC 9(8).
  121.     05  OFFICE-CODE                               PIC A(5).
  122.     05  PERSON-OF-CONTACT                         PIC X(35).
  123.     05  EXPECTED-DATE-OF-RETURN                   PIC 99/99/99.
  124. FD  VENDOR-FILE
  125.     RECORD CONTAINS 83 CHARACTERS
  126.     LABEL RECORDS ARE STANDARD
  127.     VALUE OF ID IS 'VENDORFIL'
  128.     DATA RECORD IS VENDOR-RECORD.
  129. 01  VENDOR-RECORD.
  130.     05  VENDOR-NUMBER                  PIC 99.
  131.     05  VENDOR-NAME                               PIC X(30).
  132.     05  ADDRESS                      PIC X(30).
  133.     05  TELEPHONE-NUMBER                          PIC 9(10).
  134.     05  NUMBER-OF-PURCHASES-TO-DATE               PIC 9(4).
  135.     05  COST-OF-PURCHASES-TO-DATE                 PIC 9(5)V9(2).
  136. FD  SLIDE-PURCHASE-FILE
  137.     RECORD CONTAINS 42 CHARACTERS
  138.     LABEL RECORDS ARE STANDARD
  139.     VALUE OF ID IS 'SLDPURFIL'
  140.     DATA RECORD IS SLIDE-PURCHASE-RECORD.
  141. 01  SLIDE-PURCHASE-RECORD.     
  142.     05  SERIAL-NUMBER                             PIC 9(8).
  143.     05  VENDOR-NUMBER                             PIC 99.  
  144.     05  PURCHASE-DATE                             PIC 9(6).
  145.     05  VENDOR-PRODUCTION-NUMBER                  PIC X(20).
  146.     05  PRICE                                     PIC 9(4)V99.
  147. /
  148. WORKING-STORAGE SECTION.
  149. 01  CONTROL-SWITCHES.
  150.     02  SLIDE-FILE-EOF-SWITCH                     PIC XXX.
  151.         88  OUT-OF-SLIDE-RECORDS                           VALUE 'YES'.
  152.         88  STILL-MORE-TO-GO                               VALUE 'YES'.
  153. 01  MAJOR-CATEGORY-TABLE.
  154.     05  CATEGORY-TRANSLATION-TABLE OCCURS 12 TIMES.
  155.         10  MAJOR-CATEGORY-CODE                   PIC 99.
  156.         10  MAJOR-CATEGORY-NAME                   PIC X(40).
  157.         10  AMT-MAJOR-CATEGORY-FIELDS             PIC 9.
  158. /
  159. PROCEDURE DIVISION.
  160. PROGRAM-SUMMARY.    
  161.     PERFORM INITIALIZE-WORKING-STORAGE.
  162.     PERFORM MENU-SETUPS.
  163.     PERFORM SYSTEM-OPERATION.
  164.     STOP RUN.
  165.  
  166.