00001  IDENTIFICATION DIVISION.                                         08/13/98
00002  PROGRAM-ID.             DTSBD997.                                DTSBD997
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBD997
00005  DATE-COMPILED.                                                   DTSBD997
00006      SKIP3                                                        DTSBD997
00007 *****                                                             DTSBD997
00008 *                                                                 DTSBD997
00009 *    MODIFICATION LOG:                                            DTSBD997
00010 *                                                                 DTSBD997
00011 *    06/21/94  MODULE WRITTEN.                                    DTSBD997
00012 *              RFP:                                PROGRAMMER: EHHDTSBD997
00013 *                                                                 DTSBD997
00014 *    08/13/1998  REVIEWED AND MODIFIED FOR DC.                       CL**3
00015 *                REFERENCE: DC DEVELOPMENT         PROGRAMMER: EHH   CL**3
00016 *                                                                    CL**3
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   CL**3
00018 *                REFERENCE: XXXXXXXXXXXXXXX        PROGRAMMER: XXX   CL**3
00019 *                                                                 DTSBD997
00020 *                                                                 DTSBD997
00021 *    FUNCTION:                                                    DTSBD997
00022 *                                                                 DTSBD997
00023 *         MOVE SPACES TO UNUSED AREAS OF 80 CHARACTER RECORDS.    DTSBD997
00024 *                                                                 DTSBD997
00025 *         IMPROVES EFFICIENCY OF DOWNLOAD TO PC AND COMPRESSION   DTSBD997
00026 *         ON THE PC.                                              DTSBD997
00027 *                                                                 DTSBD997
00028 *****                                                             DTSBD997
00029      SKIP3                                                        DTSBD997
00030  ENVIRONMENT DIVISION.                                            DTSBD997
00031      SKIP2                                                        DTSBD997
00032  INPUT-OUTPUT SECTION.                                            DTSBD997
00033      SKIP1                                                        DTSBD997
00034  FILE-CONTROL.                                                    DTSBD997
00035      SELECT IN-FILE ASSIGN TO INFILE.                             DTSBD997
00036      SELECT OUT-FILE ASSIGN TO OUTFILE.                           DTSBD997
00037      EJECT                                                        DTSBD997
00038  DATA DIVISION.                                                   DTSBD997
00039      SKIP3                                                        DTSBD997
00040  FILE SECTION.                                                    DTSBD997
00041      SKIP3                                                        DTSBD997
00042  FD  IN-FILE                                                      DTSBD997
00043      BLOCK CONTAINS 0 RECORDS                                     DTSBD997
00044      RECORDING MODE IS F.                                         DTSBD997
00045      SKIP1                                                        DTSBD997
00046  01  IN-REC                    PIC  X(80).                        DTSBD997
00047      SKIP3                                                        DTSBD997
00048  FD  OUT-FILE                                                     DTSBD997
00049      BLOCK CONTAINS 0 RECORDS                                     DTSBD997
00050      RECORDING MODE IS F.                                         DTSBD997
00051      SKIP1                                                        DTSBD997
00052  01  OUT-REC                   PIC  X(80).                        DTSBD997
00053      EJECT                                                        DTSBD997
00054  WORKING-STORAGE SECTION.                                         DTSBD997
000545 77  PAN-VALET PICTURE X(24) VALUE '003DTSBD997  08/13/98'.       DTSBD997
00055      SKIP3                                                        DTSBD997
00056  01  WRK-AREA.                                                    DTSBD997
00057      05  IN-EOF-IND            PIC  X(01).                        DTSBD997
00058                                                                   DTSBD997
00059      05  ABEND-CD              PIC S9(07)  COMP  VALUE +997.      DTSBD997
00060                                                                   DTSBD997
00061      05  ABEND-MSG             PIC  X(60).                        DTSBD997
00062      SKIP1                                                        DTSBD997
00063      05  REC-COUNT             PIC S9(07)  COMP-3.                DTSBD997
00064      EJECT                                                        DTSBD997
00065  LINKAGE SECTION.                                                 DTSBD997
00066      SKIP3                                                        DTSBD997
00067  01  PARM-AREA.                                                   DTSBD997
00068      05  PARM-LENGTH                     PIC S9(04)  COMP.        DTSBD997
00069      05  PARM-REC-TYPE                   PIC  X(03).              DTSBD997
00070      EJECT                                                        DTSBD997
00071  PROCEDURE DIVISION USING PARM-AREA.                              DTSBD997
00072      SKIP3                                                        DTSBD997
00073      OPEN INPUT IN-FILE.                                          DTSBD997
00074      OPEN OUTPUT OUT-FILE.                                        DTSBD997
00075                                                                   DTSBD997
00076      IF PARM-LENGTH = +3                                          DTSBD997
00077          NEXT SENTENCE                                            DTSBD997
00078      ELSE                                                         DTSBD997
00079          MOVE 'PARM-LENGTH NOT EQUAL TO 3'                        DTSBD997
00080            TO ABEND-MSG                                           DTSBD997
00081          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD997
00082                                                                   DTSBD997
00083      IF PARM-REC-TYPE = 'COB' OR 'ASM' OR 'OTH'                   DTSBD997
00084          NEXT SENTENCE                                            DTSBD997
00085      ELSE                                                         DTSBD997
00086          MOVE 'PARM-REC-TYPE NOT EQUAL TO COB, ASM, OR OTH'       DTSBD997
00087            TO ABEND-MSG                                           DTSBD997
00088          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD997
00089                                                                   DTSBD997
00090      MOVE +0 TO REC-COUNT.                                        DTSBD997
00091                                                                   DTSBD997
00092      MOVE 'N' TO IN-EOF-IND.                                      DTSBD997
00093                                                                   DTSBD997
00094      PERFORM P0000-PROCESS THRU P0000-EXIT                        DTSBD997
00095          UNTIL IN-EOF-IND = 'Y'.                                  DTSBD997
00096                                                                   DTSBD997
00097      DISPLAY PARM-REC-TYPE '     RECORD TYPE PROCESSED'.          DTSBD997
00098                                                                   DTSBD997
00099      DISPLAY REC-COUNT ' RECORDS PROCESSED'.                      DTSBD997
00100                                                                   DTSBD997
00101      CLOSE IN-FILE                                                DTSBD997
00102            OUT-FILE.                                              DTSBD997
00103      SKIP2                                                        DTSBD997
00104      GOBACK.                                                      DTSBD997
00105      EJECT                                                        DTSBD997
00106  P0000-PROCESS.                                                   DTSBD997
00107      READ IN-FILE                                                 DTSBD997
00108          AT END                                                   DTSBD997
00109              MOVE 'Y' TO IN-EOF-IND                               DTSBD997
00110              GO TO P0000-EXIT.                                    DTSBD997
00111                                                                   DTSBD997
00112      ADD +1 TO REC-COUNT.                                         DTSBD997
00113                                                                   DTSBD997
00114      IF IN-REC (1:13) = 'MEMBER NAME  '                           DTSBD997
00115          NEXT SENTENCE                                            DTSBD997
00116      ELSE                                                         DTSBD997
00117          IF PARM-REC-TYPE = 'COB'                                 DTSBD997
00118              MOVE SPACES TO IN-REC (1:6)                          DTSBD997
00119              MOVE SPACES TO IN-REC (73:8)                         DTSBD997
00120          ELSE                                                     DTSBD997
00121          IF PARM-REC-TYPE = 'ASM'                                 DTSBD997
00122              MOVE SPACES TO IN-REC (73:8).                        DTSBD997
00123                                                                   DTSBD997
00124      MOVE IN-REC TO OUT-REC.                                      DTSBD997
00125                                                                   DTSBD997
00126      WRITE OUT-REC.                                               DTSBD997
00127  P0000-EXIT.                                                      DTSBD997
00128      EXIT.                                                        DTSBD997
00129      EJECT                                                        DTSBD997
00130  S999-ABEND.                                                      DTSBD997
00131      DISPLAY ABEND-MSG.                                           DTSBD997
00132      CALL 'DTSBU999' USING ABEND-CD.                                 CL**2
00133  S999-EXIT.                                                       DTSBD997
00134      EXIT.                                                        DTSBD997
