0.006/01/88 BERNICE LITTLE
 1.0  PROGRAM NARRATIVE:
      -----------------

       THIS SUBPROGRAM PRINTS ADDRESSES ON CONTINUOUS FORM ENVELOPES.
       IT ONLY CONTROLS THE PRINTING OF THE ENVELOPES BUT IT CAN BE
       CALLED BY ANY PROGRAM TO PRODUCE CONTINUOUS FORM ENVELOPES.
       SELECTING AND SORTING OF THE DATA TO BE PRINTED, FORMATTING OF
       THE HEADER, TRAILER, AND SEPARATOR ENVELOPES, AND COUNTING OF THE
       ENVELOPES MUST ALL BE DONE BY THE CALLING PROGRAM.

       A MAXIMUM OF FIVE 33-CHARACTER LINES CAN BE PRINTED PER ENVELOPE.
       THE DATA TO BE PRINTED AND A CONTROL CHARACTER IS STORED IN THE
       LINKAGE SECTION OF THIS SUBPROGRAM.  THE PRINT CONTROL CHARACTER
       DETERMINES IF THE SUBPROGRAM IS BEING CALLED TO CLOSE THE FILE,
       OPEN THE FILE, OR PRINT AN ADDRESS.  AN 'O' IN THE CONTROL FIELD
       IS USED TO OPEN THE OUTPUT FILE AND TO TEST FORM ALIGNMENT. THE
       CALLING PROGRAM MOVES THE ALIGNMENT CHARACTER (X'S) TO THE RECORD
       AND CALLS THE SUBPROGRAM WITH AN 'O' IN THE CONTROL FIELD.
       A 'C' IN THE CONTROL FIELD IS USED TO CLOSE THE OUTPUT FILE. A
       ' ' OR '1' IS USED TO PRINT THE ADDRESS ON THE ENVELOPE.

       THE SUBPROGRAM IS EXPECTING A RECORD IN THE FOLLOWING FORMAT.
       THIS RECORD MUST BE DEFINED IN THE CALLING PROGRAM.

          EXAMPLE:  01  ENVELOPE-RECORD.
                        05  ENV-CONTROL            PIC X.
                        05  ENV-LINE1              PIC X(33).
                        05  ENV-LINE2              PIC X(33).
                        05  ENV-LINE3              PIC X(33).
                        05  ENV-LINE4              PIC X(33).
                        05  ENV-LINE5              PIC X(33).

       AN EXAMPLE OF THE STATEMENT NEEDED TO CALL THE SUBPROGRAM
       FOLLOWS.

         EXAMPLE:  "CALL 'PER969S' USING ENVELOPE-RECORD."
*2.0  SAMPLE JCL:
      ----------
       A DD STATEMENT REFERENCING THE ENVELOPE OUTPUT FILE MUST BE
       PROVIDED IN THE JOB STREAM OF THE CALLING PROGRAM. EXAMPLES OF
       THE NECESSARY DD STATMENT ARE:

          //PRTENVEL  DD SYSOUT=(&QUEUE,,&FORM),FCB=&FCB
          //PRTENVEL  DD SYSOUT=(J,,0666),FCB=0666

      2.2  INPUT PARAMETERS:   N/A    (PARAMETERS SELECTED IN CALLING
           ----------------            PROGRAM)



 3.0  JOB SETUP INSTRUCTIONS:
      ----------------------

      SPECIAL FORMS QUEUE:     0666   CONTINUOUS FORM ENVELOPES

      FORMS BUFFER:            0666


      PRINTED OUTPUT:          CONTINUOUS FORM ENVELOPES


 4.0  FILES:
      -----

      4.1  DATA BASES/SEGMENTS USED       N/A
           ------------------------


      4.2  ADDITIONAL FILES USED:
           ---------------------

           1.  PRTENVEL - FILE USED TO PRINT CONTINUOUS FORM ENVELOPES.


      4.3  INPUT/OUTPUT RECORD LAYOUTS:   N/A
           ---------------------------
*
 5.0  SPECIAL OUTPUT MESSAGES:
      -----------------------


        14.  '*** THE FOLLOWING RECORD HAS AN INVALID CONTROL VALUE ***'

              THIS MESSAGE INDICATES THAT A RECORD IS BEING PASSED WITH
              AN INVALID VALUE IN THE PRINT CONTROL FIELD.  THE PROGRAM
              IS EXPECTING A 'C', 'O', '1', OR ' '.  THE CALLING PROGRAM
              SHOULD BE CHECKED TO DETERMINE THE PROBLEM.



 6.0  SPECIAL FEATURES:
      ----------------

      6.1  CALLING PROGRAMS:      PER750

      6.2  SUBPROGRAMS CALLED:    N/A

      6.3  MESSAGE CODES:         N/A


 7.0  PROGRAM OPTIONS:            N/A
      ---------------

 8.0  PROGRAM CHANGE HISTORY:
      ----------------------

      8.1 VERSION NO:                  03.10 (NEW PROGRAM)
          CHANGE DATE:                 05-13-88
          PROGRAMMER NAME:             BERNICE LITTLE
          PROGRAM CHANGE REQUEST NO:   N/A
          DESCRIPTION OF CHANGE:       NEW PGM