× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



[ Converted text/html to text/plain ]

Greetings again,

First, all of you who have responded in the past have done a wonderful job in
explaining to me the programming concepts that I have inquired about and need
to learn.

(Lief has put up with me the most, I guess, but his determination has helped
in the long run. There probably wont be any more late Sunday nights trying to
rack your brain and me not understanding it.)

My programming assignment is done to the specifications of my programming
execercise. The printed output of the QPRINT file is showng below: (I was able
to get the vertical spacings correct)

*...+....1....+....2....+....3....+....4....+....5
          Tommy Trans
          456 Vamp Ln
          Roche          , NB  45678
          Jane Doe                             ! sp;
          666 Dead Zone
          Rancho         , AZ  89567

Here is my code snippet, under the WORKING-STORAGE SECTION, that defines part
of the output for the following QPRINT file:

0063.00        01  ADDRESS-LABEL.
0064.00            05                              PIC X(10).
0065.00            05  DL-CITY                     PIC X(15).
0066.00       &! nbsp;    05                              PIC X      VALUE
','.
0067.00            05                              PIC X(01).
0068.00            05  DL-STATE                    PIC X(02).
0069.00            05                             ! PIC X(02).
0070.00            05  DL-ZIP-CODE                 PIC 9(05).

The rest of my source code is stated below. I didnt want to clutter the first
part of the email by reading a whole bunch of source code lines. Attempting to
make it easier on you all.

Thanks to all for using the +1 in the Control Line for finding the vertical
spacings in the output. This handy way of checking my work is wonderful.

My question today is to find out how to place the comma and everything to the
right of the comma after the city name appears. The desired output is shown
below:

*...+....1....+....2....+....3....+....4....+....5
          Tommy Trans
          456 Vamp Ln
          Roche, NB  45678
          Jane Doe
       ! ;   666 Dead Zone
          Rancho, AZ  89567

Please forgive me if I dont ask this question correctly:

Would it be possible, in the case of the city name, if city did not fill up
the entire field length, then to have the rest of the fields shown correctly
above?

Thanks,

Eric



P.S. Here is my source code listing below:

        *************** Beginning of data
*************************************
0001.00        PROCESS APOST.
0002.00
0003.00        IDENTIFICATIO! N DIVISION.
0004.00
0005.00        PROGRAM-ID. CHPT0303.                                      !
bsp;
0006.00
0007.00       ************************************************************
0008.00       *                                                          *!
bsp;
0009.00       *  This program reads the Customer Address File and will   *
0010.00       *  print a Customer Mailing List containing the following  *
0011.00       *  items in this order. Each complete record will have two *
0012.00       *  spaces before the next complete record starts.          *
0013.00       *                                                   ! ;       *
0014.00       *   1. Customer Name                                       *
0015.00       *   2. Street Address                                      *
0016.00       *   3. City, State, Zip                              ! sp;     *
0017.00       *                                                          *
0018.00       ************************************************************
0019.00
0020.00 ! bsp;      ENVIRONMENT DIVISION.
0021.00
0022.00        INPUT-OUTPUT SECTION.
! 0023.00
0024.00        FILE-CONTROL.
0025.00             SELECT CUSTOMER-ADDRESS-FILE                      ! sp;
0026.00                 ASSIGN TO DISK-CUSTADDRPF.
0027.00
0028.00             SELECT CUSTOMER-MAILING-LIST
0029.00   !               ASSIGN TO PRINTER-QPRINT.
0030.00
0031.00        DATA DIVISION.                                            !
0032.00
0033.00        FILE SECTION.
0034.00                                      ! sp;
0035.00        FD  CUSTOMER-ADDRESS-FILE.
0036.00
0037.00        01  CUSTOMER-ADDRESS-DETAILS.
0038.00            05  CA-CUSTOMER-NAME            PIC X(20).
0039.00!             05  STREET-NAME.
0040.00                10  CA-STREET-ADDRESS       PIC X(20).
0041.00            05  ADDRESS-FROM.
0042.00                10  CA-CITY                 PIC X(15).
0043.00         ! bsp;      10  CA-STATE                PIC X(02).
0044.00                10  CA-ZIP-CODE             PIC 9(05).
0045.00
0046.00        FD  CUSTOMER-MAILING-LIST.
0047.00        ! p;
0048.00        01  PRINT-RECORD-OUT                PIC X(80).
0049.00
0050.00        WORKING-STORAGE SECTION.                 &! nbsp;
0051.00
0052.00        01  WS-CONTROL-FIELDS.
0053.00            05  ARE-THERE-MORE-RECORDS      PIC X(3)    VALUE 'YES'.
0054.00
0055.00        01  NAME-LABEL.                   &! nbsp;
0056.00            05                              PIC X(10).
0057.00            05  DL-CUSTOMER-NAME            PIC X(20).
0058.00                                           ! sp;
0059.00        01  STREET-LABEL.
0060.00            05                              PIC X(10).
0061.00            05  DL-STREET-ADDRESS           PIC X(20).      ! ;
0062.00
0063.00        01  ADDRESS-LABEL.
0064.00            05                           &! nbsp;  PIC X(10).
0065.00            05  DL-CITY                     PIC X(15).
0066.00            05                              PIC X      VALUE ','.
0067.00            05                              PIC X(01).
0068.00     ! ;       05  DL-STATE                    PIC X(02).
0069.00            05                              PIC X(02).
0070.00            05  DL-ZIP-CODE                 PIC 9(05).
0071.00                                                       !
0072.00        PROCEDURE DIVISION.
0073.00
0074.00        000-MAIN-MODULE.
0075.00                          ! ;
0076.00            OPEN INPUT  CUSTOMER-ADDRESS-FILE
0077.00                 OUTPUT CUSTOMER-MAILING-LIST.
0078.00
0079.00            READ CUSTOMER-ADDRESS-FILE   ! p;
0080.00                AT END
0081.00                    MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
0082.00            END-READ
0083.00            PERFORM 200-PROCESS-RECORD-RTN    ! sp;
0084.00                UNTIL ARE-THERE-MORE-RECORDS = 'NO '.
0085.00
0086.00            CLOSE CUSTOMER-ADDRESS-FILE
0087.00                  CUSTOMER-MAILING-LIST.             ! sp;
0088.00
0089.00            STOP RUN.
0090.00                                                    ! p;
0091.00        200-PROCESS-RECORD-RTN.
0092.00
0093.00            MOVE CA-CUSTOMER-NAME TO DL-CUSTOMER-NAME.
0094.00            MOVE CA-STREET-ADDRESS TO DL-STREET-ADDRESS.
0095.00            MOVE CA-CITY TO DL-CITY.     ! p;
0096.00            MOVE CA-STATE TO DL-STATE.
0097.00            MOVE CA-ZIP-CODE TO DL-ZIP-CODE.
0098.00            WRITE PRINT-RECORD-OUT FROM NAME-LABEL
0099.00                 AFTER ADVANCING 1 LINE.
0100.00            WRITE PRINT-RECORD-OUT FROM STREET-LABEL
0101.00 &! nbsp;               AFTER ADVANCING 1 LINE.
0102.00            WRITE PRINT-RECORD-OUT FROM ADDRESS-LABEL
0103.00                 AFTER ADVANCING 1 LINE.
0104.00            MOVE SPACES TO PRINT-RECORD-OUT.
0105.00            WRITE PRINT-RECORD-OUT
0106.00       ! p;         AFTER ADVANCING 2 LINE.
0107.00            READ CUSTOMER-ADDRESS-FILE
0108.00                AT END
0109.00                   ! ; MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
0110.00            END-READ.
        ****************** End of data
****************************************
--

_______________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com[1]

Get 4 DVDs for $.49 cents! plus shipping & processing.Click to join[2].

===References:===
  1. http://www.mail.com/?sr=signup
  2. http://adfarm.mediaplex.com/ad/ck/990-1736-3566-59



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.