Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/spdbms.cbl
There are 11 other files named spdbms.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. PBDBMS.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT POSTAL-FILE ASSIGN TO DSK.
DATA DIVISION.
FILE SECTION.
FD POSTAL-FILE
LABEL RECORDS ARE STANDARD
VALUE OF ID CRT12-REPORT-FILE-NME
DATA RECORD IS POSTAL-REC.
01 POSTAL-REC.
05 PARENT-P PIC X(4).
05 BRANCH-P PIC X(4).
05 METER-P PIC X(5).
05 UPDATED-P PIC X(5).
05 ACT-RECS-P PIC X(5).
05 CUSTOMER-P PIC X(5).
05 DATE-P PIC X(6).
SCHEMA SECTION.
*SINGLE INVOKE SUB-SCHEMA SUBPIT OF SCHEMA PITNEY.
*SHARED INVOKE SUB-SCHEMA SUBPIT OF SCHEMA SPDAVE.